summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-10 05:19:59 +0000
committerdamien <damien@mandriva.com>2001-03-10 05:19:59 +0000
commit11b928bc48367f89ee5c57405cf4a6da28e0d2ef (patch)
tree0ffbde596324b39e1a0b55d7d1d1098413d84df3
parent8fecbf9c5c028f6319fbe135c4f779b2ab83f7fd (diff)
downloaddrakx-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.pm3
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 (@_) {