equal
deleted
inserted
replaced
266 (v := self view) notNil ifTrue:[v invalidate] |
266 (v := self view) notNil ifTrue:[v invalidate] |
267 ] |
267 ] |
268 |
268 |
269 "Created: 5.6.1996 / 01:19:41 / cg" |
269 "Created: 5.6.1996 / 01:19:41 / cg" |
270 "Modified: 5.6.1996 / 01:53:00 / cg" |
270 "Modified: 5.6.1996 / 01:53:00 / cg" |
271 ! ! |
|
272 |
|
273 !BorderedWrapper methodsFor:'accessing - bounds'! |
|
274 |
|
275 bounds:newBounds |
|
276 |v| |
|
277 |
|
278 bounds := newBounds. |
|
279 component bounds:(newBounds insetBy:self inset). |
|
280 (v := self view) notNil ifTrue:[v invalidate] |
|
281 |
|
282 "Created: 5.6.1996 / 00:52:49 / cg" |
|
283 "Modified: 5.6.1996 / 02:35:30 / cg" |
|
284 ! ! |
271 ! ! |
285 |
272 |
286 !BorderedWrapper methodsFor:'displaying'! |
273 !BorderedWrapper methodsFor:'displaying'! |
287 |
274 |
288 displayOn:aGC |
275 displayOn:aGC |
350 level := 0. |
337 level := 0. |
351 |
338 |
352 "Created: 19.7.1996 / 17:22:33 / cg" |
339 "Created: 19.7.1996 / 17:22:33 / cg" |
353 ! ! |
340 ! ! |
354 |
341 |
|
342 !BorderedWrapper methodsFor:'private'! |
|
343 |
|
344 layoutChanged |
|
345 |subBounds b| |
|
346 |
|
347 component notNil ifTrue:[ |
|
348 b := bounds insetBy:self inset. |
|
349 |
|
350 layout notNil ifTrue:[ |
|
351 subBounds := (layout |
|
352 rectangleRelativeTo:b |
|
353 preferred:b) rounded. |
|
354 ] ifFalse:[ |
|
355 subBounds := b |
|
356 ]. |
|
357 |
|
358 origin := b origin. |
|
359 "/ Transcript show:layout displayString; show:'subbounds: '; showCR:subBounds. |
|
360 component bounds:subBounds. |
|
361 ] |
|
362 |
|
363 "Created: 19.7.1996 / 21:25:02 / cg" |
|
364 ! ! |
|
365 |
355 !BorderedWrapper methodsFor:'queries'! |
366 !BorderedWrapper methodsFor:'queries'! |
356 |
367 |
357 hasBorder |
368 hasBorder |
358 ^ true |
369 ^ true |
359 |
370 |
367 ! ! |
378 ! ! |
368 |
379 |
369 !BorderedWrapper class methodsFor:'documentation'! |
380 !BorderedWrapper class methodsFor:'documentation'! |
370 |
381 |
371 version |
382 version |
372 ^ '$Header: /cvs/stx/stx/libview2/BorderedWrapper.st,v 1.5 1996-07-19 17:20:04 cg Exp $' |
383 ^ '$Header: /cvs/stx/stx/libview2/BorderedWrapper.st,v 1.6 1996-07-22 09:01:46 cg Exp $' |
373 ! ! |
384 ! ! |