|
@ -144,6 +144,8 @@ my ($lib_strip_check,$bin_strip_check); |
|
|
my ($lib_strip_check_root,$bin_strip_check_root); |
|
|
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 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 = ( |
|
@ -286,6 +288,7 @@ $box1->show(); |
|
|
# First row |
|
|
# First row |
|
|
hbox(); |
|
|
hbox(); |
|
|
my $entry = entry($false,0); |
|
|
my $entry = entry($false,0); |
|
|
|
|
|
$tooltips->set_tip( $entry, "Choose the Boot method.", "" ); |
|
|
|
|
|
|
|
|
# Menu - later this may be improved if new methods are added. |
|
|
# Menu - later this may be improved if new methods are added. |
|
|
my $opt = new Gtk::OptionMenu(); |
|
|
my $opt = new Gtk::OptionMenu(); |
|
@ -600,7 +603,7 @@ sub advanced_root_section { |
|
|
my $boolean; |
|
|
my $boolean; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$table_advanced_root = new Gtk::Table( 7, 3, $true ); |
|
|
$table_advanced_root = new Gtk::Table( 9, 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, |
|
@ -637,6 +640,16 @@ sub advanced_root_section { |
|
|
$ear2->set_text("root_fs"); |
|
|
$ear2->set_text("root_fs"); |
|
|
$tooltips->set_tip( $ear2, "Give the Root Filesystem file a name.", |
|
|
$tooltips->set_tip( $ear2, "Give the Root Filesystem file a name.", |
|
|
"" ); |
|
|
"" ); |
|
|
|
|
|
my $ear2_save = new Gtk::CheckButton("save"); |
|
|
|
|
|
$ear2_save->set_active($true); |
|
|
|
|
|
$tooltips->set_tip( $ear2_save, |
|
|
|
|
|
"Save Root File. Press right button to change" . |
|
|
|
|
|
" Directory file is saved in.", |
|
|
|
|
|
"" ); |
|
|
|
|
|
$table_advanced_root->attach($ear2_save,2,3,2,3, |
|
|
|
|
|
['expand'],['fill','shrink'],0,0); |
|
|
|
|
|
show $ear2_save; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#_______________________________________ |
|
|
#_______________________________________ |
|
|
# Compression |
|
|
# Compression |
|
@ -695,16 +708,64 @@ sub advanced_root_section { |
|
|
$ear3 = entry_advanced(1,2,5,6,5,$table_advanced_root); |
|
|
$ear3 = entry_advanced(1,2,5,6,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.", |
|
|
"" ); |
|
|
"" ); |
|
|
button_fileselect_advanced(2,3,5,6,"Selection",$ear3,"Selection",5); |
|
|
button_fileselect_advanced(2,3,5,6,"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); |
|
|
|
|
|
$ear4->set_editable($false); |
|
|
|
|
|
$tooltips->set_tip( $ear4, |
|
|
|
|
|
"Choose the Root Filesystem Generation Method.", |
|
|
|
|
|
"" ); |
|
|
|
|
|
my $opt_root = new Gtk::OptionMenu(); |
|
|
|
|
|
$tooltips->set_tip( $opt_root, |
|
|
|
|
|
"Choose the Root Filesystem Generation Method.", |
|
|
|
|
|
"" ); |
|
|
|
|
|
my $menu_root = new Gtk::Menu(); |
|
|
|
|
|
my $item_root = new Gtk::MenuItem("Yard" ); |
|
|
|
|
|
$item_root->show(); |
|
|
|
|
|
$item_root->signal_connect( 'activate',sub { |
|
|
|
|
|
$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, |
|
|
|
|
|
['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); |
|
|
|
|
|
$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, |
|
|
|
|
|
['expand','fill'],['fill','shrink'],0,0); |
|
|
|
|
|
show $combo; |
|
|
|
|
|
|
|
|
#_______________________________________ |
|
|
#_______________________________________ |
|
|
# Generate - UML - Accept buttons |
|
|
# Generate - UML - Accept buttons |
|
|
my $generate_b = button_advanced(0,1,6,7,"Generate"); |
|
|
$table_advanced_root->set_row_spacing( 7, 10); |
|
|
my $UML_b = button_advanced(1,2,6,7,"UML"); |
|
|
|
|
|
my $accept_b = button_advanced(2,3,6,7,"Accept"); |
|
|
# The Generation process is determined by the method chosen. Yard - |
|
|
$table_advanced_root->set_row_spacing( 5, 10); |
|
|
# 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"); |
|
|
|
|
|
$tooltips->set_tip( $generate_b, "Generate Root Filesystem.", "" ); |
|
|
|
|
|
|
|
|
|
|
|
my $UML_b = button_advanced(1,2,8,9,"UML"); |
|
|
|
|
|
$tooltips->set_tip( $UML_b, "Test Filesystem with User Mode Linux.", |
|
|
|
|
|
"" ); |
|
|
|
|
|
|
|
|
|
|
|
my $accept_b = button_advanced(2,3,8,9,"Accept"); |
|
|
|
|
|
$tooltips->set_tip( $accept_b, "Accept Filesystem.", "" ); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$table_advanced_root->show(); |
|
|
$table_advanced_root->show(); |
|
@ -729,6 +790,7 @@ sub button_advanced { |
|
|
$top_attach,$bottom_attach, |
|
|
$top_attach,$bottom_attach, |
|
|
['shrink','fill','expand'],['fill','shrink'],2,2); |
|
|
['shrink','fill','expand'],['fill','shrink'],2,2); |
|
|
show $button; |
|
|
show $button; |
|
|
|
|
|
return $button; |
|
|
|
|
|
|
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|