Skip site navigation (1)Skip section navigation (2)
Date:      Mon, 15 Jun 2015 22:49:34 +0000 (UTC)
From:      John Marino <marino@FreeBSD.org>
To:        ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org
Subject:   svn commit: r389760 - head/x11-toolkits/gtkada3/files
Message-ID:  <201506152249.t5FMnYNp024028@svn.freebsd.org>

next in thread | raw e-mail | index | archive | help
Author: marino
Date: Mon Jun 15 22:49:33 2015
New Revision: 389760
URL: https://svnweb.freebsd.org/changeset/ports/389760

Log:
  x11-toolkits/gtkada3: modify to allow building with gcc5-aux
  
  Patch derived from gtkada-2015 released today.

Added:
  head/x11-toolkits/gtkada3/files/patch-src_gtkada-canvas__view.ads   (contents, props changed)

Added: head/x11-toolkits/gtkada3/files/patch-src_gtkada-canvas__view.ads
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/x11-toolkits/gtkada3/files/patch-src_gtkada-canvas__view.ads	Mon Jun 15 22:49:33 2015	(r389760)
@@ -0,0 +1,89 @@
+--- src/gtkada-canvas_view.ads.orig	2014-05-23 15:49:01 UTC
++++ src/gtkada-canvas_view.ads
+@@ -372,7 +372,7 @@ package Gtkada.Canvas_View is
+ 
+    function Is_Link
+      (Self : not null access Abstract_Item_Record)
+-      return Boolean is (False);
++      return Boolean is abstract;
+    --  Whether this item should be considered as a link between two other
+    --  items.
+    --  Such links have a few specific behavior: for instance, they cannot be
+@@ -448,7 +448,7 @@ package Gtkada.Canvas_View is
+    function Edit_Widget
+      (Self  : not null access Abstract_Item_Record;
+       View  : not null access Canvas_View_Record'Class)
+-      return Gtk.Widget.Gtk_Widget is (null);
++      return Gtk.Widget.Gtk_Widget is abstract;
+    --  Return the widget to use for in-place editing of the item.
+    --  null should be returned when the item is not editable in place.
+    --  It is the responsibility of the returned widget to monitor events and
+@@ -463,7 +463,7 @@ package Gtkada.Canvas_View is
+ 
+    function Parent
+      (Self : not null access Abstract_Item_Record)
+-      return Abstract_Item is (null);
++      return Abstract_Item is abstract;
+    --  Return the item inside which Self is contained.
+    --  null is returned for toplevel items, in which case the coordinates of
+    --  the bounding box are model coordinats. Otherwise, the coordinates are
+@@ -478,7 +478,7 @@ package Gtkada.Canvas_View is
+      (Self     : not null access Abstract_Item_Record;
+       At_Point : Model_Point;
+       Context  : Draw_Context)
+-      return Abstract_Item is (Self);
++      return Abstract_Item is abstract;
+    --  Return the inner-most item at the specific coordinates in Self (or
+    --  Self itself).
+ 
+@@ -509,7 +509,7 @@ package Gtkada.Canvas_View is
+ 
+    function Is_Invisible
+      (Self : not null access Abstract_Item_Record)
+-     return Boolean is (False);
++     return Boolean is abstract;
+    --  True if Self has no filling or stroke information (and therefore is
+    --  invisible even when displayed, although some of its children might be
+    --  visible).
+@@ -526,6 +526,19 @@ package Gtkada.Canvas_View is
+    --  It is easier to derive from this type when you want to create your own
+    --  items, unless you want complete control of the data storage.
+ 
++   overriding function Is_Link
++     (Self : not null access Canvas_Item_Record) return Boolean is (False);
++   overriding function Parent
++     (Self : not null access Canvas_Item_Record)
++      return Abstract_Item is (null);
++   overriding function Is_Invisible
++     (Self : not null access Canvas_Item_Record)
++     return Boolean is (False);
++   function Inner_Most_Item
++     (Self     : not null access Canvas_Item_Record;
++      At_Point : Model_Point;
++      Context  : Draw_Context)
++      return Abstract_Item is (Self);
+    overriding function Position
+      (Self : not null access Canvas_Item_Record) return Gtkada.Style.Point;
+    overriding function Contains
+@@ -1583,6 +1596,21 @@ package Gtkada.Canvas_View is
+    --  Return the computed points for the link.
+    --  Do not free or store the result
+ 
++   overriding function Is_Invisible
++     (Self : not null access Canvas_Link_Record)
++     return Boolean is (False);
++   overriding function Inner_Most_Item
++     (Self     : not null access Canvas_Link_Record;
++      At_Point : Model_Point;
++      Context  : Draw_Context)
++      return Abstract_Item is (null);
++   overriding function Parent
++     (Self : not null access Canvas_Link_Record)
++      return Abstract_Item is (null);
++   overriding function Edit_Widget
++     (Self  : not null access Canvas_Link_Record;
++      View  : not null access Canvas_View_Record'Class)
++      return Gtk.Widget.Gtk_Widget is (null);
+    overriding procedure Destroy
+      (Self     : not null access Canvas_Link_Record;
+       In_Model : not null access Canvas_Model_Record'Class);



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201506152249.t5FMnYNp024028>