New way to set the default item selected in a popupbutton.

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

ChangeLog

@@ -1,3 +1,12 @@
+2004-04-06 00:16 Gregory John Casamento <greg_casamento@yahoo.com>
+
+	* Palettes/2Controls/inspectors.m: added defaultItemForm attribute.
+	Added code in [GormPopUpButtonAttributesInspector 
+	_setValuesFromControl:] to select the appropriate item, when the
+	value is changed in the inspector.
+	* Palettes/2Controls/GormNSPopUpButtonInspector.gorm:
+	corresponding changes to above code modifications.
+	
 2004-04-05 00:06 Gregory John Casamento <greg_casamento@yahoo.com>
 
 	* GormDocument.m: [GormDocument rebuildObjToNameMapping] some 

Palettes/2Controls/GormNSPopUpButtonInspector.gorm/data.classes

@@ -147,7 +147,8 @@
 	Outlets = (
 	    disabledSwitch,
 	    tagForm,
-	    typeMatrix
+	    typeMatrix,
+	    defaultItemForm
 	);
 	Super = IBInspector;
     };

Palettes/2Controls/inspectors.m

@@ -862,6 +862,7 @@
   id typeMatrix;
   id disabledSwitch;
   id tagForm;
+  id defaultItemForm;
 }
 @end
 
@@ -885,6 +886,15 @@
     {
       [object setTag: [[control cellAtIndex: 0] intValue]];
     }
+  else if (control == defaultItemForm)
+    {
+      int index = [[control cellAtIndex: 0] intValue];
+      int num = [object numberOfItems];
+
+      // if the user enters more than the number, select the last item.
+      index = (index < num && index >= 0) ? index : num;
+      [object selectItemAtIndex: index];
+    }
 }
 
 - (void) _getValuesFromObject: (id)anObject
@@ -896,6 +906,7 @@
   [typeMatrix selectCellWithTag: [anObject pullsDown]];
   [disabledSwitch setState: ![anObject autoenablesItems]];
   [[tagForm cellAtRow: 0 column: 0] setIntValue: [anObject tag]];
+  [[defaultItemForm cellAtRow: 0 column: 0] setIntValue: [anObject indexOfSelectedItem]];
 }
 
 - (id) init