equal
deleted
inserted
replaced
69 |
69 |
70 display := Screen current. |
70 display := Screen current. |
71 display isNil ifTrue:[ |
71 display isNil ifTrue:[ |
72 ^ 600 @ 400 |
72 ^ 600 @ 400 |
73 ]. |
73 ]. |
74 ^ (display width // 3 * 2) @ (display height // 3 * 2) |
74 ^ display defaultExtentForTopViews |
75 |
|
76 "Modified: 22.4.1996 / 23:39:13 / cg" |
|
77 ! ! |
75 ! ! |
78 |
76 |
79 !TopView methodsFor:'Compatibility - ST80'! |
77 !TopView methodsFor:'Compatibility - ST80'! |
80 |
78 |
81 displayBox |
79 displayBox |
301 "/ |
299 "/ |
302 "/ destroy slaves and partners |
300 "/ destroy slaves and partners |
303 "/ |
301 "/ |
304 self masterSlaveMessage:#destroy inGroup:wg |
302 self masterSlaveMessage:#destroy inGroup:wg |
305 |
303 |
306 "Modified: 20.3.1997 / 22:14:16 / cg"! |
304 "Modified: 20.3.1997 / 22:14:16 / cg" |
|
305 ! |
307 |
306 |
308 initialize |
307 initialize |
309 "initialize the topViews position for the screens center" |
308 "initialize the topViews position for the screens center" |
310 |
309 |
311 |screenCenter| |
310 |screenCenter| |
325 |
324 |
326 keyboardProcessor isNil ifTrue:[ |
325 keyboardProcessor isNil ifTrue:[ |
327 keyboardProcessor := KeyboardProcessor new. |
326 keyboardProcessor := KeyboardProcessor new. |
328 ]. |
327 ]. |
329 |
328 |
330 device realizedTopViewHookFor:self! ! |
329 device realizedTopViewHookFor:self |
|
330 ! ! |
331 |
331 |
332 !TopView methodsFor:'misc'! |
332 !TopView methodsFor:'misc'! |
333 |
333 |
334 raiseDeiconified |
334 raiseDeiconified |
335 "deiconify & bring to front" |
335 "deiconify & bring to front" |
399 |
399 |
400 isModal |
400 isModal |
401 "return true, if the receiver has been opened modal" |
401 "return true, if the receiver has been opened modal" |
402 |
402 |
403 windowGroup isNil ifTrue:[^ false]. |
403 windowGroup isNil ifTrue:[^ false]. |
404 ^ windowGroup isModal! |
404 ^ windowGroup isModal |
|
405 ! |
405 |
406 |
406 isPopUpView |
407 isPopUpView |
407 "return true, since I want to come up without decoration |
408 "return true, since I want to come up without decoration |
408 and popUp to top immediately." |
409 and popUp to top immediately." |
409 |
410 |
668 ] |
669 ] |
669 |
670 |
670 |
671 |
671 |
672 |
672 "Modified: / 10.9.1998 / 22:02:52 / cg" |
673 "Modified: / 10.9.1998 / 22:02:52 / cg" |
673 "Modified: 30.5.1996 / 09:37:22 / cg"! |
674 "Modified: 30.5.1996 / 09:37:22 / cg" |
|
675 ! |
674 |
676 |
675 masterSlaveMessage:aSelector inGroup:aWindowGroup |
677 masterSlaveMessage:aSelector inGroup:aWindowGroup |
676 "send aSelector to partners and/or slaves. |
678 "send aSelector to partners and/or slaves. |
677 This is a private helper for destroy / mapped / unmapped" |
679 This is a private helper for destroy / mapped / unmapped" |
678 |
680 |
718 ! ! |
720 ! ! |
719 |
721 |
720 !TopView class methodsFor:'documentation'! |
722 !TopView class methodsFor:'documentation'! |
721 |
723 |
722 version |
724 version |
723 ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.68 2000-11-09 15:17:34 ca Exp $' |
725 ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.69 2001-06-22 16:28:03 cg Exp $' |
724 ! ! |
726 ! ! |