File tree Expand file tree Collapse file tree 1 file changed +2
-2
lines changed
Expand file tree Collapse file tree 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -589,7 +589,7 @@ package Gtkada.Canvas_View is
589589 (Self : not null access Canvas_Item_Record;
590590 Dummy_At_Point : Model_Point;
591591 Dummy_Context : Draw_Context)
592- return Abstract_Item is (Self);
592+ return Abstract_Item is (Abstract_Item ( Self) );
593593 overriding function Position
594594 (Self : not null access Canvas_Item_Record) return Gtkada.Style.Point;
595595 overriding function Contains
@@ -2027,7 +2027,7 @@ package Gtkada.Canvas_View is
20272027 (Self : not null access Canvas_Link_Record;
20282028 Dummy_At_Point : Model_Point;
20292029 Dummy_Context : Draw_Context)
2030- return Abstract_Item is (Self);
2030+ return Abstract_Item is (Abstract_Item ( Self) );
20312031 overriding function Parent
20322032 (Self : not null access Canvas_Link_Record)
20332033 return Abstract_Item is (null );
You can’t perform that action at this time.
0 commit comments