bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 17:13:22 -05:00
Code Issues Projects Releases Wiki Activity

Now it has the look.

Browse Source
This commit is contained in:
freesource 2002-03-05 00:13:48 +00:00
parent 4920a10f03
commit 3fcea5beb5
1 changed files with 58 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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();
$table_uml->set_row_spacing( 4, 6); # 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( 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;
} }