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 25 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
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 136
      gBootRoot

136
gBootRoot
View File

@ -141,6 +141,9 @@ my $button_count = 0;
my $button_count_root = 0;
my $obj_count = 0;
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 @xpm_data = (
@ -336,14 +339,14 @@ label("Device Size");
# gz and bz2 radio buttons
my $rbutton = new Gtk::RadioButton( "gz" );
$tooltips->set_tip( $rbutton, "Choose Compression used on the Filesystem.", "" );
my $gz_toggle = $rbutton;
$gz_toggle = $rbutton;
$rbutton->set_active( $true );
$box2->pack_start( $rbutton, $false, $false, 0 );
$rbutton->show();
$rbutton = new Gtk::RadioButton( "bz2", $rbutton );
$rbutton->set_usize(1,1);
$tooltips->set_tip( $rbutton, "Choose Compression used on the Filesystem.", "" );
my $bz2_toggle = $rbutton;
$bz2_toggle = $rbutton;
$box2->pack_start( $rbutton, $true, $true, 0);
$rbutton->show();
@ -371,7 +374,8 @@ $vbox_advanced->show();
# The Advanced Boot Section button
hbox_advanced($vbox_advanced);
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 );
$hbox_advanced->pack_start( $button_advanced, $true, $true, 0 );
$button_advanced->show();
@ -384,7 +388,8 @@ $vbox_advanced_root->show();
hbox_advanced($vbox_advanced_root);
$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 );
$hbox_advanced->pack_start( $button_advanced, $true, $true, 0 );
$button_advanced->show();
@ -506,11 +511,12 @@ sub advanced_boot_section {
#$vbox_advanced->set_usize(321,300);
my $boolean;
# The strip section
# The table section
$table_advanced = new Gtk::Table( 4, 3, $true );
$vbox_advanced->pack_start( $table_advanced, $true, $true, 0 );
$table_advanced->show();
#_______________________________________
# lib_strip_check
label_advanced("Stripping:",0,1,0,1,$table_advanced);
!defined $lib_strip_check ? ($boolean = 1)
@ -524,7 +530,6 @@ sub advanced_boot_section {
" right mouse button to change from" .
" [objcopy --strip-debug] to" .
" [objcopy --strip-all].", "" );
#$hbox_advanced->pack_start( $lib_strip_check, $false, $false, 0);
$table_advanced->attach($lib_strip_check,1,2,0,1,
['expand'],['fill','shrink'],0,0);
show $lib_strip_check;
@ -537,11 +542,11 @@ sub advanced_boot_section {
$tooltips->set_tip( $bin_strip_check,
"This is generally a good idea." .
" [objcopy --strip-all]", "" );
#$hbox_advanced->pack_start( $bin_strip_check, $true, $true, 0);
$table_advanced->attach($bin_strip_check,2,3,0,1,
['expand'],['fill','shrink'],0,0);
show $bin_strip_check;
#_______________________________________
# Development Drive
label_advanced("Devel Device:",0,1,1,2,$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];
#_______________________________________
# Optional Device(s)
label_advanced("Opt. Device(s)",0,1,2,3,$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];
#_______________________________________
# Append Options
label_advanced("append =",0,1,3,4,$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 );
# temp solution?
$table_advanced_root->set_row_spacings( 3 );
$vbox_advanced_root->pack_start( $table_advanced_root, $true, $true, 0 );
#$table_advanced_root->set_row_spacings( 3 );
$vbox_advanced_root->pack_start( $table_advanced_root, $true,
$true, 0 );
#_______________________________________
# Root Device selection
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];
$tooltips->set_tip( $ear1,
"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
label_advanced("Root Device Size:",0,1,1,2,$table_advanced_root);
$spinner_advanced = new Gtk::SpinButton( $adj, 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.", "" );
$tooltips->set_tip( $spinner_advanced, "Choose the Root Device Size.",
"" );
$spinner_advanced->set_wrap( $true );
$spinner_advanced->set_numeric( $true );
$spinner_advanced->set_shadow_type( 'in' );
$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();
$button_count_root++;
@ -632,8 +719,21 @@ sub advanced_root_section {
} # end sub advanced_root_section
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
my ($left_attach,$right_attach,$top_attach,$bottom_attach,$text,$ent,
$name,$order,$device) = @_;
@ -641,7 +741,7 @@ sub button_advanced {
my $button = new Gtk::Button($text);
$table_advanced_root->attach($button,$left_attach,$right_attach,
$top_attach,$bottom_attach,
['shrink','fill','expand'],['fill','shrink'],0,0);
['shrink','fill','expand'],['fill','shrink'],2,2);
# example
if ($order == 1) {
@ -657,7 +757,7 @@ sub button_advanced {
$button->show();
}
} # end sub button_fileselect_advanced
sub entry_advanced {

Write Preview
Loading…
Cancel
Save