--- a/View.st	Thu Jun 04 18:46:38 1998 +0200
+++ b/View.st	Fri Jun 05 14:04:22 1998 +0200
@@ -82,7 +82,7 @@
                                                                         [exBegin]
         |top v|
 
-        topView := StandardSystemView new.
+        top := StandardSystemView new.
         v := View new.
         v origin:0.25 @ 0.25 corner:0.75 @ 0.75.
         top addSubView:v.
@@ -94,8 +94,35 @@
                                                                         [exBegin]
         |top v|
 
-        topView := StandardSystemView new.
-        v := View origin:0.25 @ 0.25 corner:0.75 @ 0.75 in:topView.
+        top := StandardSystemView new.
+        v := View origin:0.25 @ 0.25 corner:0.75 @ 0.75 in:top.
+        top open
+                                                                        [exEnd]
+
+    menuHolder
+                                                                        [exBegin]
+        |top mh|
+
+        mh := (PopUpMenu itemList:#( ('foo' foo) (#'bar' bar)) resources:nil) asValue.
+
+        top := StandardSystemView extent:200@200.
+        top menuHolder:mh.
+        top open
+                                                                        [exEnd]
+
+
+    menuHolder
+                                                                        [exBegin]
+        |top mh|
+
+        mh := (PopUpMenu itemList:#( ('foo' foo) (#'bar' bar)) resources:nil) asValue.
+        [
+            Delay waitForSeconds:5.
+            mh value: (PopUpMenu itemList:#( ('waboo' foo) (#'baz' bar)) resources:nil)
+        ] fork.
+
+        top := StandardSystemView extent:200@200.
+        top menuHolder:mh.
         top open
                                                                         [exEnd]
 
@@ -229,7 +256,8 @@
 menuHolder:anObject
     "change the one that provides the menu (via menuMsg)."
 
-    menuHolder := anObject
+    menuHolder := anObject.
+    menuMsg isNil ifTrue:[menuMsg := #value].
 
     "Created: 23.12.1996 / 13:54:33 / cg"
 !
@@ -585,5 +613,5 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.59 1997-11-02 18:35:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.60 1998-06-05 12:04:22 tz Exp $'
 ! !