diff options
| author | damien <damien@mandriva.com> | 2001-03-10 07:49:42 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-10 07:49:42 +0000 |
| commit | 20409600370b8741d3939aab059b3b2a961e21d9 (patch) | |
| tree | 6b921d12aa335a21302ed103b65fbdf25d54d092 /perl-install | |
| parent | f12eedf49fa5ef2491fbd695acc0fb51a3cf8c5a (diff) | |
| download | drakx-20409600370b8741d3939aab059b3b2a961e21d9.tar drakx-20409600370b8741d3939aab059b3b2a961e21d9.tar.gz drakx-20409600370b8741d3939aab059b3b2a961e21d9.tar.bz2 drakx-20409600370b8741d3939aab059b3b2a961e21d9.tar.xz drakx-20409600370b8741d3939aab059b3b2a961e21d9.zip | |
added gtkset_border_width
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/my_gtk.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 59714d978..705ef0e79 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -10,7 +10,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border); @ISA = qw(Exporter); %EXPORT_TAGS = ( helpers => [ qw(create_okcancel createScrolledWindow create_menu create_notebook create_packtable create_hbox create_vbox create_adjustment create_box_with_title create_treeitem) ], - wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtksetstyle gtkappenditems gtkappend gtkset_shadow_type gtkadd gtkput gtktext_insert gtkset_usize gtkset_justify gtkset_active gtkset_modal gtkmove gtkshow gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng gtkcreate_xpm gtkcreate_png) ], + wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtksetstyle gtkappenditems gtkappend gtkset_shadow_type gtkadd gtkput gtktext_insert gtkset_usize gtkset_justify gtkset_active gtkset_modal gtkset_border_width gtkmove gtkshow gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng gtkcreate_xpm gtkcreate_png) ], ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry ask_file) ], ); $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ]; @@ -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 gtkset_border_width{ $_[0]->set_border_width($_[1]); $_[0] } sub gtkmove { $_[0]->window->move($_[1], $_[2]); $_[0] } sub gtksignal_connect($@) { |