Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.793.mcz
==================== Summary ====================
Name: Tools-mt.793 Author: mt Time: 18 January 2018, 8:02:58.077364 am UUID: b19923b8-94c9-c84f-a019-d48ab4c5a8e1 Ancestors: Tools-mt.792
Move new file dialogs into ToolBuilder-Morphic package due to its Morphic dependency. (Compares with ListChooser.)
=============== Diff against Tools-mt.792 ===============
Item was changed: SystemOrganization addCategory: #'Tools-ArchiveViewer'! SystemOrganization addCategory: #'Tools-Base'! SystemOrganization addCategory: #'Tools-Browser'! SystemOrganization addCategory: #'Tools-Changes'! SystemOrganization addCategory: #'Tools-Debugger'! SystemOrganization addCategory: #'Tools-Explorer'! SystemOrganization addCategory: #'Tools-File Contents Browser'! SystemOrganization addCategory: #'Tools-FileList'! SystemOrganization addCategory: #'Tools-Inspector'! SystemOrganization addCategory: #'Tools-Menus'! SystemOrganization addCategory: #'Tools-MethodFinder'! SystemOrganization addCategory: #'Tools-Process Browser'! - SystemOrganization addCategory: #'Tools-FileDialogs'!
Item was removed: - FileAbstractSelectionDialog subclass: #DirectoryChooserDialog - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tools-FileDialogs'! - - !DirectoryChooserDialog commentStamp: 'tpr 12/21/2017 11:32' prior: 0! - A DirectoryChooserDialog is a modal dialog to allow choosing a directory. The full directory name is returned, or nil if no selection was made. - - Normal usage would be - myDirname := DirectoryChooserDialog openOn: myApplicationDefaultDirectory label: 'Choose the directory to use' - !
Item was removed: - ----- Method: DirectoryChooserDialog class>>openOn:label: (in category 'instance creation') ----- - openOn: aDirectory label: labelString - "open a directory chooser starting with aDirectory" - - "DirectoryChooserDialog openOn: FileDirectory default label: 'Choose the directory to use' " - - ^super new - directory: aDirectory; - message: labelString; - getUserResponse!
Item was removed: - ----- Method: DirectoryChooserDialog>>acceptFileName (in category 'initialize-release') ----- - acceptFileName - "User clicked to accept the current state so save the directory and close the dialog" - - finalChoice := directory. - self changed: #close!
Item was removed: - ----- Method: DirectoryChooserDialog>>buildWith: (in category 'toolbuilder') ----- - buildWith: builder - "assemble the spec for the chooser dialog UI" - - | windowSpec window | - windowSpec := self buildWindowWith: builder specs: { - (self frameOffsetFromTop: 0 - fromLeft: 0 - width: 1 - offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. - }. - windowSpec buttons addAll: ( self buildButtonsWith: builder ). - window := builder build: windowSpec. - Project current isMorphic ifTrue: [window addKeyboardCaptureFilter: self]. - self changed: #selectedPath. - ^window - !
Item was removed: - ----- Method: DirectoryChooserDialog>>finalChoice (in category 'ui details') ----- - finalChoice - "return the chosen directory that was saved by an accept click or nil; client must check for validity" - - ^ finalChoice - ifNotNil: [self directory]!
Item was removed: - ----- Method: DirectoryChooserDialog>>initialExtent (in category 'toolbuilder') ----- - initialExtent - "Since this is a single list it can be a bit narrower than a FileChooserDialog" - - ^ super initialExtent * (0.5 @ 1)!
Item was removed: - ----- Method: DirectoryChooserDialog>>userMessage (in category 'ui details') ----- - userMessage - "return the string to present to the user in order to explain the purpose of this dialog appearing" - - ^message ifNil:['Choose a directory name']!
Item was removed: - Model subclass: #FileAbstractSelectionDialog - instanceVariableNames: 'patternList directory directoryCache message listIndex fileName finalChoice nameList sizeList dateList' - classVariableNames: '' - poolDictionaries: '' - category: 'Tools-FileDialogs'! - - !FileAbstractSelectionDialog commentStamp: 'tpr 11/21/2017 18:18' prior: 0! - FileAbstractSelectionDialog is the abstract superclass for the file chooser & saver modal dialogs. - - The UI provides a message to the user, a text input field, a directory tree widget and a list of files within any chosen directory, and buttons to accept the selected file name/path or cancel the operation. See subclass comments and class side methods for specific usage examples. - - Instance Variables - directory: <FileDirectory> used for the currently selected directory - directoryCache: <WeakIdentityKeyDictionary> used to cache a boolean to help us more quickly populate the directory tree widget when revisiting a directory - fileName: <String|nil> the name of the currently selected file, if any - finalChoice: <String|nil> pathname of the finally chosen file, returned as the result of accepting; nil is returned otherwise - list: <Array> the list of String of filenames (and date/size) that match the current pattern - listIndex: <Integer> list index of the currently selected file - patternList: <OrderedCollection of String> the patterns are held as a collection of string that may include * or # wildcards. See FileAbstractSelectionDialog>>#parsePatternString for details - message: <String> a message to the user to explain what is expected - nameList,DateList, sizeList: <Array> the list of file names matching the pattern and the appropriate date and size values, formatted for a PluggableMultiColumnListMorph!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>acceptFileName (in category 'initialize-release') ----- - acceptFileName - "User clicked to accept the current state so save the filename and close the dialog" - - finalChoice := fileName. - self changed: #close!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>buildButtonsWith: (in category 'toolbuilder') ----- - buildButtonsWith: builder - - ^ { - builder pluggableButtonSpec new - model: self; - label: 'Accept' translated; - color: (self userInterfaceTheme get: #okColor for: #DialogWindow); - action: #acceptFileName. - builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - color: (self userInterfaceTheme get: #cancelColor for: #DialogWindow); - action: #cancelFileChooser}!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>buildDirectoryTreeWith: (in category 'toolbuilder') ----- - buildDirectoryTreeWith: builder - | treeSpec | - treeSpec := builder pluggableTreeSpec new. - treeSpec - model: self ; - roots: #rootDirectoryList ; - hasChildren: #hasMoreDirectories: ; - getChildren: #subDirectoriesOf: ; - getSelectedPath: #selectedPath ; - setSelected: #setDirectoryTo: ; - getSelected: #directory; - label: #directoryNameOf: ; - menu: nil ; - autoDeselect: false. - ^ treeSpec!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>buildFileListWith: (in category 'toolbuilder') ----- - buildFileListWith: builder - | listSpec | - listSpec := builder pluggableMultiColumnListSpec new. - listSpec - model: self ; - list: #fileList ; - getIndex: #fileListIndex ; - setIndex: #fileListIndex: ; - menu: nil ; - keyPress: nil ; - frame: - (self - frameOffsetFromTop:0 - fromLeft: 0 - width: 1 - bottomFraction: 1); - hScrollBarPolicy: #always . - ^listSpec!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>buildTextInputWith: (in category 'toolbuilder') ----- - buildTextInputWith: builder - | textSpec | - textSpec := builder pluggableInputFieldSpec new. - textSpec - model: self; - font: self textViewFont; - getText: #inputText; - setText: #inputText:. - ^textSpec - !
Item was removed: - ----- Method: FileAbstractSelectionDialog>>buildWindowWith: (in category 'toolbuilder') ----- - buildWindowWith: builder - "Since a file chooser is a modal dialog we over-ride the normal window build to use a dialog as the top component" - - | windowSpec | - windowSpec := builder pluggableDialogSpec new. - windowSpec model: self; - label: #windowTitle; - message: #userMessage; - extent: self initialExtent; - spacing: self viewSpacing; - children: OrderedCollection new; - buttons: OrderedCollection new. - ^windowSpec!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>buildWith: (in category 'toolbuilder') ----- - buildWith: builder - "assemble the spec for the common chooser/saver dialog UI" - - ^self subclassResponsibility!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>buttonHeight (in category 'ui details') ----- - buttonHeight - - ^ Preferences standardButtonFont height * 2!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>cancelFileChooser (in category 'initialize-release') ----- - cancelFileChooser - "User clicked to cancel the current state so nil the filename and close the dialog" - - directory := finalChoice := fileName := nil. - self changed: #close.!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>defaultPatternList (in category 'path and pattern') ----- - defaultPatternList - - ^#('*')!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>directory (in category 'directory tree') ----- - directory - "If nobody has set a specific directory we need a plausible default" - - ^ directory ifNil: [ directory := FileDirectory default]!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>directory: (in category 'directory tree') ----- - directory: aFileDirectory - "Set the path of the directory to be displayed in the directory tree pane" - - directory := aFileDirectory!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>directoryNameOf: (in category 'directory tree') ----- - directoryNameOf: aDirectory - "Return a name for the selected directory in the tree view" - - ^aDirectory localName!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>entriesMatching: (in category 'file list') ----- - entriesMatching: patternList - "Answer a list of directory entries which match any of the patterns. - See #parsePatternString for the pattern rules" - - | entries | - "This odd clause helps supports MVC projects; the file list & directory views are built from a list that includes directories. In Morphic we filter out the directories because they are entirely handled by the direcctory tree morph" - entries := Smalltalk isMorphic - ifTrue:[self directory fileEntries ] - ifFalse:[self directory entries]. - - (patternList anySatisfy: [:each | each = '*']) - ifTrue: [^ entries]. - - ^ entries select: [:entry | patternList anySatisfy: [:each | each match: entry name]]!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>fileList (in category 'file list') ----- - fileList - "return the list of files in the currently selected directory; if we haven't yet read an actual directory return empty lists for now" - - nameList ifNil: [nameList := dateList := sizeList := #()]. - ^Array with: nameList with: dateList with: sizeList!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>fileListIndex (in category 'file list') ----- - fileListIndex - "return the index in the list of files for the currently selected file; we initialise this to 0 so that the initial listmorph doesn't get upset before we actually populate it with file details - which we don't do until a directory is selected" - - ^listIndex!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>fileListIndex: (in category 'file list') ----- - fileListIndex: anInteger - "We've selected the file at the given index, so find the file name." - - self okToChange ifFalse: [^ self]. - listIndex := anInteger. - listIndex = 0 - ifTrue: [fileName := nil] - ifFalse: [fileName := nameList at: anInteger]. "open the file selected" - - self - changed: #fileListIndex; - changed: #inputText!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>filterEvent:for: (in category 'event handling') ----- - filterEvent: aKeyboardEvent for: aMorph - - | char | - aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent]. - aKeyboardEvent anyModifierKeyPressed ifTrue: [^ aKeyboardEvent]. - - char := aKeyboardEvent keyCharacter. - - (char = Character cr or: [char = Character enter]) - ifTrue: [self acceptFileName. aKeyboardEvent ignore]. - char = Character escape - ifTrue: [self cancelFileChooser. aKeyboardEvent ignore]. - - ^ aKeyboardEvent!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>finalChoice (in category 'initialize-release') ----- - finalChoice - "return the chosen directory/filename that was saved by an accept click or nil; client must check for validity" - ^ finalChoice - ifNotNil: [self directory fullNameFor: finalChoice]!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>frameOffsetFromTop:fromLeft:width:bottomFraction: (in category 'ui details') ----- - frameOffsetFromTop: height fromLeft: leftFraction width: widthFraction bottomFraction: bottomFraction - "return a layout frame that starts at the fixed upper offset and goes down to the bottomFraction, and runs widthFraction from the leftFraction" - - ^LayoutFrame new - topFraction: 0 offset: height; - leftFraction: leftFraction offset: 0; - rightFraction: (leftFraction + widthFraction) offset: 0; - bottomFraction: bottomFraction offset: 0; - yourself.!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>frameOffsetFromTop:fromLeft:width:offsetFromBottom: (in category 'ui details') ----- - frameOffsetFromTop: height fromLeft: leftFraction width: widthFraction offsetFromBottom: bottomOffset - "return a layout frame that starts at the fixed upper offset and goes down to the bottom - the offsetn, and runs widthFraction from the leftFraction" - - ^LayoutFrame new - topFraction: 0 offset: height; - leftFraction: leftFraction offset: 0; - rightFraction: (leftFraction + widthFraction) offset: 0; - bottomFraction: 1 offset: bottomOffset negated; - yourself.!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>getUserResponse (in category 'toolbuilder') ----- - getUserResponse - "open the dialog modally and get a user response" - - ToolBuilder open: self. - ^self finalChoice!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>hasMoreDirectories: (in category 'directory tree') ----- - hasMoreDirectories: aDirectory - "The directory tree morph needs to know if a specific directory has subdirectories; we cache the answer to speed up later visits to the same directory" - - ^directoryCache at: aDirectory ifAbsentPut:[ - [aDirectory hasSubDirectories] on: Error do:[:ex| true]. - ].!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>initialize (in category 'initialize-release') ----- - initialize - super initialize. - directoryCache := WeakIdentityKeyDictionary new. - listIndex := 0. - patternList := self defaultPatternList!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>listForPatterns: (in category 'path and pattern') ----- - listForPatterns: arrayOfPatterns - "build lists of name, date and size for those file names which match any of the patterns in the array. - We use a Set to avoid duplicates and sort them by name" - - | newList | - newList := Set new. - newList addAll: (self entriesMatching: arrayOfPatterns). - - newList := newList sorted: [:a :b| - a name <= b name]. - nameList := newList collect:[:e| e name]. - dateList := newList collect:[:e| ((Date fromSeconds: e modificationTime ) - printFormat: #(3 2 1 $. 1 1 2)) , ' ' , - (String streamContents: [:s | - (Time fromSeconds: e modificationTime \ 86400) - print24: true on: s])]. - sizeList := newList collect:[:e| e fileSize asStringWithCommas] - !
Item was removed: - ----- Method: FileAbstractSelectionDialog>>message: (in category 'ui details') ----- - message: aStringOrText - "set the user message to be dispalyed at the top of the dialog - it should guide the user as to what they must do" - - message := aStringOrText!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>parsePatternString: (in category 'file list') ----- - parsePatternString: aStringOrNil - "The pattern is a string that may have three simple tokens included along with normal characters; - a) a ; or LF or CR splits the string into separate patterns and filenames matching any of them will be included in list - b) a * matches any number of characters - c) a # matches one character" - - | patterns | - aStringOrNil ifNil:[^self defaultPatternList]. - patterns := OrderedCollection new. - (aStringOrNil findTokens: (String with: Character cr with: Character lf with: $;)) - do: [ :each | - (each includes: $*) | (each includes: $#) - ifTrue: [ patterns add: each] - ifFalse: [each isEmptyOrNil - ifTrue: [ patterns add: '*'] - ifFalse: [ patterns add: '*' , each , '*']]]. - - ^patterns!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>pattern: (in category 'path and pattern') ----- - pattern: textOrStringOrNil - "Make sure the pattern source string is neither nil nor empty. - We can strictly speaking handle arbitrary patterns to match against the filenames but in general we need to use suffices, so see #suffix: and #suffixList: " - - patternList := self parsePatternString: textOrStringOrNil!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>rootDirectoryList (in category 'directory tree') ----- - rootDirectoryList - "Return a list of know root directories; forms the root nodes ot the directory tree morph" - - | dirList dir | - dir := FileDirectory root. - dirList := self subDirectoriesOf: dir. - dirList isEmpty ifTrue:[dirList := Array with: FileDirectory default]. - ^dirList ,(ServerDirectory servers values) "looks odd because #servers returns the Dictionary of known servers with local names instead of the actaul server directories"!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>selectedPath (in category 'path and pattern') ----- - selectedPath - "Return an array of directories representing the path from directory up to the root; used to build the directory tree morph" - - | top here | - top := FileDirectory root. - here := self directory. - ^(Array streamContents:[:s| | next | - s nextPut: here. - [next := here containingDirectory. - top pathName = next pathName] whileFalse:[ - s nextPut: next. - here := next. - ]]) reversed.!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>setDirectoryTo: (in category 'directory tree') ----- - setDirectoryTo: dir - "Set the current directory shown in the FileList. - Does not allow setting the directory to nil since this blows up in various places." - - dir ifNil:[^self]. - "okToChange is probably redundant. - modelSleep/Wake is related to use of ServerDirectories, which are not yet hooked up" - self okToChange ifFalse: [ ^ self ]. - self modelSleep. - self directory: dir. - self modelWakeUp. - self changed: #directory. - self updateFileList. - self changed: #inputText!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>subDirectoriesOf: (in category 'directory tree') ----- - subDirectoriesOf: aDirectory - - ^aDirectory directoryNames collect:[:each| aDirectory directoryNamed: each].!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>suffix: (in category 'path and pattern') ----- - suffix: textOrStringOrNil - "Make a pattern from a single filename suffix string, i.e. 'jpg'" - - self suffixList: (Array with: textOrStringOrNil )!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>suffixList: (in category 'path and pattern') ----- - suffixList: listOfStrings - "Make a pattern list from a one or more filename suffix strings in a list , i.e. #('jpg' 'mpeg') " - - listOfStrings isEmptyOrNil - ifTrue: [patternList := self defaultPatternList] - ifFalse: [patternList := OrderedCollection new. - listOfStrings do: [:each| - each isEmptyOrNil ifFalse:[ patternList add: '*.',each] ] ]!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>textViewFont (in category 'ui details') ----- - textViewFont - - ^ Preferences standardDefaultTextFont!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>textViewHeight (in category 'ui details') ----- - textViewHeight - " Take a whole font line and 50 % for space " - - ^ (self textViewFont height * 1.5) ceiling!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>topConstantHeightFrame:fromLeft:width: (in category 'ui details') ----- - topConstantHeightFrame: height fromLeft: leftFraction width: widthFraction - "return a layout to make a fixed height frame that starts at the top of its parent and runs widthFraction from the leftFraction." - - ^LayoutFrame new - topFraction: 0 offset: 0; - leftFraction: leftFraction offset: 0; - rightFraction: (leftFraction + widthFraction) offset: 0; - bottomFraction: 0 offset: height; - yourself.!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>updateFileList (in category 'file list') ----- - updateFileList - "Update my files list with file names in the current directory that match the patternList." - - Cursor wait - showWhile: [self listForPatterns: patternList. - listIndex := 0. - self changed: #fileList]!
Item was removed: - ----- Method: FileAbstractSelectionDialog>>viewSpacing (in category 'ui details') ----- - viewSpacing - - ^ 5 "pixels"!
Item was removed: - FileAbstractSelectionDialog subclass: #FileChooserDialog - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tools-FileDialogs'! - - !FileChooserDialog commentStamp: 'dtl 12/21/2017 22:18' prior: 0! - A FileChooserDialog is a modal dialog to allow choosing a file. The full file name is returned, or nil if no selection was made. - - Normal usage would be - myFilename := FileChooserDialog openOn: myApplicationDefaultDirectory pattern: '*.myapp' label: 'Choose the file to load' - to find a file with a name matching *.myapp and with the directory initial choice set to myApplicationDefaultDirectory. Only filenames matching the pattern will appear in the file list view. - !
Item was removed: - ----- Method: FileChooserDialog class>>openOn: (in category 'instance creation') ----- - openOn: aDirectory - "Open a modal dialog to choose a file. Start the dialog with aDirectory selected - and files matching the default 'everything' pattern" - - "FileChooserDialog openOn: FileDirectory default" - - ^self openOn: aDirectory pattern: nil label: nil - !
Item was removed: - ----- Method: FileChooserDialog class>>openOn:pattern:label: (in category 'instance creation') ----- - openOn: aDirectory pattern: matchString label: labelString - "Open a modal dialog to choose a file. Start the dialog with aDirectory selected - and files matching the matchString pattern. Set the user message to labelString." - - "FileChooserDialog openOn: FileDirectory default pattern: '*.changes' label: 'Do something with the selected files' " - - ^self new - directory: aDirectory; - pattern: matchString; - message: labelString; - getUserResponse!
Item was removed: - ----- Method: FileChooserDialog class>>openOn:suffixList:label: (in category 'instance creation') ----- - openOn: aDirectory suffixList: patternList label: labelString - "Open a modal dialog to choose a file. Start the dialog with aDirectory selected - and files matching the file name suffixes in patternList. Set the user message - to labelString." - - "FileChooserDialog openOn: FileDirectory default suffixList: { '*.changes' . '*image' } label: 'Do something with the selected files' " - - ^self new - directory: aDirectory; - suffixList: patternList; - message: labelString; - getUserResponse!
Item was removed: - ----- Method: FileChooserDialog class>>openOnPattern:label: (in category 'instance creation') ----- - openOnPattern: matchString label: labelString - "Open a modal dialog to choose a file. Start the dialog with a default directory - selected and with files matching the default 'everything' pattern Set the user - message to labelString" - - "FileChooserDialog openOnPattern: '*.changes' label: 'Do something with the selected files' " - - ^self openOn: nil pattern: matchString label: labelString - !
Item was removed: - ----- Method: FileChooserDialog class>>openOnSuffixList:label: (in category 'instance creation') ----- - openOnSuffixList: patternList label: labelString - "Open a modal dialog to choose a file. Start the dialog with a default directory - selected and with files matching the file name suffixes in patternList. Set the - user message to labelString." - - "FileChooserDialog openOnSuffixList: { '*.changes' . '*image' } label: 'Do something with the selected files' " - - ^self openOn: nil suffixList: patternList label: labelString - !
Item was removed: - ----- Method: FileChooserDialog>>buildWith: (in category 'toolbuilder') ----- - buildWith: builder - "assemble the spec for the chooser dialog UI" - - | windowSpec window | - windowSpec := self buildWindowWith: builder specs: { - (self frameOffsetFromTop: 0 - fromLeft: 0.25 - width: 0.75 - offsetFromBottom: 0) -> [self buildFileListWith: builder]. - (self frameOffsetFromTop: 0 - fromLeft: 0 - width: 0.25 - offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. - }. - windowSpec buttons addAll: ( self buildButtonsWith: builder ). - window := builder build: windowSpec. - Project current isMorphic ifTrue: [window addKeyboardCaptureFilter: self]. - self changed: #selectedPath. - ^window - !
Item was removed: - ----- Method: FileChooserDialog>>userMessage (in category 'ui details') ----- - userMessage - "return the string to present to the user in order to explain the purpose of this dialog appearing" - - ^message ifNil:['Choose a file name']!
Item was removed: - ----- Method: FileChooserDialog>>windowTitle (in category 'ui details') ----- - windowTitle - "return the window label; would be some application dependent string but I suspect we will want to make the outer morph a dialogue box with no label anyway" - - ^'File Chooser'!
Item was removed: - FileAbstractSelectionDialog subclass: #FileSaverDialog - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tools-FileDialogs'! - - !FileSaverDialog commentStamp: 'dtl 12/21/2017 22:47' prior: 0! - A FileSaverDialog is a modal dialog for choosing a file name to use for saving a file. - - Users can enter a filename in the text input view that will - a) if it exists in the current directry listing, be selected - b) over ride any filenames in the current directory, providing a way to specify a completely new file. - This will not affect the selected directory path. - - Normal usage would be - myFilename := FileSaverDialog openOnInitialFilename: myApp saveFileName - which would derive a directory, an initial filename and filename suffix from the given file name. Thus a typical application save might be - ... openOnInitialFilename: '/home/pi/myApp/examplePicture.jpg' - and would set the initial directory to /home/pi/myapp, the initial filename to examplePicture.jpg and set a suffix pattern of 'jpg'. Only filenames with the specified suffix will appear in the file list view. It is possible to specify several suffices, (see #suffixList:) and use wildcards within the suffix. - - myFilename := FileSaverDialog openOn: myApplicationDefaultDirectory initialFilename: 'foo.myapp' - would set directory initial choice set to myApplicationDefaultDirectory and ignore any directory found in the filename. It would be quite possible to choose a file from any other directory and with any other name that matches the suffix if the user wishes, so the file name must be carefully checked. - - The full set of options would involve - myFilename := FileSaverDialog openOn: myApplicationDefaultDirectory initialFilename: 'foo.myapp' suffix: 'mya' message: 'Save your myApp file to ... ' - - It is also possible to set a more general pattern to match filenames against but since this seems less useful for normal application usage there are no convenience messages as yet. - - See the class side methods for details. See my parent class for most implementation details!
Item was removed: - ----- Method: FileSaverDialog class>>openOn: (in category 'instance creation') ----- - openOn: aDirectory - "open a modal dialog to save a file. Start the dialog with aDirectory selected - and no suggested file name" - - "FileSaverDialog openOn: FileDirectory default" - - ^self openOn: aDirectory initialFilename: nil label: nil - !
Item was removed: - ----- Method: FileSaverDialog class>>openOn:initialFilename: (in category 'instance creation') ----- - openOn: aDirectory initialFilename: aString - "Open a modal dialog to save a file. Start the dialog with aDirectory selected - and aString as the suggested file name. Note that we set the directory after - the initialFilename becuase we want a specific directory and not neccesarily - the directory of the file." - - "FileSaverDialog openOn: FileDirectory default initialFilename: 'aSuggestedFileName' " - - ^self openOn: aDirectory initialFilename: aString label: nil - !
Item was removed: - ----- Method: FileSaverDialog class>>openOn:initialFilename:label: (in category 'instance creation') ----- - openOn: aDirectory initialFilename: aString label: labelString - "Open a modal dialog to save a file. Start the dialog with aDirectory selected - and aString as the suggested file name. Set the user message to labelString. - Note that we set the directory after the initialFilename becuase we want a - specific directory and not neccesarily the directory of the file" - - "FileSaverDialog openOn: FileDirectory default initialFilename: 'aSuggestedFileName' label: 'Select a flie and do something with it' " - - ^self new - initialFilename: aString; - directory: aDirectory; - message: labelString; - getUserResponse - - !
Item was removed: - ----- Method: FileSaverDialog class>>openOnInitialFilename: (in category 'instance creation') ----- - openOnInitialFilename: filenameString - "Open a modal dialog to save a file. Start the dialog with the default directory - selected and the suggested file name." - - "FileSaverDialog openOnInitialFilename: 'aSuggestedFileName' " - - ^self openOn: nil initialFilename: filenameString label: nil - !
Item was removed: - ----- Method: FileSaverDialog class>>openOnInitialFilename:label: (in category 'instance creation') ----- - openOnInitialFilename: filenameString label: labelString - "Open a modal dialog to save a file. Start the dialog with the default directory - selected and the suggested file name, set the user message to labelString" - - "FileSaverDialog openOnInitialFilename: 'aSuggestedFileName' label: 'Select a flie and do something with it' " - - ^self openOn: nil initialFilename: filenameString label: labelString - !
Item was removed: - ----- Method: FileSaverDialog>>acceptFileName (in category 'initialize-release') ----- - acceptFileName - "make sure to accept any edit in the filename before closing" - - self changed: #acceptChanges. - ^super acceptFileName!
Item was removed: - ----- Method: FileSaverDialog>>buildWith: (in category 'toolbuilder') ----- - buildWith: builder - "assemble the spec for the saver dialog UI and build the window" - - | window windowSpec | - windowSpec := self buildWindowWith: builder specs: { - (self topConstantHeightFrame: self textViewHeight + self viewSpacing - fromLeft: 0 - width: 1) -> [self buildTextInputWith: builder]. - (self frameOffsetFromTop: self textViewHeight + self viewSpacing - fromLeft: 0.25 - width: 0.75 - offsetFromBottom: 0) -> [self buildFileListWith: builder]. - (self frameOffsetFromTop: self textViewHeight + self viewSpacing - fromLeft: 0 - width: 0.25 - offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. - }. - windowSpec buttons addAll: ( self buildButtonsWith: builder ). - window := builder build: windowSpec. - Project current isMorphic ifTrue: [window addKeyboardCaptureFilter: self]. - self changed: #selectedPath. - self inputText: fileName. - ^window - !
Item was removed: - ----- Method: FileSaverDialog>>initialFilename: (in category 'initialize-release') ----- - initialFilename: aFilenameOrNil - "Set the initial choice of filename to highlight. - We split the potential filename to see if it includes a path and if so, use that as the chosen directory - the client can manually change that with a subsequent send of #directory: if wanted. - We split the root filename to find an extension and use that as the suffix - again, the client can manually change that later" - - | e f p | - aFilenameOrNil ifNil:[^self]. - - p := FileDirectory dirPathFor: aFilenameOrNil. - p isEmpty ifFalse:[self directory: (FileDirectory on: p)]. - f := FileDirectory localNameFor: aFilenameOrNil. - fileName := f. - e := FileDirectory extensionFor: f. - e isEmpty ifFalse:[self suffix: e]!
Item was removed: - ----- Method: FileSaverDialog>>inputText (in category 'filename') ----- - inputText - "return the filename to appear in the text field" - - ^fileName ifNil:['Enter a filename here or choose from list' translated]!
Item was removed: - ----- Method: FileSaverDialog>>inputText: (in category 'filename') ----- - inputText: aText - "user has entered a potential filename in the text field. - Check it against the current pattern; if it is ok we can accept it and then if it is a file in - the current list, highlight it. - If it would not match the pattern, alert the user as best we can" - | candidate | - candidate := aText asString. - (patternList anySatisfy: [:p | p match: candidate]) - ifTrue: [fileName := candidate. - listIndex := nameList findFirst: [:nm | nm = fileName]. - self changed: #fileListIndex. - ^true] - ifFalse: [fileName := nil. - self changed: #flash. - ^false]!
Item was removed: - ----- Method: FileSaverDialog>>userMessage (in category 'ui details') ----- - userMessage - "return the string to present to the user in order to explain the purpose of this dialog appearing" - - ^message ifNil:['Choose a file name; you can also edit the name below to create a new file name']!
Item was removed: - ----- Method: FileSaverDialog>>windowTitle (in category 'ui details') ----- - windowTitle - "return the window label; would be some application dependent string but I suspect we will want to make the outer morph a dialogue box with no label anyway" - - ^'FileSaver'!