diff -r ccd3335a762a -r 37220c1b6b48 AbstractLauncherApplication.st
--- a/AbstractLauncherApplication.st	Fri Feb 17 08:45:36 2017 +0100
+++ b/AbstractLauncherApplication.st	Fri Feb 17 08:47:07 2017 +0100
@@ -101,7 +101,7 @@
 
     |currentScreen|
 
-    OpenLaunchers size > 0 ifTrue:[
+    OpenLaunchers notEmptyOrNil ifTrue:[
         currentScreen := Screen current.
         ^ OpenLaunchers detect:[:eachLauncher | eachLauncher graphicsDevice == currentScreen] ifNone:nil
     ].
@@ -111,8 +111,8 @@
      NewLauncher current
     "
 
-    "Modified: / 9.9.1996 / 22:41:36 / stefan"
-    "Modified: / 13.10.1998 / 16:09:50 / cg"
+    "Modified: / 09-09-1996 / 22:41:36 / stefan"
+    "Modified: / 17-02-2017 / 08:26:01 / cg"
 !
 
 openLaunchers
@@ -1568,13 +1568,13 @@
                     requestSelector:(resources string:'Browse Senders of (Tab for Completion):')
                     okLabel:(resources string:'Browse')
                     initialAnswer:''.
-    selector size > 0 ifTrue:[
+    selector notEmptyOrNil ifTrue:[
         self withWaitCursorDo:[
             browserClass browseAllCallsOn:selector
         ]
     ].
 
-    "Modified: / 14-02-2012 / 14:20:56 / cg"
+    "Modified: / 17-02-2017 / 08:25:32 / cg"
 !
 
 browseUnboundGlobals
@@ -1716,7 +1716,7 @@
                 request:(resources string:'Remote Launcher on which display:')
                 initialAnswer:'{hostName}:0'
                 initialSelection:(1 to:10).
-    host size > 0 ifTrue:[
+    host notEmptyOrNil ifTrue:[
         (host includes:$:) ifFalse:[
             host := (host , ':0')
         ].
@@ -1748,7 +1748,8 @@
             ]
     ].
 
-    "Created: / 10.9.1998 / 11:48:42 / cg"
+    "Created: / 10-09-1998 / 11:48:42 / cg"
+    "Modified: / 17-02-2017 / 08:25:56 / cg"
 ! !
 
 !AbstractLauncherApplication methodsFor:'user actions-file'!
@@ -2303,7 +2304,7 @@
     possibleGroups := WindowGroup allInstances select:[:eachGroup |
                                         eachGroup graphicsDevice == Screen current
                                         and:[eachGroup isModal not
-                                        and:[eachGroup topViews size > 0]]].
+                                        and:[eachGroup topViews notEmptyOrNil]]].
     possibleGroups isEmpty ifTrue:[
         self information:'No windows found which could be migrated to some other display.'.
         ^ self
@@ -2313,6 +2314,8 @@
     v notNil ifTrue:[
         self migrateWindow:v topView
     ]
+
+    "Modified: / 17-02-2017 / 08:25:38 / cg"
 !
 
 findAndMigrateWindowBack
@@ -2323,7 +2326,7 @@
     possibleGroups := WindowGroup allInstances select:[:eachGroup |
                                         eachGroup graphicsDevice ~~ Screen current
                                         and:[eachGroup isModal not
-                                        and:[eachGroup topViews size > 0]]].
+                                        and:[eachGroup topViews notEmptyOrNil]]].
     possibleGroups isEmpty ifTrue:[
         self information:'No windows are open on any other display.'.
         ^ self
@@ -2333,6 +2336,8 @@
     v notNil ifTrue:[
         v windowGroup migrateTo:(Screen current)
     ]
+
+    "Modified: / 17-02-2017 / 08:25:45 / cg"
 !
 
 findAndRaiseWindow
@@ -2419,12 +2424,14 @@
 
     toMigrate := WindowGroup allInstances
         select:[:each | each graphicsDevice == Screen current
-                        and:[each topViews size > 0
+                        and:[each topViews notEmptyOrNil
                         and:[each isModal not]]
                ].
     toMigrate do:[:eachGroup |
         eachGroup migrateTo:anotherDisplay
     ]
+
+    "Modified: / 17-02-2017 / 08:25:51 / cg"
 !
 
 migrateWindow:aWindow
@@ -4542,7 +4549,7 @@
                                         'Define the Format of Window Labels:\\  %1 - Label\  %2 - Hostname\  %3 - Username\  %4 - ProcessId\'
                                            withCRs initialAnswer:StandardSystemView windowLabelFormat.
 
-                       newFormat size > 0 ifTrue:[
+                       newFormat notEmptyOrNil ifTrue:[
                            newWindowLabelFormat := newFormat
                        ].
                       ]).
@@ -4624,9 +4631,9 @@
     ].
     box destroy
 
