--- a/SimpleView.st Sat Apr 27 19:56:29 1996 +0200
+++ b/SimpleView.st Sat Apr 27 20:14:40 1996 +0200
@@ -196,8 +196,9 @@
[see also:]
- StandardSystemView
+ StandardSystemView DialogBox
WindowGroup WindowEvent
+ Layout
( introduction to view programming :html: programming/viewintro.html )
[author:]
@@ -211,7 +212,7 @@
to make the individual subviews visible)
a subView in a topView:
-
+ [exBegin]
|top v|
topView := StandardSystemView new.
@@ -219,21 +220,21 @@
v origin:0.25 @ 0.25 corner:0.75 @ 0.75.
top addSubView:v.
top open
-
+ [exEnd]
the same, a bit more compact:
-
+ [exBegin]
|top v|
topView := StandardSystemView new.
v := View origin:0.25 @ 0.25 corner:0.75 @ 0.75 in:topView.
top open
-
+ [exEnd]
fixed position/size:
-
+ [exBegin]
|top v1 v2|
top := StandardSystemView new.
@@ -250,11 +251,11 @@
v2 viewBackground:(Color yellow).
top open
-
+ [exEnd]
same, using ST-80 way of bulding up view hierarchies
(recommended, if you plan to port applications later)
-
+ [exBegin]
|top v1 v2|
top := StandardSystemView new.
@@ -276,10 +277,10 @@
v2 viewBackground:(Color yellow).
top open
-
+ [exEnd]
fixed origin, variable size:
-
+ [exBegin]
|top v1 v2|
top := StandardSystemView new.
@@ -298,11 +299,11 @@
top add:v2.
top open
-
+ [exEnd]
fixed origin, variable size,
bottomInset for constant distance from bottom:
-
+ [exBegin]
|top v1 v2|
top := StandardSystemView new.
@@ -323,10 +324,10 @@
top add:v2.
top open
-
+ [exEnd]
variable origin, variable size,
-
+ [exBegin]
|top v1 v2|
top := StandardSystemView new.
@@ -345,11 +346,11 @@
top add:v2.
top open
-
+ [exEnd]
variable origin, variable size,
insets for some constant distance
-
+ [exBegin]
|top v1 v2|
top := StandardSystemView new.
@@ -370,11 +371,11 @@
top add:v2.
top open
-
+ [exEnd]
using layout objects (ST-80 style):
fully specifying the frame
-
+ [exBegin]
|top v1 v2|
top := StandardSystemView new.
@@ -398,10 +399,10 @@
bottomFraction:0.75).
top open
-
+ [exEnd]
another one, with offsets:
-
+ [exBegin]
|top v1 v2|
top := StandardSystemView new.
@@ -425,11 +426,11 @@
bottomFraction:0.75).
top open
-
+ [exEnd]
specifying origin only. Extent is views preferred
(notice, that plain views have some defaultExtent of 100@100)
-
+ [exBegin]
|top v1 v2|
top := StandardSystemView new.
@@ -449,9 +450,10 @@
topFraction:0.5).
top open
+ [exEnd]
same example, using buttons which compute their preferredBounds:
-
+ [exBegin]
|top v1 v2|
top := StandardSystemView new.
@@ -471,7 +473,7 @@
topFraction:0.5).
top open
-
+ [exEnd]
"
!
@@ -6219,6 +6221,6 @@
!SimpleView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.80 1996-04-25 17:17:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.81 1996-04-27 18:14:40 cg Exp $'
! !
SimpleView initialize!