equal
deleted
inserted
replaced
247 |
247 |
248 self assert:aRectangle notNil. |
248 self assert:aRectangle notNil. |
249 frame := aRectangle |
249 frame := aRectangle |
250 ! |
250 ! |
251 |
251 |
|
252 defaultExtent |
|
253 ^ 50@50 |
|
254 ! |
|
255 |
252 extent:anExtent |
256 extent:anExtent |
253 "set my extent" |
257 "set my extent" |
254 |
258 |
255 frame := self frame copy extent:anExtent |
259 frame := self frame copy extent:anExtent |
256 ! |
260 ! |
265 ! |
269 ! |
266 |
270 |
267 origin:newOrigin |
271 origin:newOrigin |
268 "move my origin" |
272 "move my origin" |
269 |
273 |
270 frame := newOrigin copy extent:(self frame extent). |
274 |oldFrame| |
|
275 |
|
276 oldFrame := self frame. |
|
277 oldFrame isNil ifTrue:[ |
|
278 oldFrame := 0@0 extent:(self defaultExtent). |
|
279 ]. |
|
280 |
|
281 frame := newOrigin copy extent:(oldFrame extent). |
271 |
282 |
272 "Created: 8.5.1996 / 23:36:07 / cg" |
283 "Created: 8.5.1996 / 23:36:07 / cg" |
273 "Modified: 9.5.1996 / 00:13:12 / cg" |
284 "Modified: 9.5.1996 / 00:13:12 / cg" |
274 ! |
285 ! |
275 |
286 |
561 ! ! |
572 ! ! |
562 |
573 |
563 !VisualComponent class methodsFor:'documentation'! |
574 !VisualComponent class methodsFor:'documentation'! |
564 |
575 |
565 version |
576 version |
566 ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.26 2009-05-10 12:31:53 cg Exp $' |
577 ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.27 2009-05-18 14:03:47 cg Exp $' |
567 ! ! |
578 ! ! |