Implemented missing object value methods

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

Source/NSControl.m

@@ -163,6 +163,11 @@ static Class cellClass;
   return [[self selectedCell] intValue];
 }
 
+- (id) objectValue
+{
+  return [[self selectedCell] objectValue];
+}
+
 - (void) setDoubleValue: (double)aDouble
 {
   [self abortEditing];
@@ -187,6 +192,14 @@ static Class cellClass;
   [self setNeedsDisplay: YES];
 }
 
+- (void) setObjectValue: (id)anObject
+{
+  [self abortEditing];
+
+  [[self selectedCell] setObjectValue: anObject];
+  [self setNeedsDisplay: YES];
+}
+
 - (void) setNeedsDisplay
 {
   [super setNeedsDisplay: YES];
@@ -226,6 +239,12 @@ static Class cellClass;
   [self setNeedsDisplay: YES];
 }
 
+- (void) takeObjectValueFrom: (id)sender
+{
+  [[self selectedCell] takeObjectValueFrom: sender];
+  [self setNeedsDisplay: YES];
+}
+
 - (void) takeStringValueFrom: (id)sender
 {
   [[self selectedCell] takeStringValueFrom: sender];
@@ -262,6 +281,7 @@ static Class cellClass;
 
 - (void) setFont: (NSFont *)fontObject
 {
+  // TODO: Complete
   if (_cell)
     [_cell setFont: fontObject];
 }
@@ -270,6 +290,9 @@ static Class cellClass;
 			   left: (unsigned)leftDigits
 			  right: (unsigned)rightDigits
 {
+  // TODO: Complete
+  [_cell setFloatingPointFormat: autoRange  left: leftDigits
+	 right: rightDigits];
 }
 
 /*