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

* Added 5 check boxes in the ard Box.

Browse Source
This commit is contained in:
freesource 2000-12-05 07:15:23 +00:00
parent e3c670423e
commit b54d841206
1 changed files with 48 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
gBootRoot
View File

@ -280,7 +280,7 @@ my $window = new Gtk::Window("toplevel");
# special policy # special policy
$window->set_policy( $false, $true, $true ); $window->set_policy( $false, $true, $true );
$window->set_title("gBootRoot"); $window->set_title("gBootRoot");
$window->set_position('center'); $window->set_position('none');
$window->signal_connect("destroy", $window->signal_connect("destroy",
sub { sub {
unlink "$verbosefn", "$tmp/initrd_image.gz"; unlink "$verbosefn", "$tmp/initrd_image.gz";
@ -1163,17 +1163,62 @@ sub yard_box {
[ 'expand', 'shrink', 'fill' ], 0, 0 ); [ 'expand', 'shrink', 'fill' ], 0, 0 );
$vscrollbar->show(); $vscrollbar->show();
#_______________________________________
# Separator
my $separator = new Gtk::HSeparator(); my $separator = new Gtk::HSeparator();
$main_vbox->pack_start( $separator, $false, $true, 0 ); $main_vbox->pack_start( $separator, $false, $true, 0 );
$separator->show(); $separator->show();
#_______________________________________
# Check stage boxes
# check | links & deps | space | create | test
$vbox = new Gtk::HBox( $false, 0 );
$vbox->border_width( 0 );
$main_vbox->pack_start( $vbox, $false, $true, 0 );
$vbox->show();
my $check = new Gtk::CheckButton("Check");
$vbox->pack_start( $check, $true, $true, 10 );
show $check;
my $dep = new Gtk::CheckButton("Links & Deps");
$vbox->pack_start( $dep, $true, $true, 0 );
show $dep;
my $space = new Gtk::CheckButton("Space Left");
$vbox->pack_start( $space, $true, $true, 0 );
show $space;
my $create = new Gtk::CheckButton("Create");
$vbox->pack_start( $create, $true, $true, 0 );
show $create;
my $test = new Gtk::CheckButton("Test");
$vbox->pack_start( $test, $true, $true, 0 );
show $test;
## $tooltips->set_tip( $lib_strip_check,
## "This is generally a good idea. Press the" .
## " right mouse button to change from" .
## " [objcopy --strip-debug] to" .
## " [objcopy --strip-all].", "" );
## ['expand'],['fill','shrink'],0,0);
#_______________________________________
# Separator
$separator = new Gtk::HSeparator();
$main_vbox->pack_start( $separator, $false, $true, 0 );
$separator->show();
#_______________________________________
# Continue - Cancel - Save Buttons
$vbox = new Gtk::HBox( $false, 10 ); $vbox = new Gtk::HBox( $false, 10 );
$vbox->border_width( 10 ); $vbox->border_width( 10 );
$main_vbox->pack_start( $vbox, $false, $true, 0 ); $main_vbox->pack_start( $vbox, $false, $true, 0 );
$vbox->show(); $vbox->show();
# Continue - Cancel - Save Buttons
##################################
my $button = new Gtk::Button( "Continue" ); my $button = new Gtk::Button( "Continue" );
$button->signal_connect( 'clicked', $button->signal_connect( 'clicked',
sub { destroy $yard_window; } ); sub { destroy $yard_window; } );