diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-24 14:12:05 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-24 14:12:05 +0000 |
| commit | 9a3fc27fa3ef63a5fc17717fcbefa2021220b26d (patch) | |
| tree | c700c08ceb818dfce6bcf5dbfc6b9b09d1186654 /perl-install | |
| parent | 3d91d0d6d7b0d523ff1b2621ded59de3df607e13 (diff) | |
| download | drakx-backup-do-not-use-9a3fc27fa3ef63a5fc17717fcbefa2021220b26d.tar drakx-backup-do-not-use-9a3fc27fa3ef63a5fc17717fcbefa2021220b26d.tar.gz drakx-backup-do-not-use-9a3fc27fa3ef63a5fc17717fcbefa2021220b26d.tar.bz2 drakx-backup-do-not-use-9a3fc27fa3ef63a5fc17717fcbefa2021220b26d.tar.xz drakx-backup-do-not-use-9a3fc27fa3ef63a5fc17717fcbefa2021220b26d.zip | |
import_status & progress.
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfont | 56 |
1 files changed, 47 insertions, 9 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index d3f2add96..c88a8a005 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -409,7 +409,7 @@ my $adj; my $adj1; my $adj2; my $adj3; - +my $font_box; my $check4; my $check1; @@ -449,7 +449,7 @@ sub result_gi { -sub install_gi { +sub import_status { my $window2 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel; my $align; @@ -503,21 +503,29 @@ sub main_gi { $window1->set_policy(1, 1, 1); $window1->set_border_width(5); - gtkadd($window1, - gtkpack_(new Gtk::HBox(0,6), - 1, my $notebook = new Gtk::FontSelection, + + gtkadd($window1, + gtkpack_(new Gtk::HBox(0,2), + 0, gtkpack_(new Gtk::HBox(0,5), + 0, gtkpack($font_box = new Gtk::VBox(0,5), + my $font_sel = new Gtk::FontSelection, + ) + ), 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), _("DrakFont"), gtksignal_connect(new Gtk::Button(_("Windows Importation")), clicked => sub { $windows = 1; backend_mod(); }), - gtksignal_connect(new Gtk::Button(_("Advanced Importation")), clicked => sub { $window1->destroy(); install_gi(); }), + gtksignal_connect(new Gtk::Button(_("Advanced Importation")), clicked => sub { + gtkdestroy($font_box); import_status(); + }), gtksignal_connect(new Gtk::Button(_("Uninstall Fonts")), clicked => sub { Gtk->main_quit() }), gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }), - ) - ), - ); + ), + ), + ); $window1->show_all; $window1->realize; $window1->show_all(); + } main_gi; @@ -606,3 +614,33 @@ sub progress_timeout3 { # destroy $window1; # } # } + + + + + + + + + + + + +# gtkadd($window1, +# gtkpack_(new Gtk::HBox(0,6), +# 1, my $notebook = new Gtk::FontSelection, +# 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), +# _("DrakFont"), +# gtksignal_connect(new Gtk::Button(_("Windows Importation")), clicked => sub { $windows = 1; backend_mod(); }), +# gtksignal_connect(new Gtk::Button(_("Advanced Importation")), clicked => sub { +# gtkdestroy($); +# # $window1->destroy(); +# install_gi(); }), +# gtksignal_connect(new Gtk::Button(_("Uninstall Fonts")), clicked => sub { Gtk->main_quit() }), +# gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }), +# ) +# ), +# ); +# $window1->show_all; +# $window1->realize; +# $window1->show_all(); |