bike
/
gbootroot
mirror of https://github.com/fspc/gbootroot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

Some more stuff.

master
freesource 24 years ago
parent
0cecf0b2fa
commit
574999a463
1 changed files with 50 additions and 26 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 76
      gBootRoot

76
gBootRoot
View File

@ -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.", "" );

Write Preview
Loading…
Cancel
Save