equal
deleted
inserted
replaced
1138 ]. |
1138 ]. |
1139 self startDiskUsageInfoProcess. |
1139 self startDiskUsageInfoProcess. |
1140 ! |
1140 ! |
1141 |
1141 |
1142 doubleClickedAt:anItemIndex |
1142 doubleClickedAt:anItemIndex |
|
1143 |action| |
1143 |
1144 |
1144 self withWaitCursorDo:[ |
1145 self withWaitCursorDo:[ |
1145 self doubleClickAction notNil ifTrue:[ |
1146 (action := self doubleClickAction) notNil ifTrue:[ |
1146 self doubleClickAction value:anItemIndex. |
1147 action value:anItemIndex. |
1147 ]. |
1148 ]. |
1148 self enterActionFor:(self browserItemList at:anItemIndex). "/ anItemIndex. |
1149 self enterActionFor:(self browserItemList at:anItemIndex). "/ anItemIndex. |
1149 ] |
1150 ] |
1150 ! |
1151 ! |
1151 |
1152 |
1153 | filename| |
1154 | filename| |
1154 |
1155 |
1155 filename := anItem fileName. |
1156 filename := anItem fileName. |
1156 |
1157 |
1157 filename baseName = '..' ifTrue:[ |
1158 filename baseName = '..' ifTrue:[ |
1158 self currentFileNameHolder value:(OrderedCollection with:(self directory directory)). |
1159 self setCurrentFileName:(self directory directory). |
1159 ^ self. |
1160 ^ self. |
1160 ]. |
1161 ]. |
1161 (filename isDirectory) ifTrue:[ |
1162 (filename isDirectory) ifTrue:[ |
1162 self currentFileNameHolder value:(OrderedCollection with:filename). |
1163 self setCurrentFileName:filename. |
1163 ^ self. |
1164 ^ self. |
1164 ]. |
1165 ]. |
1165 self withWaitCursorDo:[ |
1166 self withWaitCursorDo:[ |
1166 self openApplByFileItem:anItem. |
1167 self openApplByFileItem:anItem. |
1167 ] |
1168 ] |
3181 ! ! |
3182 ! ! |
3182 |
3183 |
3183 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3184 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3184 |
3185 |
3185 version |
3186 version |
3186 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.165 2004-07-12 14:20:07 cg Exp $' |
3187 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.166 2004-08-03 09:30:12 cg Exp $' |
3187 ! ! |
3188 ! ! |