--- 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 $'
! !