#REFACTORING by stefan
class: AbstractFileBrowser class
changed: #initialCommandFor:in:intoBox:
--- a/AbstractFileBrowser.st Wed Jul 11 12:05:07 2018 +0200
+++ b/AbstractFileBrowser.st Wed Jul 11 12:07:57 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -438,7 +436,7 @@
^ self
].
- cmd := MIMETypes defaultCommandPerMIME at:mime ifAbsent:nil.
+ cmd := MIMETypes defaultCommandTemplateToOpenMimeType:mime.
cmd notNil ifTrue:[
select := false
].
@@ -550,8 +548,9 @@
]
]
- "Modified: / 24.9.1997 / 16:34:52 / stefan"
- "Modified: / 9.4.1998 / 17:15:57 / cg"
+ "Modified: / 24-09-1997 / 16:34:52 / stefan"
+ "Modified: / 09-04-1998 / 17:15:57 / cg"
+ "Modified: / 09-07-2018 / 11:16:30 / Stefan Vogel"
!
listOfRuntimeValuesToRemember
@@ -3000,7 +2999,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))
].
].
@@ -8711,7 +8710,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'