summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-08-01 18:18:09 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-08-01 18:18:09 +0000
commit1115a292a1429e08f13c23d2cf206d0b9636abd3 (patch)
tree577e7eee9dad1cb16341295329940b56ea05496c /perl-install/ugtk.pm
parent1a382efb2285445f4200cb357b5729499d578456 (diff)
downloaddrakx-1115a292a1429e08f13c23d2cf206d0b9636abd3.tar
drakx-1115a292a1429e08f13c23d2cf206d0b9636abd3.tar.gz
drakx-1115a292a1429e08f13c23d2cf206d0b9636abd3.tar.bz2
drakx-1115a292a1429e08f13c23d2cf206d0b9636abd3.tar.xz
drakx-1115a292a1429e08f13c23d2cf206d0b9636abd3.zip
commit according to 1.1.9-1mdk of drakxtools, and especially:
- integrate patches in my_gtk and ugtk for new rpmdrake: - [ugtk] add "gtkentry" so that we can create an entry and set initial value in one call - [my_gtk::main] don't set the events, to fix keyboard focus problem in entries when embedded - [my_gtk::_create_window] add $::noBorder, to not have a frame in the main window, so that it's possible to end up with windows with no border - [my_gtk] add ask_dir which is a ask_file with only the dir list - [my_gtk] add ask_browse_tree_info to the export tags, and: - add support for parents with no leaves, so that then we can partially build the trees (for speedup) - add "delete_all" and "delete_category" callbacks - use Gtk::CList::clear when removing all the nodes, much speedup
Diffstat (limited to 'perl-install/ugtk.pm')
-rw-r--r--perl-install/ugtk.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index ace94f2a0..96c7add3a 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.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 gtkcombo_setpopdown_strings 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 gtkflush 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 gtkroot) ],
+ wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtkpowerpack gtkcombo_setpopdown_strings 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 gtkflush 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 gtkroot gtkentry) ],
various => [ qw(add2notebook add_icon_path n_line_size) ],
);
$EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
@@ -112,6 +112,12 @@ sub gtkbuttonset {
gtkadd($_[0], gtkshow($_[1]))
}
+sub gtkentry {
+ my ($text) = @_;
+ my $e = new Gtk::Entry;
+ $e->set_text($text);
+ $e;
+}
sub gtksetstyle {
my ($w, $s) = @_;
@@ -119,7 +125,6 @@ sub gtksetstyle {
$w;
}
-
sub gtkcolor {
my ($r, $g, $b) = @_;
my $color = bless { red => $r, green => $g, blue => $b }, 'Gtk::Gdk::Color';