--- a/ComboBoxView.st	Fri Jan 23 14:58:30 1998 +0100
+++ b/ComboBoxView.st	Sun Jan 25 15:14:42 1998 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -23,7 +23,7 @@
 copyright
 "
  COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -46,20 +46,20 @@
     Not yet finished - it may need more protocol.
 
     [author:]
-        Claus Gittinger
+	Claus Gittinger
 
     [see also:]
-        ComboView
-        PopUpList SelectionInListView
-        ComboListView
-        PullDownMenu Label EntryField
+	ComboView
+	PopUpList SelectionInListView
+	ComboListView
+	PullDownMenu Label EntryField
 "
 !
 
 examples
 "
   non MVC operation:
-                                                                        [exBegin]
+									[exBegin]
      |top b|
 
      top := StandardSystemView new.
@@ -71,12 +71,12 @@
 
      b list:#('hello' 'world' 'this' 'is' 'st/x').
      top open.
-                                                                        [exEnd]
+									[exEnd]
 
 
 
   with action:
-                                                                        [exBegin]
+									[exBegin]
      |top b|
 
      top := StandardSystemView new.
@@ -89,12 +89,12 @@
      b list:#('hello' 'world' 'this' 'is' 'st/x').
      b action:[:entry | Transcript showCR:entry].
      top open.
-                                                                        [exEnd]
+									[exEnd]
 
 
 
   model operation:
-                                                                        [exBegin]
+									[exBegin]
      |model top b|
 
      model := 'foo' asValue.
@@ -111,11 +111,11 @@
 
      top openModal.
      Transcript showCR:('comboBox''s value: ' , model value).
-                                                                        [exEnd]
+									[exEnd]
 
 
   in a dialog:
-                                                                        [exBegin]
+									[exBegin]
      |model1 model2 dialog b|
 
      model1 := 'foo' asValue.
@@ -139,7 +139,7 @@
 
      Transcript showCR:('1st comboBox''s value: ' , model1 value).
      Transcript showCR:('2nd comboBox''s value: ' , model2 value).
-                                                                        [exEnd]
+									[exEnd]
 "
 ! !
 
@@ -170,6 +170,7 @@
 !
 
 model:aModel
+    super model:aModel.
     field model:aModel.
 
     "Created: 9.2.1996 / 00:50:12 / cg"
@@ -209,7 +210,7 @@
     "XXX no longer needed (inherited default works here)"
 
     self class == ComboBoxView ifTrue:[
-        ^ ComboBoxSpec
+	^ ComboBoxSpec
     ].
     ^ super specClass
 
@@ -222,7 +223,7 @@
     field accept.
 
     action notNil ifTrue:[
-        action value:(field contents)
+	action value:(field contents)
     ].
 
     "Modified: 26.2.1997 / 19:38:24 / cg"
@@ -238,7 +239,7 @@
     pullDownButton turnOff.
 
     action notNil ifTrue:[
-        action value:what
+	action value:what
     ].
 
     "Modified: 26.2.1997 / 19:38:24 / cg"
@@ -248,5 +249,5 @@
 !ComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.18 1997-11-02 17:25:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.19 1998-01-25 14:14:40 cg Exp $'
 ! !