summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-10 03:12:54 +0000
committerdamien <damien@mandriva.com>2001-03-10 03:12:54 +0000
commit2fd68de5b1feaa0592c0af63ddf7ea2bd54b1e41 (patch)
treeef28d99770dd5742e35bc8ec1dbe0591aed2b201 /perl-install
parent9a5e98cf6025c295f96a3d0239c160520bb1fec9 (diff)
downloaddrakx-2fd68de5b1feaa0592c0af63ddf7ea2bd54b1e41.tar
drakx-2fd68de5b1feaa0592c0af63ddf7ea2bd54b1e41.tar.gz
drakx-2fd68de5b1feaa0592c0af63ddf7ea2bd54b1e41.tar.bz2
drakx-2fd68de5b1feaa0592c0af63ddf7ea2bd54b1e41.tar.xz
drakx-2fd68de5b1feaa0592c0af63ddf7ea2bd54b1e41.zip
added gtkset_modal and gtkappenditems
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/my_gtk.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 01853f83e..9c4dac927 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 gtkappend gtkset_shadow_type gtkadd gtkput gtktext_insert gtkset_usize gtkset_justify gtkset_active 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 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 ];
@@ -116,6 +116,7 @@ sub gtkdestroy($) { $_[0] and $_[0]->destroy }
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 gtksignal_connect($@) {
my $w = shift;
@@ -177,6 +178,12 @@ sub gtksetstyle {
$w;
}
+sub gtkappenditems {
+ my $w = shift;
+ map {gtkshow($_) } @_;
+ $w->append_items(@_);
+ $w
+}
sub gtkappend($@) {
my $w = shift;
foreach (@_) {