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

This saves state for tests within 1 program invocation.

Browse Source
This commit is contained in:
freesource 2001-12-07 18:50:15 +00:00
parent 2a2483ba7f
commit 36111d5a71
1 changed files with 41 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
BootRoot/YardBox.pm
View File

@ -828,7 +828,7 @@ sub yard_box {
my $main_vbox = new Gtk::VBox( $false, 0 );
$main::yard_window->add( $main_vbox );
$main_vbox->show();
my $vbox = new Gtk::VBox( $false, 0 );
$vbox->border_width( 0 );
$main_vbox->pack_start( $vbox, $false, $true, 0 );
@ -913,11 +913,11 @@ sub yard_box {
$user_defined->active(0);
# Stripping
# Libraries
my $lib_strip = $item_factory->get_item
('/Edit/Settings/Stripping/Libraries');
$lib_strip->active($true);
$lib_strip->signal_connect( "activate",
sub {
@ -937,17 +937,17 @@ sub yard_box {
# objcopy parameters for Libraries
$lib_strip_all = $item_factory->get_item
('/Edit/Settings/Stripping/settings/strip-all');
('/Edit/Settings/Stripping/settings/strip-all');
$lib_strip_debug = $item_factory->get_item
('/Edit/Settings/Stripping/settings/strip-debug');
('/Edit/Settings/Stripping/settings/strip-debug');
$lib_strip_debug->active(0);
# Binaries
my $bin_strip = $item_factory->get_item
('/Edit/Settings/Stripping/Binaries');
('/Edit/Settings/Stripping/Binaries');
$bin_strip->active($true);
$bin_strip->signal_connect( "activate",
sub {
sub {
if ($bin_bool eq "") {
$bin_bool = 0;
}
@ -964,12 +964,12 @@ sub yard_box {
);
# Modules
my $mod_strip = $item_factory->get_item
('/Edit/Settings/Stripping/Modules');
$mod_strip->active($true);
$mod_strip->signal_connect( "activate",
sub {
# Modules
my $mod_strip = $item_factory->get_item
('/Edit/Settings/Stripping/Modules');
$mod_strip->active($true);
$mod_strip->signal_connect( "activate",
sub {
# off
if ($mod_bool eq "") {
$mod_bool = 0;
@ -986,7 +986,7 @@ sub yard_box {
);
# Checking - Replacements and/or Modules?
# Checking - Replacements and/or Modules?
# Replacements
## my $replacement_check = $item_factory->get_item
@ -1023,27 +1023,45 @@ sub yard_box {
## }
## );
# Tests
my $test_fstab = $item_factory->get_item('/Tests/fstab');
$test_fstab->active(1);
$tests{30}{test_fstab} == 1 ? $test_fstab->active(1) :
$test_fstab->active(0);
my $test_inittab = $item_factory->get_item('/Tests/inittab');
$test_inittab->active(1);
$tests{31}{test_inittab} == 1 ? $test_inittab->active(1) :
$test_inittab->active(0);
my $test_scripts = $item_factory->get_item('/Tests/scripts');
$test_scripts->active(1);
$tests{32}{test_scripts} == 1 ? $test_scripts->active(1) :
$test_scripts->active(0);
my $test_links = $item_factory->get_item('/Tests/links');
$test_links->active(1);
$tests{33}{test_links} == 1 ? $test_links->active(1) :
$test_links->active(0);
my $test_passwd = $item_factory->get_item('/Tests/passwd');
$test_passwd->active(1);
$tests{34}{test_passwd} == 1 ? $test_passwd->active(1) :
$test_passwd->active(0);
my $test_pam = $item_factory->get_item('/Tests/pam');
$test_pam->active(1);
$tests{35}{test_pam} == 1 ? $test_pam->active(1) :
$test_pam->active(0);
my $test_nss = $item_factory->get_item('/Tests/nss');
$test_nss->active(1);
$tests{36}{test_nss} == 1 ? $test_nss->active(1) :
$test_nss->active(0);
# PAM NSS Conf
my $conf_nss = $item_factory->get_item('/Edit/Settings/NSS Config');
$conf_nss->active(1);
$nss_pam{60}{conf_nss} == 1 ? $conf_nss->active(1) :
$conf_nss->active(0);
my $conf_pam = $item_factory->get_item('/Edit/Settings/PAM Config');
$conf_pam->active(1);
$nss_pam{61}{conf_pam} == 1 ? $conf_pam->active(1) :
$conf_pam->active(0);
#_______________________________________
# Create the GtkText widget