tim Rowledge uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-tpr.675.mcz
==================== Summary ====================
Name: Monticello-tpr.675 Author: tpr Time: 28 December 2017, 12:48:19.184298 pm UUID: 5efee52f-9a97-497c-b06a-aac91c960ca0 Ancestors: Monticello-dtl.674
Connect up new file dialogs
=============== Diff against Monticello-dtl.674 ===============
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 := UIManager default request: 'File out on which file?' initialAnswer: 'methods'. 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]!
Item was changed: ----- Method: MCDirectoryRepository class>>morphicConfigure (in category 'configuring') ----- morphicConfigure + ^ UIManager default chooseDirectory + ifNotNil: [:directory | self new directory: directory]! - ^ FileList2 modalFolderSelector ifNotNil: - [:directory | - self new directory: directory]!