equal
deleted
inserted
replaced
2803 ] |
2803 ] |
2804 ! |
2804 ! |
2805 |
2805 |
2806 enableDirectoryUp |
2806 enableDirectoryUp |
2807 |
2807 |
|
2808 Transcript showCR:'enableDirectoryUp access'. |
|
2809 |
2808 ^ self aspectFor:#enableDirectoryUp ifAbsent:[false asValue] |
2810 ^ self aspectFor:#enableDirectoryUp ifAbsent:[false asValue] |
2809 ! |
2811 ! |
2810 |
2812 |
2811 enableGotoDefault |
2813 enableGotoDefault |
2812 |
2814 |
3285 size := newDirectories size. |
3287 size := newDirectories size. |
3286 rootInTreeView := self |
3288 rootInTreeView := self |
3287 applicationNamed:#DirectoryTreeBrowser |
3289 applicationNamed:#DirectoryTreeBrowser |
3288 ifPresentDo:[:appl | appl rootHolder]. |
3290 ifPresentDo:[:appl | appl rootHolder]. |
3289 rootInTreeView := rootInTreeView value. |
3291 rootInTreeView := rootInTreeView value. |
3290 self enableDirectoryUp value:(((size == 1) and:[newDirectories first isRootDirectory not]) or:[(rootInTreeView notNil and:[rootInTreeView value asFilename isRootDirectory not])]). |
3292 self enableDirectoryUp value:(((size == 1) and:[newDirectories first isRootDirectory not]) "or:[(rootInTreeView notNil and:[rootInTreeView value asFilename isRootDirectory not])]"). |
|
3293 Transcript showCR:'enable directory: ', self enableDirectoryUp value asString. |
|
3294 |
3291 newDirectories notEmpty ifTrue:[ |
3295 newDirectories notEmpty ifTrue:[ |
3292 self dirHistory addToHistory:(newDirectories first asString). |
3296 self dirHistory addToHistory:(newDirectories first asString). |
3293 ]. |
3297 ]. |
3294 self enableHome value:((newDirectories includes:(Filename homeDirectory asAbsoluteFilename))not). |
3298 self enableHome value:((newDirectories includes:(Filename homeDirectory asAbsoluteFilename))not). |
3295 self enableGotoDefault value:((newDirectories includes:(Filename defaultDirectory asAbsoluteFilename))not). |
3299 self enableGotoDefault value:((newDirectories includes:(Filename defaultDirectory asAbsoluteFilename))not). |
6464 ! ! |
6468 ! ! |
6465 |
6469 |
6466 !AbstractFileBrowser class methodsFor:'documentation'! |
6470 !AbstractFileBrowser class methodsFor:'documentation'! |
6467 |
6471 |
6468 version |
6472 version |
6469 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.196 2004-01-15 12:43:11 cg Exp $' |
6473 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.197 2004-01-15 16:06:46 penk Exp $' |
6470 ! ! |
6474 ! ! |