#BUGFIX by stefan
class: PCFilename
changed: #isVolumeAbsolute
take care for %var% expeansions in filenames (windows)
--- a/PCFilename.st Mon Nov 05 12:44:52 2018 +0100
+++ b/PCFilename.st Mon Nov 05 12:45:13 2018 +0100
@@ -756,25 +756,32 @@
"return true, if the receiver represents an absolute pathname
on some disk volume."
+ |osName|
+
+ osName := self osNameForAccess.
+
"/ <DRIVE-CHAR>:
- (((nameString size >= 3)
- and:[(nameString at:2) == $:])
- and:[(nameString at:3) == $\]) ifTrue:[
- "/ something like x:\foo
- ^ true
+ osName size < 3 ifTrue:[
+ ^ false.
+ ].
+
+ ((osName at:2) == $:
+ and:[(osName at:3) == $\]) ifTrue:[
+ "/ something like x:\foo
+ ^ true
].
"/ \\REMOTE-HOST:
- (((nameString size >= 3)
- and:[(nameString at:1) == $\])
- and:[(nameString at:2) == $\]) ifTrue:[
- "/ something like \\hostname
- ^ true
+ ((osName at:1) == $\
+ and:[(osName at:2) == $\]) ifTrue:[
+ "/ something like \\hostname
+ ^ true
].
^ false
- "Created: / 7.9.1997 / 23:54:20 / cg"
- "Modified: / 9.9.1998 / 20:38:54 / cg"
+ "Created: / 07-09-1997 / 23:54:20 / cg"
+ "Modified: / 09-09-1998 / 20:38:54 / cg"
+ "Modified: / 05-11-2018 / 11:12:59 / Stefan Vogel"
!
localNameStringFrom:aString