From 17b175203dcce337f2687f940e7d4cd30e5b7ddc Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Sun, 17 Dec 2000 04:14:03 +0000
Subject: [PATCH] * This gets RadioMenuItem buttons working for Stages. * Next
 I will do the same thing for objcopy.

---
 YardBox.pm | 50 ++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 44 insertions(+), 6 deletions(-)

diff --git a/YardBox.pm b/YardBox.pm
index 0709ad5..92cd2e8 100644
--- a/YardBox.pm
+++ b/YardBox.pm
@@ -91,17 +91,18 @@ my @menu_items = ( { path        => '/File',
 		     action      => "5",
 		     type        => '<CheckItem>' },
 		   { path        => '/Edit/Stages/' },
-                   { path        => '/Edit/Stages/edit_tearoff',
-                     type        => '<Tearoff>' },
 		   { path        => '/Edit/Stages/one-by-one',
 		     action      => 13,
-		     type        => '<RadioItem>' },
+		     type        => '<RadioItem>', 
+		     callback    => \&stages_one_by_one },
 		   { path        => '/Edit/Stages/continuous',
 		     action      => 14,
-		     type        => '<RadioItem>' },
+		     type        => '<RadioItem>', 
+		     callback    => \&stages_continuous },
 		   { path        => '/Edit/Stages/user defined',
 		     action      => 15,
-		     type        => '<RadioItem>' },
+		     type        => '<RadioItem>',
+		     callback    => \&stages_user_defined },
 		   { path        => '/Edit/File System' },
 		   { path        => '/Edit/Replacements' },
 
@@ -261,6 +262,37 @@ sub strip_debug {
     print $strip_bool;
 }
 
+# Stages
+
+my $stages_bool;
+my $one_by_one;
+my $continuous;
+my $user_defined;
+sub stages_one_by_one {
+
+    $continuous->active(0);
+    $user_defined->active(0);
+    $stages_bool = "one-by-one";
+    print "1\n";
+
+}
+
+sub stages_continuous {
+
+    $one_by_one->active(0);
+    $user_defined->active(0);
+    $stages_bool = "continuous";
+    print "2\n";
+
+}
+
+sub stages_user_defined {
+
+    $one_by_one->active(0);
+    $continuous->active(0);
+    $stages_bool = "user-defined";
+    print "3\n";
+}
 
 # cut little booleans for Gtk::CheckMenuItem
 my $lib_bool = 1;
@@ -307,7 +339,14 @@ sub yard_box {
        #_______________________________________ 
        # Manipulate Gtk::ItemFactory - 
        # The trick here is to use the real path.
+       
 
+       # Stages
+       $one_by_one =  $item_factory->get_item('/Edit/Stages/one-by-one');
+       $continuous = $item_factory->get_item('/Edit/Stages/continuous');
+       $user_defined = $item_factory->get_item('/Edit/Stages/user defined');
+       $continuous->active(0);
+       $user_defined->active(0);
 
        # Stripping
 
@@ -330,7 +369,6 @@ sub yard_box {
 				     }
                                    ); 
 
-
            # objcopy parameters for Libraries
            my($lib_strip_all,$lib_strip_debug);
            $lib_strip_all = $item_factory->get_item