# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1247053742 -7200
# Node ID eb4576429ff066a0e588b449ea653e12c987bcdf
# Parent  113dd960ba11c7726fefc25854b72b4fefb9fee2
AboutToOpenBoxNotificationSignal moved to SimpleView and now raised
for ALL modalboxes right before opened.

diff -r 113dd960ba11 -r eb4576429ff0 DialogBox.st
--- a/DialogBox.st	Sat Jun 20 10:47:07 2009 +0200
+++ b/DialogBox.st	Wed Jul 08 13:49:02 2009 +0200
@@ -1085,12 +1085,6 @@
     "Modified: / 31.10.1997 / 11:54:35 / cg"
 ! !
 
-!DialogBox class methodsFor:'Signal constants'!
-
-aboutToOpenBoxNotificationSignal
-    ^ AboutToOpenBoxNotificationSignal
-! !
-
 !DialogBox class methodsFor:'class initialization'!
 
 initialize
@@ -1099,10 +1093,9 @@
     ].
 
     DefaultFocusToOKOnLeave := false.
-    AboutToOpenBoxNotificationSignal := QuerySignal new.
-
-    "Created: 8.3.1996 / 21:18:54 / cg"
-    "Modified: 10.4.1996 / 08:16:18 / cg"
+
+    "/ for backward whitebox compatibility (customer subclasses which access the classVar directly)
+    AboutToOpenBoxNotificationSignal := SimpleView aboutToOpenBoxNotificationSignal
 ! !
 
 !DialogBox class methodsFor:'common dialogs'!
@@ -3436,7 +3429,6 @@
 "/                                            selected:false].
         box entryCompletionBlock:entryCompletionBlock.
     ].
-    AboutToOpenBoxNotificationSignal raiseRequestWith:box.
 
     centered := centeredOrNil ? (ForceModalBoxesToOpenAtCenter ? false).
 
@@ -4156,7 +4148,6 @@
 
     textHolder := ValueHolder new.
     dialog := Dialog forRequestText:title lines:numLines columns:numCols initialAnswer:initialText model:textHolder.
-    AboutToOpenBoxNotificationSignal raiseRequestWith:dialog.
     dialog open.
     dialog accepted ifTrue:[
         ^ textHolder value
@@ -5086,7 +5077,6 @@
 showBox:aBox
     |wg v|
 
-    AboutToOpenBoxNotificationSignal raiseRequestWith:aBox.
     ForceModalBoxesToOpenAtCenter == true ifTrue:[
         aBox showAtCenter.
         ^ self.
@@ -8791,7 +8781,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.283 2009-05-14 18:54:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.284 2009-07-08 11:49:02 cg Exp $'
 ! !
 
 DialogBox initialize!