--- a/PopUpList.st Thu Feb 27 12:48:53 1997 +0100
+++ b/PopUpList.st Thu Feb 27 14:06:01 1997 +0100
@@ -743,11 +743,13 @@
self list:listHolder value
] ifFalse:[
(listMsg notNil and:[model notNil]) ifTrue:[
- self list:(model perform:listMsg).
+ (model respondsTo:listMsg) ifTrue:[
+ self list:(model perform:listMsg).
+ ]
].
]
- "Modified: 26.2.1997 / 19:07:36 / cg"
+ "Modified: 27.2.1997 / 14:05:52 / cg"
!
getSelectionFromModel
@@ -849,5 +851,5 @@
!PopUpList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.36 1997-02-27 11:48:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.37 1997-02-27 13:06:01 cg Exp $'
! !