diff options
| author | damien <damien@mandriva.com> | 2001-10-24 17:44:35 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-10-24 17:44:35 +0000 |
| commit | 9fbd14c5457f7c227df03a79eeec2aa2290f5c47 (patch) | |
| tree | 88bc179e96e7321e584e4abdfee8606edc820aac | |
| parent | d3e3e3e0e17fdc4beedbc1fc3ba39a403038f31b (diff) | |
| download | drakx-backup-do-not-use-9fbd14c5457f7c227df03a79eeec2aa2290f5c47.tar drakx-backup-do-not-use-9fbd14c5457f7c227df03a79eeec2aa2290f5c47.tar.gz drakx-backup-do-not-use-9fbd14c5457f7c227df03a79eeec2aa2290f5c47.tar.bz2 drakx-backup-do-not-use-9fbd14c5457f7c227df03a79eeec2aa2290f5c47.tar.xz drakx-backup-do-not-use-9fbd14c5457f7c227df03a79eeec2aa2290f5c47.zip | |
added set_editable
| -rw-r--r-- | perl-install/my_gtk.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 120a307fb..01dd81f47 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 gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkset_relief gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_sensitive gtkset_modal gtkset_border_width gtkmove gtkshow gtkhide gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng write_on_pixmap gtkcreate_xpm gtkcreate_png gtkbuttonset) ], + wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtkset_editable gtksetstyle gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkset_relief gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_sensitive gtkset_modal gtkset_border_width gtkmove gtkshow gtkhide gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng write_on_pixmap gtkcreate_xpm gtkcreate_png gtkbuttonset) ], ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry) ], ); $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ]; @@ -212,6 +212,12 @@ sub gtkpack2_($@) { $box } +sub gtkset_editable { + my ($w, $e) = @_; + $w->set_editable($e); + $w; +} + sub gtksetstyle { my ($w, $s) = @_; $w->set_style($s); |