AboutToOpenBoxNotificationSignal moved to SimpleView and now raised
for ALL modalboxes right before opened.
--- 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!