#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 #~=)
--- 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"