#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Fri, 17 Feb 2017 08:47:47 +0100
changeset 17418 e4dfa78a0a63
parent 17417 37220c1b6b48
child 17419 469331b680ed
#REFACTORING by cg class: AbstractSettingsApplication use notEmpty instead of size > 0
AbstractSettingsApplication.st
--- a/AbstractSettingsApplication.st	Fri Feb 17 08:47:07 2017 +0100
+++ b/AbstractSettingsApplication.st	Fri Feb 17 08:47:47 2017 +0100
@@ -9913,10 +9913,12 @@
                 request:'Define the Format of Window Labels:\\  %1 - Label\  %2 - Hostname\  %3 - Username\  %4 - ProcessId\'
                         withCRs
                 initialAnswer:newWindowLabelFormat.
-    newFormat size > 0 ifTrue:[
+    newFormat notEmptyOrNil ifTrue:[
         newWindowLabelFormat := newFormat.
         self updateModifiedChannel
     ]
+
+    "Modified: / 17-02-2017 / 08:26:39 / cg"
 ! !
 
 !AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
@@ -11146,12 +11148,12 @@
     acceptChannel value:true.
 
     host := self smallTeamHostEntry value.
-
-    host size > 0 ifTrue:[
+    
+    host notEmptyOrNil ifTrue:[
         self listOfSmallTeamHosts add:host
     ].
 
-    "Modified: / 12-11-2006 / 19:06:22 / cg"
+    "Modified (format): / 17-02-2017 / 08:33:52 / cg"
 !
 
 removeSmallTeamHost
@@ -11161,13 +11163,13 @@
 
     host := self selectedSmallTeamHost value.
 
-    host size > 0 ifTrue:[
+    host notEmptyOrNil ifTrue:[
         self selectedSmallTeamHost value:nil.
         self listOfSmallTeamHosts remove:host ifAbsent:[ self window beep ].
         self smallTeamHostEntry value:''.
     ].
 
-    "Modified: / 12-11-2006 / 19:15:05 / cg"
+    "Modified: / 17-02-2017 / 08:33:29 / cg"
 ! !
 
 !AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!