summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfont
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-12-31 02:34:39 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-12-31 02:34:39 +0000
commit67f593cc6f2ce17d4ab016fbcd35339c1349bcf4 (patch)
tree12390313bb1ab8f023b6fbb52cb95f8632d92238 /perl-install/standalone/drakfont
parent0f664a3520c7540abf6f2d07f00394767a1a971c (diff)
downloaddrakx-backup-do-not-use-67f593cc6f2ce17d4ab016fbcd35339c1349bcf4.tar
drakx-backup-do-not-use-67f593cc6f2ce17d4ab016fbcd35339c1349bcf4.tar.gz
drakx-backup-do-not-use-67f593cc6f2ce17d4ab016fbcd35339c1349bcf4.tar.bz2
drakx-backup-do-not-use-67f593cc6f2ce17d4ab016fbcd35339c1349bcf4.tar.xz
drakx-backup-do-not-use-67f593cc6f2ce17d4ab016fbcd35339c1349bcf4.zip
new fixed size and add a head pixmap (to update).
Diffstat (limited to 'perl-install/standalone/drakfont')
-rwxr-xr-xperl-install/standalone/drakfont63
1 files changed, 34 insertions, 29 deletions
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;