Squeak-dev December 2017

squeak-dev@lists.squeakfoundation.org

34 participants
159 discussions

The Trunk: MorphicExtras-eem.220.mcz
by commits＠source.squeak.org 31 Dec '17

31 Dec '17

Eliot Miranda uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-eem.220.mcz ==================== Summary ==================== Name: MorphicExtras-eem.220 Author: eem Time: 30 December 2017, 4:33:28.000844 pm UUID: b00fce10-0b97-4b3c-b933-a4d3ab0f12e6 Ancestors: MorphicExtras-tpr.219 Fix guards catching cancelling new file dialog. =============== Diff against MorphicExtras-tpr.219 =============== Item was changed: ----- Method: BookMorph>>printPSToFile (in category 'menus') ----- printPSToFile "Ask the user for a filename and print this morph as postscript." | fileName rotateFlag | fileName := 'MyBook' translated asFileName. + fileName := UIManager default + saveFilenameRequest: 'Filename to save BookMorph' translated + initialAnswer: fileName. + fileName isEmptyOrNil ifTrue: [^ Beeper beep]. - fileName := UIManager default saveFilenameRequest: 'Filename to save BookMorph' translated - initialAnswer: fileName. - fileName isEmpty ifTrue: [^ Beeper beep]. (fileName endsWith: '.ps') ifFalse: [fileName := fileName,'.ps']. rotateFlag := (UIManager default chooseFrom: { 'portrait (tall)' translated. 'landscape (wide)' translated } title: 'Choose orientation...' translated) = 2. FileStream newFileNamed: fileName do: [:file| + file nextPutAll: (DSCPostscriptCanvas morphAsPostscript: self rotated: rotateFlag)]! - file nextPutAll: (DSCPostscriptCanvas morphAsPostscript: self rotated: rotateFlag)] - - ! Item was changed: ----- Method: EnvelopeEditorMorph>>saveToDisk: (in category 'menu') ----- saveToDisk: evt | newName | newName := UIManager default saveFilenameRequest: 'Please confirm name for save...' initialAnswer: soundName, '.fmp'. + newName isEmptyOrNil ifTrue: [^ self]. - newName isEmpty ifTrue: [^ self]. FileStream newFileNamed: newName do:[:f| sound storeOn: f]!

1 0

The Trunk: Monticello-eem.676.mcz
by commits＠source.squeak.org 31 Dec '17

