updating

META6.json

@@ -31,6 +31,7 @@
         "GTK::Simple::MenuBar"           : "lib/GTK/Simple/MenuBar.pm6",
         "GTK::Simple::MenuItem"          : "lib/GTK/Simple/MenuItem.pm6",
         "GTK::Simple::MenuToolButton"    : "lib/GTK/Simple/MenuToolButton.pm6",
+        "GTK::Simple::Paned"             : "lib/GTK/Simple/Paned.pm6",
         "GTK::Simple::PlacesSidebar"     : "lib/GTK/Simple/PlacesSidebar.pm6",
         "GTK::Simple::ProgressBar"       : "lib/GTK/Simple/ProgressBar.pm6",
         "GTK::Simple::PropertyFacade"    : "lib/GTK/Simple/PropertyFacade.pm6",

README.md

@@ -21,6 +21,7 @@ Menu              | A simple menu with a menu item label
 MenuBar           | A simple menu bar that contain one or more menus
 MenuItem          | A simple menu item that can have a sub menu
 MenuToolButton    | A menu tool button with a label or an icon
+Pane              | Split window into 2 panes (vert or hori) with movable separator
 PlacesSidebar     | Sidebar that displays frequently-used places in the file system
 Scale             | Allows for a number to be provided by the user
 ScrolledWindow    | Container for widgets needing scrolling, eg., multiline texts

examples/17-scrolled-window-with-textview.p6

@@ -5,7 +5,7 @@ use lib 'lib';
 use GTK::Simple;
 
 my $app = GTK::Simple::App.new(title=> 'Example 17');
-my $send-history = GTK::Simple::TextView.new(text=>'Old stuff');
+my $send-history = GTK::Simple::TextView.new;
 my $flood-data = GTK::Simple::ToggleButton.new(label=>'Flood with stuff');
 my $exit-b = GTK::Simple::ToggleButton.new(label=>'Exit');
 

lib/GTK/Simple.pm6

@@ -23,6 +23,7 @@ need GTK::Simple::DrawingArea;
 need GTK::Simple::Switch;
 need GTK::Simple::StatusBar;
 need GTK::Simple::Separator;
+need GTK::Simple::Paned;
 need GTK::Simple::ProgressBar;
 need GTK::Simple::Frame;
 need GTK::Simple::ComboBoxText;

lib/GTK/Simple/Raw.pm6

@@ -1006,13 +1006,42 @@ sub gtk_scrolled_window_new(Pointer $h-adjustment, Pointer $v-adjustment)
     is native(&gtk-lib)
     is export(:scrolled-window)
     { * }
-    
+
 sub gtk_scrolled_window_set_policy(GtkWidget $scrolled_window, 
                                   int32 $h-bar-policy, 
                                   int32 $v-bar-policy)
     is native(&gtk-lib)
     is export(:scrolled-window)
     { * }
+#
+# Pane
+#
+sub gtk_paned_new( int32 $orientation )
+    returns GtkWidget
+    is native(&gtk-lib)
+    is export(:paned)
+    { * }
 
-
+sub gtk_paned_add1( GtkWidget $pane, GtkWidget $child )
+    is native(&gtk-lib)
+    is export(:paned)
+    { * }
 
+sub gtk_paned_add2( GtkWidget $pane, GtkWidget $child )
+    is native(&gtk-lib)
+    is export(:paned)
+    { * }
+
+sub gtk_paned_pack1(GtkWidget $pane, GtkWidget $child, Bool $resize, Bool $shrink)
+    is native(&gtk-lib)
+    is export(:paned)
+    { * }
+
+sub gtk_paned_pack2(GtkWidget $pane, GtkWidget $child, Bool $resize, Bool $shrink)
+    is native(&gtk-lib)
+    is export(:paned)
+    { * }
+sub gtk_paned_set_position(GtkWidget $pane, int32 $position )
+    is native( &gtk-lib )
+    is export(:paned)
+    { * }