equal
deleted
inserted
replaced
1110 |
1110 |
1111 "Modified: / 25-07-2006 / 09:07:55 / cg" |
1111 "Modified: / 25-07-2006 / 09:07:55 / cg" |
1112 ! |
1112 ! |
1113 |
1113 |
1114 enterActionFor:anItem |
1114 enterActionFor:anItem |
1115 | filename info targetItem targetFile| |
1115 | filename info targetItem linkFile targetFile| |
1116 |
1116 |
1117 filename := anItem fileName. |
1117 filename := anItem fileName. |
1118 |
1118 |
1119 filename baseName = '..' ifTrue:[ |
1119 filename baseName = '..' ifTrue:[ |
1120 self setCurrentFileName:(self directory directory). |
1120 self setCurrentFileName:(self directory directory). |
1127 (info := targetFile linkInfo) notNil |
1127 (info := targetFile linkInfo) notNil |
1128 and:[ info isSymbolicLink ] |
1128 and:[ info isSymbolicLink ] |
1129 ] whileTrue:[ |
1129 ] whileTrue:[ |
1130 targetItem := nil. |
1130 targetItem := nil. |
1131 info path isNil ifTrue:[^ self]. |
1131 info path isNil ifTrue:[^ self]. |
1132 targetFile := filename directory construct:info path. |
1132 linkFile := info path asFilename. |
|
1133 linkFile isRelative ifTrue:[ |
|
1134 targetFile := filename directory construct:info path. |
|
1135 ] ifFalse:[ |
|
1136 targetFile := linkFile |
|
1137 ] |
1133 ]. |
1138 ]. |
1134 |
1139 |
1135 filename := targetFile. |
1140 filename := targetFile. |
1136 |
1141 |
1137 (filename isDirectory) ifTrue:[ |
1142 (filename isDirectory) ifTrue:[ |
1146 "/ self withWaitCursorDo:[ |
1151 "/ self withWaitCursorDo:[ |
1147 self openApplByFileItem:targetItem. |
1152 self openApplByFileItem:targetItem. |
1148 "/ ] |
1153 "/ ] |
1149 |
1154 |
1150 "Modified: / 25-07-2006 / 09:08:00 / cg" |
1155 "Modified: / 25-07-2006 / 09:08:00 / cg" |
|
1156 "Modified: / 09-07-2011 / 14:52:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1151 ! |
1157 ! |
1152 |
1158 |
1153 noOfAddedFiles:noOfAddedFiles noOfFiles:noOfFiles |
1159 noOfAddedFiles:noOfAddedFiles noOfFiles:noOfFiles |
1154 |
1160 |
1155 |info filterBox clr| |
1161 |info filterBox clr| |
3327 ! ! |
3333 ! ! |
3328 |
3334 |
3329 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3335 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3330 |
3336 |
3331 version |
3337 version |
3332 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.238 2011-05-03 15:48:14 mb Exp $' |
3338 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.239 2011-07-09 13:53:19 vrany Exp $' |
3333 ! |
3339 ! |
3334 |
3340 |
3335 version_CVS |
3341 version_CVS |
3336 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.238 2011-05-03 15:48:14 mb Exp $' |
3342 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.239 2011-07-09 13:53:19 vrany Exp $' |
3337 ! ! |
3343 ! ! |