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

Now it has the look.

master
freesource 23 years ago
parent
4920a10f03
commit
3fcea5beb5
1 changed files with 58 additions and 16 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. 74
      BootRoot/BootRoot.pm

74
BootRoot/BootRoot.pm
View File

@ -1273,7 +1273,8 @@ sub uml_box {
$uml_window->signal_connect("delete_event", \&destroy_window, $uml_window->signal_connect("delete_event", \&destroy_window,
\$uml_window); \$uml_window);
##$uml_window->set_usize( 500, 95 ); # 450 175 || 500 600 ##$uml_window->set_usize( 500, 95 ); # 450 175 || 500 600
$uml_window->set_default_size( 525, 95 ); # 450 175 || 500 600 $uml_window->set_default_size( 525, 165 ); # 525 95 || 450 175
# 525 135 || 500 600
$uml_window->set_policy( $true, $true, $false ); $uml_window->set_policy( $true, $true, $false );
$uml_window->set_title( "UML Box" ); $uml_window->set_title( "UML Box" );
$uml_window->border_width(1); $uml_window->border_width(1);
@ -1283,7 +1284,7 @@ sub uml_box {
$main_vbox->show(); $main_vbox->show();
##my $table_uml = Gtk::Table->new( 4, 3, $true ); ##my $table_uml = Gtk::Table->new( 4, 3, $true );
my $table_uml = Gtk::Table->new( 5, 6, $false ); my $table_uml = Gtk::Table->new( 5, 8, $false );
##$main_vbox->pack_start( $table_uml, $true, $true, 0 ); ##$main_vbox->pack_start( $table_uml, $true, $true, 0 );
$main_vbox->pack_start( $table_uml, $true, $false, 0 ); $main_vbox->pack_start( $table_uml, $true, $false, 0 );
$table_uml->show(); $table_uml->show();
@ -1576,7 +1577,8 @@ sub uml_box {
# MTD device emulation - mtdram or blkmtd # MTD device emulation - mtdram or blkmtd
# Which? # Which?
label_advanced("MTD:",0,1,3,4,$table_uml); my $mtd_label = label_advanced("MTD",0,1,4,5,$table_uml);
$mtd_label->set_pattern("___");
my $mtd_check_on; my $mtd_check_on;
if ( $mtd_check ) { if ( $mtd_check ) {
if ( $mtd_check->get_active() ) { if ( $mtd_check->get_active() ) {
@ -1588,8 +1590,8 @@ sub uml_box {
"Turn MTD emulation on or off.", "Turn MTD emulation on or off.",
"" ); "" );
$mtd_check->set_active( $true ) if $mtd_check_on; $mtd_check->set_active( $true ) if $mtd_check_on;
$table_uml->attach($mtd_check,1,2,3,4, $table_uml->attach($mtd_check,1,2,4,5,
['expand','fill'],['fill','shrink'],0,0); ['expand','shrink'],['fill','shrink'],0,0);
$mtd_check->show(); $mtd_check->show();
@ -1610,8 +1612,8 @@ sub uml_box {
$tooltips->set_tip( $mtd_radio, $tooltips->set_tip( $mtd_radio,
"Use memory to emulate test mtd device.", "Use memory to emulate test mtd device.",
"" ); "" );
$table_uml->attach($mtd_radio,2,3,3,4, $table_uml->attach($mtd_radio,2,3,4,5,
['shrink','expand','fill'],['fill','shrink'],0,0); ['shrink','expand'],['fill','shrink'],0,0);
$mtd_radio->show(); $mtd_radio->show();
# blkmtd # blkmtd
@ -1621,8 +1623,8 @@ sub uml_box {
$tooltips->set_tip( $mtd_radio, $tooltips->set_tip( $mtd_radio,
"Use block device to emulate test mtd device.", "Use block device to emulate test mtd device.",
"" ); "" );
$table_uml->attach($mtd_radio,3,4,3,4, $table_uml->attach($mtd_radio,3,4,4,5,
['shrink','expand','fill'],['fill','shrink'],0,0); ['shrink','expand'],['fill','shrink'],0,0);
$mtd_radio->show(); $mtd_radio->show();
@ -1631,7 +1633,7 @@ sub uml_box {
$tooltips->set_tip( Gtk::Combo::entry($mtd_fs_type_combo), $tooltips->set_tip( Gtk::Combo::entry($mtd_fs_type_combo),
"Choose filesystem type used by root filesystem.", "Choose filesystem type used by root filesystem.",
"" ); "" );
$table_uml->attach($mtd_fs_type_combo,4,5,3,4, $table_uml->attach($mtd_fs_type_combo,4,5,4,5,
['shrink','expand','fill'],['fill','shrink'],20,0); ['shrink','expand','fill'],['fill','shrink'],20,0);
if ( !$mtd_fs_type ) { if ( !$mtd_fs_type ) {
@fs_types = qw(jffs2 jffs ext2 ext3 minix cramfs romfs reiserfs); @fs_types = qw(jffs2 jffs ext2 ext3 minix cramfs romfs reiserfs);
@ -1653,14 +1655,52 @@ sub uml_box {
$mtd_fs_type_combo->set_usize(20,0); $mtd_fs_type_combo->set_usize(20,0);
$mtd_fs_type_combo->show(); $mtd_fs_type_combo->show();
my $mtd_emul = label_advanced("Emulator",0,1,5,6,$table_uml);
$mtd_emul->set_pattern("________");
# total size
label_advanced("total size:",1,2,5,6,$table_uml);
my $mtd_adj = Gtk::Adjustment->new( 8192.0, 0.0, 1000000000.0, 128.0,
1024.0, 0.0 );
my $mtd_size = Gtk::SpinButton->new( $mtd_adj, 0, 0 );
$table_uml->attach($mtd_size,2,3,5,6,
['shrink','fill','expand'],['fill','shrink'],
0,0);
$tooltips->set_tip( $mtd_size,
"Choose the total size for the mtd device.",
"" );
$mtd_size->set_wrap( $true );
$mtd_size->set_numeric( $true );
$mtd_size->set_shadow_type( 'in' );
$mtd_size->show();
# erasure size
label_advanced("erasure size:",3,4,5,6,$table_uml);
my $mtd_erasure = entry_advanced(4,5,5,6,15,$table_uml);
$tooltips->set_tip( $mtd_erasure,
"Choose the erasure size for the mtd device.",
"" );
my $mtd_separator1 = Gtk::HSeparator->new();
$table_uml->attach($mtd_separator1,0,5,3,4,
['shrink','fill','expand'],['fill','shrink'],
0,5);
$mtd_separator1->show();
my $mtd_separator2 = Gtk::HSeparator->new();
$table_uml->attach($mtd_separator2,0,5,6,7,
['shrink','fill','expand'],['fill','shrink'],
0,5);
$mtd_separator2->show();
$table_uml->set_row_spacing( 4, 6); $table_uml->set_row_spacing( 6, 8);
#_______________________________________ #_______________________________________
# Submit Button # Submit Button
my $submit_b = button_advanced(0,1,5,6,"Submit",$table_uml); my $submit_b = button_advanced(0,1,7,8,"Submit",$table_uml);
$tooltips->set_tip( $submit_b, $tooltips->set_tip( $submit_b,
"Start uml kernel processes.", "Start uml kernel processes.",
"" ); "" );
@ -1730,7 +1770,7 @@ sub uml_box {
# This is the hard kill when all else fails, it also cleans up # This is the hard kill when all else fails, it also cleans up
# lingering processess, but is considered a last resort, and # lingering processess, but is considered a last resort, and
# can be dangerous, it has even taken down a WM. # can be dangerous, it has even taken down a WM.
my $abort_b = button_advanced(3,4,5,6,"Abort",$table_uml); my $abort_b = button_advanced(3,4,7,8,"Abort",$table_uml);
$tooltips->set_tip( $abort_b, $tooltips->set_tip( $abort_b,
"Abort uml kernel processes." . "Abort uml kernel processes." .
"This serves three purposes:\n" . "This serves three purposes:\n" .
@ -1760,7 +1800,7 @@ sub uml_box {
#_______________________________________ #_______________________________________
# Reboot Button - mconsole # Reboot Button - mconsole
my $reboot_b = button_advanced(1,2,5,6,"Reboot",$table_uml); my $reboot_b = button_advanced(1,2,7,8,"Reboot",$table_uml);
$tooltips->set_tip( $reboot_b, $tooltips->set_tip( $reboot_b,
"Passes the reboot command to the mconsole.", "Passes the reboot command to the mconsole.",
"" ); "" );
@ -1778,7 +1818,7 @@ sub uml_box {
#_______________________________________ #_______________________________________
# Halt Button - mconsole # Halt Button - mconsole
my $halt_b = button_advanced(2,3,5,6,"Halt",$table_uml); my $halt_b = button_advanced(2,3,7,8,"Halt",$table_uml);
$tooltips->set_tip( $halt_b, $tooltips->set_tip( $halt_b,
"Passes the halt command to the mconsole. " . "Passes the halt command to the mconsole. " .
"If this fails use the Abort button.", "If this fails use the Abort button.",
@ -1796,7 +1836,7 @@ sub uml_box {
#_______________________________________ #_______________________________________
# Cancel button also kills UML kernel if still open # Cancel button also kills UML kernel if still open
my $cancel_b = button_advanced(4,5,5,6,"Close",$table_uml); my $cancel_b = button_advanced(4,5,7,8,"Close",$table_uml);
$tooltips->set_tip( $cancel_b, $tooltips->set_tip( $cancel_b,
"Close uml box.", "Close uml box.",
"" ); "" );
@ -2159,6 +2199,7 @@ sub Generate {
# 12 = Kernel Version .. from the Boot Method # 12 = Kernel Version .. from the Boot Method
# 13 = System.map .. from the Boot Method # 13 = System.map .. from the Boot Method
# 14 = mcosole .. from the UML Box # 14 = mcosole .. from the UML Box
# 15 = erasure size .. from the UML Box
# $root_device_size; # $root_device_size;
# $filesystem_size; # $filesystem_size;
@ -2315,6 +2356,7 @@ sub label_advanced {
$label_advanced->set_justify( "fill" ); $label_advanced->set_justify( "fill" );
$_[5]->attach($label_advanced,$_[1],$_[2],$_[3],$_[4], ['expand'],['fill','shrink'],0,0); $_[5]->attach($label_advanced,$_[1],$_[2],$_[3],$_[4], ['expand'],['fill','shrink'],0,0);
$label_advanced->show(); $label_advanced->show();
return $label_advanced;
} }

Write Preview
Loading…
Cancel
Save