From 11b928bc48367f89ee5c57405cf4a6da28e0d2ef Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Sat, 10 Mar 2001 05:19:59 +0000
Subject: added gtkmove

---
 perl-install/my_gtk.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install/my_gtk.pm')

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 (@_) {
-- 
cgit v1.2.1