bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 00:53: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();
$adj2->set_value($container[4]) if defined $adj2;});
$box2->pack_start( $spinner, $true, $true, 0 );
label("Device Size");
#label("Device Size");
# gz and bz2 radio buttons
my $rbutton = new Gtk::RadioButton( "gz" );
@ -370,11 +370,26 @@ $bz2_toggle = $rbutton;
$box2->pack_start( $rbutton, $true, $true, 0);
$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
my $entry5 = new Gtk::Entry();
$entry5->set_editable( $false );
$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 );
$entry5->show();
@ -1776,6 +1791,7 @@ sub initrd_size {
my $dir_size = 9 + 1;
my $initrd_size = $dir_size + $linuxrc_size;
# This and libs should be user accessible
# add other executables here
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;
pb($I,7);
# This and libs should be user accessible
info(0, ".. the bins\n");
my @initrd_stuff = qw(ash gzip mount umount);
foreach (@initrd_stuff) {
@ -1948,7 +1965,6 @@ sub initrd {
$initrd = $initrd . ".gz";
} # end sub initrd
# This was submitted by Cristian "cretzu."
@ -2076,9 +2092,9 @@ sub gdkbirdaao
} # end sub gdkbirdaao
#########
###########
# Mtab area
#########
###########
sub mtab_window {
# Will just use a dialog box.
@ -2179,9 +2195,9 @@ mtab_window($dialog,$error,$count) if $error == 0;
} # end sub mtab_check
#############
###############
# Error Section
#############
###############
# The biggest problem here is that err? are hardwired, perhaps one
# could be used and message could just be $!, err_custom is nice.
# All err? report errors if $? > 0.
@ -2278,7 +2294,7 @@ sub err_custom {
system("$_[0] > /dev/null 2>&1");
}
else {
sys("$_[0] >> $verbosefn 2>&1");
sys("$_[0]");
}
error_window($_[1]) if ($? != 0);
if (defined $error_window) {
@ -2302,14 +2318,15 @@ sub err_custom_perl {
}
}
#################
###################
# End Error Section
#################
###################
################
##################
# Here Doc Section
################
##################
# This should be user accessible
sub initrd_heredoc {
my($broot_image) = @_;