diff options
| author | damien <damien@mandriva.com> | 2002-03-08 18:24:54 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-03-08 18:24:54 +0000 |
| commit | 39cf77e7043170938dbd582c0809e9c0b4ba93d6 (patch) | |
| tree | e4b59bf0a9f4054758119c8259f0a517af00e144 /perl-install/standalone | |
| parent | bf324aa6febe3b24aedab1766fda496752ac83e0 (diff) | |
| download | drakx-39cf77e7043170938dbd582c0809e9c0b4ba93d6.tar drakx-39cf77e7043170938dbd582c0809e9c0b4ba93d6.tar.gz drakx-39cf77e7043170938dbd582c0809e9c0b4ba93d6.tar.bz2 drakx-39cf77e7043170938dbd582c0809e9c0b4ba93d6.tar.xz drakx-39cf77e7043170938dbd582c0809e9c0b4ba93d6.zip | |
ergonomy changed to fit in mcc
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakfont | 64 |
1 files changed, 38 insertions, 26 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 9caf0cac4..07e20d42e 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -550,38 +550,50 @@ sub interactive_mode { my ($pix_u_map, $pix_u_mask) = gtkcreate_png("drakfont.620x57"); gtkadd($window1, - gtkpack_(gtkset_usize(new Gtk::VBox(0,2),,620, 390), + gtkpack_(new Gtk::VBox(0,2), if_(!$::isEmbedded, 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask)), 1, gtkpack_(new Gtk::HBox(0,2), 1, gtkpack_(new Gtk::VBox(0,2), 1, gtkpack($font_box = new Gtk::VBox(0,5), $font_sel = new Gtk::FontSelection, ), - 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), - gtksignal_connect(new Gtk::Button(_("Get Windows Fonts")), clicked => - sub { ${$central_widget}->destroy(); $windows = 1; appli_choice();}), - gtksignal_connect(new Gtk::Button(_("Advanced Options")), clicked => - sub { ${$central_widget}->destroy(); $windows = 0; advanced_install();}), - gtksignal_connect(new Gtk::Button(_("Uninstall Fonts")), clicked => - sub { ${$central_widget}->destroy(); uninstall() }), - gtksignal_connect(new Gtk::Button(_("Font List")), clicked => - sub { ${$central_widget}->destroy(); create_fontsel()}), - ), - ), - 0, gtkpack_(new Gtk::VBox(0,5), - 0, new Gtk::VBox(0,0), - 0, new Gtk::Pixmap($pix_user_map, $pix_user_mask), - 1, new Gtk::VBox(0,0), - 1, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), - gtksignal_connect(new Gtk::Button(_("About")), clicked => sub { - ${$central_widget}->destroy(); about() }), - gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { - ${$central_widget}->destroy(); help() }), - gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { - $::isEmbedded and kill USR1, $::CCPID; - Gtk->main_quit() }), - ), - ) + 1, gtkpack_(new Gtk::HBox(0,2), + 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -spread), + gtksignal_connect(new Gtk::Button(_("Get Windows Fonts")), clicked => + sub { ${$central_widget}->destroy(); $windows = 1; appli_choice();}), + gtksignal_connect(new Gtk::Button(_("Uninstall Fonts")), clicked => + sub { ${$central_widget}->destroy(); uninstall() }), + ), + 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -spread), + gtksignal_connect(new Gtk::Button(_("Advanced Options")), clicked => + sub { ${$central_widget}->destroy(); $windows = 0; advanced_install();}), + gtksignal_connect(new Gtk::Button(_("Font List")), clicked => + sub { ${$central_widget}->destroy(); create_fontsel()}), + ), + 1, new Gtk::HBox(0,2), + 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -spread), + gtksignal_connect(new Gtk::Button(_("Help")),clicked => + sub { ${$central_widget}->destroy(); help() }), + gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { + $::isEmbedded and kill USR1, $::CCPID; + Gtk->main_quit() }), + ), + ), + ), +# 0, gtkpack_(new Gtk::VBox(0,5), +# 0, new Gtk::VBox(0,0), +# 0, new Gtk::Pixmap($pix_user_map, $pix_user_mask), +# 1, new Gtk::VBox(0,0), +# 1, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), +# gtksignal_connect(new Gtk::Button(_("About")), clicked => sub { +# ${$central_widget}->destroy(); about() }), +# gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { +# ${$central_widget}->destroy(); help() }), +# gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { +# $::isEmbedded and kill USR1, $::CCPID; +# Gtk->main_quit() }), +# ), +# ) ), ), ); |