diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/logdrake | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake index aaa5d5794..72bedfc45 100755 --- a/perl-install/standalone/logdrake +++ b/perl-install/standalone/logdrake @@ -27,8 +27,6 @@ use interactive; use standalone; use any; use Config; -init Gtk; -Gtk->set_locale; use my_gtk qw(:helpers :wrappers); use MDK::Common; @@ -53,6 +51,12 @@ sub translate { $::isInstall and die "Not supported during install.\n"; my $in = 'interactive'->vnew('su', 'default'); +$::isGtk = $in->isa('interactive_gtk'); +exit unless ($::isGtk); + +init Gtk; +Gtk->set_locale; + $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; if ($::isEmbedded) { @@ -121,6 +125,11 @@ my $b = Gtk::Gdk::Font->fontset_load(_("-misc-fixed-bold-r-*-*-*-100-*-*-*-*-*-* #$cyan = "\033[36m"; #$white = "\033[37m"; #$darkgray = "\033[30m"; +#$col_norm = "\033[00m"; +#$col_background = "\033[07m"; +#$col_brighten = "\033[01m"; +#$col_underline = "\033[04m"; +#$col_blink = "\033[05m"; my $white = my_gtk::gtkcolor(50400, 655, 20000); my $black = my_gtk::gtkcolor(0, 0, 0); @@ -345,8 +354,6 @@ sub log_output { sub save { - #$file_dialog = new Gtk::FileSelection(_("Save as..")); - #$file_dialog->show(); $yy= $in->ask_file(_("Save as.."),"/root") or return; output($yy,$log_text->get_chars(0,$log_text->get_length())); } @@ -402,6 +409,9 @@ sub destroy_window { # log # $Log$ +# Revision 1.2 2001/12/18 17:31:48 yduret +# fix console mode : exit now +# # Revision 1.1 2001/12/13 15:47:23 yduret # moving from soft/control-center to here, since there will be a console based version # |