#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Mon, 05 Nov 2018 12:45:13 +0100
changeset 23507 e9ccd4d38962
parent 23506 757d14838de2
child 23508 c0908382067e
#BUGFIX by stefan class: PCFilename changed: #isVolumeAbsolute take care for %var% expeansions in filenames (windows)
PCFilename.st
--- 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