From 71a5c28896d850c6efaf64f388d97e12e17d54ab Mon Sep 17 00:00:00 2001
From: jagapen <jagapen@72102866-910b-0410-8b05-ffd578937521>
Date: Wed, 12 Apr 2000 17:19:55 +0000
Subject: [PATCH] Added NSSliderCell methods

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gui/trunk@6453 72102866-910b-0410-8b05-ffd578937521
---
 Model/GMAppKit.m | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/Model/GMAppKit.m b/Model/GMAppKit.m
index 99b4aaa18..d8b202468 100644
--- a/Model/GMAppKit.m
+++ b/Model/GMAppKit.m
@@ -1489,6 +1489,38 @@ void __dummy_GMAppKit_functionForLinking() {}
 
 @end
 
+@implementation NSSliderCell (GMArchiverMethods)
+
+- (void)encodeWithModelArchiver:(GMArchiver*)archiver
+{
+  [super encodeWithModelArchiver:archiver];
+
+  [archiver encodeFloat:[self knobThickness] withName:@"knobThickness"];
+  [archiver encodeObject:[self image] withName:@"image"];
+  [archiver encodeDouble:[self maxValue] withName:@"maxValue"];
+  [archiver encodeDouble:[self minValue] withName:@"minValue"];
+
+  // title, color, and font info is encoded by the title cell
+  [archiver encodeObject:[self titleCell] withName:@"titleCell"];
+}
+
+- (id)initWithModelUnarchiver:(GMUnarchiver*)unarchiver
+{
+  [super initWithModelUnarchiver:unarchiver];
+
+  [self setKnobThickness:[unarchiver decodeFloatWithName:@"knobThickness"]];
+  [self setImage:[unarchiver decodeObjectWithName:@"image"]];
+  [self setMaxValue:[unarchiver decodeDoubleWithName:@"maxValue"]];
+  [self setMinValue:[unarchiver decodeDoubleWithName:@"minValue"]];
+
+  // title, color, and font info is encoded by the title cell
+  [self setTitleCell:[unarchiver decodeObjectWithName:@"titleCell"]];
+
+  return self;
+}
+
+@end /* NSSliderCell (GMArchiverMethods) */
+
 @implementation NSTextFieldCell (GMArchiverMethods)
 
 - (void)encodeWithModelArchiver:(GMArchiver*)archiver