diff options
| -rw-r--r-- | perl-install/my_gtk.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 9c4dac927..4c51f3241 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -117,6 +117,7 @@ sub gtkset_usize($$$) { $_[0]->set_usize($_[1],$_[2]); $_[0] } sub gtkset_justify($$) { $_[0]->set_justify($_[1]); $_[0] } sub gtkset_active($$) { $_[0]->set_active($_[1]); $_[0] } sub gtkset_modal { $_[0]->set_modal($_[1]); $_[0] } +sub gtkmove { $_[0]->windo->move($_[1], $_[2]); $_[0] } sub gtksignal_connect($@) { my $w = shift; @@ -172,6 +173,7 @@ sub gtkpack2_($@) { } $box } + sub gtksetstyle { my ($w, $s) = @_; $w->set_style($s); @@ -184,6 +186,7 @@ sub gtkappenditems { $w->append_items(@_); $w } + sub gtkappend($@) { my $w = shift; foreach (@_) { |