hg/stx-libtool: comparison AbstractFileBrowser.st

equal deleted inserted replaced

-:235b77901045
+:4714b9640528
 Especially the fact, that AbstractFileBrowser defines things both as abstract superclass
 and as a container is almost incomprehensable...
 "
 ! !
 !AbstractFileBrowser class methodsFor:'accessing'!
 currentSelection
 LastFileSelection isNil ifTrue:[
 ^ LastFileSelection
 !
 currentSelection:aFilenameCol
 aFilenameCol notEmptyOrNil ifTrue:[
-LastFileSelection := aFilenameCol collect:[:file | file asFilename]
+LastFileSelection := aFilenameCol collect:[:file | (file ? '') asFilename]
 ]
 !
 directoryHistory
 rootHolder:aRoot
 RootHolder := aRoot
 ! !
 !AbstractFileBrowser class methodsFor:'accessing-bookmarks'!
 addBookmark:aDirectoryPath
 "add aDirectoryPath to the list of our known bookmarks.
 saveBookmarksInDefaultBookmarksFile
 self saveBookmarksIn:(self defaultBookMarksFileDirectory construct:self defaultBookMarksFilename)
 ! !
 !AbstractFileBrowser class methodsFor:'accessing-classes'!
 directoryHistoryClass
 ^ DirectoryHistory
 "Modified: / 21-11-2012 / 08:46:34 / cg"
 ! !
 !AbstractFileBrowser class methodsFor:'defaults'!
 commandHistory
 )
 "Modified: / 11-05-2012 / 09:22:04 / cg"
 ! !
 !AbstractFileBrowser class methodsFor:'help specs'!
 basicFlyByHelpSpec
 <resource: #help>
 self flyByHelpSpec
 "
 "Modified: / 03-11-2007 / 12:05:01 / cg"
 ! !
 !AbstractFileBrowser class methodsFor:'image specs'!
 clearHistoryIcon
 <resource: #programImage>
 vt100Terminal
 <resource: #programImage>
 ^ ToolbarIconLibrary shell20x20Icon
 ! !
 !AbstractFileBrowser class methodsFor:'interface specs'!
 encodingDialogSpec
 "This resource specification was automatically generated
 )
 )
 "Modified: / 28-02-2012 / 11:12:38 / cg"
 ! !
 !AbstractFileBrowser class methodsFor:'menu specs'!
 baseBookmarksMenuSpec
 "This resource specification was automatically generated
 nil
 nil
 )
 ! !
 !AbstractFileBrowser class methodsFor:'menu specs-scm'!
 cvsMenu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 )
 "Created: / 15-01-2012 / 13:12:30 / cg"
 ! !
 !AbstractFileBrowser class methodsFor:'misc'!
 newLock
 ^ CodeExecutionLock new
 ! !
 !AbstractFileBrowser class methodsFor:'resources'!
 classResources
 ^ FileBrowser classResources
 ! !
 !AbstractFileBrowser class methodsFor:'utilities'!
 contentsOfBytesAsHexDump:data numberOfAddressDigits:addrDigits addressStart:virtualStart
 "utility helper: generate a hexDump with addresses"
 addressStart:0
 "Modified: / 13-02-2012 / 15:01:19 / cg"
 ! !
 !AbstractFileBrowser methodsFor:'actions'!
 askForCommandFor:fileName thenDo:aBlock
 "setup and launch a querybox to ask for a unix command.
 Then evaluate aBlock passing the command-string as argument."
 ] ensure:[
 self activityVisibilityChannel value:false.
 ]
 ! !
 !AbstractFileBrowser methodsFor:'actions bookmarks'!
 addBookmark
 self currentFilesAreInSameDirectory ifFalse:[^ self].
 self addBookmarks:(self currentSelectedDirectories).
 !
 saveBookmarks
 self class saveBookmarks
 ! !
 !AbstractFileBrowser methodsFor:'actions history'!
 addToCommandHistory:aCommandString for:aFilename
 |cmd suffix cmdHist historySize|
 self enableForward value:false.
 ].
 ! !
 !AbstractFileBrowser methodsFor:'applications'!
 applicationNamed:anApplicationName ifPresentDo:aBlock
 |appl|
 !
 directoryContentsBrowser
 ^ self applications at:#DirectoryContentsBrowser ifAbsent:nil.
 ! !
 !AbstractFileBrowser methodsFor:'aspects'!
 applications
 ^ aspects at:#applications
 rootHolder:aHolder
 self aspectFor:#rootHolder put:aHolder
 ! !
 !AbstractFileBrowser methodsFor:'aspects handling'!
 aspectFor:something ifAbsent:aBlock
 "returns the model for an aspect; these are stored in a common dictionary"
 ifAbsent:nil "(self class userPreferencesAspectList at:something)".
 "Modified: / 14-10-2010 / 19:16:38 / cg"
 ! !
 !AbstractFileBrowser methodsFor:'aspects-filter'!
 filter:aString
 self filterModel value:aString
 !
 fileHistory
 ^ self aspectFor:#fileHistory ifAbsent:[OrderedSet new]
 ! !
 !AbstractFileBrowser methodsFor:'aspects-visibility'!
 activityVisibilityChannel
 " activityVisibilityChannel switches the activity indicator on/off"
 viewType
 " aspect for show suffix (type) information in DirectoryContentsBrowser"
 ^ self directoryContentsBrowser viewType
 ! !
 !AbstractFileBrowser methodsFor:'background processing'!
 executeCommand:cmd
 self backgroundProcesses add:process.
 appl process value:process.
 process resume.
 ! !
 !AbstractFileBrowser methodsFor:'change & update'!
 currentFileNameHolderChanged
 "/ self currentFileNameHolderChangedForCommon
 !
 updateListAfterDelete:colOfFiles
 self updateCurrentDirectory
 ! !
 !AbstractFileBrowser methodsFor:'clipboard'!
 canPaste
 ^ self aspectFor:#canPaste ifAbsent:[ false asValue ].
 self notify:stream contents.
 stream close.
 clp files:colOfFiles.
 self canPaste value:true.
 ! !
 !AbstractFileBrowser methodsFor:'drag & drop'!
 canDropFiles:dropedObjects for:filename
 |filenameDirString filenameDir|
 wakeUp
 ].
 "Created: / 13-10-2006 / 18:26:41 / cg"
 ! !
 !AbstractFileBrowser methodsFor:'file operations'!
 copyFile:aSourceFile to:aDestFile
 "copy to"
 ].
 "Modified: / 04-12-2006 / 13:15:24 / cg"
 ! !
 !AbstractFileBrowser methodsFor:'menu accessing'!
 bookmarksMenu
 <resource: #programMenu>
 menu findGuiResourcesIn:self.
 ^ menu
 "Modified: / 09-09-2012 / 13:07:45 / cg"
 ! !
 !AbstractFileBrowser methodsFor:'menu actions'!
 doCompareTwoFiles
 self openDiffView.
 ^ Filename tempDirectory.
 "Created: / 29-12-2010 / 11:03:00 / cg"
 ! !
 !AbstractFileBrowser methodsFor:'menu actions-file'!
 copyFiles
 self
 withSelectedFilesOrDirectoriesDo:[:filesOrDirs | self copyFilesToClipBoard:filesOrDirs]
 aBlock value:dirs.
 ].
 ].
 ! !
 !AbstractFileBrowser methodsFor:'menu actions-help'!
 openAboutThisApplication
 "opens an about box for this application."
 !
 openHTMLDocument:relativeDocPath
 HTMLDocumentView openFullOnDocumentationFile:relativeDocPath
 ! !
 !AbstractFileBrowser methodsFor:'menu actions-scm-cvs'!
 cvsAddAndCommit
 self cvsAddAndCommitAsBinary:false
 stream nextPutAll:file baseName.
 stream nextPutAll:'" '.
 ].
 ^ stream contents.
 ! !
 !AbstractFileBrowser methodsFor:'menu actions-scm-mercurial'!
 mercurialAdd
 |executionBlock sel maxCmdSize|
 |pkcs7SignedData signatureFilename|
 self notify:'Generating signed file from: ', (fn baseName), '...'.
 pkcs7SignedData := Expecco::KeyFileGenerator new signExpeccoCode:fn contentsOfEntireFile.
