summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2002-06-18 11:16:26 +0000
committerDaouda Lo <daouda@mandriva.com>2002-06-18 11:16:26 +0000
commite2c481ea52344669f8b3b8f366b650c30e5ef8a9 (patch)
tree3bc91bc58c07299a682baea8d1467998b5821e18
parent6aa4692042e56be6d55bfc51f094c8db1c7702de (diff)
downloaddrakx-e2c481ea52344669f8b3b8f366b650c30e5ef8a9.tar
drakx-e2c481ea52344669f8b3b8f366b650c30e5ef8a9.tar.gz
drakx-e2c481ea52344669f8b3b8f366b650c30e5ef8a9.tar.bz2
drakx-e2c481ea52344669f8b3b8f366b650c30e5ef8a9.tar.xz
drakx-e2c481ea52344669f8b3b8f366b650c30e5ef8a9.zip
- add gtkset_text, gtkprepend_text, gtkappend_text for entry widgets
-rw-r--r--perl-install/my_gtk.pm20
1 files changed, 19 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index b9f7ecbe9..f463b0c41 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -7,7 +7,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__ gtkpowerpack 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 gtkresize gtkshow gtkhide gtkdestroy gtkcolor gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng create_pix_text get_text_coord fill_tiled gtkicons_labels_widget write_on_pixmap gtkcreate_xpm gtkcreate_png gtkbuttonset) ],
+ wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtkpowerpack gtkset_editable gtksetstyle gtkset_text 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 gtkresize gtkshow gtkhide gtkdestroy gtkcolor gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng create_pix_text get_text_coord fill_tiled gtkicons_labels_widget 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 ];
@@ -237,6 +237,24 @@ sub gtksetstyle {
$w;
}
+sub gtkset_text {
+ my ($w, $s) = @_;
+ $w->set_text($s);
+ $w;
+}
+
+sub gtkappend_text {
+ my ($w, $s) = @_;
+ $w->append_text($s);
+ $w;
+}
+
+sub gtkprepend_text {
+ my ($w, $s) = @_;
+ $w->prepend_text($s);
+ $w;
+}
+
sub gtkset_tip {
my ($tips, $w, $tip) = @_;
$tips->set_tip($w, $tip) if $tip;