equal
deleted
inserted
replaced
5087 |wg v| |
5087 |wg v| |
5088 |
5088 |
5089 AboutToOpenBoxNotificationSignal raiseRequestWith:aBox. |
5089 AboutToOpenBoxNotificationSignal raiseRequestWith:aBox. |
5090 ForceModalBoxesToOpenAtCenter == true ifTrue:[ |
5090 ForceModalBoxesToOpenAtCenter == true ifTrue:[ |
5091 aBox showAtCenter. |
5091 aBox showAtCenter. |
5092 ] ifFalse:[ |
5092 ^ self. |
5093 ForceModalBoxesToOpenAtPointer == true ifTrue:[ |
5093 ]. |
5094 aBox showAtPointer. |
5094 ForceModalBoxesToOpenAtPointer == true ifTrue:[ |
5095 ] ifFalse:[ |
5095 aBox showAtPointer. |
5096 ((wg := WindowGroup activeGroup) notNil |
5096 ^ self. |
5097 and:[(v := wg mainGroup mainView) notNil]) |
5097 ]. |
5098 ifTrue:[ |
5098 |
5099 aBox showCenteredIn:v. |
5099 wg := WindowGroup activeGroup. |
5100 ] ifFalse:[ |
5100 wg isNil ifTrue:[ |
5101 aBox showAtCenter. |
5101 aBox showAtCenter. |
5102 ] |
5102 ^ self. |
5103 ] |
5103 ]. |
5104 ] |
5104 wg isModal ifTrue:[ |
|
5105 v := wg mainView. |
|
5106 v notNil ifTrue:[ |
|
5107 aBox showCenteredIn:v. |
|
5108 ^ self. |
|
5109 ]. |
|
5110 ]. |
|
5111 |
|
5112 v := wg mainGroup mainView. |
|
5113 v isNil ifTrue:[ |
|
5114 aBox showAtCenter. |
|
5115 ^ self. |
|
5116 ]. |
|
5117 |
|
5118 aBox showCenteredIn:v. |
5105 ! ! |
5119 ! ! |
5106 |
5120 |
5107 !DialogBox class methodsFor:'queries'! |
5121 !DialogBox class methodsFor:'queries'! |
5108 |
5122 |
5109 defaultOKButtonAtLeft |
5123 defaultOKButtonAtLeft |
8775 ! ! |
8789 ! ! |
8776 |
8790 |
8777 !DialogBox class methodsFor:'documentation'! |
8791 !DialogBox class methodsFor:'documentation'! |
8778 |
8792 |
8779 version |
8793 version |
8780 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.282 2009-05-12 07:44:10 cg Exp $' |
8794 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.283 2009-05-14 18:54:37 cg Exp $' |
8781 ! ! |
8795 ! ! |
8782 |
8796 |
8783 DialogBox initialize! |
8797 DialogBox initialize! |