-signatureFilename := fn addSuffix:'signed'.
+signatureFilename := fn withSuffix:'expeccoPatch'.
 signatureFilename contents:pkcs7SignedData.
 ].
 self notify:nil.
 ]
 !
 self notify:nil.
 "Modified: / 04-12-2006 / 13:15:28 / cg"
 ! !
 !AbstractFileBrowser methodsFor:'menu queries-cvs'!
 canCvsAddAndCommit
 |selectedFiles|
 dirOfFile := self getDirWithoutFileName:fileName.
 cvsDir := dirOfFile construct:'CVS'.
 cvsDir isDirectory
 ].
 ! !
 !AbstractFileBrowser methodsFor:'menu queries-tools'!
 anySTFilesOrDirectoriesPresent
 ^ self anyDirectoriesOrFilesPresentWithSuffix:'st'
 ^ false
 ! !
 !AbstractFileBrowser methodsFor:'presentation'!
 getModeString:modeBits
 "convert file-mode bits into a more user-friendly string.
 This is wrong here - should be moved into OperatingSystem."
 ]
 ].
 ^ modeString
 ! !
 !AbstractFileBrowser methodsFor:'private'!
 theSingleSelectedDirectoryOrHomeDir
 |dir|
 dirs := self currentSelectedDirectories.
 dirs size ~= 1 ifTrue:[ ^ nil].
 ^ dirs anElement.
 ! !
 !AbstractFileBrowser methodsFor:'queries'!
 cBrowserLoaded
 ^ CBrowser::Browser notNil
 !
 systemIsUnix
 ^ OperatingSystem isUNIXlike
 ! !
 !AbstractFileBrowser methodsFor:'queries-file'!
 allItemsOfCurrentDirectory
 self
 recursiveAnySTFilesPresent
 ^ self recursiveAnyFilesPresentWithSuffix:'st'
 ! !
 !AbstractFileBrowser methodsFor:'selection'!
 currentSelectedDirectories
 ^ self currentDirectoriesValue.
 !
 ^ self currentFileNameHolder value
 !
 firstSelectedFile
 ^ self currentSelectedObjects
