--- a/TextView.st	Fri Mar 01 16:11:27 2019 +0100
+++ b/TextView.st	Fri Mar 01 16:15:10 2019 +0100
@@ -1407,19 +1407,19 @@
     matchingFamilyFaceFonts := matchingFamilyFonts select:[:f | f face = font face].
     matchingFamilyFaceStyleFonts := matchingFamilyFaceFonts select:[:f | f style = font style].
     matchingFamilyFaceStyleSizeFonts := matchingFamilyFaceStyleFonts select:[:f | f size = font size].
-    matchingFamilyFaceStyleSizeFonts size > 0 ifTrue:[
+    matchingFamilyFaceStyleSizeFonts size ~~ 0 ifTrue:[
         defaultFont := matchingFamilyFaceStyleSizeFonts first
     ] ifFalse:[
-        matchingFamilyFaceStyleFonts size > 0 ifTrue:[
+        matchingFamilyFaceStyleFonts size ~~ 0 ifTrue:[
             defaultFont := matchingFamilyFaceStyleFonts first
         ] ifFalse:[
-            matchingFamilyFaceFonts size > 0 ifTrue:[
+            matchingFamilyFaceFonts size ~~ 0 ifTrue:[
                 defaultFont := matchingFamilyFaceFonts first
             ] ifFalse:[
-                matchingFamilyFonts size > 0 ifTrue:[
+                matchingFamilyFonts size ~~ 0 ifTrue:[
                     defaultFont := matchingFamilyFonts first
                 ] ifFalse:[
-                    matchingFonts size > 0 ifTrue:[
+                    matchingFonts size ~~ 0 ifTrue:[
                         defaultFont := matchingFonts first
                     ].
                 ].
@@ -1451,6 +1451,7 @@
     "Created: / 26-10-1996 / 12:06:54 / cg"
     "Modified: / 30-06-1997 / 17:46:46 / cg"
     "Modified: / 22-10-2018 / 11:55:44 / Stefan Vogel"
+    "Modified: / 01-03-2019 / 16:14:53 / Claus Gittinger"
 ! !
 
 !TextView methodsFor:'event handling'!
@@ -2022,7 +2023,7 @@
     "
     "/ do NOT replace by notEmptyOrNil !!!!!!
     "/ key can be a character!!!!!!!!
-    (key size > 0 and:[(key at:1) asLowercase == $f]) ifTrue:[
+    (key size ~~ 0 and:[(key at:1) asLowercase == $f]) ifTrue:[
         (('[fF][0-9]' match:key)
          or:['[fF][0-9][0-9]' match:key]) ifTrue:[
             self sensor shiftDown ifTrue:[
@@ -2038,6 +2039,7 @@
     "Modified (format): / 30-03-2017 / 22:35:58 / stefan"
     "Modified: / 01-09-2017 / 14:32:27 / cg"
     "Modified: / 09-03-2018 / 00:58:56 / mawalch"
+    "Modified: / 01-03-2019 / 16:14:03 / Claus Gittinger"
 !
 
 mapped
@@ -2591,7 +2593,7 @@
     "/        initialString := self selection asString.
     "/    ].
     initialString isNil ifTrue:[
-        LastSearchPatterns size > 0 ifTrue:[
+        LastSearchPatterns size ~~ 0 ifTrue:[
             initialString := LastSearchPatterns first.
         ]
     ].
@@ -2867,7 +2869,7 @@
     ]
 
     "Created: / 22-05-2018 / 15:47:29 / Claus Gittinger"
-    "Modified: / 13-09-2018 / 10:23:59 / Claus Gittinger"
+    "Modified: / 01-03-2019 / 16:14:14 / Claus Gittinger"
 !
 
 openWebBrowserOnIt
@@ -3984,7 +3986,7 @@
 
     self setSearchPatternWithMatchEscapes: false.
     lastSearchPattern isNil ifTrue:[
-        LastSearchPatterns size > 0 ifTrue:[
+        LastSearchPatterns size ~~ 0 ifTrue:[
             lastSearchPattern := LastSearchPatterns first
         ]
     ].
@@ -3998,6 +4000,7 @@
     ]
 
     "Modified: / 08-03-2012 / 14:26:25 / cg"
+    "Modified: / 01-03-2019 / 16:14:21 / Claus Gittinger"
 !
 
 searchBwd:pattern
@@ -4537,7 +4540,7 @@
     self setSearchPatternWithMatchEscapes: match.
 
     lastSearchPattern isNil ifTrue:[
-        LastSearchPatterns size > 0 ifTrue:[
+        LastSearchPatterns size ~~ 0 ifTrue:[
             lastSearchPattern := LastSearchPatterns first
         ]
     ].
@@ -4552,6 +4555,7 @@
     ]
 
     "Modified: / 08-03-2012 / 14:25:42 / cg"
+    "Modified: / 01-03-2019 / 16:14:26 / Claus Gittinger"
 !
 
 searchFwd:pattern