#TUNING by exept
authorClaus Gittinger <cg@exept.de>
Sun, 08 Sep 2019 17:53:03 +0200
changeset 19152 be7202db2c28
parent 19151 66eec723ea27
child 19153 0453ca2c3424
#TUNING by exept class: AbstractFileBrowser changed: #currentDirectory (send #~~ instead of #~=) #hgClone (send #== instead of #=) #hgInit (send #== instead of #=) #newLink: (send #~~ instead of #~=) #openDirectoryDiffView (send #~~ instead of #~=) #theSingleSelectedDirectoryOrNil (send #~~ instead of #~=) #theSingleSelectedFileOrNil (send #~~ instead of #~=) #theSingleSelectedItemOrNil (send #~~ instead of #~=)
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Sun Sep 08 17:01:48 2019 +0200
+++ b/AbstractFileBrowser.st	Sun Sep 08 17:53:03 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -2975,7 +2977,7 @@
                                     "/ are perfect here, but usually not available in the font
                                     "/ and we have currently no way of knowing if they are...
                                     "/ (could let the font draw into a bitmap and check if there is something...)
-                                    "/ For now, write a dot.·
+                                    "/ For now, write a dot.·
                                     "/ charPrinted := (Character value:(byte + 16r2400))
                                 ].
                             ].
@@ -3830,7 +3832,7 @@
     |directories|
 
     directories := self currentSelectedDirectories.
-    (directories size ~= 1) ifTrue:[
+    (directories size ~~ 1) ifTrue:[
         ^ nil
     ].
     ^ directories first.
@@ -5545,7 +5547,7 @@
     | sel dir create createdFile|
 
     sel := self currentSelectedObjects.
-    (sel size ~= 1) ifTrue:[
+    (sel size ~~ 1) ifTrue:[
         self warn:'Select one directory to link' translate:true.
         ^ self
     ].
@@ -8511,7 +8513,7 @@
     (files size == 2) ifTrue:[
         name2 := files second.
     ] ifFalse:[
-        (files size ~= 1) ifTrue:[
+        (files size ~~ 1) ifTrue:[
             Dialog warn:(resources string:'Please select one or two directories.').
             ^ self.
         ].
@@ -8953,7 +8955,7 @@
             ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender|
                 label := msg := 'Breakpoint/Halt in fileIn'.
                 sender := ex suspendedContext.
-                msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
+                msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
             ] ifFalse:[
                 label := 'Error in fileIn'.
                 msg := 'error in fileIn: %1'
@@ -9422,7 +9424,7 @@
     |dirs|
 
     dirs := self currentSelectedDirectories.
-    dirs size ~= 1 ifTrue:[ ^ nil].
+    dirs size ~~ 1 ifTrue:[ ^ nil].
     ^ dirs anElement.
 !
 
@@ -9430,7 +9432,7 @@
     |dirs|
 
     dirs := self currentSelectedFiles.
-    dirs size ~= 1 ifTrue:[ ^ nil].
+    dirs size ~~ 1 ifTrue:[ ^ nil].
     ^ dirs anElement.
 !
 
@@ -9438,7 +9440,7 @@
     |items|
 
     items := self selectedItems.
-    items size ~= 1 ifTrue:[ ^ nil].
+    items size ~~ 1 ifTrue:[ ^ nil].
     ^ items anElement.
 
     "Created: / 02-05-2019 / 18:53:06 / Claus Gittinger"