--- a/DeviceWorkstation.st	Sun Oct 24 14:59:06 2010 +0200
+++ b/DeviceWorkstation.st	Sun Oct 24 15:13:38 2010 +0200
@@ -5626,6 +5626,62 @@
     ^ self subclassResponsibility
 ! !
 
+!DeviceWorkstation methodsFor:'hooks'!
+
+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"
+! !
+
 !DeviceWorkstation methodsFor:'initialization & release'!
 
 brokenConnection
@@ -7162,62 +7218,6 @@
     "Created: / 22.5.1999 / 01:40:42 / cg"
 ! !
 
-!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"
-! !
-
 !DeviceWorkstation methodsFor:'style defaults'!
 
 defaultStyleValueFor:aKey
@@ -8055,11 +8055,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.551 2010-10-24 12:59:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.552 2010-10-24 13:13:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.551 2010-10-24 12:59:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.552 2010-10-24 13:13:38 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!