31 Dec '17

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.676.mcz ==================== Summary ==================== Name: Monticello-eem.676 Author: eem Time: 30 December 2017, 4:32:11.407169 pm UUID: a6398319-1b03-45b6-9531-2a17639c9334 Ancestors: Monticello-tpr.675 Add missing guard to catch cancelling new file dialog. =============== Diff against Monticello-tpr.675 =============== Item was changed: ----- Method: MCCodeTool>>fileOutMessage (in category 'menus') ----- fileOutMessage "Put a description of the selected message on a file" | fileName | self selectedMessageName ifNotNil: [Cursor write showWhile: [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName]. ^self]. items isEmpty ifTrue: [^self]. fileName := UIManager default saveFilenameRequest: 'File out on which file?' initialAnswer: 'methods'. + fileName isEmptyOrNil ifTrue: [^self]. Cursor write showWhile: [| definitionStream removalInitStream | definitionStream := WriteStream on: (String new: 1000). removalInitStream := WriteStream on: (String new: 100). definitionStream header; timeStamp. items do: [:patchOp| | def | def := patchOp definition. def isMethodDefinition ifTrue: [(def actualClass notNil and: [def actualClass includesSelector: def selector]) ifTrue: [def actualClass printMethodChunk: def selector withPreamble: true on: definitionStream moveSource: false toFile: nil. (def selector == #initialize and: [def classIsMeta]) ifTrue: [removalInitStream nextChunkPut: def className, ' initialize'; cr]] ifFalse: [removalInitStream nextChunkPut: def className, (def classIsMeta ifTrue: [' class'] ifFalse: ['']), ' removeSelector: ', def selector printString; cr]]. def isClassDefinition ifTrue: [def actualClass ifNotNil: [definitionStream nextChunkPut: def actualClass definition. def comment ifNotNil: [def actualClass organization putCommentOnFile: definitionStream numbered: 1 moveSource: false forClass: def actualClass]] ifNil: [removalInitStream nextChunkPut: def className, ' removeFromSystem'; cr]]]. definitionStream nextPutAll: removalInitStream contents. FileStream writeSourceCodeFrom: definitionStream baseName: fileName isSt: true useHtml: false]!

1 0

List of all global variables? (Environments?)
by H. Hirzel 30 Dec '17

30 Dec '17

Hello The recipe: How to list all global variables [1] has the code snippet Smalltalk keys select: [:k | ((Smalltalk at: k) isKindOf: Class) not] thenCollect: [:k | k -> (Smalltalk at: k) class] to give a list of global variables. When executing this code the recommendation is to use Smalltalk globals instead of Smalltalk keys A rewrite because of Environments not having #select:thenCollect: (I do not think that is necessary) then is (Smalltalk globals select: [:k | ((Smalltalk at: k) isKindOf: Class) not]) collect: [:k | k -> (Smalltalk at: k) class] Then I get 'key not found: ExtendedNumberParser'. I wonder what is going on here ... Regards Hannes [1] http://wiki.squeak.org/squeak/1824

5 12

#shutdown vs #shutdown:
by Fabio Niephaus 29 Dec '17

29 Dec '17

Hi all, SmalltalkImage>>processShutDownList: sends #shutdown: to all classes in ShutDownList, yet there are classes that don't implement #shutdown: but #shutdown. One example is ExternalSettings class>>shutDown, ExternalSettings is in ShutDownList. Can someone explain how this is supposed to work or why there is no error when the image is shutting down? Best, Fabio

3 3

The Trunk: Tools-tpr.782.mcz
by commits＠source.squeak.org 29 Dec '17

29 Dec '17

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.782.mcz ==================== Summary ==================== Name: Tools-tpr.782 Author: tpr Time: 24 December 2017, 5:51:10.642614 pm UUID: efa7a664-f28d-48b3-b2ca-db3519dd633a Ancestors: Tools-tpr.781 Updates for file dialog stuff Make DirectroyChooserDialog a) return a Directory b) return nil - as appropriate Adopt most of dtl's suggested changes =============== Diff against Tools-tpr.781 =============== Item was changed: ----- 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 - ^DirectoryChooserDialog new directory: aDirectory; message: labelString; getUserResponse! Item was added: + ----- 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 changed: ----- 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]! - ^self directory fullName! Item was changed: ----- 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. - fileName := nil. self changed: #close.! Item was changed: ----- 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]! - - ^self directory fullNameFor: finalChoice! Item was changed: FileAbstractSelectionDialog subclass: #FileChooserDialog instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tools-FileDialogs'! + !FileChooserDialog commentStamp: 'dtl 12/21/2017 22:18' prior: 0! - !FileChooserDialog commentStamp: 'tpr 11/21/2017 18:02' 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' - myFilename := FileChooserDialog openOn: myApplicationDefaultDirectory pattern: '*.myapp' message: '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 changed: ----- 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" - "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 + ! - ^self new directory: aDirectory; - getUserResponse! Item was added: + ----- 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 added: + ----- 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 changed: ----- 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" - openOnPattern: patternList label: messageString - "open a modal dialog to choose a file. Start the dialog with aDirectory selected and files matching the default 'everything' pattern" + "FileChooserDialog openOnPattern: '*.changes' label: 'Do something with the selected files' " + + ^self openOn: nil pattern: matchString label: labelString + ! - ^self new - pattern: patternList; - message: messageString; - getUserResponse! Item was changed: ----- 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." - openOnSuffixList: patternList label: messageString - "open a modal dialog to choose a file. Start the dialog with aDirectory selected and files matching the default 'everything' pattern" + "FileChooserDialog openOnSuffixList: { '*.changes' . '*image' } label: 'Do something with the selected files' " + + ^self openOn: nil suffixList: patternList label: labelString + ! - ^self new - suffixList: patternList; - message: messageString; - getUserResponse! Item was changed: FileAbstractSelectionDialog subclass: #FileSaverDialog instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tools-FileDialogs'! + !FileSaverDialog commentStamp: 'dtl 12/21/2017 22:47' prior: 0! - !FileSaverDialog commentStamp: 'tpr 11/21/2017 17:53' 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. - It is also possible to set a more general pattern to match filenames against but since this seems less useful for normal application usage ther are no convenience messages as yet. See the class side methods for details. See my parent class for most implementation details! Item was changed: ----- 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" - "open a modal dialog to save a file. Start the dialog with aDirectory selected and no suggested file name" + "FileSaverDialog openOn: FileDirectory default" - ^self new directory: aDirectory; - getUserResponse + ^self openOn: aDirectory initialFilename: nil label: nil ! Item was changed: ----- 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." - "open a modal dialog to save a file. Start the dialog with aDirectory selected and 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 new - initialFilename: aString; - directory: aDirectory; - getUserResponse + ^self openOn: aDirectory initialFilename: aString label: nil + ! - ! Item was added: + ----- 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 changed: ----- 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." - "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 new initialFilename: filenameString; - getUserResponse + ^self openOn: nil initialFilename: filenameString label: nil + ! - ! Item was changed: ----- 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" - "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 new - initialFilename: filenameString; - message: labelString; - getUserResponse + ^self openOn: nil initialFilename: filenameString label: labelString + ! - !

4 5

The Trunk: Monticello-dtl.674.mcz
by commits＠source.squeak.org 29 Dec '17

29 Dec '17

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.674.mcz ==================== Summary ==================== Name: Monticello-dtl.674 Author: dtl Time: 27 December 2017, 11:59:29.776456 pm UUID: c87618b4-007b-4e92-8f2a-60df81d148e8 Ancestors: Monticello-eem.673 When reading MCClassDefinition from a saved version, ensure that the special case of type #compiledMethod is handled for CompiledCode and subclasses. =============== Diff against Monticello-eem.673 =============== Item was changed: ----- Method: MCStReader>>classDefinitionFrom: (in category 'as yet unclassified') ----- classDefinitionFrom: aPseudoClass + | tokens traitCompositionString lastIndex classTraitCompositionString typeOfSubclass className | - | tokens traitCompositionString lastIndex classTraitCompositionString | tokens := Scanner new scanTokens: aPseudoClass definition. traitCompositionString := ((ReadStream on: aPseudoClass definition) match: 'uses:'; upToAll: 'instanceVariableNames:') withBlanksTrimmed. classTraitCompositionString := ((ReadStream on: aPseudoClass metaClass definition asString) match: 'uses:'; upToAll: 'instanceVariableNames:') withBlanksTrimmed. traitCompositionString isEmpty ifTrue: [traitCompositionString := '{}']. classTraitCompositionString isEmpty ifTrue: [classTraitCompositionString := '{}']. lastIndex := tokens size. + + className := tokens at: 3. + typeOfSubclass := self typeOfSubclass: (tokens at: 2). + "Compiled code classes are special cases of the #bytes class type" + (#bytes == typeOfSubclass and: [self compiledCodeClassNames includes: className]) + ifTrue: [typeOfSubclass := #compiledMethod]. + ^ MCClassDefinition + name: className - name: (tokens at: 3) superclassName: (tokens at: 1) traitComposition: traitCompositionString classTraitComposition: classTraitCompositionString category: (tokens at: lastIndex) instVarNames: ((tokens at: lastIndex - 6) findTokens: ' ') classVarNames: ((tokens at: lastIndex - 4) findTokens: ' ') poolDictionaryNames: ((tokens at: lastIndex - 2) findTokens: ' ') classInstVarNames: (self classInstVarNamesFor: aPseudoClass) + type: typeOfSubclass - type: (self typeOfSubclass: (tokens at: 2)) comment: (self commentFor: aPseudoClass) commentStamp: (self commentStampFor: aPseudoClass)! Item was added: + ----- Method: MCStReader>>compiledCodeClassNames (in category 'as yet unclassified') ----- + compiledCodeClassNames + "Answer the names of classes for which the type is #compiledMethod. Traditionally, + this was only class CompiledMehod, but later refactorings require that CompiledCode + and its subclasses be treated as type #compiledMethod." + + ^{ #CompiledCode . #CompiledBlock . #CompiledMethod }!

4 5

The Trunk: SMLoader-tpr.90.mcz
by commits＠source.squeak.org 28 Dec '17

28 Dec '17

tim Rowledge uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-tpr.90.mcz ==================== Summary ==================== Name: SMLoader-tpr.90 Author: tpr Time: 28 December 2017, 1:06:13.538142 pm UUID: 448b81e2-b783-4f7b-ab09-5a16a5ce6705 Ancestors: SMLoader-nice.89 Connect cache package coying to new file dialogs =============== Diff against SMLoader-nice.89 =============== Item was changed: ----- Method: SMLoader>>cachePackageReleaseAndOfferToCopy (in category 'actions') ----- cachePackageReleaseAndOfferToCopy "Cache package release, then offer to copy it somewhere. Answer the chosen file's location after copy, or the cache location if no directory was chosen." | release installer newDir newName newFile oldFile oldName | release := self selectedPackageOrRelease. release isPackageRelease ifFalse: [ self error: 'Should be a package release!!']. installer := SMInstaller forPackageRelease: release. [Cursor wait showWhile: [installer cache]] on: Error do: [:ex | | msg | msg := ex messageText ifNil: [ex asString]. self informException: ex msg: ('Error occurred during download:\', msg, '\') withCRs. ^nil ]. installer isCached ifFalse: [self inform: 'Download failed, see transcript for details'. ^nil]. oldName := installer fullFileName. + newDir := UIManager default chooseDirectoryFrom: installer directory. - newDir := FileList2 modalFolderSelector: installer directory. newDir ifNil: [ ^oldName ]. newDir = installer directory ifTrue: [ ^oldName ]. newName := newDir fullNameFor: installer fileName. newFile := FileStream newFileNamed: newName. newFile ifNil: [ ^oldName ]. newFile binary. oldFile := FileStream readOnlyFileNamed: oldName. oldFile ifNil: [ ^nil ]. oldFile binary. [[ newDir copyFile: oldFile toFile: newFile ] ensure: [ oldFile close. newFile close ]] on: Error do: [ :ex | ^oldName ]. ^newName! Item was changed: ----- Method: SMLoaderPlus>>cachePackageReleaseAndOfferToCopy (in category 'actions') ----- cachePackageReleaseAndOfferToCopy "Cache package release, then offer to copy it somewhere. Answer the chosen file's location after copy, or the cache location if no directory was chosen." | release installer newDir newName newFile oldFile oldName | release := self selectedPackageOrRelease. release isPackageRelease ifFalse: [ self error: 'Should be a package release!!']. installer := SMInstaller forPackageRelease: release. [UIManager default informUser: 'Caching ' , release asString during: [installer cache]] on: Error do: [:ex | | msg | msg := ex messageText ifNil: [ex asString]. self informException: ex msg: ('Error occurred during download:\', msg, '\') withCRs. ^nil ]. installer isCached ifFalse: [self inform: 'Download failed, see transcript for details'. ^nil]. oldName := installer fullFileName. + newDir := UIManager default chooseDirectoryFrom: installer directory. - newDir := FileList2 modalFolderSelector: installer directory. newDir ifNil: [ ^oldName ]. newDir = installer directory ifTrue: [ ^oldName ]. newName := newDir fullNameFor: installer fileName. newFile := FileStream newFileNamed: newName. newFile ifNil: [ ^oldName ]. newFile binary. oldFile := FileStream readOnlyFileNamed: oldName. oldFile ifNil: [ ^nil ]. oldFile binary. [[ newDir copyFile: oldFile toFile: newFile ] ensure: [ oldFile close. newFile close ]] on: Error do: [ :ex | ^oldName ]. ^newName!

1 0

The Trunk: Kernel-tpr.1132.mcz
by commits＠source.squeak.org 28 Dec '17

28 Dec '17

tim Rowledge uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tpr.1132.mcz ==================== Summary ==================== Name: Kernel-tpr.1132 Author: tpr Time: 28 December 2017, 1:03:32.733076 pm UUID: 819452da-5a97-40d9-8a6a-9f705d64117a Ancestors: Kernel-eem.1131 Use new file dialog for object saving =============== Diff against Kernel-eem.1131 =============== Item was changed: ----- Method: Object>>saveOnFile (in category 'objects from disk') ----- saveOnFile + "Ask the user for a filename and save myself on a SmartReferenceStream file. Writes out the version and class structure. The file is fileIn-able. Does not file out the class of the object." - "Ask the user for a filename and save myself on a SmartReferenceStream file. Writes out the version and class structure. The file is fileIn-able. Does not file out the class of the object. tk 6/26/97 13:48" | aFileName | aFileName := self class name asFileName. "do better?" aFileName := UIManager default + saveFilenameRequest: 'File name?' translated initialAnswer: aFileName. + aFileName ifNil: [^ Beeper beep]. - request: 'File name?' translated initialAnswer: aFileName. - aFileName size = 0 ifTrue: [^ Beeper beep]. self saveOnFileNamed: aFileName! Item was changed: ----- Method: Object>>saveOnFileNamed: (in category 'objects from disk') ----- saveOnFileNamed: filenameString "Save myself on a SmartReferenceStream file. Writes out the version and class structure. The file is fileIn-able. UniClasses will be filed out." | fileStream | + fileStream := FileStream newFileNamed: filenameString. - fileStream := FileStream newFileNamed: filenameString asFileName. fileStream fileOutClass: nil andObject: self. "Puts UniClass definitions out anyway, and closes the stream."!

1 0

The Trunk: ToolBuilder-Kernel-tpr.116.mcz
by commits＠source.squeak.org 28 Dec '17

28 Dec '17

tim Rowledge uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-tpr.116.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-tpr.116 Author: tpr Time: 28 December 2017, 1:01:20.596849 pm UUID: fee85035-98b7-48f7-bf0e-940635b7ee7d Ancestors: ToolBuilder-Kernel-tpr.115 Connect UIManager api to new file dialogs =============== Diff against ToolBuilder-Kernel-tpr.115 =============== Item was added: + ----- Method: UIManager>>chooseFileMatchingSuffixes: (in category 'ui requests') ----- + chooseFileMatchingSuffixes: suffixList + "Let the user choose a file matching the given suffixes" + ^self chooseFileMatchingSuffixes: suffixList label: nil! Item was added: + ----- Method: UIManager>>chooseFileMatchingSuffixes:label: (in category 'ui requests') ----- + chooseFileMatchingSuffixes: suffixList label: labelString + "Let the user choose a file matching the given suffixes" + ^self subclassResponsibility! Item was removed: - ----- Method: UIManager>>filenameSaverRequest:initialAnswer: (in category 'ui requests') ----- - filenameSaverRequest: queryString initialAnswer: defaultAnswer - "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely" - "Note that this is a trulyawful message name but I can't think of a better one right now" - ^self subclassResponsibility!

1 0

The Trunk: ToolBuilder-Morphic-tpr.205.mcz
by commits＠source.squeak.org 28 Dec '17

28 Dec '17

tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.205.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-tpr.205 Author: tpr Time: 28 December 2017, 12:56:14.095558 pm UUID: 96e86954-5b18-4e72-805d-2ff7442638b0 Ancestors: ToolBuilder-Morphic-mt.204 Connect directory choosing and file-matching apis to the new file dialogs =============== Diff against ToolBuilder-Morphic-mt.204 =============== Item was changed: ----- Method: MorphicUIManager>>chooseDirectory:from: (in category 'ui requests') ----- chooseDirectory: label from: dir "Let the user choose a directory" + + ^DirectoryChooserDialog openOn: dir label: label! - ^FileList2 modalFolderSelector: dir! Item was changed: ----- Method: MorphicUIManager>>chooseFileMatching:label: (in category 'ui requests') ----- chooseFileMatching: patterns label: aString "Let the user choose a file matching the given patterns" | result | + result := FileChooserDialog openOnPattern: patterns label: aString. + ^result! - result := FileList2 modalFileSelectorForSuffixes: patterns. - ^result ifNotNil:[result fullName]! Item was added: + ----- Method: MorphicUIManager>>chooseFileMatchingSuffixes:label: (in category 'ui requests') ----- + chooseFileMatchingSuffixes: suffixList label: aString + "Let the user choose a file matching the given suffix list" + | result | + result := FileChooserDialog openOnSuffixList: suffixList label: aString. + ^result! Item was removed: - ----- Method: MorphicUIManager>>filenameSaverRequest:initialAnswer: (in category 'ui requests') ----- - filenameSaverRequest: queryString initialAnswer: defaultAnswer - "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely" - "Note that this is a trulyawful message name but I can't think of a better one right now" - ^FileSaverDialog openOnInitialFilename: defaultAnswer - !

1 0

Jump to page: