Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Mon, 24 Jul 2017 15:04:25 +0200
changeset 8053 80e5562b3bec
parent 8052 204a9c55efb4
child 8054 733fa6daa9bb
#QUALITY by cg class: XWorkstation changed: #unregisterSelectionFetcher:
XWorkstation.st file | annotate | diff | comparison | revisions 
--- 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'!
hg/stx-libview