equal
deleted
inserted
replaced
2798 ] |
2798 ] |
2799 ! |
2799 ! |
2800 |
2800 |
2801 enableDirectoryUp |
2801 enableDirectoryUp |
2802 |
2802 |
2803 Transcript showCR:'enableDirectoryUp access'. |
|
2804 |
|
2805 ^ self aspectFor:#enableDirectoryUp ifAbsent:[false asValue] |
2803 ^ self aspectFor:#enableDirectoryUp ifAbsent:[false asValue] |
2806 ! |
2804 ! |
2807 |
2805 |
2808 enableGotoDefault |
2806 enableGotoDefault |
2809 |
2807 |
3283 rootInTreeView := self |
3281 rootInTreeView := self |
3284 applicationNamed:#DirectoryTreeBrowser |
3282 applicationNamed:#DirectoryTreeBrowser |
3285 ifPresentDo:[:appl | appl rootHolder]. |
3283 ifPresentDo:[:appl | appl rootHolder]. |
3286 rootInTreeView := rootInTreeView value. |
3284 rootInTreeView := rootInTreeView value. |
3287 self enableDirectoryUp value:(((size == 1) and:[newDirectories first isRootDirectory not]) "or:[(rootInTreeView notNil and:[rootInTreeView value asFilename isRootDirectory not])]"). |
3285 self enableDirectoryUp value:(((size == 1) and:[newDirectories first isRootDirectory not]) "or:[(rootInTreeView notNil and:[rootInTreeView value asFilename isRootDirectory not])]"). |
3288 Transcript showCR:'enable directory: ', self enableDirectoryUp value asString. |
|
3289 |
3286 |
3290 newDirectories notEmpty ifTrue:[ |
3287 newDirectories notEmpty ifTrue:[ |
3291 self dirHistory addToHistory:(newDirectories first asString). |
3288 self dirHistory addToHistory:(newDirectories first asString). |
3292 ]. |
3289 ]. |
3293 self enableHome value:((newDirectories includes:(Filename homeDirectory asAbsoluteFilename))not). |
3290 self enableHome value:((newDirectories includes:(Filename homeDirectory asAbsoluteFilename))not). |
6463 ! ! |
6460 ! ! |
6464 |
6461 |
6465 !AbstractFileBrowser class methodsFor:'documentation'! |
6462 !AbstractFileBrowser class methodsFor:'documentation'! |
6466 |
6463 |
6467 version |
6464 version |
6468 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.198 2004-01-15 16:34:04 cg Exp $' |
6465 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.199 2004-01-15 16:51:12 penk Exp $' |
6469 ! ! |
6466 ! ! |