PopUpList.st
changeset 1587 8cacd0f9ed92
parent 1586 e4e6e12cbd1f
child 1758 30ad727ade43
--- a/PopUpList.st	Fri Jun 19 01:05:00 1998 +0200
+++ b/PopUpList.st	Fri Jun 19 01:58:08 1998 +0200
@@ -859,9 +859,9 @@
 
     listHolder notNil ifTrue:[
         self list:listHolder value.
-        model notNil ifTrue:[
-            self halt.
-        ]
+"/        model notNil ifTrue:[
+"/            self halt.
+"/        ]
     ] ifFalse:[
         (listMsg notNil and:[model notNil]) ifTrue:[
             (model respondsTo:listMsg) ifTrue:[
@@ -870,7 +870,7 @@
         ].
     ]
 
-    "Modified: / 18.6.1998 / 23:47:30 / cg"
+    "Modified: / 19.6.1998 / 01:54:17 / cg"
 !
 
 getSelectionFromModel
@@ -998,5 +998,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.56 1998-06-18 23:05:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.57 1998-06-18 23:58:08 cg Exp $'
 ! !