-detect:[:file | file asFilename isDirectory not]
+detect:[:file | (file ? '') asFilename isDirectory not]
 ifNone:[].
 "Modified: / 04-12-2006 / 13:14:50 / cg"
 !
 ^ self currentSelectedObjects size == 2
 and:[self hasOnlyFilesSelected]
 "Modified: / 04-12-2006 / 13:15:04 / cg"
 ! !
 !AbstractFileBrowser methodsFor:'sorting'!
 currentSortOrder
 ^ self aspectFor:#currentSortOrder ifAbsent:[ Dictionary new asValue ].
 self sortBlockHolder value:sorter.
 "Modified: / 18-09-2007 / 09:42:47 / cg"
 ! !
 !AbstractFileBrowser methodsFor:'startup & release'!
 makeDependent
 self filterModel addDependent:self.
 self currentFileNameHolder addDependent:self.
 self windowGroup showWaitCursorWhenBusyForMillis:100.
 "Modified: / 25-07-2006 / 09:12:45 / cg"
 ! !
 !AbstractFileBrowser::Clipboard methodsFor:'accessing'!
 files
 "return the value of the instance variable 'files' (automatically generated)"
 "set the value of the instance variable 'method' (automatically generated)"
 method := something.
 ! !
 !AbstractFileBrowser::CodeExecutionLock methodsFor:'accessing'!
 locked
 "return the value of the instance variable 'locked' (automatically generated)"
 locked isNil ifTrue:[
 locked := false.
 ].
 ^ locked
 ! !
 !AbstractFileBrowser::CodeExecutionLock methodsFor:'actions'!
 doIfUnLocked:aBlock
 aBlock ensure:[
 locked := false.
 ]
 ! !
 !AbstractFileBrowser::DirectoryHistory class methodsFor:'defaults'!
 defaultHistorySize
 ^ 50
 ! !
 !AbstractFileBrowser::DirectoryHistory class methodsFor:'instance creation'!
 new
 ^ (super new) initializeHistory.
 ! !
 !AbstractFileBrowser::DirectoryHistory methodsFor:'accessing'!
 historySize
 historySize isNil ifTrue:[^ self class defaultHistorySize].
 ^ historySize
 !
 historySize:aNumber
 historySize := aNumber
 ! !
 !AbstractFileBrowser::DirectoryHistory methodsFor:'actions'!
 addToHistory:aPath
 | item pathToAdd |
 item position:aPosition.
 ]
 ].
 ! !
 !AbstractFileBrowser::DirectoryHistory methodsFor:'initialization'!
 initializeHistory
 backForwardList := OrderedCollection new.
 self reverseDo:[:el|
 backForwardList add:el path.
 ].
 backForwardIndex := backForwardList size.
 ! !
 !AbstractFileBrowser::DirectoryHistory methodsFor:'queries'!
 canBackward
 retPath := backForwardList at:backForwardIndex + 1.
 ].
 ^ retPath.
 ! !
 !AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem class methodsFor:'instance creation'!
 path:aPath
 ^ self new path:aPath
 ! !
 !AbstractFileBrowser::DirectoryHistory::DirectoryHistoryItem methodsFor:'accessing'!
 asFilename
 ^ path asFilename
 !
 printString
 ^ self path asString
 ! !
 !AbstractFileBrowser::SaveAspectItem class methodsFor:'instance creation'!
 withValue:aValue isHolder:aBoolean
 instance value:aValue.
 instance isHolder:aBoolean.
 ^ instance
 ! !
 !AbstractFileBrowser::SaveAspectItem methodsFor:'accessing'!
 isHolder
 "return the value of the instance variable 'isHolder' (automatically generated)"
 "set the value of the instance variable 'value' (automatically generated)"
 value := something.
 ! !
 !AbstractFileBrowser class methodsFor:'documentation'!
 version
-^ '$Id: AbstractFileBrowser.st 8084 2013-01-14 12:06:02Z vranyj1 $'
+^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.507 2013-01-15 14:07:08 stefan Exp $'
 !
 version_CVS
-^ '�Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.505 2012/11/21 07:48:33 cg Exp �'
+^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.507 2013-01-15 14:07:08 stefan Exp $'
 !
 version_SVN
 ^ '$Id: AbstractFileBrowser.st 8084 2013-01-14 12:06:02Z vranyj1 $'
 ! !

branch	jv
changeset 12401	4714b9640528
parent 12315	26537451c956
parent 12102	9512a4336434
child 12431	9f0c59c742d5