* GormCore/GormServer.h: Added deleteClass: method

* Gorm.m: Added implementation for deleteClass:


git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/apps/gorm/trunk@29509 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,8 @@
+2010-02-08 06:46-EST Gregory John Casamento <greg.casamento@gmail.com>
+
+	* GormCore/GormServer.h: Added deleteClass: method
+	* Gorm.m: Added implementation for deleteClass:
+
 2010-02-07 05:43-EST Gregory John Casamento <greg.casamento@gmail.com>
 
 	* GormCore/GNUmakefile: Added GormServer.h to the headers.

Gorm.m

@@ -175,21 +175,6 @@
   [super dealloc];
 }
 
-- (void) addClass: (NSDictionary *) dict
-{
-  GormDocument *doc = (GormDocument *)[self activeDocument];
-  GormClassManager *cm = [doc classManager];
-  NSArray *outlets = [dict objectForKey: @"outlets"];
-  NSArray *actions = [dict objectForKey: @"actions"];
-  NSString *className = [dict objectForKey: @"className"];
-  NSString *superClassName = [dict objectForKey: @"superClassName"];
-  
-  [cm addClassNamed: className
-      withSuperClassNamed: superClassName
-      withActions: actions
-      withOutlets: outlets];
-}
-
 - (void) stop: (id)sender
 {
   if(isTesting == NO)
@@ -1314,4 +1299,36 @@
 {
   [[self keyWindow] print: sender];
 }
+
+// Method to support external apps adding and deleting 
+// classes from the current document...
+- (void) addClass: (NSDictionary *) dict
+{
+  GormDocument *doc = (GormDocument *)[self activeDocument];
+  GormClassManager *cm = [doc classManager];
+  NSArray *outlets = [dict objectForKey: @"outlets"];
+  NSArray *actions = [dict objectForKey: @"actions"];
+  NSString *className = [dict objectForKey: @"className"];
+  NSString *superClassName = [dict objectForKey: @"superClassName"];
+  
+  // If the class is known, delete it before proceeding.
+  if([cm isKnownClass: className])
+    {
+      [cm removeClassNamed: className];
+    }
+
+  // Add the class to the class manager.
+  [cm addClassNamed: className
+      withSuperClassNamed: superClassName
+      withActions: actions
+      withOutlets: outlets];
+}
+
+- (void) deleteClass: (NSString *) className
+{
+  GormDocument *doc = (GormDocument *)[self activeDocument];
+  GormClassManager *cm = [doc classManager];
+
+  [cm removeClassNamed: className];  
+}
 @end

GormCore/GormServer.h

@@ -24,6 +24,7 @@
 
 @protocol GormServer
 - (void) addClass: (NSDictionary *)dict;
+- (void) deleteClass: (NSString *)className;
 @end
 
 #endif