--- a/StandardSystemView.st Sat Apr 27 19:56:29 1996 +0200
+++ b/StandardSystemView.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/StandardSystemView.st,v 1.47 1996-04-25 17:17:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.48 1996-04-27 18:14:07 cg Exp $'
! !