--- a/ComboBoxView.st	Thu Jul 04 09:49:03 2002 +0200
+++ b/ComboBoxView.st	Thu Jul 04 12:37:07 2002 +0200
@@ -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
@@ -14,10 +14,10 @@
 "{ Package: 'stx:libwidg2' }"
 
 ComboView subclass:#ComboBoxView
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Views-Interactors'
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Views-Interactors'
 !
 
 !ComboBoxView class methodsFor:'documentation'!
@@ -25,7 +25,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
@@ -61,7 +61,7 @@
 examples
 "
   non MVC operation:
-									[exBegin]
+                                                                        [exBegin]
      |top b|
 
      top := StandardSystemView new.
@@ -73,12 +73,12 @@
 
      b list:#('hello' 'world' 'this' 'is' 'st/x').
      top open.
-									[exEnd]
+                                                                        [exEnd]
 
 
 
   with action:
-									[exBegin]
+                                                                        [exBegin]
      |top b|
 
      top := StandardSystemView new.
@@ -91,12 +91,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.
@@ -113,11 +113,11 @@
 
      top openModal.
      Transcript showCR:('comboBox''s value: ' , model value).
-									[exEnd]
+                                                                        [exEnd]
 
 
   in a dialog:
-									[exBegin]
+                                                                        [exBegin]
      |model1 model2 dialog b|
 
      model1 := 'foo' asValue.
@@ -141,7 +141,7 @@
 
      Transcript showCR:('1st comboBox''s value: ' , model1 value).
      Transcript showCR:('2nd comboBox''s value: ' , model2 value).
-									[exEnd]
+                                                                        [exEnd]
 "
 ! !
 
@@ -235,7 +235,7 @@
     "XXX no longer needed (inherited default works here)"
 
     self class == ComboBoxView ifTrue:[
-	^ ComboBoxSpec
+        ^ ComboBoxSpec
     ].
     ^ super specClass
 
@@ -245,10 +245,12 @@
 !ComboBoxView methodsFor:'user interaction'!
 
 fieldLeft
-    field accept.
+    field acceptOnLeave ifTrue:[
+        field accept.
+        action notNil ifTrue:[
+            action value:(field contents)
+        ].
 
-    action notNil ifTrue:[
-	action value:(field contents)
     ].
 
     "Modified: 26.2.1997 / 19:38:24 / cg"
@@ -264,7 +266,7 @@
     pullDownButton turnOff.
 
     action notNil ifTrue:[
-	action value:what
+        action value:what
     ].
 
     "Modified: 26.2.1997 / 19:38:24 / cg"
@@ -274,5 +276,5 @@
 !ComboBoxView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.25 2002-07-03 12:23:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxView.st,v 1.26 2002-07-04 10:37:07 cg Exp $'
 ! !