Fix issues with active document and menu dismissal when testing

Applications/Gorm/English.lproj/Gorm.gorm/data.classes

@@ -14,10 +14,6 @@
 	    "loadImage:",
 	    "loadPallete:",
 	    "loadSound:",
-	    "newAction11:",
-	    "newAction12:",
-	    "newAction13:",
-	    "newAction14:",
 	    "ungroup:",
 	    "orderFrontFontPanel:",
 	    "palettes:",

Applications/Gorm/GormAppDelegate.m

@@ -453,7 +453,8 @@
 	  NSString              *subClassName;
 	  id                    obj;
 	  id                    savedDelegate = [NSApp delegate];
-
+	  NSMenu                *modelMenu = [activeDoc objectForName: @"NSMenu"];
+	  
 	  // which windows were open when testing started...
 	  testingWindows = [[NSMutableArray alloc] init];
 	  en = [[NSApp windows] objectEnumerator];
@@ -581,6 +582,8 @@
 		    }
 		}
 
+	      [modelMenu close];
+	      
 	      // so we don't get the warning...
 	      [NSApp setServicesMenu: nil];
 	      [[NSApp mainMenu] display];

GormCore/GormDocument.m

@@ -504,6 +504,7 @@ static NSImage  *fileImage = nil;
 			object: aConnector];
 
       [connections addObject: aConnector];
+      [self touch]; // make sure the doc is marked as modified...
 
       [nc postNotificationName: IBDidAddConnectorNotification
 			object: aConnector];

InterfaceBuilder/IBInspector.m

@@ -112,7 +112,18 @@ static NSNotificationCenter *nc = nil;
 
 - (void) touch: (id)sender
 {
-  id<IBDocuments> doc = [(id<IB>)NSApp activeDocument];
+  id delegate = [NSApp delegate];
+  id<IBDocuments> doc = nil;
+  
+  if ([NSApp respondsToSelector: @selector(activeDocument)])
+    {
+      doc = [(id<IB>)NSApp activeDocument];
+    }
+  else if ([delegate respondsToSelector: @selector(activeDocument)])
+    {
+      doc = [delegate activeDocument];
+    }
+
   [doc touch];
 }