@ -211,6 +211,7 @@ my @menu_items = ( { path => '/File',
type = > '<CheckItem>' ,
type = > '<CheckItem>' ,
callback = > \ & tests } ,
callback = > \ & tests } ,
{ path = > '/_Help' ,
{ path = > '/_Help' ,
type = > '<LastBranch>' } ,
type = > '<LastBranch>' } ,
{ path = > '/Help/help_tearoff' ,
{ path = > '/Help/help_tearoff' ,
@ -673,6 +674,15 @@ sub tests {
sub test {
sub test {
# Need to know whether genext2fs is being used
my $ fs_type = ( split ( /\s/ , $ main:: makefs ) ) [ 0 ] ;
if ( $ fs_type ne "genext2fs" ) {
$ tests { 30 } { test_fstab } = 0 ;
$ tests { 31 } { test_inittab } = 0 ;
$ tests { 32 } { test_scripts } = 0 ;
}
my $ error = which_tests ( \ % tests ) ;
my $ error = which_tests ( \ % tests ) ;
return if $ error && $ error eq "ERROR" ;
return if $ error && $ error eq "ERROR" ;
}
}
@ -860,8 +870,7 @@ sub yard_box {
$ lib_bool + + ;
$ lib_bool + + ;
}
}
#print "$lib_bool\n";
#print "$lib_bool\n";
}
} ) ;
) ;
# objcopy parameters for Libraries
# objcopy parameters for Libraries
$ lib_strip_all = $ item_factory - > get_item
$ lib_strip_all = $ item_factory - > get_item
@ -1069,6 +1078,13 @@ sub yard_box {
$ vbox - > pack_start ( $ save_button , $ true , $ true , 0 ) ;
$ vbox - > pack_start ( $ save_button , $ true , $ true , 0 ) ;
$ save_button - > show ( ) ;
$ save_button - > show ( ) ;
# chrooted tests not wanted for non-root user
if ( $> != 0 ) {
$ item_factory - > delete_item ( '/Tests/fstab' ) ;
$ item_factory - > delete_item ( '/Tests/inittab' ) ;
$ item_factory - > delete_item ( '/Tests/scripts' ) ;
}
show $ main:: yard_window ;
show $ main:: yard_window ;
} # end sub yard_box
} # end sub yard_box
@ -1498,6 +1514,8 @@ sub yard_menu {
$ accel_group ) ;
$ accel_group ) ;
$ accel_group - > attach ( $ window ) ;
$ accel_group - > attach ( $ window ) ;
$ item_factory - > create_items ( @ menu_items ) ;
$ item_factory - > create_items ( @ menu_items ) ;
##$item_factory->delete_item('/File/Checkbox');
##$item_factory->delete_item('/File/Checkbox');
##$item_factory->create_item(['/File/Checkbox', undef, undef, <Item>]);
##$item_factory->create_item(['/File/Checkbox', undef, undef, <Item>]);