diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-23 10:35:43 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-23 10:35:43 +0000 |
| commit | 3310104e1f8976937a0465212f3cab2bcf9f93c8 (patch) | |
| tree | 91d7f50e470dcfd621c11afe6d661a464355991e /perl-install | |
| parent | f7989ab12e3439e6873afdf230d3e17347dd002c (diff) | |
| download | drakx-backup-do-not-use-3310104e1f8976937a0465212f3cab2bcf9f93c8.tar drakx-backup-do-not-use-3310104e1f8976937a0465212f3cab2bcf9f93c8.tar.gz drakx-backup-do-not-use-3310104e1f8976937a0465212f3cab2bcf9f93c8.tar.bz2 drakx-backup-do-not-use-3310104e1f8976937a0465212f3cab2bcf9f93c8.tar.xz drakx-backup-do-not-use-3310104e1f8976937a0465212f3cab2bcf9f93c8.zip | |
gui: install from directory
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfont | 47 |
1 files changed, 30 insertions, 17 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 0bae27d0d..1cfb3ab15 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -399,47 +399,60 @@ init Gtk; my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel; $window1->signal_connect ( delete_event => sub { Gtk->exit(0); }); $window1->set_position(1); -$window1->set_title(_("Network Monitoring")); +$window1->set_title(_("Fonts Importation")); $window1->set_policy(1, 1, 1); $window1->set_border_width(5); -my $netcnx = {}; -my $doit; -sub main_quit {} +sub install_gi { + my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel; + $window1->signal_connect ( delete_event => sub { Gtk->exit(0); }); + $window1->set_position(1); + $window1->set_title(_("Fonts Importation")); + $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, + 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(_("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(); +} gtkadd($window1, gtkpack_(new Gtk::HBox(0,6), - 1, my $notebook = new Gtk::FontSelection, + 1, my $notebook = new Gtk::FontSelection, 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), _("DrakFont"), - gtksignal_connect(new Gtk::Button(_("Windows Importation")), clicked => sub { $doit=1; Gtk->main_quit() }), - gtksignal_connect(new Gtk::Button(_("Advanced Importation")), clicked => sub { Gtk->main_quit() }), + 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(_("Uninstall Fonts")), clicked => sub { Gtk->main_quit() }), gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }), ) ), ); - -sub test { - print "test\n"; - -} - $window1->show_all; $window1->realize; $window1->show_all(); + Gtk->main; Gtk->exit(0); - - - #gtk } - +#1, gtksignal_connect(my $button_connect = gtkset_sensitive(new Gtk::Button(), 0), clicked => \&connection), |