--- a/DeviceWorkstation.st	Fri Sep 17 15:21:32 2004 +0200
+++ b/DeviceWorkstation.st	Fri Sep 17 15:27:49 2004 +0200
@@ -6490,13 +6490,6 @@
 
 !DeviceWorkstation methodsFor:'selections'!
 
-addSelectionHandler:aHandler
-"/    SelectionHandlers isNil ifTrue:[
-"/        SelectionHandlers := IdentitySet new.
-"/    ].
-"/    SelectionHandlers add:aHandler
-!
-
 clipBoardEncoding
     "return the assumed default clibBoards encoding
      if a raw string (i.e. without encoding information) is pasted.
@@ -6586,15 +6579,6 @@
     ].
 !
 
-removeSelectionHandler:aHandler
-"/    SelectionHandlers notNil ifTrue:[
-"/        SelectionHandlers remove:aHandler ifAbsent:nil.
-"/        SelectionHandlers isEmpty ifTrue:[
-"/            SelectionHandlers := nil
-"/        ]
-"/    ].
-!
-
 selectionAsString
     "return my current selection as a string"
 
@@ -7465,7 +7449,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.477 2004-09-17 13:17:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.478 2004-09-17 13:27:49 stefan Exp $'
 ! !
 
 DeviceWorkstation initialize!