From 67f593cc6f2ce17d4ab016fbcd35339c1349bcf4 Mon Sep 17 00:00:00 2001 From: Sebastien Dupont Date: Mon, 31 Dec 2001 02:34:39 +0000 Subject: new fixed size and add a head pixmap (to update). --- perl-install/standalone/drakfont | 63 ++++++++++++++++++++++------------------ 1 file changed, 34 insertions(+), 29 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 503ff1d3a..d0f329e14 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -538,38 +538,43 @@ sub interactive_mode { $window1->set_title(_("Fonts Importation")); $window1->set_border_width(5); my ($pix_user_map, $pix_user_mask) = gtkcreate_png("ic-drakfont-48"); + my ($pix_u_map, $pix_u_mask) = gtkcreate_png("BDO-drakebackup1"); gtkadd($window1, - gtkpack_(new Gtk::HBox(0,2), - 1, gtkpack_(new Gtk::VBox(0,2), - 1, new Gtk::VBox(0,0), - 1, gtkpack(gtkset_usize($font_box = new Gtk::VBox(0,5),500, 350), - $font_sel = new Gtk::FontSelection, - ), - 1, new Gtk::VBox(0,0) - ), - 0, gtkpack_(new Gtk::VBox(0,5), - 0, new Gtk::VBox(0,0), - 0, new Gtk::Pixmap($pix_user_map, $pix_user_mask), - 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), - gtksignal_connect(new Gtk::Button(_("Windows Importation")), clicked => - sub { ${$central_widget}->destroy(); $windows = 1; license(\&appli_choice)}), - gtksignal_connect(new Gtk::Button(_("Advanced Importation")), clicked => - sub { ${$central_widget}->destroy(); $windows = 0; license(\&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()}), - ), - 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() }), + gtkpack_(gtkset_usize(new Gtk::VBox(0,2),,620, 390), + 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask), + 0, new Gtk::VBox(0,0), + 1, gtkpack_(new Gtk::HBox(0,2), + 1, gtkpack_(new Gtk::VBox(0,2), + 1, new Gtk::VBox(0,0), + 1, gtkpack($font_box = new Gtk::VBox(0,5), + $font_sel = new Gtk::FontSelection, + ), + 1, new Gtk::VBox(0,0) + ), + 0, gtkpack_(new Gtk::VBox(0,5), + 0, new Gtk::VBox(0,0), + 0, new Gtk::Pixmap($pix_user_map, $pix_user_mask), + 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), + gtksignal_connect(new Gtk::Button(_("Windows Importation")), clicked => + sub { ${$central_widget}->destroy(); $windows = 1; license(\&appli_choice)}), + gtksignal_connect(new Gtk::Button(_("Advanced Importation")), clicked => + sub { ${$central_widget}->destroy(); $windows = 0; license(\&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()}), + ), + 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 { Gtk->main_quit() }), - ), - ) + ${$central_widget}->destroy(); help() }), + gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }), + ), + ) + ), ), ); $central_widget = \$font_sel; -- cgit v1.2.1