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 25 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
Split 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 $table_advanced;
my $table_advanced_root;
my $spinner_advanced;
my ($spinner_advanced,$spinner_size);
my $button_count = 0;
my $button_count_root = 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_root,$gz_toggle_root);
my ($combo);
my ($adj2,$adj3);
# My own creation - the roots touch the ground if three lines are added.
my @xpm_data = (
@ -335,7 +335,8 @@ $spinner->set_shadow_type( 'in' );
$spinner->show();
$container[4] = 1722; # A better value - a rtbt trick.
$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 );
label("Device Size");
@ -603,7 +604,7 @@ sub advanced_root_section {
my $boolean;
$table_advanced_root = new Gtk::Table( 9, 3, $true );
$table_advanced_root = new Gtk::Table( 10, 3, $true );
# temp solution?
#$table_advanced_root->set_row_spacings( 3 );
$vbox_advanced_root->pack_start( $table_advanced_root, $true,
@ -623,10 +624,15 @@ sub advanced_root_section {
#_______________________________________
# Root Device Size
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,
['shrink','fill','expand'],['fill','shrink'],0,0);
$tooltips->set_tip( $spinner_advanced, "Choose the Root Device Size.",
['shrink','fill','expand'],['fill','shrink'],
0,0);
$tooltips->set_tip( $spinner_advanced,
"Choose the Root Device Size.",
"" );
$spinner_advanced->set_wrap( $true );
$spinner_advanced->set_numeric( $true );
@ -650,30 +656,46 @@ sub advanced_root_section {
['expand'],['fill','shrink'],0,0);
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
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" );
$tooltips->set_tip( $rbutton,
"Choose Compression used on the Filesystem.", "" );
$gz_toggle_root = $rbutton;
$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);
$rbutton->show();
$rbutton = new Gtk::RadioButton( "bz2", $rbutton );
$tooltips->set_tip( $rbutton,
"Choose Compression used on the Filesystem.", "" );
$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);
$rbutton->show();
#_______________________________________
# 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)
: ($boolean = $lib_strip_check_root->get_active());
$lib_strip_check_root = new Gtk::CheckButton("Libraries");
@ -685,7 +707,7 @@ sub advanced_root_section {
" right mouse button to change from" .
" [objcopy --strip-debug] to" .
" [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);
show $lib_strip_check_root;
@ -697,26 +719,26 @@ sub advanced_root_section {
$tooltips->set_tip( $bin_strip_check_root,
"This is generally a good idea." .
" [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);
show $bin_strip_check_root;
#_______________________________________
# 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
$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,
"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,5,6,"Selection",$ear3,"Selection",5);
button_fileselect_advanced(2,3,6,7,"Selection",$ear3,"Selection",5);
#_______________________________________
# Method
label_advanced("Method:",0,1,6,7,$table_advanced_root);
$ear4 = entry_advanced(1,2,6,7,6,$table_advanced_root);
label_advanced("Method:",0,1,7,8,$table_advanced_root);
$ear4 = entry_advanced(1,2,7,8,6,$table_advanced_root);
$ear4->set_editable($false);
$tooltips->set_tip( $ear4,
"Choose the Root Filesystem Generation Method.",
@ -732,38 +754,40 @@ sub advanced_root_section {
$ear4->set_text("yard"); });
$menu_root->append( $item_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);
$opt_root->show();
#_______________________________________
# Template
label_advanced("Template:",0,1,7,8,$table_advanced_root);
my @strings = qw(nothing is here now);
label_advanced("Template:",0,1,8,9,$table_advanced_root);
my @strings = ("nothing is here now");
$combo = new Gtk::Combo();
$combo->set_popdown_strings( @strings );
$tooltips->set_tip( Gtk::Combo::entry($combo),
"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);
show $combo;
#_______________________________________
# 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 -
# 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,8,9,"Generate");
my $generate_b = button_advanced(0,1,9,10,"Generate");
$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.",
"" );
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.", "" );

Write Preview
Loading…
Cancel
Save