avoid recursion
authorClaus Gittinger <cg@exept.de>
Wed, 08 Nov 2006 12:21:01 +0100
changeset 10161 fd6b02ffb383
parent 10160 2fe3c748e688
child 10162 0466d5acb174
avoid recursion
Win32OperatingSystem.st
--- a/Win32OperatingSystem.st	Wed Nov 08 12:18:08 2006 +0100
+++ b/Win32OperatingSystem.st	Wed Nov 08 12:21:01 2006 +0100
@@ -3598,7 +3598,7 @@
 
 getLinkTarget:aPathName
     "given a filename, which represents a link-file (.lnk),
-     return its reolved path, or nil"
+     return its resolved path, or nil"
 
     |resolvedPath|
 
@@ -3682,7 +3682,7 @@
     "
 
     "Created: / 07-11-2006 / 10:52:44 / cg"
-    "Modified: / 07-11-2006 / 16:02:55 / cg"
+    "Modified: / 08-11-2006 / 12:20:33 / cg"
 !
 
 linkFile:oldPath to:newPath
@@ -4839,7 +4839,7 @@
         }
     }
 %}.
-    (aPathName asFilename hasSuffix:'lnk') ifTrue:[
+    (aPathName endsWith:'.lnk') ifTrue:[
         type := #symbolicLink.
         path := self getLinkTarget:aPathName.
     ].
@@ -4892,7 +4892,7 @@
      OperatingSystem linkInfoOf:'C:\Dokumente und Einstellungen\cg\Favoriten\Incoming.lnk'
    "
 
-    "Modified: / 07-11-2006 / 16:26:32 / cg"
+    "Modified: / 08-11-2006 / 12:20:13 / cg"
 !
 
 mimeTypeForSuffix:aFileSuffix
@@ -12616,7 +12616,7 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.248 2006-11-08 11:18:08 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.249 2006-11-08 11:21:01 cg Exp $'
 ! !
 
 Win32OperatingSystem initialize!