StdSysV.st
changeset 621 decaeae1910d
parent 616 56cf67c82664
child 625 4d8f6dc3af75
--- a/StdSysV.st	Sat Apr 27 19:56:29 1996 +0200
+++ b/StdSysV.st	Sat Apr 27 20:14:40 1996 +0200
@@ -120,17 +120,17 @@
 examples
 "
     simple, empty topView:
-
+                                                                        [exBegin]
         |topView|
 
         topView := StandardSystemView new.
         topView label:'my first view'.
         topView extent:200 @ 200.
         topView open.
-
+                                                                        [exEnd]
 
     with an icon & iconLabel:
-
+                                                                        [exBegin]
         |topView|
 
         topView := StandardSystemView extent:200 @ 200.
@@ -138,11 +138,11 @@
 
         topView icon:(Image fromFile:'hello_world.icon').
         topView open.
-
+                                                                        [exEnd]
 
 
     with an animated iconView [not supported on all display devices]:
-
+                                                                        [exBegin]
         |iconView topView|
 
         iconView := ClockView new.
@@ -152,11 +152,11 @@
 
         topView iconView:iconView.
         topView open.
-
+                                                                        [exEnd]
 
 
     placing a subView into it:
-
+                                                                        [exBegin]
         |topView button|
 
         topView := StandardSystemView new.
@@ -167,10 +167,10 @@
         button action:[topView destroy].
 
         topView open.
-
+                                                                        [exEnd]
 
     same, relative sized subview:
-
+                                                                        [exBegin]
         |topView button|
 
         topView := StandardSystemView new.
@@ -182,10 +182,10 @@
         button origin:0.25 @ 0.25 corner:0.75 @ 0.75.
 
         topView open.
-
+                                                                        [exEnd]
 
     multiple buttons in a panel in a topView:
-
+                                                                        [exBegin]
         |topView panel button1 button2 button3|
 
         topView := StandardSystemView new.
@@ -206,6 +206,7 @@
         button3 action:[Transcript showCr:'three pressed'].
 
         topView open.
+                                                                        [exEnd]
 "
 ! !
 
@@ -1164,5 +1165,5 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.47 1996-04-25 17:17:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/StdSysV.st,v 1.48 1996-04-27 18:14:07 cg Exp $'
 ! !