hg/stx-libtool: comparison AbstractFileBrowser.st

equal deleted inserted replaced

-:ed8ac4d47eb1
+:4b7bd1293f9d
+"{ Encoding: utf8 }"
 "
 COPYRIGHT (c) 2002 by eXept Software AG
 All Rights Reserved
 This software is furnished under a license and may be used
 )
 (MenuItem
 enabled: enableGotoDesktopDirectory
 label: 'Desktop'
 itemValue: doGotoDesktopDirectory
+)
+(MenuItem
+enabled: enableGotoDocumentsDirectory
+label: 'Documents'
+itemValue: doGotoDocumentsDirectory
 )
 (MenuItem
 enabled: enableGotoDownloadsDirectory
 label: 'Downloads'
 itemValue: doGotoDownloadsDirectory
 (decodedChar between:0 and:31) ifTrue:[
 "/ the 'nul', 'soh' .. 'gs' chars in unicodePage 2400
 "/ are perfect here, but usually not available in the font
 "/ and we have currently no way of knowing if they are...
 "/ (could let the font draw into a bitmap and check if there is something...)
-"/ For now, write a dot.�
+"/ For now, write a dot.·
 "/ charPrinted := (Character value:(byte + 16r2400))
 ].
 ].
 ].
 asciiLineStream nextPut:charPrinted.
 ^ self aspectFor:#enableGotoDesktopDirectory ifAbsent:[ ValueHolder with:true ].
 "Created: / 01-10-2010 / 16:19:17 / cg"
 !
+enableGotoDocumentsDirectory
+^ self aspectFor:#enableGotoDocumentsDirectory ifAbsent:[ ValueHolder with:true ].
+"Created: / 01-10-2010 / 16:19:17 / cg"
+!
 enableGotoDownloadsDirectory
 ^ self aspectFor:#enableGotoDownloadsDirectory ifAbsent:[ ValueHolder with:true ].
 "Created: / 01-10-2010 / 16:19:17 / cg"
 !
 (dir := Filename desktopDirectory) notNil ifTrue:[
 self enableGotoDesktopDirectory value:((newDirectories includes:(dir asAbsoluteFilename))not).
 ].
 (dir := Filename downloadsDirectory) notNil ifTrue:[
 self enableGotoDownloadsDirectory value:((newDirectories includes:(dir asAbsoluteFilename))not).
+].
+(dir := Filename documentsDirectory) notNil ifTrue:[
+self enableGotoDocumentsDirectory value:((newDirectories includes:(dir asAbsoluteFilename))not).
 ].
 (dir := self tempDirectory) notNil ifTrue:[
 self enableGotoTempDirectory value:((newDirectories includes:(dir asAbsoluteFilename))not).
 ].
 ].
 doCompareTwoFiles
 self openDiffView.
 !
 doGoDirectoryUp
+"navigate up to the parent folder"
 | upDir directory rootInTreeView|
 self enableDirectoryUp value ifFalse:[ ^ self].
 self currentFilesAreInSameDirectory ifTrue:[
 directory := self currentDirectory.
 upDir := directory directory.
 self setCurrentFileName:upDir.
 !
 doGotoDefaultDirectory
+"navigate to the default folder (is the current directory)"
 self gotoFile:(Filename defaultDirectory).
 !
 doGotoDesktopDirectory
+"navigate to the desktop folder"
 self gotoFile:(Filename desktopDirectory).
 !
 doGotoDocumentsDirectory
+"navigate to the documents folder"
 self gotoFile:(Filename documentsDirectory).
 !
 doGotoDownloadsDirectory
+"navigate to the downloads folder"
 self gotoFile:(Filename downloadsDirectory).
 !
 doGotoHomeDirectory
+"navigate to the home folder"
 self gotoFile:(Filename homeDirectory).
 !
 doGotoSmalltalkDirectory
+"navigate to the smalltalk bin folder (where the stx executable is)"
 self gotoFile:(self smalltalkDirectory).
 !
 doGotoSmalltalkWorkspaceDirectory
+"navigate to the user's smalltalk workspace folder"
 self gotoFile:(UserPreferences current workspaceDirectory).
 !
 doGotoTempDirectory
 self gotoFile:(self tempDirectory).
 redefKind := 'class'.
 isRedef := true.
 ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender|
 label := msg := 'Breakpoint/Halt in fileIn'.
 sender := ex suspendedContext.
-msg := msg , ('\\in %1 � %2' bindWith:(sender receiver class name) with:(sender sender selector))
+msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
 ] ifFalse:[
 label := 'Error in fileIn'.
 msg := 'error in fileIn: %1'
 ]]].

changeset 18511	4b7bd1293f9d
parent 18478	e88642b2a230
child 18525	de9b7b5fc8ba