bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-22 08:33:24 -05:00
Code Issues Projects Releases Wiki Activity

* This makes the look and feel consistent.

Browse Source
This commit is contained in:
freesource 2001-01-09 23:34:32 +00:00
parent 4900ff8957
commit f23a07a057
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gBootRoot
View File

@ -262,6 +262,7 @@ if (!-d "$tmp1/gbootroot_mnt$time") {
"gBootRoot: ERROR: Could not make mount directory") != 2;
}
# Verbosity is universal for all methods, and controlled by a scale slider.
# Yard
# 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.
#my $verbosefn = "$tmp/verbose"; # All verbosity
my $verbosefn = "/tmp/verbose"; # Yard - always logged, but 0&1 = STDOUT
# Need this before everything.
Gtk::Rc->parse("gbootrootrc");
verbosity_box();
start_logging_output($verbosefn,$verbosity); # Yard "tmp dir name"
# "verbosity level"
@ -327,8 +332,9 @@ my ($circles,$mask) = Gtk::Gdk::Pixmap->create_from_xpm_d($window->window,
@xpm_data);
$window->window->set_icon(undef, $circles, $mask);
$window->window->set_icon_name("gBootRoot");
$window->window->set_decorations(['all', 'menu']); # Zas
$window->window->set_functions(['all', 'resize']); # Zas
# Zas - bug in gtk-perl < .7002
$window->window->set_decorations(['all', 'menu']);
$window->window->set_functions(['all', 'resize']);
my $tooltips = Gtk::Tooltips->new();
@ -557,7 +563,6 @@ $hbutton->show();
$box2->pack_start( $hbutton, $true, $true, 0 );
$box2->show();
Gtk::Rc->parse("gbootrootrc");
$window->show();
main Gtk;
exit( 0 );
@ -1705,7 +1710,8 @@ sub lilo_put_it_together {
# Better do this first
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);
info(0, "Copying over kernel\n");
@ -1820,9 +1826,11 @@ sub device2 {
my $half_line_count = $line_count/2;
my $count = 1;
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(
"gBootRoot: ERROR: Could not copy over the root filesystem") and return;
while (<CR>) {
print CF $_;
pb($FS,$count,$line_count) if $count < $half_line_count;