Browse Source

Some more stuff.

master
freesource 24 years ago
parent
commit
574999a463
  1. 76
      gBootRoot

76
gBootRoot

@ -136,7 +136,7 @@ my ($ea1,$ea2,$ea3);
my ($ear1,$ear2,$ear3,$ear4); # entry advanced root my ($ear1,$ear2,$ear3,$ear4); # entry advanced root
my $table_advanced; my $table_advanced;
my $table_advanced_root; my $table_advanced_root;
my $spinner_advanced; my ($spinner_advanced,$spinner_size);
my $button_count = 0; my $button_count = 0;
my $button_count_root = 0; my $button_count_root = 0;
my $obj_count = 0; my $obj_count = 0;
@ -145,7 +145,7 @@ my ($lib_strip_check_root,$bin_strip_check_root);
my ($bz2_toggle,$gz_toggle); my ($bz2_toggle,$gz_toggle);
my ($bz2_toggle_root,$gz_toggle_root); my ($bz2_toggle_root,$gz_toggle_root);
my ($combo); my ($combo);
my ($adj2,$adj3);
# My own creation - the roots touch the ground if three lines are added. # My own creation - the roots touch the ground if three lines are added.
my @xpm_data = ( my @xpm_data = (
@ -335,7 +335,8 @@ $spinner->set_shadow_type( 'in' );
$spinner->show(); $spinner->show();
$container[4] = 1722; # A better value - a rtbt trick. $container[4] = 1722; # A better value - a rtbt trick.
$adj->signal_connect( "value_changed", sub { $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;});
$box2->pack_start( $spinner, $true, $true, 0 ); $box2->pack_start( $spinner, $true, $true, 0 );
label("Device Size"); label("Device Size");
@ -603,7 +604,7 @@ sub advanced_root_section {
my $boolean; my $boolean;
$table_advanced_root = new Gtk::Table( 9, 3, $true ); $table_advanced_root = new Gtk::Table( 10, 3, $true );
# temp solution? # temp solution?
#$table_advanced_root->set_row_spacings( 3 ); #$table_advanced_root->set_row_spacings( 3 );
$vbox_advanced_root->pack_start( $table_advanced_root, $true, $vbox_advanced_root->pack_start( $table_advanced_root, $true,
@ -623,10 +624,15 @@ sub advanced_root_section {
#_______________________________________ #_______________________________________
# Root Device Size # Root Device Size
label_advanced("Root Device Size:",0,1,1,2,$table_advanced_root); label_advanced("Root Device Size:",0,1,1,2,$table_advanced_root);
$spinner_advanced = new Gtk::SpinButton( $adj, 0, 0 ); $adj2 = new Gtk::Adjustment( 1722.0, 0.0, 360000000.0, 282.0,
360.0, 0.0 );
$adj2->set_value($container[4]) if defined $adj2;
$spinner_advanced = new Gtk::SpinButton( $adj2, 0, 0 );
$table_advanced_root->attach($spinner_advanced,1,2,1,2, $table_advanced_root->attach($spinner_advanced,1,2,1,2,
['shrink','fill','expand'],['fill','shrink'],0,0); ['shrink','fill','expand'],['fill','shrink'],
$tooltips->set_tip( $spinner_advanced, "Choose the Root Device Size.", 0,0);
$tooltips->set_tip( $spinner_advanced,
"Choose the Root Device Size.",
"" ); "" );
$spinner_advanced->set_wrap( $true ); $spinner_advanced->set_wrap( $true );
$spinner_advanced->set_numeric( $true ); $spinner_advanced->set_numeric( $true );
@ -650,30 +656,46 @@ sub advanced_root_section {
['expand'],['fill','shrink'],0,0); ['expand'],['fill','shrink'],0,0);
show $ear2_save; show $ear2_save;
#_______________________________________
# Filesystem Size
label_advanced("Filesystem Size:",0,1,3,4,$table_advanced_root);
$adj3 = new Gtk::Adjustment( 4096.0, 0.0, 1000000000.0, 128.0,
1024.0, 0.0 );
$spinner_size = new Gtk::SpinButton( $adj3, 0, 0 );
$table_advanced_root->attach($spinner_size,1,2,3,4,
['shrink','fill','expand'],['fill','shrink'],
0,0);
$tooltips->set_tip( $spinner_size,
"Choose the Filesystem Size.",
"" );
$spinner_size->set_wrap( $true );
$spinner_size->set_numeric( $true );
$spinner_size->set_shadow_type( 'in' );
$spinner_size->show();
#_______________________________________ #_______________________________________
# Compression # Compression
label_advanced("Compression:",0,1,3,4,$table_advanced_root); label_advanced("Compression:",0,1,4,5,$table_advanced_root);
$rbutton = new Gtk::RadioButton( "gz" ); $rbutton = new Gtk::RadioButton( "gz" );
$tooltips->set_tip( $rbutton, $tooltips->set_tip( $rbutton,
"Choose Compression used on the Filesystem.", "" ); "Choose Compression used on the Filesystem.", "" );
$gz_toggle_root = $rbutton; $gz_toggle_root = $rbutton;
$rbutton->set_active( $true ); $rbutton->set_active( $true );
$table_advanced_root->attach($rbutton,1,2,3,4, $table_advanced_root->attach($rbutton,1,2,4,5,
['expand'],['fill','shrink'],0,0); ['expand'],['fill','shrink'],0,0);
$rbutton->show(); $rbutton->show();
$rbutton = new Gtk::RadioButton( "bz2", $rbutton ); $rbutton = new Gtk::RadioButton( "bz2", $rbutton );
$tooltips->set_tip( $rbutton, $tooltips->set_tip( $rbutton,
"Choose Compression used on the Filesystem.", "" ); "Choose Compression used on the Filesystem.", "" );
$bz2_toggle_root = $rbutton; $bz2_toggle_root = $rbutton;
$table_advanced_root->attach($rbutton,2,3,3,4, $table_advanced_root->attach($rbutton,2,3,4,5,
['expand'],['fill','shrink'],0,0); ['expand'],['fill','shrink'],0,0);
$rbutton->show(); $rbutton->show();
#_______________________________________ #_______________________________________
# lib_strip_check # lib_strip_check
label_advanced("Stripping:",0,1,4,5,$table_advanced_root); label_advanced("Stripping:",0,1,5,6,$table_advanced_root);
!defined $lib_strip_check_root ? ($boolean = 1) !defined $lib_strip_check_root ? ($boolean = 1)
: ($boolean = $lib_strip_check_root->get_active()); : ($boolean = $lib_strip_check_root->get_active());
$lib_strip_check_root = new Gtk::CheckButton("Libraries"); $lib_strip_check_root = new Gtk::CheckButton("Libraries");
@ -685,7 +707,7 @@ sub advanced_root_section {
" right mouse button to change from" . " right mouse button to change from" .
" [objcopy --strip-debug] to" . " [objcopy --strip-debug] to" .
" [objcopy --strip-all].", "" ); " [objcopy --strip-all].", "" );
$table_advanced_root->attach($lib_strip_check_root,1,2,4,5, $table_advanced_root->attach($lib_strip_check_root,1,2,5,6,
['expand'],['fill','shrink'],0,0); ['expand'],['fill','shrink'],0,0);
show $lib_strip_check_root; show $lib_strip_check_root;
@ -697,26 +719,26 @@ sub advanced_root_section {
$tooltips->set_tip( $bin_strip_check_root, $tooltips->set_tip( $bin_strip_check_root,
"This is generally a good idea." . "This is generally a good idea." .
" [objcopy --strip-all]", "" ); " [objcopy --strip-all]", "" );
$table_advanced_root->attach($bin_strip_check_root,2,3,4,5, $table_advanced_root->attach($bin_strip_check_root,2,3,5,6,
['expand'],['fill','shrink'],0,0); ['expand'],['fill','shrink'],0,0);
show $bin_strip_check_root; show $bin_strip_check_root;
#_______________________________________ #_______________________________________
# UML Kernel # UML Kernel
label_advanced("UML Kernel:",0,1,5,6,$table_advanced_root); label_advanced("UML Kernel:",0,1,6,7,$table_advanced_root);
# $_[4] shares with advanced_boot_sections @entry_advanced # $_[4] shares with advanced_boot_sections @entry_advanced
$ear3 = entry_advanced(1,2,5,6,5,$table_advanced_root); $ear3 = entry_advanced(1,2,6,7,5,$table_advanced_root);
$tooltips->set_tip( $ear3, $tooltips->set_tip( $ear3,
"If you have a User Mode Linux Kernel, type in" . "If you have a User Mode Linux Kernel, type in" .
" the Kernel's location," . " the Kernel's location," .
" and any Kernel options desired afterwards.", " and any Kernel options desired afterwards.",
"" ); "" );
button_fileselect_advanced(2,3,5,6,"Selection",$ear3,"Selection",5); button_fileselect_advanced(2,3,6,7,"Selection",$ear3,"Selection",5);
#_______________________________________ #_______________________________________
# Method # Method
label_advanced("Method:",0,1,6,7,$table_advanced_root); label_advanced("Method:",0,1,7,8,$table_advanced_root);
$ear4 = entry_advanced(1,2,6,7,6,$table_advanced_root); $ear4 = entry_advanced(1,2,7,8,6,$table_advanced_root);
$ear4->set_editable($false); $ear4->set_editable($false);
$tooltips->set_tip( $ear4, $tooltips->set_tip( $ear4,
"Choose the Root Filesystem Generation Method.", "Choose the Root Filesystem Generation Method.",
@ -732,38 +754,40 @@ sub advanced_root_section {
$ear4->set_text("yard"); }); $ear4->set_text("yard"); });
$menu_root->append( $item_root ); $menu_root->append( $item_root );
$opt_root->set_menu( $menu_root ); $opt_root->set_menu( $menu_root );
$table_advanced_root->attach($opt_root,2,3,6,7, $table_advanced_root->attach($opt_root,2,3,7,8,
['expand','fill'],['fill','shrink'],0,0); ['expand','fill'],['fill','shrink'],0,0);
$opt_root->show(); $opt_root->show();
#_______________________________________ #_______________________________________
# Template # Template
label_advanced("Template:",0,1,7,8,$table_advanced_root); label_advanced("Template:",0,1,8,9,$table_advanced_root);
my @strings = qw(nothing is here now); my @strings = ("nothing is here now");
$combo = new Gtk::Combo(); $combo = new Gtk::Combo();
$combo->set_popdown_strings( @strings ); $combo->set_popdown_strings( @strings );
$tooltips->set_tip( Gtk::Combo::entry($combo), $tooltips->set_tip( Gtk::Combo::entry($combo),
"Choose a Template for the Method.", "Choose a Template for the Method.",
"" ); "" );
$table_advanced_root->attach($combo,1,3,7,8, $table_advanced_root->attach($combo,1,3,8,9,
['expand','fill'],['fill','shrink'],0,0); ['expand','fill'],['fill','shrink'],0,0);
show $combo; show $combo;
#_______________________________________ #_______________________________________
# Generate - UML - Accept buttons # Generate - UML - Accept buttons
$table_advanced_root->set_row_spacing( 7, 10); $table_advanced_root->set_row_spacing( 8, 10);
# The Generation process is determined by the method chosen. Yard - # The Generation process is determined by the method chosen. Yard -
# asks the user if they want to modify the template, and/or save a # asks the user if they want to modify the template, and/or save a
# new template with modifications (to be added to Template menu). # new template with modifications (to be added to Template menu).
my $generate_b = button_advanced(0,1,8,9,"Generate"); my $generate_b = button_advanced(0,1,9,10,"Generate");
$tooltips->set_tip( $generate_b, "Generate Root Filesystem.", "" ); $tooltips->set_tip( $generate_b, "Generate Root Filesystem.", "" );
my $UML_b = button_advanced(1,2,8,9,"UML"); my $UML_b = button_advanced(1,2,9,10,"UML");
$tooltips->set_tip( $UML_b, "Test Filesystem with User Mode Linux.", $tooltips->set_tip( $UML_b, "Test Filesystem with User Mode Linux.",
"" ); "" );
my $accept_b = button_advanced(2,3,8,9,"Accept"); # 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");
$tooltips->set_tip( $accept_b, "Accept Filesystem.", "" ); $tooltips->set_tip( $accept_b, "Accept Filesystem.", "" );

Loading…
Cancel
Save