Browse Source

This saves state for tests within 1 program invocation.

master
freesource 23 years ago
parent
commit
36111d5a71
  1. 64
      BootRoot/YardBox.pm

64
BootRoot/YardBox.pm

@ -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

Loading…
Cancel
Save