@ -92,6 +92,16 @@ my @menu_items = ( { path => '/File',
type = > '<Tearoff>' } ,
type = > '<Tearoff>' } ,
{ path = > '/Edit/Settings/Path' } ,
{ path = > '/Edit/Settings/Path' } ,
{ path = > '/Edit/Settings/Stripping/' } ,
{ path = > '/Edit/Settings/Stripping/' } ,
## { path => '/Edit/Settings/edit_separator',
## type => '<Separator>' },
## { path => '/Edit/Settings/Replacements',
## action => "4",
## type => '<CheckItem>' },
## { path => '/Edit/Settings/Modules',
## action => "5",
## type => '<CheckItem>' },
{ path = > '/Edit/Settings/Stripping/edit_tearoff' ,
{ path = > '/Edit/Settings/Stripping/edit_tearoff' ,
type = > '<Tearoff>' } ,
type = > '<Tearoff>' } ,
{ path = > '/Edit/Settings/Stripping/Libraries' ,
{ path = > '/Edit/Settings/Stripping/Libraries' ,
@ -113,14 +123,6 @@ my @menu_items = ( { path => '/File',
{ path = > '/Edit/Settings/Stripping/Modules' ,
{ path = > '/Edit/Settings/Stripping/Modules' ,
action = > '3' ,
action = > '3' ,
type = > '<CheckItem>' } ,
type = > '<CheckItem>' } ,
{ path = > '/Edit/Settings/edit_separator' ,
type = > '<Separator>' } ,
{ path = > '/Edit/Settings/Replacements' ,
action = > "4" ,
type = > '<CheckItem>' } ,
{ path = > '/Edit/Settings/Modules' ,
action = > "5" ,
type = > '<CheckItem>' } ,
{ path = > '/Edit/Stages/' } ,
{ path = > '/Edit/Stages/' } ,
{ path = > '/Edit/Stages/one-by-one' ,
{ path = > '/Edit/Stages/one-by-one' ,
action = > 13 ,
action = > 13 ,
@ -199,6 +201,8 @@ my @menu_items = ( { path => '/File',
{ path = > '/_Help/Tutorial' } ,
{ path = > '/_Help/Tutorial' } ,
{ path = > '/_Help/Shortcuts' } ) ;
{ path = > '/_Help/Shortcuts' } ) ;
######
######
# YARD
# YARD
######
######
@ -817,39 +821,39 @@ sub yard_box {
# Checking - Replacements and/or Modules?
# Checking - Replacements and/or Modules?
# Replacements
# Replacements
my $ replacement_check = $ item_factory - > get_item
## my $replacement_check = $item_factory-> get_item
( '/Edit/Settings/Replacements' ) ;
## ('/Edit/Settings/Replacements') ;
$ replacement_check - > active ( $ true ) ;
## $replacement_check->active($true) ;
$ replacement_check - > signal_connect ( "activate" ,
## $replacement_check->signal_connect( "activate",
sub {
## sub {
# off
# off
if ( $ replacement_bool == 1 ) {
## if ($replacement_bool == 1) {
$ replacement_bool - - ;
## $replacement_bool-- ;
}
## }
# on
# on
else {
## else {
$ replacement_bool + + ;
## $replacement_bool++ ;
}
## }
print "$replacement_bool\n" ;
## print "$replacement_bool\n" ;
}
## }
) ;
## );
# Modules
# Modules
my $ modules_check = $ item_factory - > get_item ( '/Edit/Settings/Modules' ) ;
## my $modules_check = $item_factory->get_item('/Edit/Settings/Modules') ;
$ modules_check - > active ( $ true ) ;
## $modules_check->active($true) ;
$ modules_check - > signal_connect ( "activate" ,
## $modules_check->signal_connect( "activate",
sub {
## sub {
# off
# off
if ( $ module_bool == 1 ) {
## if ($module_bool == 1) {
$ module_bool - - ;
## $module_bool-- ;
}
## }
# on
# on
else {
## else {
$ module_bool + + ;
## $module_bool++ ;
}
## }
print "$module_bool\n" ;
## print "$module_bool\n" ;
}
## }
) ;
## );
# Tests
# Tests
my $ test_fstab = $ item_factory - > get_item ( '/Tests/fstab' ) ;
my $ test_fstab = $ item_factory - > get_item ( '/Tests/fstab' ) ;