hg/stx-libtool: comparison FileBrowser.st

equal deleted inserted replaced

-:235b77901045
+:4714b9640528
 [start with:]
 FileBrowser open
 "
 ! !
 !FileBrowser class methodsFor:'instance creation'!
 on:aDirectoryPath
 "return a new FileBrowser in a pathname"
 "
 "Modified: / 17.6.1998 / 11:25:29 / cg"
 ! !
 !FileBrowser class methodsFor:'aspects'!
 directoryBookmarks
 ^ AbstractFileBrowser directoryBookmarks.
 !
 directoryHistory
 ^ AbstractFileBrowser directoryHistory.
 ! !
 !FileBrowser class methodsFor:'defaults'!
 defaultIcon
 "return the file browsers default window icon"
 "Modified: / 19-03-1997 / 20:48:34 / ca"
 "Modified: / 17-09-2007 / 11:36:12 / cg"
 ! !
 !FileBrowser class methodsFor:'fileList user interaction'!
 goodRenameDefaultForFile:oldName lastOld:lastOldName lastNew:lastNewName
 ^ DoWhatIMeanSupport goodRenameDefaultForFile:oldName lastOld:lastOldName lastNew:lastNewName
 ! !
 !FileBrowser class methodsFor:'history'!
 addToCommandHistory:aCommandString for:aFilename
 |cmd suffix|
 VisitedFileHistory removeIndex:idx.
 ].
 VisitedFileHistory addFirst:path.
 ! !
 !FileBrowser class methodsFor:'icon-presentation'!
 addOnIconsFor:aFilename to:anIcon
 "given a fileName, return an appropriate icon"
 iconKeyForRemoteDirectory:aFilenameArg
 "given a fileName, return an appropriate icon"
 ^ MIMETypeIconLibrary iconKeyForRemoteDirectory:aFilenameArg
 ! !
 !FileBrowser class methodsFor:'interface specs'!
 fileSearchDialogSpec
 "This resource specification was automatically generated
 )
 )
 )
 ! !
 !FileBrowser class methodsFor:'menu specs'!
 baseBookmarksMenuSpec
 "This resource specification was automatically generated
 yourself).
 ].
 ^ m
 ! !
 !FileBrowser class methodsFor:'queries'!
 isVisualStartable
 "return true, if this application can be started via #open.
 (to allow start of a change browser via double-click in the browser)"
 ^ true
 ! !
 !FileBrowser methodsFor:'aspects'!
 anyFilesPresentWithSuffix:suffix
 ^ currentDirectory notNil
 ^ OperatingSystem isVMSlike
 "Created: / 4.8.1998 / 13:37:37 / cg"
 ! !
 !FileBrowser methodsFor:'drag & drop'!
 canDropObjects:aCollectionOfDropObjects
 "I accept file- and textObjects only"
 ^ self
 ].
 "Modified: 6.4.1997 / 14:46:44 / cg"
 ! !
 !FileBrowser methodsFor:'events'!
 handlesKeyPress:key inView:view
 "this method is reached via delegation: are we prepared to handle
 self scheduleCheckBlock.
 ]
 "Modified: / 18.2.1998 / 17:57:44 / cg"
 ! !
 !FileBrowser methodsFor:'fileList user interaction'!
 bigImagePreviewSettingChanged
 "invoked, when big image preview flag changed"
 "Created: / 19.4.1997 / 09:50:02 / cg"
 "Modified: / 4.8.1998 / 13:44:14 / cg"
 ! !
 !FileBrowser methodsFor:'help'!
 helpTextFor:aComponent
 |s|
 s notNil ifTrue:[
 ^ resources string:s
 ].
 ^ nil
 ! !
 !FileBrowser methodsFor:'initialization & release'!
 createTabRulerIn:topFrame
 |v|
 self showOrHideTabView.
 "Created: 24.7.1997 / 18:13:46 / cg"
 ! !
 !FileBrowser methodsFor:'menu actions'!
 addBookmark
 self addBookmark:currentDirectory asFilename pathName
 !
 self updateCurrentDirectory
 "Created: / 14.8.1998 / 16:17:20 / cg"
 "Modified: / 14.8.1998 / 16:44:00 / cg"
 ! !
 !FileBrowser methodsFor:'menu actions-cvs'!
 cvsAddAndCommitSelection
 "add files (or all in current directory) and commit"
 replace:false.
 "Modified: / 21.10.1998 / 17:02:11 / cg"
 ! !
 !FileBrowser methodsFor:'misc user interaction'!
 closeRequest
 "asks for permission before closing"
 fileListView invalidate
 ].
 "Modified: 29.5.1996 / 16:13:43 / cg"
 ! !
 !FileBrowser methodsFor:'pathField user interaction'!
 addDirToJavaClassPath
 "add the current path to javas classPath
 "Modified: 14.12.1996 / 15:37:47 / cg"
 "Created: 2.8.1997 / 14:11:41 / cg"
 ! !
 !FileBrowser methodsFor:'private'!
 ask:question yesButton:yesButtonText
 "common method to ask a yes/no question; return true or false"
 showingHiddenFiles value ifTrue:[
 ^ aCollection
 ].
 ^ aCollection reject:[:fn | fn asFilename isHidden].
 ! !
 !FileBrowser methodsFor:'private-actions & command execution'!
 binaryFileAction:aFilename
 "for some binary files, if double clicked, we can do some useful
 "Created: 19.6.1996 / 09:36:38 / cg"
 "Modified: 4.4.1997 / 10:49:00 / cg"
 "Modified: 18.9.1997 / 16:58:40 / stefan"
 ! !
 !FileBrowser methodsFor:'private-directory stuff'!
 changeToPreviousDirectory
 "if text was modified show a queryBox,
 ]
 "Modified: / 16.9.1997 / 15:35:52 / stefan"
 "Modified: / 16.12.1998 / 22:55:44 / cg"
 ! !
 !FileBrowser methodsFor:'private-file I/O'!
 readFile:fileName
 "read in the file, answer its contents as StringCollection"
 "Created: / 22.2.1996 / 15:03:10 / cg"
 "Modified: / 18.9.1997 / 17:12:44 / stefan"
 "Modified: / 6.5.1999 / 11:45:50 / cg"
 ! !
 !FileBrowser methodsFor:'private-file stuff'!
 doCreateFile:newName
 "create an empty file"
 "Modified: / 24-09-1997 / 09:20:00 / stefan"
 "Modified: / 21-09-2006 / 18:34:45 / cg"
 ! !
 !FileBrowser methodsFor:'private-file type & info'!
 fileTypeSpecificActions
 "any special fileTypeSpecific actions are done here,
 when a new file is selected"
 n := (size * 10 // 1024 // 1024 / 10.0).
 unitString := ' Mb'
 ].
 ^ (n printStringLeftPaddedTo:5) , unitString.
 ! !
 !FileBrowser methodsFor:'private-presentation'!
 defineTabulatorsForLongList
 "define the tabs for the long list"
 "Modified: / 28.4.1997 / 22:30:30 / dq"
 "Modified: / 18.9.1997 / 18:28:30 / stefan"
 "Modified: / 15.11.2001 / 23:49:03 / cg"
 ! !
 !FileBrowser methodsFor:'queries'!
 fileName
 "return my current fileName - during fileIn, the file
 which is being loaded is returned.
 ^ currentDirectory pathName "/ asFilename osNameForDirectory
 "Modified: / 12.8.1998 / 14:45:48 / cg"
 ! !
 !FileBrowser class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.643 2012/07/27 09:07:58 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.643 2012-07-27 09:07:58 cg Exp $'
 !
 version_CVS
-^ '�Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.643 2012/07/27 09:07:58 cg Exp �'
+^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.643 2012-07-27 09:07:58 cg Exp $'
 !
 version_SVN
 ^ '$Id: FileBrowser.st 8048 2012-09-07 17:28:09Z vranyj1 $'
 ! !

branch	jv
changeset 12401	4714b9640528
parent 12287	400a99059170
parent 11689	e6586cca74dd
child 12431	9f0c59c742d5