VariableHorizontalPanel.st
changeset 593 86dd024ed773
parent 585 8f395aba0173
child 875 2c5dde603098
--- a/VariableHorizontalPanel.st	Sat Apr 27 20:13:37 1996 +0200
+++ b/VariableHorizontalPanel.st	Sat Apr 27 20:21:37 1996 +0200
@@ -69,7 +69,7 @@
 examples
 "
    dummy example: 2 views side-by-side
-
+                                                                        [exBegin]
         |top p v1 v2|
 
         top := StandardSystemView new.
@@ -93,12 +93,12 @@
         v2 viewBackground:Color green.
 
         top open
-
+                                                                        [exEnd]
 
 
    concrete example: a selectionInListView and a TextView side-by-side
    (not useful - need scrollBars; see next example)
-
+                                                                        [exBegin]
         |top p v1 v2|
 
         top := StandardSystemView new.
@@ -125,11 +125,11 @@
                  in:p.
 
         top open
-
+                                                                        [exEnd]
 
 
     better - with scrollBars (but thats another story ... see ScrollableView examples for more):
-
+                                                                        [exBegin]
         |top p v1 v2|
 
         top := StandardSystemView new.
@@ -156,11 +156,11 @@
                  in:p.
 
         top open
-
+                                                                        [exEnd]
 
 
    another stupid example: 3-views side-by-side
-
+                                                                        [exBegin]
         |top p v1 v2 v3|
 
         top := StandardSystemView new.
@@ -191,6 +191,7 @@
                  in:p.
         v3 contents:'scrollable\TextView\\(read only)\\\\\\\\\\\\\\\\\concratulations !!\you managed\to scroll down' withCRs.
         top open
+                                                                        [exEnd]
 "
 ! !
 
@@ -206,5 +207,5 @@
 !VariableHorizontalPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariableHorizontalPanel.st,v 1.20 1996-04-25 17:26:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariableHorizontalPanel.st,v 1.21 1996-04-27 18:20:02 cg Exp $'
 ! !