--- 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