--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ComboBoxButton.st	Tue Sep 02 19:47:21 1997 +0200
@@ -0,0 +1,30 @@
+'From Smalltalk/X, Version:3.1.9 on 30-aug-1997 at 2:49:56 pm'                  !
+
+Toggle subclass:#ComboBoxButton
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Views-Interactors'
+!
+
+!ComboBoxButton class methodsFor:'documentation'!
+
+documentation
+"
+    for ST-80 compatibility, a place to add mimicri protocol.
+"
+! !
+
+!ComboBoxButton methodsFor:'accessing'!
+
+lastSelection:selectionIndex
+    "ignored for now"
+
+    "Modified: 30.8.1997 / 02:45:43 / cg"
+! !
+
+!ComboBoxButton class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxButton.st,v 1.1 1997-09-02 17:47:20 cg Exp $'
+! !

--- a/ComboView.st	Tue Sep 02 14:27:42 1997 +0200
+++ b/ComboView.st	Tue Sep 02 19:47:21 1997 +0200
@@ -12,6 +12,8 @@
 
 
 
+'From Smalltalk/X, Version:3.1.9 on 30-aug-1997 at 2:41:12 pm'                  !
+
 View subclass:#ComboView
 	instanceVariableNames:'field pullDownButton list listHolder listMsg action'
 	classVariableNames:''
@@ -366,7 +368,7 @@
 !
 
 initializeButton
-    pullDownButton := Toggle in:self.
+    pullDownButton := ComboBoxButton in:self.
     pullDownButton controller beTriggerOnDown.
     pullDownButton label:(self class buttonForm).
     pullDownButton showLamp:false.
@@ -376,7 +378,7 @@
     pullDownButton disable.
     pullDownButton pressAction:[self pullMenu].
 
-    "Modified: 29.3.1997 / 11:18:15 / cg"
+    "Modified: 30.8.1997 / 02:39:45 / cg"
 !
 
 initializeField
@@ -514,5 +516,5 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.31 1997-06-30 20:12:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.32 1997-09-02 17:47:20 cg Exp $'
 ! !

--- a/Make.proto	Tue Sep 02 14:27:42 1997 +0200
+++ b/Make.proto	Tue Sep 02 19:47:21 1997 +0200
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libwidg2/Make.proto,v 1.64 1997-07-06 11:28:21 cg Exp $
+# $Header: /cvs/stx/stx/libwidg2/Make.proto,v 1.65 1997-09-02 17:47:21 cg Exp $
 #
 # -------------- no need to change anything below ----------
 
@@ -86,6 +86,7 @@
 		ComboView.$(O) 		\
 		  ComboBoxV.$(O) 	\
 		  ComboListV.$(O) 	\
+		ComboBoxButton.$(O) 	\
 		MenuPanel.$(O)		\
 		SelTreeV.$(O)		\
 		SelInTree.$(O)		\
@@ -124,6 +125,7 @@
 CheckBox.$(O): CheckBox.st $(STCHDR) ../include/Object.H
 ClrListEntry.$(O): ClrListEntry.st $(STCHDR) ../include/Object.H
 ComboView.$(O): ComboView.st $(STCHDR) ../include/Object.H
+ComboBoxButton.$(O): ComboBoxButton.st $(STCHDR) ../include/Object.H
 ComboBoxV.$(O): ComboBoxV.st $(STCHDR) ../include/Object.H ../include/ComboView.H
 ComboListV.$(O): ComboListV.st $(STCHDR) ../include/Object.H ../include/ComboView.H
 FNmEdtFld.$(O): FNmEdtFld.st $(STCHDR) ../include/Object.H