--- a/PopUpList.st	Fri Mar 31 13:18:08 2000 +0200
+++ b/PopUpList.st	Sat Apr 01 15:03:52 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libwidg' }"
+
 Button subclass:#PopUpList
 	instanceVariableNames:'menu menuAction values useIndex listMsg defaultLabel listHolder
 		showHandle'
@@ -800,6 +802,9 @@
             (theMenu isKindOf:PopUpMenu) ifFalse:[
                 "/ sigh - brand new ...
                 self sendChangeMessage:changeMsg with:val.
+                menuAction notNil ifTrue:[
+                    menuAction value:val
+                ].
             ].
         ]
     ].
@@ -1044,5 +1049,5 @@
 !PopUpList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.63 1999-08-18 14:39:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.64 2000-04-01 13:03:52 cg Exp $'
 ! !