equal
deleted
inserted
replaced
301 |
301 |
302 self origin:aPoint. |
302 self origin:aPoint. |
303 self makeFullyVisible |
303 self makeFullyVisible |
304 |
304 |
305 "Created: 28.2.1997 / 16:39:31 / cg" |
305 "Created: 28.2.1997 / 16:39:31 / cg" |
|
306 ! |
|
307 |
|
308 positionOffset |
|
309 "return the delta, by which the box should be |
|
310 displaced from the mouse pointer. |
|
311 Here, the boxes center is returned as a default. |
|
312 Usually redefined in subclasses to have the most convenient |
|
313 ok-button appear under the pointer." |
|
314 |
|
315 ^ self extent // 2 |
|
316 |
|
317 "Created: 28.2.1997 / 22:56:34 / cg" |
306 ! ! |
318 ! ! |
307 |
319 |
308 !TopView methodsFor:'startup'! |
320 !TopView methodsFor:'startup'! |
309 |
321 |
310 openAt:aPosition transientFor:anotherView |
322 openAt:aPosition transientFor:anotherView |
497 ! ! |
509 ! ! |
498 |
510 |
499 !TopView class methodsFor:'documentation'! |
511 !TopView class methodsFor:'documentation'! |
500 |
512 |
501 version |
513 version |
502 ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.39 1997-02-28 21:55:40 cg Exp $' |
514 ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.40 1997-02-28 21:56:48 cg Exp $' |
503 ! ! |
515 ! ! |