--- a/DialogBox.st	Thu Aug 29 12:28:12 2013 +0200
+++ b/DialogBox.st	Thu Aug 29 16:40:16 2013 +0200
@@ -5987,6 +5987,11 @@
         aBox showAtCenter.
         ^ self.
     ].
+    wg isDebugged ifTrue:[
+        aBox showAtPointer.
+        ^ self.
+    ].
+
     wg isModal ifTrue:[
         v := wg mainView.
         v notNil ifTrue:[
@@ -6002,6 +6007,8 @@
     ].
 
     aBox showCenteredIn:v.
+
+    "Modified: / 29-08-2013 / 16:39:29 / cg"
 ! !
 
 !DialogBox class methodsFor:'queries'!
@@ -9986,11 +9993,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.343 2013-08-27 15:03:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.344 2013-08-29 14:40:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.343 2013-08-27 15:03:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.344 2013-08-29 14:40:16 cg Exp $'
 ! !