Add decoding of class IBInitialTabViewItemAttribute.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gui/trunk@34124 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,8 @@
+2011-11-05 Fred Kiefer <FredKiefer@gmx.de>
+
+	* Headers/Additions/GNUstepGUI/GSXibLoading.h,
+	* Source/GSXibLoader.m: Add decoding of class IBInitialTabViewItemAttribute.
+
 2011-11-04  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Source/GSInfoPanel.m: Tolerate 'Authors' being a string containing

Headers/Additions/GNUstepGUI/GSXibLoading.h

@@ -111,6 +111,14 @@
 }
 @end
 
+@interface IBInitialTabViewItemAttribute: NSObject
+{
+  NSString *name;
+  id object;
+  id initialTabViewItem;
+}
+@end
+
 @interface IBObjectRecord: NSObject
 {
   int objectID;

Source/GSXibLoader.m

@@ -458,6 +458,44 @@
 
 @end
 
+@implementation IBInitialTabViewItemAttribute
+
+- (id) initWithCoder: (NSCoder*)coder
+{
+  if ([coder allowsKeyedCoding])
+    {
+      if ([coder containsValueForKey: @"name"])
+        {
+          name = [coder decodeObjectForKey: @"name"];
+        }
+      if ([coder containsValueForKey: @"object"])
+        {
+          ASSIGN(object, [coder decodeObjectForKey: @"object"]);
+        }
+      if ([coder containsValueForKey: @"initialTabViewItem"])
+        {
+          ASSIGN(initialTabViewItem, [coder decodeObjectForKey: @"initialTabViewItem"]);
+        }
+    }
+  else
+    {
+      [NSException raise: NSInvalidArgumentException 
+                   format: @"Can't decode %@ with %@.",NSStringFromClass([self class]),
+                   NSStringFromClass([coder class])];
+    }
+  return self;
+}
+
+- (void) dealloc
+{
+  DESTROY(name);
+  DESTROY(object);
+  DESTROY(initialTabViewItem);
+  [super dealloc];
+}
+
+@end
+
 @implementation IBObjectRecord
 
 - (id) initWithCoder: (NSCoder*)coder