[perl-Gtk3] Make Gtk3::[HV]Box::new provide default arg values



commit c880615fc42d9f8a8a4c6a4d89296674607d8eee
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Sat Feb 18 22:24:06 2012 +0100

    Make Gtk3::[HV]Box::new provide default arg values

 lib/Gtk3.pm |   16 ++++++++++++++++
 1 files changed, 16 insertions(+), 0 deletions(-)
---
diff --git a/lib/Gtk3.pm b/lib/Gtk3.pm
index 272327e..754ec75 100644
--- a/lib/Gtk3.pm
+++ b/lib/Gtk3.pm
@@ -133,6 +133,14 @@ sub Gtk3::Button::new {
   }
 }
 
+sub Gtk3::HBox::new {
+  my ($class, $homogeneous, $spacing) = @_;
+  $homogeneous = 5 unless defined $homogeneous;
+  $spacing = 0 unless defined $spacing;
+  return Glib::Object::Introspection->invoke (
+    $_GTK_BASENAME, 'HBox', 'new', $class, $homogeneous, $spacing);
+}
+
 sub Gtk3::ListStore::new {
   return _common_tree_model_new ('ListStore', @_);
 }
@@ -246,6 +254,14 @@ sub Gtk3::TreeViewColumn::new_with_attributes {
   return $object;
 }
 
+sub Gtk3::VBox::new {
+  my ($class, $homogeneous, $spacing) = @_;
+  $homogeneous = 5 unless defined $homogeneous;
+  $spacing = 0 unless defined $spacing;
+  return Glib::Object::Introspection->invoke (
+    $_GTK_BASENAME, 'VBox', 'new', $class, $homogeneous, $spacing);
+}
+
 sub Gtk3::Window::new {
   my ($class, $type) = @_;
   $type = 'toplevel' unless defined $type;



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]