Browse Source

* Removed stripping from the Docks ARS, and moved it to YardBox.

* This is part of the unification of the Dock to make it universal amongst
  all root and boot methods.
master
freesource 24 years ago
parent
commit
c04c88be0b
  1. 84
      gBootRoot

84
gBootRoot

@ -709,7 +709,7 @@ sub advanced_root_section {
my $boolean;
$table_advanced_root = new Gtk::Table( 10, 3, $true );
$table_advanced_root = new Gtk::Table( 9, 3, $true );
# temp solution?
#$table_advanced_root->set_row_spacings( 3 );
$vbox_advanced_root->pack_start( $table_advanced_root, $true,
@ -846,80 +846,22 @@ sub advanced_root_section {
$hbox_between->pack_start( $compression_off, $true, $false, 0 );
$compression_off->show();
# This whole section will be relocated to the Yard box,
# since stripping isn't universal amongst methods.
#_______________________________________
# lib_strip_check
# $strip_objfiles 1 - yes 0 - no altered Yard.pm to take
# into account adjustable library stripping
my $hbox_between2 = new Gtk::HBox(1,1);
$table_advanced_root->attach($hbox_between2,0,3,5,6,
['fill'],
['fill','shrink'],15,0 );
$hbox_between2->show;
# label
my $label_strip = new Gtk::Label( "Stripping:" );
$label_strip->set_justify( "right" );
$hbox_between2->pack_start( $label_strip, $false, $false, 0 );
$label_strip->show();
#label_advanced("Stripping:",0,1,5,6,$table_advanced_root);
!defined $lib_strip_check_root ? ($boolean = 1)
: ($boolean = $lib_strip_check_root->get_active());
$lib_strip_check_root = new Gtk::CheckButton("Libraries");
$lib_strip_check_root->set_active($boolean);
$lib_strip_check_root->signal_connect( "button_press_event",
\&objcopy_right_click_advanced);
$tooltips->set_tip( $lib_strip_check_root,
"This is generally a good idea. Press the" .
" right mouse button to change from" .
" [objcopy --strip-debug] to" .
" [objcopy --strip-all].", "" );
$hbox_between2->pack_start( $lib_strip_check_root, $false, $false, 0 );
show $lib_strip_check_root;
# bin_strip_check
!defined $bin_strip_check_root ? ($boolean = 1)
: ($boolean = $bin_strip_check_root->get_active());
$bin_strip_check_root = new Gtk::CheckButton("Binaries");
$bin_strip_check_root->set_active($boolean);
$tooltips->set_tip( $bin_strip_check_root,
"This is generally a good idea." .
" [objcopy --strip-all]", "" );
$hbox_between2->pack_start( $bin_strip_check_root, $false, $false, 0 );
show $bin_strip_check_root;
# module_strip_check
!defined $module_strip_check_root ? ($boolean = 1)
: ($boolean = $module_strip_check_root->get_active());
$module_strip_check_root = new Gtk::CheckButton("Modules");
$module_strip_check_root->set_active($boolean);
$tooltips->set_tip( $module_strip_check_root,
"This is generally a good idea." .
" [objcopy --strip-debug]", "" );
$hbox_between2->pack_start( $module_strip_check_root,
$false, $false, 0 );
show $module_strip_check_root;
#_______________________________________
# UML Kernel
label_advanced("UML Kernel:",0,1,6,7,$table_advanced_root);
label_advanced("UML Kernel:",0,1,5,6,$table_advanced_root);
# $_[4] shares with advanced_boot_sections @entry_advanced
$ear3 = entry_advanced(1,2,6,7,5,$table_advanced_root);
$ear3 = entry_advanced(1,2,5,6,5,$table_advanced_root);
$tooltips->set_tip( $ear3,
"If you have a User Mode Linux Kernel, type in" .
" the Kernel's location," .
" and any Kernel options desired afterwards.",
"" );
button_fileselect_advanced(2,3,6,7,"Selection",$ear3,"Selection",13);
button_fileselect_advanced(2,3,5,6,"Selection",$ear3,"Selection",13);
#_______________________________________
# Method
label_advanced("Method:",0,1,7,8,$table_advanced_root);
$ear4 = entry_advanced(1,2,7,8,6,$table_advanced_root);
label_advanced("Method:",0,1,6,7,$table_advanced_root);
$ear4 = entry_advanced(1,2,6,7,6,$table_advanced_root);
$ear4->set_editable($false);
$tooltips->set_tip( $ear4,
"Choose the Root Filesystem Generation Method.",
@ -954,14 +896,14 @@ sub advanced_root_section {
$yard->show();
$opt_root->set_menu( $menu_root );
$table_advanced_root->attach($opt_root,2,3,7,8,
$table_advanced_root->attach($opt_root,2,3,6,7,
['expand','fill'],['fill','shrink'],0,0);
$opt_root->show();
#_______________________________________
# Template
# $::contents_file
label_advanced("Template:",0,1,8,9,$table_advanced_root);
label_advanced("Template:",0,1,7,8,$table_advanced_root);
$combo = new Gtk::Combo();
$combo->entry->set_text($entry_advanced[7]) if $entry_advanced[7];
#$button_count_root_open = 1 + $button_count_root_open;
@ -976,28 +918,28 @@ sub advanced_root_section {
$entry_advanced[7] = $combo->entry->get_text(); # nothing selected
$combo->entry->signal_connect("changed", sub {
$entry_advanced[7] = $combo->entry->get_text(); } );
$table_advanced_root->attach($combo,1,3,8,9,
$table_advanced_root->attach($combo,1,3,7,8,
['expand','fill'],['fill','shrink'],0,0);
show $combo;
#_______________________________________
# Generate - UML - Accept buttons
$table_advanced_root->set_row_spacing( 8, 10);
$table_advanced_root->set_row_spacing( 7, 9);
# The Generation process is determined by the method chosen. Yard -
# asks the user if they want to modify the template, and/or save a
# new template with modifications (to be added to Template menu).
my $generate_b = button_advanced(0,1,9,10,"Generate");
my $generate_b = button_advanced(0,1,8,9,"Generate");
$generate_b->signal_connect("clicked",\&Generate);
$tooltips->set_tip( $generate_b, "Generate Root Filesystem.", "" );
my $UML_b = button_advanced(1,2,9,10,"UML");
my $UML_b = button_advanced(1,2,8,9,"UML");
$tooltips->set_tip( $UML_b, "Test Filesystem with User Mode Linux.",
"" );
# Will check to make sure that Filesystem fits device.
# Method determines whether or not compression is used.
my $accept_b = button_advanced(2,3,9,10,"Accept");
my $accept_b = button_advanced(2,3,8,9,"Accept");
$tooltips->set_tip( $accept_b, "Accept Filesystem.", "" );

Loading…
Cancel
Save