Browse Source

* This makes the look and feel consistent.

master
freesource 24 years ago
parent
commit
f23a07a057
  1. 16
      gBootRoot

16
gBootRoot

@ -262,6 +262,7 @@ if (!-d "$tmp1/gbootroot_mnt$time") {
"gBootRoot: ERROR: Could not make mount directory") != 2; "gBootRoot: ERROR: Could not make mount directory") != 2;
} }
# Verbosity is universal for all methods, and controlled by a scale slider. # Verbosity is universal for all methods, and controlled by a scale slider.
# Yard # Yard
# 0 --> only the important messages. # 0 --> only the important messages.
@ -272,6 +273,10 @@ my $verbosity = 1; # info & sys use this as Global
## save from the verbosity box including saving a selection. ## save from the verbosity box including saving a selection.
#my $verbosefn = "$tmp/verbose"; # All verbosity #my $verbosefn = "$tmp/verbose"; # All verbosity
my $verbosefn = "/tmp/verbose"; # Yard - always logged, but 0&1 = STDOUT my $verbosefn = "/tmp/verbose"; # Yard - always logged, but 0&1 = STDOUT
# Need this before everything.
Gtk::Rc->parse("gbootrootrc");
verbosity_box(); verbosity_box();
start_logging_output($verbosefn,$verbosity); # Yard "tmp dir name" start_logging_output($verbosefn,$verbosity); # Yard "tmp dir name"
# "verbosity level" # "verbosity level"
@ -327,8 +332,9 @@ my ($circles,$mask) = Gtk::Gdk::Pixmap->create_from_xpm_d($window->window,
@xpm_data); @xpm_data);
$window->window->set_icon(undef, $circles, $mask); $window->window->set_icon(undef, $circles, $mask);
$window->window->set_icon_name("gBootRoot"); $window->window->set_icon_name("gBootRoot");
$window->window->set_decorations(['all', 'menu']); # Zas # Zas - bug in gtk-perl < .7002
$window->window->set_functions(['all', 'resize']); # Zas $window->window->set_decorations(['all', 'menu']);
$window->window->set_functions(['all', 'resize']);
my $tooltips = Gtk::Tooltips->new(); my $tooltips = Gtk::Tooltips->new();
@ -557,7 +563,6 @@ $hbutton->show();
$box2->pack_start( $hbutton, $true, $true, 0 ); $box2->pack_start( $hbutton, $true, $true, 0 );
$box2->show(); $box2->show();
Gtk::Rc->parse("gbootrootrc");
$window->show(); $window->show();
main Gtk; main Gtk;
exit( 0 ); exit( 0 );
@ -1705,7 +1710,8 @@ sub lilo_put_it_together {
# Better do this first # Better do this first
info(0, "Copy over initrd ramdisk\n"); info(0, "Copy over initrd ramdisk\n");
return if err_custom("cp $tmp/$initrd $mnt/$initrd","gBootRoot: ERROR: Could not copy over initrd") == 2; return if err_custom("cp $tmp/$initrd $mnt/$initrd",
"gBootRoot: ERROR: Could not copy over initrd") == 2;
pb($B,2); pb($B,2);
info(0, "Copying over kernel\n"); info(0, "Copying over kernel\n");
@ -1821,8 +1827,10 @@ sub device2 {
my $count = 1; my $count = 1;
open(CF, ">$mnt/$broot_image") or error_window( open(CF, ">$mnt/$broot_image") or error_window(
"gBootRoot: ERROR: Could not copy over the root filesystem") and return; "gBootRoot: ERROR: Could not copy over the root filesystem") and return;
open(CR, "$root_image") or error_window( open(CR, "$root_image") or error_window(
"gBootRoot: ERROR: Could not copy over the root filesystem") and return; "gBootRoot: ERROR: Could not copy over the root filesystem") and return;
while (<CR>) { while (<CR>) {
print CF $_; print CF $_;
pb($FS,$count,$line_count) if $count < $half_line_count; pb($FS,$count,$line_count) if $count < $half_line_count;

Loading…
Cancel
Save