bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 09:03:23 -05:00
Code Issues Projects Releases Wiki Activity

* Added Verbosity Scale to BS

Browse Source 
* Linked it.
* Importance -> very
This commit is contained in:
freesource 2000-11-16 05:39:29 +00:00
parent f2e9adac4a
commit 287d6ce6ed
1 changed files with 29 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
gBootRoot
View File

@ -354,7 +354,7 @@ $adj->signal_connect( "value_changed", sub {
$container[4] = $spinner->get_value_as_int(); $container[4] = $spinner->get_value_as_int();
$adj2->set_value($container[4]) if defined $adj2;}); $adj2->set_value($container[4]) if defined $adj2;});
$box2->pack_start( $spinner, $true, $true, 0 ); $box2->pack_start( $spinner, $true, $true, 0 );
label("Device Size"); #label("Device Size");
# gz and bz2 radio buttons # gz and bz2 radio buttons
my $rbutton = new Gtk::RadioButton( "gz" ); my $rbutton = new Gtk::RadioButton( "gz" );
@ -370,11 +370,26 @@ $bz2_toggle = $rbutton;
$box2->pack_start( $rbutton, $true, $true, 0); $box2->pack_start( $rbutton, $true, $true, 0);
$rbutton->show(); $rbutton->show();
# Verbosity adjustment
my $adj1 = new Gtk::Adjustment( 2.0, 0.0, 2.0, 0.0, 1.0, 0.0 );
my $verbosity_scale = new Gtk::HScale($adj1);
$verbosity_scale->set_value_pos("right");
$verbosity_scale->set_digits(0);
$tooltips->set_tip( $verbosity_scale, "Adjust the Verbosity Level.", "" );
$verbosity_scale->show();
$adj1->signal_connect( "value_changed", sub {
$verbosity = $verbosity_scale->get_adjustment->value - 1;
verbosity($verbosity);
} );
$box2->pack_start( $verbosity_scale, $false, $false, 0);
#start_logging_output($yard_temp,$verbosity);
# Size status entry # Size status entry
my $entry5 = new Gtk::Entry(); my $entry5 = new Gtk::Entry();
$entry5->set_editable( $false ); $entry5->set_editable( $false );
$tooltips->set_tip( $entry5, "This shows room remaining on the Device.", "" ); $tooltips->set_tip( $entry5, "This shows room remaining on the Device.", "" );
$entry5->set_usize(15,20); $entry5->set_usize(20,20);
$box2->pack_start( $entry5, $true, $true, 0 ); $box2->pack_start( $entry5, $true, $true, 0 );
$entry5->show(); $entry5->show();
@ -1776,6 +1791,7 @@ sub initrd_size {
my $dir_size = 9 + 1; my $dir_size = 9 + 1;
my $initrd_size = $dir_size + $linuxrc_size; my $initrd_size = $dir_size + $linuxrc_size;
# This and libs should be user accessible
# add other executables here # add other executables here
my @initrd_stuff = qw(ash gzip mount umount); my @initrd_stuff = qw(ash gzip mount umount);
@ -1893,6 +1909,7 @@ sub initrd {
return if errcp(sys("cp -a $device $tmp/initrd_mnt/dev")) == 2; return if errcp(sys("cp -a $device $tmp/initrd_mnt/dev")) == 2;
pb($I,7); pb($I,7);
# This and libs should be user accessible
info(0, ".. the bins\n"); info(0, ".. the bins\n");
my @initrd_stuff = qw(ash gzip mount umount); my @initrd_stuff = qw(ash gzip mount umount);
foreach (@initrd_stuff) { foreach (@initrd_stuff) {
@ -1948,7 +1965,6 @@ sub initrd {
$initrd = $initrd . ".gz"; $initrd = $initrd . ".gz";
} # end sub initrd } # end sub initrd
# This was submitted by Cristian "cretzu." # This was submitted by Cristian "cretzu."
@ -2076,9 +2092,9 @@ sub gdkbirdaao
} # end sub gdkbirdaao } # end sub gdkbirdaao
######### ###########
# Mtab area # Mtab area
######### ###########
sub mtab_window { sub mtab_window {
# Will just use a dialog box. # Will just use a dialog box.
@ -2179,9 +2195,9 @@ mtab_window($dialog,$error,$count) if $error == 0;
} # end sub mtab_check } # end sub mtab_check
############# ###############
# Error Section # Error Section
############# ###############
# The biggest problem here is that err? are hardwired, perhaps one # The biggest problem here is that err? are hardwired, perhaps one
# could be used and message could just be $!, err_custom is nice. # could be used and message could just be $!, err_custom is nice.
# All err? report errors if $? > 0. # All err? report errors if $? > 0.
@ -2278,7 +2294,7 @@ sub err_custom {
system("$_[0] > /dev/null 2>&1"); system("$_[0] > /dev/null 2>&1");
} }
else { else {
sys("$_[0] >> $verbosefn 2>&1"); sys("$_[0]");
} }
error_window($_[1]) if ($? != 0); error_window($_[1]) if ($? != 0);
if (defined $error_window) { if (defined $error_window) {
@ -2302,14 +2318,15 @@ sub err_custom_perl {
} }
} }
################# ###################
# End Error Section # End Error Section
################# ###################
################ ##################
# Here Doc Section # Here Doc Section
################ ##################
# This should be user accessible
sub initrd_heredoc { sub initrd_heredoc {
my($broot_image) = @_; my($broot_image) = @_;