equal
deleted
inserted
replaced
113 leftFraction:0.5; |
113 leftFraction:0.5; |
114 topFraction:0.5; |
114 topFraction:0.5; |
115 leftAlignmentFraction:1.0; |
115 leftAlignmentFraction:1.0; |
116 topAlignmentFraction:1.0). |
116 topAlignmentFraction:1.0). |
117 |
117 |
|
118 top open |
|
119 [exEnd] |
|
120 |
|
121 |
|
122 four buttons around relative 0.75@0.75: |
|
123 [exBegin] |
|
124 |top button| |
|
125 |
|
126 top := StandardSystemView new. |
|
127 top extent:300@300. |
|
128 |
|
129 button := Button label:'button1'. |
|
130 top add:button in:(AlignmentOrigin new |
|
131 leftFraction:0.75; |
|
132 topFraction:0.75; |
|
133 leftAlignmentFraction:1.0; |
|
134 topAlignmentFraction:1.0). |
|
135 |
|
136 button := Button label:'button2'. |
|
137 top add:button in:(AlignmentOrigin new |
|
138 leftFraction:0.75; |
|
139 topFraction:0.75; |
|
140 leftAlignmentFraction:0.0; |
|
141 topAlignmentFraction:1.0). |
|
142 |
|
143 button := Button label:'button3'. |
|
144 top add:button in:(AlignmentOrigin new |
|
145 leftFraction:0.75; |
|
146 topFraction:0.75; |
|
147 leftAlignmentFraction:0.0; |
|
148 topAlignmentFraction:0.0). |
|
149 |
|
150 button := Button label:'button4'. |
|
151 top add:button in:(AlignmentOrigin new |
|
152 leftFraction:0.75; |
|
153 topFraction:0.75; |
|
154 leftAlignmentFraction:1.0; |
|
155 topAlignmentFraction:0.0). |
118 top open |
156 top open |
119 [exEnd] |
157 [exEnd] |
120 " |
158 " |
121 ! ! |
159 ! ! |
122 |
160 |
251 ! ! |
289 ! ! |
252 |
290 |
253 !AlignmentOrigin class methodsFor:'documentation'! |
291 !AlignmentOrigin class methodsFor:'documentation'! |
254 |
292 |
255 version |
293 version |
256 ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.13 1996-05-08 19:07:16 cg Exp $' |
294 ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.14 1996-05-08 19:53:59 cg Exp $' |
257 ! ! |
295 ! ! |