--- a/DeviceWorkstation.st	Fri Oct 22 15:39:51 2010 +0200
+++ b/DeviceWorkstation.st	Sun Oct 24 14:59:06 2010 +0200
@@ -7164,10 +7164,56 @@
 
 !DeviceWorkstation methodsFor:'selection fetching'!
 
+addModalWindowListener:aListener
+    aboutToOpenModalWindowHooks isNil ifTrue:[
+        aboutToOpenModalWindowHooks := OrderedCollection new.
+    ].
+    aboutToOpenModalWindowHooks add:aListener
+
+    "Created: / 24-10-2010 / 14:57:39 / cg"
+!
+
+addNonModalWindowListener:aListener
+    aboutToOpenNonModalWindowHooks isNil ifTrue:[
+        aboutToOpenNonModalWindowHooks := OrderedCollection new.
+    ].
+    aboutToOpenNonModalWindowHooks add:aListener
+
+    "Created: / 24-10-2010 / 14:58:13 / cg"
+!
+
 addSelectionHandler:someone
     "ignored here"
 !
 
+modalWindowListenersDo:aBlock
+    aboutToOpenModalWindowHooks notNil ifTrue:[
+        aboutToOpenModalWindowHooks do:aBlock
+    ].
+
+    "Created: / 24-10-2010 / 14:58:40 / cg"
+!
+
+nonModalWindowListenersDo:aBlock
+    aboutToOpenNonModalWindowHooks notNil ifTrue:[
+        aboutToOpenNonModalWindowHooks do:aBlock
+    ].
+
+    "Created: / 24-10-2010 / 14:58:43 / cg"
+!
+
+removeModalWindowListener:aListener
+    aboutToOpenModalWindowHooks remove:aListener ifAbsent:[].
+
+    "Created: / 24-10-2010 / 14:58:02 / cg"
+!
+
+removeNonModalWindowListener:aListener
+    aboutToOpenNonModalWindowHooks remove:aListener ifAbsent:[].
+
+    "Created: / 24-10-2010 / 14:58:19 / cg"
+!
+
 removeSelectionHandler:someone
     "ignored here"
 ! !
@@ -8009,11 +8055,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.550 2010-10-22 12:52:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.551 2010-10-24 12:59:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.550 2010-10-22 12:52:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.551 2010-10-24 12:59:06 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!