equal
deleted
inserted
replaced
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 generic superclass for Display Objects held in ObjectViews |
25 generic superclass for Display Objects held in ObjectViews |
26 see DrawObject/LogicObject/DeskTopObject and subclasses for example use |
26 see DrawObject/LogicObject/DeskTopObject and subclasses for example use |
27 |
27 |
28 $Header: /cvs/stx/stx/libview2/Attic/DObject.st,v 1.5 1993-12-11 01:26:27 claus Exp $ |
28 $Header: /cvs/stx/stx/libview2/Attic/DObject.st,v 1.6 1994-01-09 21:51:01 claus Exp $ |
29 written fall/winter 89 by claus |
29 written fall/winter 89 by claus |
30 '! |
30 '! |
31 |
31 |
32 !DisplayObject class methodsFor:'instance creation'! |
32 !DisplayObject class methodsFor:'instance creation'! |
33 |
33 |
285 drawOutlineIn:aView offset:anOffset |
285 drawOutlineIn:aView offset:anOffset |
286 "draw the receivers outline at its origin offset by anOffset, aPoint" |
286 "draw the receivers outline at its origin offset by anOffset, aPoint" |
287 |
287 |
288 |org| |
288 |org| |
289 org := self origin + anOffset - aView viewOrigin. |
289 org := self origin + anOffset - aView viewOrigin. |
290 aView drawRectangleX:(org x) y:(org y) |
290 aView displayRectangleX:(org x) y:(org y) |
291 width:(frame width) height:(frame height) |
291 width:(frame width) height:(frame height) |
292 ! |
292 ! |
293 |
293 |
294 drawOutlineIn:aView |
294 drawOutlineIn:aView |
295 "draw the receivers outline at its origin" |
295 "draw the receivers outline at its origin" |
296 |
296 |