hg/stx-libtool: comparison AbstractLauncherApplication.st

equal deleted inserted replaced

-:ccd3335a762a
+:37220c1b6b48
 "return the launcher running on the current screen.
 (for access via addMenu/ removeMenu)"
 |currentScreen|
-OpenLaunchers size > 0 ifTrue:[
+OpenLaunchers notEmptyOrNil ifTrue:[
 currentScreen := Screen current.
 ^ OpenLaunchers detect:[:eachLauncher | eachLauncher graphicsDevice == currentScreen] ifNone:nil
 ].
 ^ nil.
 "
 NewLauncher current
 "
-"Modified: / 9.9.1996 / 22:41:36 / stefan"
+"Modified: / 09-09-1996 / 22:41:36 / stefan"
-"Modified: / 13.10.1998 / 16:09:50 / cg"
+"Modified: / 17-02-2017 / 08:26:01 / cg"
 !
 openLaunchers
 "return all opened launchers"
 selector := Dialog
 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
 "open a browser on methods refering to unbound global variables"
 host := Dialog
 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')
 ].
 remoteDisplayClass := XWorkstation.
 do:[
 self class open.
 ]
 ].
-"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'!
 exit
 |possibleGroups v|
 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
 ].
 v := self findWindow:'Select window to migrate:' windowGroupFilter:possibleGroups.
 v notNil ifTrue:[
 self migrateWindow:v topView
 ]
+"Modified: / 17-02-2017 / 08:25:38 / cg"
 !
 findAndMigrateWindowBack
 "find a window (by name) and migrate it back to this display"
 |possibleGroups v|
 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
 ].
 v := self findWindow:'Select window to migrate back:' windowGroupFilter:possibleGroups.
 v notNil ifTrue:[
 v windowGroup migrateTo:(Screen current)
 ]
+"Modified: / 17-02-2017 / 08:25:45 / cg"
 !
 findAndRaiseWindow
 "find a window (by name) and raise it"
 ^ self warn:'Cannot open display: ', ex parameter.
 ].
 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
 "migrate a view to some other display"
 newFormat := Dialog request:
 '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
 ].
 ]).
 box makeTabable:butt.
 butt left:0.6; width:0.4.
 Processor supportDynamicPriorities:dynamicPrios value
 ].
 ].
 box destroy
-"Modified: / 9.9.1996 / 22:43:36 / stefan"
+"Modified: / 09-09-1996 / 22:43:36 / stefan"
-"Modified: / 20.5.1999 / 18:33:55 / cg"
+"Modified: / 03-12-1999 / 17:11:38 / ps"
-"Modified: / 3.12.1999 / 17:11:38 / ps"
+"Modified: / 17-02-2017 / 08:26:12 / cg"
 !
 printerSettings
 "open a dialog on printer related settings; returns true if accepted.
 Obsoleted by the settings application"
 printOutField := box addInputFieldOn:printFile tabable:true.
 printOutField width:0.75; left:0.25; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
 printFile
 onChangeEvaluate:
 [
-printFile value size > 0 ifTrue:[
+printFile value notEmptyOrNil ifTrue:[
 commandListPop disable.
 ] ifFalse:[
 commandListPop enable.
 ]
 ].
 ].
 ].
 box destroy.
 ^ accepted
-"Modified: 9.9.1996 / 22:43:51 / stefan"
+"Modified: / 09-09-1996 / 22:43:51 / stefan"
-"Modified: 28.2.1997 / 14:00:13 / cg"
+"Modified: / 17-02-2017 / 08:26:20 / cg"
 !
 saveSettings
 SettingsDialog saveSettingsWithoutAskingForFile.
 !
 manager notNil ifTrue:[
 "/                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;
 makeReadableForAll;
 makeWritableForAll;
 box destroy
 "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
 "open an extra dialog on stc-compiler related settings.
 Obsoleted by STCCompilerSettingsApp"
 cvsRoot := (bindings at:#perModuleRoot) value.
 (listOfModules includes:module) ifFalse:[
 listOfModules add:module.
 listOfModules sort.
 ].
-cvsRoot size > 0 ifTrue:[
+cvsRoot notEmptyOrNil ifTrue:[
 rootsPerModule at:module put:cvsRoot.
 ].
 ].
 bindings at:#removePerModuleRoot put:[
 |module|
 "
 self cvsConfigurationDialog
 "
-"Modified: / 21-09-2006 / 16:54:20 / cg"
+"Modified: / 17-02-2017 / 08:26:06 / cg"
 !
 fontBoxForEncoding:encodingMatch
 "open a fontBox, showing fonts which match some encoding
 (used when changing to japanese ...)"
 ].
 ].
 ].
 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:[
 line copyFrom:5
 ] ifFalse:[
 (projectDir notNil and:[ (readMeFile := projectDir / 'README') exists]) ifTrue:[
 info := info , '\\The README file there says:\\' withCRs , (readMeFile contents asString).
 ].
 ].
 infoTextHolder value:info.
+"Modified: / 17-02-2017 / 08:26:32 / cg"
 !
 updateAction:whatChanged parameter:parameter
 |item isLoaded packageID|

changeset 17417	37220c1b6b48
parent 17399	4777d0d080fc
child 17583	57658c266723