equal
deleted
inserted
replaced
198 "Modified: 28.2.1997 / 21:23:02 / cg" |
198 "Modified: 28.2.1997 / 21:23:02 / cg" |
199 ! ! |
199 ! ! |
200 |
200 |
201 !Separator methodsFor:'queries'! |
201 !Separator methodsFor:'queries'! |
202 |
202 |
|
203 preferredExtent |
|
204 |e| |
|
205 |
|
206 preferredExtent notNil ifTrue:[^ preferredExtent]. |
|
207 |
|
208 e := super preferredExtent. |
|
209 orientation == #horizontal ifTrue:[ |
|
210 ^ e x @ 5 |
|
211 ]. |
|
212 ^ 5 @ e y |
|
213 |
|
214 "Created: 17.3.1997 / 10:37:42 / cg" |
|
215 ! |
|
216 |
203 specClass |
217 specClass |
204 self class == Separator ifTrue:[^ DividerSpec]. |
218 self class == Separator ifTrue:[^ DividerSpec]. |
205 ^ super specClass |
219 ^ super specClass |
206 |
220 |
207 |
221 |
208 ! ! |
222 ! ! |
209 |
223 |
210 !Separator class methodsFor:'documentation'! |
224 !Separator class methodsFor:'documentation'! |
211 |
225 |
212 version |
226 version |
213 ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.14 1997-02-28 20:25:03 cg Exp $' |
227 ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.15 1997-03-17 11:11:27 cg Exp $' |
214 ! ! |
228 ! ! |