-    "Modified: / 9.9.1996 / 22:43:36 / stefan"
-    "Modified: / 20.5.1999 / 18:33:55 / cg"
-    "Modified: / 3.12.1999 / 17:11:38 / ps"
+    "Modified: / 09-09-1996 / 22:43:36 / stefan"
+    "Modified: / 03-12-1999 / 17:11:38 / ps"
+    "Modified: / 17-02-2017 / 08:26:12 / cg"
 !
 
 printerSettings
@@ -4711,7 +4718,7 @@
     printFile
         onChangeEvaluate:
             [
-                printFile value size > 0 ifTrue:[
+                printFile value notEmptyOrNil ifTrue:[
                     commandListPop disable.
                 ] ifFalse:[
                     commandListPop enable.
@@ -4921,8 +4928,8 @@
     box destroy.
     ^ accepted
 
-    "Modified: 9.9.1996 / 22:43:51 / stefan"
-    "Modified: 28.2.1997 / 14:00:13 / cg"
+    "Modified: / 09-09-1996 / 22:43:51 / stefan"
+    "Modified: / 17-02-2017 / 08:26:20 / cg"
 !
 
 saveSettings
@@ -5151,7 +5158,7 @@
 "/                localSourceFirst value ifFalse:[
 
                     nm := sourceCacheDir value.
-                    nm size > 0 ifTrue:[
+                    nm notEmptyOrNil ifTrue:[
                         (fn := nm asFilename) exists ifFalse:[
                             (self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
                                 fn makeDirectory;
@@ -5197,7 +5204,7 @@
     "Modified: / 09-09-1996 / 22:43:36 / stefan"
     "Created: / 17-01-1997 / 17:39:33 / cg"
     "Modified: / 16-04-1998 / 17:18:47 / ca"
-    "Modified: / 09-02-2011 / 20:32:56 / cg"
+    "Modified: / 17-02-2017 / 08:26:27 / cg"
 !
 
 stcCompilerSettings
@@ -6202,7 +6209,7 @@
                                 listOfModules add:module.
                                 listOfModules sort.
                             ].
-                            cvsRoot size > 0 ifTrue:[
+                            cvsRoot notEmptyOrNil ifTrue:[
                                 rootsPerModule at:module put:cvsRoot.
                             ].
                           ].
@@ -6236,7 +6243,7 @@
      self cvsConfigurationDialog
     "
 
-    "Modified: / 21-09-2006 / 16:54:20 / cg"
+    "Modified: / 17-02-2017 / 08:26:06 / cg"
 !
 
 fontBoxForEncoding:encodingMatch
@@ -8138,7 +8145,7 @@
     ].
     comment notEmptyOrNil ifTrue:[
         comment := comment asStringCollection.
-        [ comment size > 0 and:[comment first isEmpty]] whileTrue:[ comment removeFirst ].
+        [ comment notEmptyOrNil and:[comment first isEmpty]] whileTrue:[ comment removeFirst ].
         (comment conform:[:line | line isEmpty or:[line startsWith:'    ']]) ifTrue:[
             comment := comment collect:[:line | 
                         (line startsWith:'    ') ifTrue:[
@@ -8155,6 +8162,8 @@
         ].            
     ].
     infoTextHolder value:info.
+
+    "Modified: / 17-02-2017 / 08:26:32 / cg"
 !
 
 updateAction:whatChanged parameter:parameter