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

Added a lot more widgets to ARS.

master
freesource 24 years ago
parent
2a94af7f1f
commit
6e331fea45
1 changed files with 118 additions and 18 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. 134
      gBootRoot

134
gBootRoot
View File

@ -141,6 +141,9 @@ my $button_count = 0;
my $button_count_root = 0; my $button_count_root = 0;
my $obj_count = 0; my $obj_count = 0;
my ($lib_strip_check,$bin_strip_check); my ($lib_strip_check,$bin_strip_check);
my ($lib_strip_check_root,$bin_strip_check_root);
my ($bz2_toggle,$gz_toggle);
my ($bz2_toggle_root,$gz_toggle_root);
# 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 = (
@ -336,14 +339,14 @@ label("Device Size");
# gz and bz2 radio buttons # gz and bz2 radio buttons
my $rbutton = new Gtk::RadioButton( "gz" ); my $rbutton = new Gtk::RadioButton( "gz" );
$tooltips->set_tip( $rbutton, "Choose Compression used on the Filesystem.", "" ); $tooltips->set_tip( $rbutton, "Choose Compression used on the Filesystem.", "" );
my $gz_toggle = $rbutton; $gz_toggle = $rbutton;
$rbutton->set_active( $true ); $rbutton->set_active( $true );
$box2->pack_start( $rbutton, $false, $false, 0 ); $box2->pack_start( $rbutton, $false, $false, 0 );
$rbutton->show(); $rbutton->show();
$rbutton = new Gtk::RadioButton( "bz2", $rbutton ); $rbutton = new Gtk::RadioButton( "bz2", $rbutton );
$rbutton->set_usize(1,1); $rbutton->set_usize(1,1);
$tooltips->set_tip( $rbutton, "Choose Compression used on the Filesystem.", "" ); $tooltips->set_tip( $rbutton, "Choose Compression used on the Filesystem.", "" );
my $bz2_toggle = $rbutton; $bz2_toggle = $rbutton;
$box2->pack_start( $rbutton, $true, $true, 0); $box2->pack_start( $rbutton, $true, $true, 0);
$rbutton->show(); $rbutton->show();
@ -371,7 +374,8 @@ $vbox_advanced->show();
# The Advanced Boot Section button # The Advanced Boot Section button
hbox_advanced($vbox_advanced); hbox_advanced($vbox_advanced);
my $button_advanced = new Gtk::Button("Advanced Boot Section"); my $button_advanced = new Gtk::Button("Advanced Boot Section");
$tooltips->set_tip( $button_advanced, "Change settings for the bootdisk.", "" ); $tooltips->set_tip( $button_advanced,
"Change settings for the bootdisk.", "" );
$button_advanced->signal_connect("clicked",\&advanced_boot_section ); $button_advanced->signal_connect("clicked",\&advanced_boot_section );
$hbox_advanced->pack_start( $button_advanced, $true, $true, 0 ); $hbox_advanced->pack_start( $button_advanced, $true, $true, 0 );
$button_advanced->show(); $button_advanced->show();
@ -384,7 +388,8 @@ $vbox_advanced_root->show();
hbox_advanced($vbox_advanced_root); hbox_advanced($vbox_advanced_root);
$button_advanced = new Gtk::Button("Advanced Root Section"); $button_advanced = new Gtk::Button("Advanced Root Section");
$tooltips->set_tip( $button_advanced, "Generate a root system and/or use a different root device.", "" ); $tooltips->set_tip( $button_advanced,
"Generate a root system and/or use a different root device.", "" );
$button_advanced->signal_connect("clicked",\&advanced_root_section ); $button_advanced->signal_connect("clicked",\&advanced_root_section );
$hbox_advanced->pack_start( $button_advanced, $true, $true, 0 ); $hbox_advanced->pack_start( $button_advanced, $true, $true, 0 );
$button_advanced->show(); $button_advanced->show();
@ -506,11 +511,12 @@ sub advanced_boot_section {
#$vbox_advanced->set_usize(321,300); #$vbox_advanced->set_usize(321,300);
my $boolean; my $boolean;
# The strip section # The table section
$table_advanced = new Gtk::Table( 4, 3, $true ); $table_advanced = new Gtk::Table( 4, 3, $true );
$vbox_advanced->pack_start( $table_advanced, $true, $true, 0 ); $vbox_advanced->pack_start( $table_advanced, $true, $true, 0 );
$table_advanced->show(); $table_advanced->show();
#_______________________________________
# lib_strip_check # lib_strip_check
label_advanced("Stripping:",0,1,0,1,$table_advanced); label_advanced("Stripping:",0,1,0,1,$table_advanced);
!defined $lib_strip_check ? ($boolean = 1) !defined $lib_strip_check ? ($boolean = 1)
@ -524,7 +530,6 @@ sub advanced_boot_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].", "" );
#$hbox_advanced->pack_start( $lib_strip_check, $false, $false, 0);
$table_advanced->attach($lib_strip_check,1,2,0,1, $table_advanced->attach($lib_strip_check,1,2,0,1,
['expand'],['fill','shrink'],0,0); ['expand'],['fill','shrink'],0,0);
show $lib_strip_check; show $lib_strip_check;
@ -537,11 +542,11 @@ sub advanced_boot_section {
$tooltips->set_tip( $bin_strip_check, $tooltips->set_tip( $bin_strip_check,
"This is generally a good idea." . "This is generally a good idea." .
" [objcopy --strip-all]", "" ); " [objcopy --strip-all]", "" );
#$hbox_advanced->pack_start( $bin_strip_check, $true, $true, 0);
$table_advanced->attach($bin_strip_check,2,3,0,1, $table_advanced->attach($bin_strip_check,2,3,0,1,
['expand'],['fill','shrink'],0,0); ['expand'],['fill','shrink'],0,0);
show $bin_strip_check; show $bin_strip_check;
#_______________________________________
# Development Drive # Development Drive
label_advanced("Devel Device:",0,1,1,2,$table_advanced); label_advanced("Devel Device:",0,1,1,2,$table_advanced);
$ea1 = entry_advanced(1,2,1,2,0,$table_advanced); $ea1 = entry_advanced(1,2,1,2,0,$table_advanced);
@ -557,6 +562,7 @@ sub advanced_boot_section {
"" ); "" );
$ea1->set_text($container[3]) if defined $container[3]; $ea1->set_text($container[3]) if defined $container[3];
#_______________________________________
# Optional Device(s) # Optional Device(s)
label_advanced("Opt. Device(s)",0,1,2,3,$table_advanced); label_advanced("Opt. Device(s)",0,1,2,3,$table_advanced);
$ea2 = entry_advanced(1,2,2,3,1,$table_advanced); $ea2 = entry_advanced(1,2,2,3,1,$table_advanced);
@ -568,6 +574,7 @@ sub advanced_boot_section {
""); "");
$ea2->set_text($entry_advanced[1]) if defined $entry_advanced[1]; $ea2->set_text($entry_advanced[1]) if defined $entry_advanced[1];
#_______________________________________
# Append Options # Append Options
label_advanced("append =",0,1,3,4,$table_advanced); label_advanced("append =",0,1,3,4,$table_advanced);
$ea3 = entry_advanced(1,3,3,4,2,$table_advanced); $ea3 = entry_advanced(1,3,3,4,2,$table_advanced);
@ -595,31 +602,111 @@ sub advanced_root_section {
$table_advanced_root = new Gtk::Table( 7, 3, $true ); $table_advanced_root = new Gtk::Table( 7, 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, $true, 0 ); $vbox_advanced_root->pack_start( $table_advanced_root, $true,
$true, 0 );
#_______________________________________
# Root Device selection # Root Device selection
label_advanced("Root Device:",0,1,0,1,$table_advanced_root); label_advanced("Root Device:",0,1,0,1,$table_advanced_root);
$ear1 = entry_advanced(1,2,0,1,0,$table_advanced_root); # $_[4] shares with advanced_boot_sections @entry_advanced
$ear1 = entry_advanced(1,2,0,1,3,$table_advanced_root);
$ear1->set_text($container[3]) if defined $container[3]; $ear1->set_text($container[3]) if defined $container[3];
$tooltips->set_tip( $ear1, $tooltips->set_tip( $ear1,
"Type in the location of the Root Device to use.", "Type in the location of the Root Device to use.",
"" ); "" );
button_advanced(2,3,0,1,"Selection",$ear1,"Selection",4,"/dev/fd0"); button_fileselect_advanced(2,3,0,1,"Selection",$ear1,"Selection",4,
"/dev/fd0");
#_______________________________________
# 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 ); $spinner_advanced = new Gtk::SpinButton( $adj, 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'],0,0);
$tooltips->set_tip( $spinner_advanced, "Choose the Root Device Size.", "" ); $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 );
$spinner_advanced->set_shadow_type( 'in' ); $spinner_advanced->set_shadow_type( 'in' );
$spinner_advanced->show(); $spinner_advanced->show();
#_______________________________________
# Root File Name
label_advanced("Root Filename:",0,1,2,3,$table_advanced_root);
$ear2 = entry_advanced(1,2,2,3,4,$table_advanced_root);
$ear2->set_text("root_fs");
$tooltips->set_tip( $ear2, "Give the Root Filesystem file a name.",
"" );
#_______________________________________
# Compression
label_advanced("Compression:",0,1,3,4,$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,
['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,
['expand'],['fill','shrink'],0,0);
$rbutton->show();
#_______________________________________
# lib_strip_check
label_advanced("Stripping:",0,1,4,5,$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].", "" );
$table_advanced_root->attach($lib_strip_check_root,1,2,4,5,
['expand'],['fill','shrink'],0,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]", "" );
$table_advanced_root->attach($bin_strip_check_root,2,3,4,5,
['expand'],['fill','shrink'],0,0);
show $bin_strip_check_root;
#_______________________________________
# UML Kernel
label_advanced("UML Kernel:",0,1,5,6,$table_advanced_root);
# $_[4] shares with advanced_boot_sections @entry_advanced
$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.",
"" );
button_fileselect_advanced(2,3,5,6,"Selection",$ear3,"Selection",5);
#_______________________________________
# Generate - UML - Accept buttons
my $generate_b = button_advanced(0,1,6,7,"Generate");
my $UML_b = button_advanced(1,2,6,7,"UML");
my $accept_b = button_advanced(2,3,6,7,"Accept");
$table_advanced_root->set_row_spacing( 5, 10);
$table_advanced_root->show(); $table_advanced_root->show();
$button_count_root++; $button_count_root++;
@ -632,8 +719,21 @@ sub advanced_root_section {
} # end sub advanced_root_section } # end sub advanced_root_section
sub button_advanced { sub button_advanced {
# cretzu should like this
my ($left_attach,$right_attach,$top_attach,$bottom_attach,$text) = @_;
my $button = new Gtk::Button($text);
$table_advanced_root->attach($button,$left_attach,$right_attach,
$top_attach,$bottom_attach,
['shrink','fill','expand'],['fill','shrink'],2,2);
show $button;
}
sub button_fileselect_advanced {
# cretzu should like this # cretzu should like this
my ($left_attach,$right_attach,$top_attach,$bottom_attach,$text,$ent, my ($left_attach,$right_attach,$top_attach,$bottom_attach,$text,$ent,
$name,$order,$device) = @_; $name,$order,$device) = @_;
@ -641,7 +741,7 @@ sub button_advanced {
my $button = new Gtk::Button($text); my $button = new Gtk::Button($text);
$table_advanced_root->attach($button,$left_attach,$right_attach, $table_advanced_root->attach($button,$left_attach,$right_attach,
$top_attach,$bottom_attach, $top_attach,$bottom_attach,
['shrink','fill','expand'],['fill','shrink'],0,0); ['shrink','fill','expand'],['fill','shrink'],2,2);
# example # example
if ($order == 1) { if ($order == 1) {
@ -657,7 +757,7 @@ sub button_advanced {
$button->show(); $button->show();
} } # end sub button_fileselect_advanced
sub entry_advanced { sub entry_advanced {

Write Preview
Loading…
Cancel
Save