*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 24 Feb 2006 13:58:39 +0100
changeset 4502 b062d9b588e8
parent 4501 0455a5453085
child 4503 e62024285d0b
*** empty log message ***
SimpleView.st
--- a/SimpleView.st	Fri Feb 24 13:56:48 2006 +0100
+++ b/SimpleView.st	Fri Feb 24 13:58:39 2006 +0100
@@ -501,7 +501,7 @@
 
     an MDI child:
                                                                         [exBegin]
-        |top v|
+        |top v1 v2|
 
         top := StandardSystemView new.
         top extent:450 @ 300.
@@ -509,12 +509,17 @@
         top beMDIClientView.
         top open.
 
-        v := View new.
-        v viewBackground:Color red.
-        v origin:50 @ 50 corner:150 @ 100.
-        v beMDIChildView.
-
-        top addSubView:v.
+        v1 := View new.
+        v1 viewBackground:Color red.
+        v1 origin:50 @ 50 corner:150 @ 100.
+        v1 beMDIChildView.
+        top addSubView:v1.
+
+        v2 := View new.
+        v2 viewBackground:Color green.
+        v2 origin:50 @ 50 corner:150 @ 100.
+        v2 beMDIChildView.
+        top addSubView:v2.
                                                                         [exEnd]
 "
 !
@@ -9738,7 +9743,7 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.544 2006-02-24 12:56:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.545 2006-02-24 12:58:39 cg Exp $'
 ! !
 
 SimpleView initialize!