summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-18 10:48:54 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-18 10:48:54 +0000
commit1997f681bf1275f99ff1569017b9e56d1dd04992 (patch)
tree97fb9ae6806367b6f7d617a5cbfce37111d27592 /perl-install/ugtk2.pm
parent16b3886587c1b968e2d88b742526d510c0375223 (diff)
downloaddrakx-1997f681bf1275f99ff1569017b9e56d1dd04992.tar
drakx-1997f681bf1275f99ff1569017b9e56d1dd04992.tar.gz
drakx-1997f681bf1275f99ff1569017b9e56d1dd04992.tar.bz2
drakx-1997f681bf1275f99ff1569017b9e56d1dd04992.tar.xz
drakx-1997f681bf1275f99ff1569017b9e56d1dd04992.zip
internalize prepare_gtk2 in the BEGIN {} of ugtk2 already containing the Gtk2->init
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm10
1 files changed, 3 insertions, 7 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index f508c9e96..6f176160b 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -16,7 +16,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $force_center $force_focus
gtktext_insert ) ],
helpers => [ qw(add2notebook add_icon_path fill_tiled fill_tiled_coords get_text_coord gtkcolor gtkcreate_img
- gtkcreate_pixbuf gtkfontinfo gtkset_background n_line_size prepare_gtk2 set_back_pixbuf string_size) ],
+ gtkcreate_pixbuf gtkfontinfo gtkset_background n_line_size set_back_pixbuf string_size) ],
create => [ qw(create_adjustment create_box_with_title create_dialog create_factory_menu create_hbox create_hpaned
create_menu create_notebook create_okcancel create_packtable create_scrolled_window create_vbox
@@ -38,6 +38,8 @@ use Gtk2;
unless ($::no_ugtk_init) {
!check_for_xserver() and die "Cannot be run in console mode.\n";
Gtk2->init(\@ARGV);
+ c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains;
+ $::need_utf8_i18n = 1;
}
@@ -1251,10 +1253,4 @@ sub ask_browse_tree_info_given_widgets {
$w->{w}->main;
}
-
-sub prepare_gtk2 {
- c::bind_textdomain_codeset($_, 'UTF8') foreach 'libDrakX', @::textdomains;
- $::need_utf8_i18n = 1;
-}
-
1;