equal
deleted
inserted
replaced
5985 wg := WindowGroup activeGroup. |
5985 wg := WindowGroup activeGroup. |
5986 wg isNil ifTrue:[ |
5986 wg isNil ifTrue:[ |
5987 aBox showAtCenter. |
5987 aBox showAtCenter. |
5988 ^ self. |
5988 ^ self. |
5989 ]. |
5989 ]. |
|
5990 wg isDebugged ifTrue:[ |
|
5991 aBox showAtPointer. |
|
5992 ^ self. |
|
5993 ]. |
|
5994 |
5990 wg isModal ifTrue:[ |
5995 wg isModal ifTrue:[ |
5991 v := wg mainView. |
5996 v := wg mainView. |
5992 v notNil ifTrue:[ |
5997 v notNil ifTrue:[ |
5993 aBox showCenteredIn:v. |
5998 aBox showCenteredIn:v. |
5994 ^ self. |
5999 ^ self. |
6000 aBox showAtCenter. |
6005 aBox showAtCenter. |
6001 ^ self. |
6006 ^ self. |
6002 ]. |
6007 ]. |
6003 |
6008 |
6004 aBox showCenteredIn:v. |
6009 aBox showCenteredIn:v. |
|
6010 |
|
6011 "Modified: / 29-08-2013 / 16:39:29 / cg" |
6005 ! ! |
6012 ! ! |
6006 |
6013 |
6007 !DialogBox class methodsFor:'queries'! |
6014 !DialogBox class methodsFor:'queries'! |
6008 |
6015 |
6009 defaultOKButtonAtLeft |
6016 defaultOKButtonAtLeft |
9984 ! ! |
9991 ! ! |
9985 |
9992 |
9986 !DialogBox class methodsFor:'documentation'! |
9993 !DialogBox class methodsFor:'documentation'! |
9987 |
9994 |
9988 version |
9995 version |
9989 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.343 2013-08-27 15:03:23 cg Exp $' |
9996 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.344 2013-08-29 14:40:16 cg Exp $' |
9990 ! |
9997 ! |
9991 |
9998 |
9992 version_CVS |
9999 version_CVS |
9993 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.343 2013-08-27 15:03:23 cg Exp $' |
10000 ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.344 2013-08-29 14:40:16 cg Exp $' |
9994 ! ! |
10001 ! ! |
9995 |
10002 |
9996 |
10003 |
9997 DialogBox initialize! |
10004 DialogBox initialize! |