Add the no-show-all accessors

Move the window_new and set_window_title so only defining once
finanalyst · May 17, 2016 · 1716816 · 1716816
1 parent 28bad1f
commit 1716816
Showing 1 changed file with 35 additions and 20 deletions.
diff --git a/lib/GTK/Simple.pm6 b/lib/GTK/Simple.pm6
@@ -23,6 +23,23 @@ sub gtk_widget_show(GtkWidget $widgetw)
     is native(&gtk-lib)
     {*}
 
+sub gtk_widget_hide(GtkWidget $widgetw)
+    is native(&gtk-lib)
+    { * }
+
+sub gtk_widget_show_all(GtkWidget $widgetw)
+    is native(&gtk-lib)
+    { * }
+
+sub gtk_widget_set_no_show_all(GtkWidget $widgetw, int32 $no_show_all)
+    is native(&gtk-lib)
+    { * }
+
+sub gtk_widget_get_no_show_all(GtkWidget $widgetw) 
+    returns int32
+    is native(&gtk-lib)
+    { * }
+
 sub gtk_widget_destroy(GtkWidget $widget)
     is native(&gtk-lib)
     {*}
@@ -54,6 +71,16 @@ sub gtk_widget_queue_draw(GtkWidget $widget)
     is native(&gtk-lib)
     {*}
 
+sub gtk_window_new(int32 $window_type)
+    is native(&gtk-lib)
+    returns GtkWidget
+    {*}
+
+sub gtk_window_set_title(GtkWidget $w, Str $title)
+    is native(&gtk-lib)
+    returns GtkWidget
+    {*}
+
 # gtk_widget_ ... }}}
 
 # gtk_container_... {{{
@@ -133,6 +160,14 @@ role GTK::Simple::Widget {
             }
     }
 
+    method no-show-all() {
+        Proxy.new:
+            FETCH => { gtk_widget_get_no_show_all($!gtk_widget) ?? True !! False },
+            STORE => -> \c, \value {
+                gtk_widget_set_no_show_all($!gtk_widget, value.Int)
+            }
+    }
+
     method events {
         my $window = self.WINDOW;
         my class GdkEventMaskWrapper {
@@ -237,16 +272,6 @@ class GTK::Simple::Scheduler does Scheduler {
 
 class GTK::Simple::Window does GTK::Simple::Widget
                        does GTK::Simple::Container {
-    sub gtk_window_new(int32 $window_type)
-        is native(&gtk-lib)
-        returns GtkWidget
-        {*}
-
-    sub gtk_window_set_title(GtkWidget $w, Str $title)
-        is native(&gtk-lib)
-        returns GtkWidget
-        {*}
-
     submethod BUILD(Cool :$title = "Gtk Window") {
         $!gtk_widget = gtk_window_new(0);
         gtk_window_set_title($!gtk_widget, $title.Str);
@@ -278,16 +303,6 @@ class GTK::Simple::App does GTK::Simple::Widget
         is native(&gtk-lib)
         {*}
 
-    sub gtk_window_new(int32 $window_type)
-        is native(&gtk-lib)
-        returns GtkWidget
-        {*}
-
-    sub gtk_window_set_title(GtkWidget $w, Str $title)
-        is native(&gtk-lib)
-        returns GtkWidget
-        {*}
-
     sub gtk_main()
         is native(&gtk-lib)
         {*}