diff options
| author | damien <damien@mandriva.com> | 2001-03-10 05:19:59 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-10 05:19:59 +0000 |
| commit | 11b928bc48367f89ee5c57405cf4a6da28e0d2ef (patch) | |
| tree | 0ffbde596324b39e1a0b55d7d1d1098413d84df3 | |
| parent | 8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd (diff) | |
| download | drakx-11b928bc48367f89ee5c57405cf4a6da28e0d2ef.tar drakx-11b928bc48367f89ee5c57405cf4a6da28e0d2ef.tar.gz drakx-11b928bc48367f89ee5c57405cf4a6da28e0d2ef.tar.bz2 drakx-11b928bc48367f89ee5c57405cf4a6da28e0d2ef.tar.xz drakx-11b928bc48367f89ee5c57405cf4a6da28e0d2ef.zip | |
added gtkmove
| -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 (@_) { |