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 Advanced Root Section

Browse Source
This commit is contained in:
freesource 2000-10-09 19:21:52 +00:00
parent 0ce676f74a
commit fbb70a63bc
1 changed files with 61 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
gBootRoot
View File

@ -128,7 +128,9 @@ my @entry_advanced;
my $entry_advanced; my $entry_advanced;
my ($ea1,$ea2,$ea3); my ($ea1,$ea2,$ea3);
my $table_advanced; my $table_advanced;
my $table_advanced_root;
my $button_count = 0; my $button_count = 0;
my $button_count_root = 0;
my $obj_count = 0; my $obj_count = 0;
my ($lib_strip_check,$bin_strip_check); my ($lib_strip_check,$bin_strip_check);
@ -357,15 +359,36 @@ my $vbox_advanced = new Gtk::VBox($false,0);
$box1->add($vbox_advanced); $box1->add($vbox_advanced);
$vbox_advanced->show(); $vbox_advanced->show();
# The Advanced Section button # The Advanced Boot Section button
hbox_advanced(); hbox_advanced($vbox_advanced);
my $button_advanced = new Gtk::Button("Advanced Boot Section"); my $button_advanced = new Gtk::Button("Advanced Boot Section");
$tooltips->set_tip( $button_advanced, "Change settings for the bootdisk.", "" ); $tooltips->set_tip( $button_advanced, "Change settings for the bootdisk.", "" );
$button_advanced->signal_connect("clicked",\&advanced_section ); $button_advanced->signal_connect("clicked",\&advanced_boot_section );
$hbox_advanced->pack_start( $button_advanced, $true, $true, 0 ); $hbox_advanced->pack_start( $button_advanced, $true, $true, 0 );
$button_advanced->show(); $button_advanced->show();
########################### ###########################
# The ADVANCED ROOT SECTION
###########################
# Separator
$separator = new Gtk::HSeparator();
$vbox_advanced->pack_start( $separator, $false, $true, 0 );
$separator->show();
my $vbox_advanced_root = new Gtk::VBox($false,0);
$box1->add($vbox_advanced_root);
$vbox_advanced_root->show();
hbox_advanced($vbox_advanced_root);
$button_advanced = new Gtk::Button("Advanced Root Section");
$tooltips->set_tip( $button_advanced, "Change settings for the bootdisk.", "" );
$button_advanced->signal_connect("clicked",\&advanced_root_section );
$hbox_advanced->pack_start( $button_advanced, $true, $true, 0 );
$button_advanced->show();
###########################
# Separator # Separator
$separator = new Gtk::HSeparator(); $separator = new Gtk::HSeparator();
$box1->pack_start( $separator, $false, $true, 0 ); $box1->pack_start( $separator, $false, $true, 0 );
@ -442,7 +465,7 @@ sub hbox_advanced {
$hbox_advanced = new Gtk::HBox(1,1 ); $hbox_advanced = new Gtk::HBox(1,1 );
$hbox_advanced->border_width( 2 ); # was 10 $hbox_advanced->border_width( 2 ); # was 10
$hbox_advanced->set_usize(321, 20); $hbox_advanced->set_usize(321, 20);
$vbox_advanced->pack_start( $hbox_advanced, $false, $false, 0 ); $_[0]->pack_start( $hbox_advanced, $false, $false, 0 );
show $hbox_advanced; show $hbox_advanced;
} }
@ -476,7 +499,7 @@ sub objcopy_right_click_advanced {
} }
sub advanced_section { sub advanced_boot_section {
if ($button_count == 0) { if ($button_count == 0) {
#$vbox_advanced->set_usize(321,300); #$vbox_advanced->set_usize(321,300);
@ -488,7 +511,7 @@ sub advanced_section {
$table_advanced->show(); $table_advanced->show();
# lib_strip_check # lib_strip_check
label_advanced("Stripping:",0,1,0,1); label_advanced("Stripping:",0,1,0,1,$table_advanced);
!defined $lib_strip_check ? ($boolean = 1) !defined $lib_strip_check ? ($boolean = 1)
: ($boolean = $lib_strip_check->get_active()); : ($boolean = $lib_strip_check->get_active());
$lib_strip_check = new Gtk::CheckButton("Libraries"); $lib_strip_check = new Gtk::CheckButton("Libraries");
@ -519,8 +542,8 @@ sub advanced_section {
show $bin_strip_check; show $bin_strip_check;
# Development Drive # Development Drive
label_advanced("Devel Device:",0,1,1,2); label_advanced("Devel Device:",0,1,1,2,$table_advanced);
$ea1 = entry_advanced(1,2,1,2,0); $ea1 = entry_advanced(1,2,1,2,0,$table_advanced);
$tooltips->set_tip( $ea1, "If the device used for development" . $tooltips->set_tip( $ea1, "If the device used for development" .
" is different than the actual boot" . " is different than the actual boot" .
" device, use this field" . " device, use this field" .
@ -534,8 +557,8 @@ sub advanced_section {
$ea1->set_text($container[3]) if defined $container[3]; $ea1->set_text($container[3]) if defined $container[3];
# Optional Device(s) # Optional Device(s)
label_advanced("Opt. Device(s)",0,1,2,3); label_advanced("Opt. Device(s)",0,1,2,3,$table_advanced);
$ea2 = entry_advanced(1,2,2,3,1); $ea2 = entry_advanced(1,2,2,3,1,$table_advanced);
$tooltips->set_tip( $ea2, "Add devices to the boot disk which are" . $tooltips->set_tip( $ea2, "Add devices to the boot disk which are" .
" necessary for the kernel to function" . " necessary for the kernel to function" .
" properly. Put a space between each" . " properly. Put a space between each" .
@ -545,8 +568,8 @@ sub advanced_section {
$ea2->set_text($entry_advanced[1]) if defined $entry_advanced[1]; $ea2->set_text($entry_advanced[1]) if defined $entry_advanced[1];
# Append Options # Append Options
label_advanced("append =",0,1,3,4); label_advanced("append =",0,1,3,4,$table_advanced);
$ea3 = entry_advanced(1,3,3,4,2); $ea3 = entry_advanced(1,3,3,4,2,$table_advanced);
my $append; (undef,undef,$append) = gdkbirdaao(); my $append; (undef,undef,$append) = gdkbirdaao();
$tooltips->set_tip( $ea3, "Add append options to brlilo.conf.", ""); $tooltips->set_tip( $ea3, "Add append options to brlilo.conf.", "");
$ea3->set_text($append) if defined $append; $ea3->set_text($append) if defined $append;
@ -560,9 +583,30 @@ sub advanced_section {
$button_count--; $button_count--;
} }
} # end sub advanced_section } # end sub advanced_boot_section
sub advanced_root_section {
if ($button_count_root == 0) {
my $boolean;
# The strip section
$table_advanced_root = new Gtk::Table( 4, 3, $true );
$vbox_advanced_root->pack_start( $table_advanced_root, $true, $true, 0 );
$table_advanced_root->show();
label_advanced("Hi there!",0,1,1,2,$table_advanced_root);
$button_count_root++;
}
else {
destroy $table_advanced_root;
$button_count_root--;
}
} # end sub advanced_root_section
print @entry_advanced;
sub entry_advanced { sub entry_advanced {
@ -572,7 +616,7 @@ sub entry_advanced {
$entry_advanced->signal_connect( "changed", sub { $entry_advanced->signal_connect( "changed", sub {
$entry_advanced[$numa] = $entry_advanced->get_text();} ); $entry_advanced[$numa] = $entry_advanced->get_text();} );
$entry_advanced->set_usize(100,20); $entry_advanced->set_usize(100,20);
$table_advanced->attach($entry_advanced,$_[0],$_[1],$_[2],$_[3], $_[5]->attach($entry_advanced,$_[0],$_[1],$_[2],$_[3],
['shrink','fill','expand'],['fill','shrink'],0,0); ['shrink','fill','expand'],['fill','shrink'],0,0);
show $entry_advanced; show $entry_advanced;
return $entry_advanced; return $entry_advanced;
@ -582,7 +626,7 @@ sub entry_advanced {
sub separator_advanced { sub separator_advanced {
$separator_advanced = new Gtk::HSeparator(); $separator_advanced = new Gtk::HSeparator();
$vbox_advanced->pack_start( $separator_advanced, $false, $true, 0 ); $_[0]->pack_start( $separator_advanced, $false, $true, 0 );
$separator_advanced->show(); $separator_advanced->show();
} }
@ -593,7 +637,7 @@ sub label_advanced {
$label_advanced = new Gtk::Label( $text ); $label_advanced = new Gtk::Label( $text );
$label_advanced->set_justify( "fill" ); $label_advanced->set_justify( "fill" );
$table_advanced->attach($label_advanced,$_[1],$_[2],$_[3],$_[4], ['expand'],['fill','shrink'],0,0); $_[5]->attach($label_advanced,$_[1],$_[2],$_[3],$_[4], ['expand'],['fill','shrink'],0,0);
$label_advanced->show(); $label_advanced->show();
} }