# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1500901465 -7200
# Node ID 80e5562b3bec9eaee4aa6c1e1e6946c986baa61c
# Parent  204a9c55efb49acef2e715222a14da34dad07ab5
#QUALITY by cg
class: XWorkstation
changed: #unregisterSelectionFetcher:

diff -r 204a9c55efb4 -r 80e5562b3bec XWorkstation.st
--- a/XWorkstation.st	Thu Jul 20 14:36:24 2017 +0200
+++ b/XWorkstation.st	Mon Jul 24 15:04:25 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -7917,7 +7915,7 @@
 	    ).
 
       Screen current
-	heightOf:'hello World gggÖÜ' from:1 to:15
+	heightOf:'hello World gggÖÜ' from:1 to:15
 	inFont:(Screen current getDefaultFontWithEncoding:#'iso10646-1')
     "
 !
@@ -10573,7 +10571,9 @@
 unregisterSelectionFetcher:aSelectionFetcher
     "unregister a SelectionFetcher that received selection events for aDrawableId"
 
-    selectionFetchers removeKey:aSelectionFetcher drawableID.
+    selectionFetchers removeKey:(aSelectionFetcher drawableID) ifAbsent:[].
+
+    "Modified (format): / 24-07-2017 / 15:04:08 / cg"
 ! !
 
 !XWorkstation methodsFor:'properties'!