--- a/Win32OperatingSystem.st Tue Nov 07 16:03:26 2006 +0100
+++ b/Win32OperatingSystem.st Tue Nov 07 16:28:21 2006 +0100
@@ -4427,8 +4427,8 @@
info := self linkInfoOf:aPathName.
info isSymbolicLink ifTrue:[
- target := self getLinkTarget:aPathName.
- info := self linkInfoOf:target.
+ target := info path.
+ ^ self linkInfoOf:target.
].
^ info
@@ -4439,7 +4439,7 @@
(OperatingSystem infoOf:'/') accessed
"
- "Modified: / 07-11-2006 / 16:02:07 / cg"
+ "Modified: / 07-11-2006 / 16:27:02 / cg"
!
isDirectory:aPathName
@@ -4731,7 +4731,7 @@
aYr aMon aDay aHr aMin aSec aMS
mYr mMon mDay mHr mMin mSec mMS
cYr cMon cDay cHr cMin cSec cMS
- fileName alternativeName|
+ fileName alternativeName path|
%{
struct stat buf;
@@ -4841,6 +4841,7 @@
%}.
(aPathName asFilename hasSuffix:'lnk') ifTrue:[
type := #symbolicLink.
+ path := self getLinkTarget:aPathName.
].
mode isNil ifTrue:[
@@ -4876,7 +4877,7 @@
accessed:atime
modified:mtime
created:ctime
- path:nil
+ path:path
fullName:fileName
alternativeName:alternativeName.
^ info
@@ -4891,7 +4892,7 @@
OperatingSystem linkInfoOf:'C:\Dokumente und Einstellungen\cg\Favoriten\Incoming.lnk'
"
- "Modified: / 07-11-2006 / 15:59:49 / cg"
+ "Modified: / 07-11-2006 / 16:26:32 / cg"
!
mimeTypeForSuffix:aFileSuffix
@@ -12579,7 +12580,7 @@
!Win32OperatingSystem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.246 2006-11-07 15:03:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.247 2006-11-07 15:28:21 cg Exp $'
! !
Win32OperatingSystem initialize!