Squeak-dev December 2017

squeak-dev@lists.squeakfoundation.org

34 participants
159 discussions

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

28 Dec '17

tim Rowledge uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tpr.216.mcz ==================== Summary ==================== Name: Network-tpr.216 Author: tpr Time: 28 December 2017, 12:52:19.880669 pm UUID: aee9a26f-18fe-4929-98d3-ac8ae27f70c3 Ancestors: Network-tpr.215 Connect mail saving to the new file dialogs =============== Diff against Network-tpr.215 =============== Item was changed: ----- Method: MailMessage>>save (in category 'multipart') ----- save "save the part to a file" + | fileName | + fileName := self name ifNil: ['attachment' , Utilities dateTimeSuffix]. + (fileName includes: $.) + ifFalse: [#(#isJpeg 'jpg' #isGif 'gif' #isPng 'png' #isPnm 'pnm') + pairsDo: [:s :e | (self body perform: s) + ifTrue: [fileName := fileName , FileDirectory dot , e]]]. + + fileName := UIManager default saveFilenameRequest: 'File name for save?' initialAnswer: fileName. + fileName ifNil: [^ nil]. + + FileStream newFileNamed: fileName + do: [:file | file nextPutAll: self bodyText]! - | fileName file | - fileName := self name - ifNil: ['attachment' , Utilities dateTimeSuffix]. - (fileName includes: $.) ifFalse: [ - #(isJpeg 'jpg' isGif 'gif' isPng 'png' isPnm 'pnm') pairsDo: [ :s :e | - (self body perform: s) ifTrue: [fileName := fileName, '.', e] - ] - ]. - fileName := UIManager default request: 'File name for save?' initialAnswer: fileName. - fileName isEmpty - ifTrue: [^ nil]. - file := FileStream newFileNamed: fileName. - file nextPutAll: self bodyText. - file close!

1 0

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

28 Dec '17

tim Rowledge uploaded a new version of ToolBuilder-MVC to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-MVC-tpr.52.mcz ==================== Summary ==================== Name: ToolBuilder-MVC-tpr.52 Author: tpr Time: 28 December 2017, 12:50:44.471773 pm UUID: 0f077096-0525-4ab8-8317-a41a3926d7a9 Ancestors: ToolBuilder-MVC-tpr.51 Add clean empty method for file choosing. Somebody(tm) really ought to make mvc versions of some of thee =============== Diff against ToolBuilder-MVC-tpr.51 =============== Item was added: + ----- Method: MVCUIManager>>chooseFileMatchingSuffixes:label: (in category 'ui requests') ----- + chooseFileMatchingSuffixes: suffixList label: aString + "Let the user choose a file matching the given suffix list" + ^self notYetImplemented!

1 0

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

28 Dec '17

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]!

1 0

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

28 Dec '17

tim Rowledge uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-tpr.44.mcz ==================== Summary ==================== Name: GetText-tpr.44 Author: tpr Time: 28 December 2017, 12:45:54.870455 pm UUID: e71e10c0-bcf7-4460-a555-aedcca4daa61 Ancestors: GetText-dtl.43 Use new file dialog for saving a language file =============== Diff against GetText-dtl.43 =============== Item was changed: ----- Method: LanguageEditor>>saveToFile (in category 'gui methods') ----- saveToFile "save the translator to a file" | fileName | + fileName := UIManager default saveFilenameRequest: 'file name' translated initialAnswer: translator localeID isoString , '.translation'. + fileName + ifNil: [self beep. - fileName := UIManager default request: 'file name' translated initialAnswer: translator localeID isoString , '.translation'. - (fileName isNil - or: [fileName isEmpty]) - ifTrue: [ - self beep. ^ self]. + Cursor wait + showWhile: [self translator saveToFileNamed: fileName]! - - Cursor wait - showWhile: [ - self translator saveToFileNamed: fileName]!

1 0

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

28 Dec '17

tim Rowledge uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-tpr.219.mcz ==================== Summary ==================== Name: MorphicExtras-tpr.219 Author: tpr Time: 28 December 2017, 12:39:47.049664 pm UUID: ca33da45-a124-4124-9add-82d1c22e1a07 Ancestors: MorphicExtras-nice.218 Connect assorted sound/event/PS saving operations to the new file dialogs =============== Diff against MorphicExtras-nice.218 =============== 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 - fileName := ('MyBook') translated asFileName. - fileName := UIManager default request: 'File name? (".ps" will be added to end)' 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)] - (FileStream newFileNamed: fileName asFileName) - nextPutAll: (DSCPostscriptCanvas morphAsPostscript: self rotated: rotateFlag); close. ! Item was changed: ----- Method: DSCPostscriptCanvasToDisk class>>morphAsPostscript:rotated:offsetBy:specs: (in category 'as yet unclassified') ----- morphAsPostscript: aMorph rotated: rotateFlag offsetBy: offset specs: specsOrNil ^[ (self new morphAsPostscript: aMorph rotated: rotateFlag offsetBy: offset) close ] on: PickAFileToWriteNotification do: [ :ex | | newFileName stream | newFileName := UIManager default + saveFilenameRequest: 'Name of file to write:' translated - request: 'Name of file to write:' translated initialAnswer: 'xxx',Time millisecondClockValue printString, self defaultExtension. newFileName isEmptyOrNil ifFalse: [ stream := FileStream fileNamed: newFileName. stream ifNotNil: [ex resume: stream]. ]. ]. ! Item was changed: ----- Method: EnvelopeEditorMorph>>saveLibToDisk: (in category 'menu') ----- + saveLibToDisk: evt - saveLibToDisk: evt "Save the library to disk" + | newName | + newName := UIManager default saveFilenameRequest: 'Please confirm name for library...' initialAnswer: 'MySounds.fml'. + newName ifNil: [^ self]. + FileStream newFileNamed: newName + do: [:f | AbstractSound soundNames + do: [:name | | snd | + snd := AbstractSound soundNamed: name. + f nextChunkPut: 'AbstractSound soundNamed: ' , name , ' put: ' , snd storeString; + cr; + cr]]! - | newName f | - newName := UIManager default request: 'Please confirm name for library...' - initialAnswer: 'MySounds'. - newName isEmpty ifTrue: [^ self]. - f := FileStream newFileNamed: newName , '.fml'. - AbstractSound soundNames do: - [:name | | snd | - snd := AbstractSound soundNamed: name. - "snd isStorable" true ifTrue: [f nextChunkPut: 'AbstractSound soundNamed: ' , name , ' put: ' , snd storeString; cr; cr] - ifFalse: [self inform: name , ' is not currently storable']]. - f close! 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 f | - newName := UIManager default request: 'Please confirm name for save...' - initialAnswer: soundName. newName isEmpty ifTrue: [^ self]. + FileStream newFileNamed: newName + do:[:f| sound storeOn: f]! - f := FileStream newFileNamed: newName , '.fmp'. - sound storeOn: f. - f close! Item was changed: ----- Method: EventRecorderMorph>>writeTape (in category 'fileIn/Out') ----- writeTape + | args b fileName | + args := (b := self button: 'writeTape') isNil - | args b | - args := (b := self button: 'writeTape') isNil ifTrue: [#()] ifFalse: [b arguments]. + (args notEmpty + and: [args first notEmpty]) + ifTrue: [args first. - (args notEmpty and: [args first notEmpty]) - ifTrue: - [args first. self writeTape: args first] + ifFalse: [fileName := UIManager default saveFilenameRequest: 'Tape to write' initialAnswer: 'tapeName.tape'. + fileName ifNil: [^ self]. + ^ self writeTape: fileName]! - ifFalse: - [^self writeTape: (UIManager default request: 'Tape to write' - initialAnswer: 'tapeName.tape')].! Item was changed: ----- Method: GraphMorph>>readDataFromFile (in category 'sound') ----- readDataFromFile + "This makes very little sense; it appears to be inteded as a general load data method but explicitly handles only AIFF files; very odd" - | fileName | fileName := UIManager default + chooseFileMatchingSuffixes: #('aif') + label: 'File name?' translated. - request: 'File name?' translated - initialAnswer: ''. fileName isEmpty ifTrue: [^ self]. (StandardFileStream isAFileNamed: fileName) ifFalse: [ ^ self inform: 'Sorry, I cannot find that file' translated]. self data: (SampledSound fromAIFFfileNamed: fileName) samples. ! Item was changed: ----- Method: Morph>>printPSToFileNamed: (in category '*MorphicExtras-menus') ----- printPSToFileNamed: aString "Ask the user for a filename and print this morph as postscript." | fileName rotateFlag psCanvasType psExtension | + - fileName := aString asFileName. psCanvasType := PostscriptCanvas defaultCanvasType. psExtension := psCanvasType defaultExtension. + fileName := UIManager default saveFilenameRequest: 'File name? ' + initialAnswer: (aString, psExtension) asFileName. + fileName ifNil: [^ Beeper beep]. + - fileName := UIManager default request: (String streamContents: [ :s | - s nextPutAll: ('File name? ("{1}" will be added to end)' translated format: {psExtension})]) - initialAnswer: fileName. - fileName isEmpty - ifTrue: [^ Beeper beep]. - (fileName endsWith: psExtension) - ifFalse: [fileName := fileName , psExtension]. rotateFlag := (UIManager default chooseFrom: { 'portrait (tall)' translated. 'landscape (wide)' translated. } title: 'Choose orientation...' translated) = 2. + ((FileStream newFileNamed: fileName) converter: TextConverter defaultSystemConverter) - ((FileStream newFileNamed: fileName asFileName) converter: TextConverter defaultSystemConverter) nextPutAll: (psCanvasType morphAsPostscript: self rotated: rotateFlag); close!

1 0

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

28 Dec '17

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1384.mcz ==================== Summary ==================== Name: Morphic-tpr.1384 Author: tpr Time: 28 December 2017, 12:25:28.683916 pm UUID: 022f21d5-ede8-4485-8d3e-8f31554aca5d Ancestors: Morphic-mt.1383 Connect the new file dialogs to assorted image & project load/save methods =============== Diff against Morphic-mt.1383 =============== Item was changed: ----- Method: ImageMorph>>readFromFile (in category 'menu commands') ----- readFromFile + "This would benefit from a way to get a list of the plausible file extensions for image files" | fileName | fileName := UIManager default + chooseFileMatchingSuffixes: Form allTypicalFileExtensions + label: 'Please enter the image file name'. - request: 'Please enter the image file name' - initialAnswer: 'fileName'. fileName isEmpty ifTrue: [^ self]. + self image: (Form fromFileNamed: fileName). - self image: (Form fromFileNamed: fileName). ! Item was changed: ----- Method: Morph>>attachToResource (in category 'fileIn/out') ----- attachToResource + "Connect a file -- either a saved .morph file or a graphics file as my resource. + There appears to be nothing preventing a user from attaching a completely unrelated file ?" - "Produce a morph from a file -- either a saved .morph file or a graphics file" | pathName | + pathName := UIManager default chooseFileMatchingSuffixes: (Form allTypicalFileExtensions add: 'morph'; yourself) label: 'Choose a file to load' translated. - pathName := Utilities chooseFileWithSuffixFromList: (#('.morph'), Utilities graphicsFileSuffixes) - withCaption: 'Choose a file - to load'. pathName ifNil: [^ self]. "User made no choice" - pathName == #none ifTrue: [^ self inform: - 'Sorry, no suitable files found - (names should end with .morph, .gif, - .bmp, .jpeg, .jpe, .jp, or .form)']. self setProperty: #resourceFilePath toValue: pathName! Item was changed: ----- Method: Morph>>exportAsBMP (in category 'menus') ----- exportAsBMP | fName | + fName := UIManager default saveFilenameRequest:'Please enter the name' translated initialAnswer: self externalName,'.bmp'. + fName ifNil:[^self]. - fName := UIManager default request:'Please enter the name' translated initialAnswer: self externalName,'.bmp'. - fName isEmpty ifTrue:[^self]. self exportAsBMPNamed: fName! Item was changed: ----- Method: Morph>>exportAsGIF (in category 'menus') ----- exportAsGIF | fName | + fName := UIManager default saveFilenameRequest:'Please enter the name' translated initialAnswer: self externalName,'.gif'. + fName ifNil:[^self]. - fName := UIManager default request:'Please enter the name' translated initialAnswer: self externalName,'.gif'. - fName isEmpty ifTrue:[^self]. self exportAsGIFNamed: fName! Item was changed: ----- Method: Morph>>exportAsJPEG (in category 'menus') ----- exportAsJPEG | fName | + fName := UIManager default saveFilenameRequest: 'Please enter the name' translated initialAnswer: self externalName,'.jpeg'. + fName ifNil: [^ self]. - fName := UIManager default request: 'Please enter the name' translated initialAnswer: self externalName,'.jpeg'. - fName isEmpty ifTrue: [^ self]. self exportAsJPEGNamed: fName! Item was changed: ----- Method: Morph>>exportAsPNG (in category 'menus') ----- exportAsPNG | fName | + fName := UIManager default saveFilenameRequest:'Please enter the name' translated initialAnswer: self externalName,'.png'. + fName ifNil:[^self]. - fName := UIManager default request:'Please enter the name' translated initialAnswer: self externalName,'.png'. - fName isEmpty ifTrue:[^self]. self exportAsPNGNamed: fName! Item was changed: ----- Method: Morph>>saveOnFile (in category 'fileIn/out') ----- 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. UniClasses will be filed out." + | aFileName | + aFileName := ('my {1}.morph' translated format: {self class name}) asFileName. "do better?" + aFileName := UIManager default saveFilenameRequest: 'File name?' translated - | aFileName ok | - aFileName := ('my {1}' translated format: {self class name}) asFileName. "do better?" - aFileName := UIManager default request: 'File name? (".morph" will be added to end)' translated initialAnswer: aFileName. + aFileName ifNil: [^ Beeper beep]. + - aFileName isEmpty ifTrue: [^ Beeper beep]. self allMorphsDo: [:m | m prepareToBeSaved]. - ok := aFileName endsWith: '.morph'. "don't double them" - ok := ok | (aFileName endsWith: '.sp'). - ok ifFalse: [aFileName := aFileName,'.morph']. self saveOnFileNamed: aFileName! Item was changed: ----- Method: PasteUpMorph>>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. UniClasses will be filed out." + | aFileName fileStream | - | aFileName fileStream ok | self flag: #bob0302. self isWorldMorph ifTrue: [^self project saveAs]. + aFileName := ('my {1}.project' translated format: {self class name}) asFileName. "do better?" + aFileName := UIManager default saveFilenameRequest: 'File name?' translated - aFileName := ('my {1}' translated format: {self class name}) asFileName. "do better?" - aFileName := UIManager default request: 'File name? (".project" will be added to end)' translated initialAnswer: aFileName. + aFileName ifNil: [^ Beeper beep]. - aFileName isEmpty ifTrue: [^ Beeper beep]. self allMorphsDo: [:m | m prepareToBeSaved]. + fileStream := FileStream newFileNamed: aFileName. - ok := aFileName endsWith: '.project'. "don't double them" - ok := ok | (aFileName endsWith: '.sp'). - ok ifFalse: [aFileName := aFileName,'.project']. - fileStream := FileStream newFileNamed: aFileName asFileName. fileStream fileOutClass: nil andObject: self. "Puts UniClass definitions out anyway"! Item was changed: ----- Method: ScorePlayerMorph>>openMIDIFile (in category 'initialization') ----- openMIDIFile "Open a MIDI score and re-init controls..." | score fileName f player | + fileName := UIManager default chooseFileMatchingSuffixes: #('mid' 'midi') label: 'Choose a MIDI file to open' translated. + fileName isNil + ifTrue: [^ self ]. + - fileName := Utilities chooseFileWithSuffixFromList: #('.mid' '.midi') - withCaption: 'Choose a MIDI file to open' translated. - (fileName isNil or: [ fileName == #none ]) - ifTrue: [^ self inform: 'No .mid/.midi files found in the Squeak directory' translated]. f := FileStream readOnlyFileNamed: fileName. score := (MIDIFileReader new readMIDIFrom: f binary) asScore. f close. player := ScorePlayer onScore: score. self onScorePlayer: player title: fileName! Item was changed: ----- Method: TextEditor>>saveContentsInFile (in category 'menu messages') ----- saveContentsInFile "Save the receiver's contents string to a file, prompting the user for a file-name. Suggest a reasonable file-name." | fileName stringToSave parentWindow labelToUse suggestedName | stringToSave := paragraph text string. stringToSave size = 0 ifTrue: [^self inform: 'nothing to save.']. parentWindow := model dependents detect: [:dep | dep isKindOf: SystemWindow] ifNone: [nil]. labelToUse := parentWindow ifNil: ['Untitled'] ifNotNil: [parentWindow label]. suggestedName := nil. #(#('Decompressed contents of: ' '.gz')) do: [:leaderTrailer | | lastIndex | "can add more here..." (labelToUse beginsWith: leaderTrailer first) ifTrue: [suggestedName := labelToUse copyFrom: leaderTrailer first size + 1 to: labelToUse size. (labelToUse endsWith: leaderTrailer last) ifTrue: [suggestedName := suggestedName copyFrom: 1 to: suggestedName size - leaderTrailer last size] ifFalse: [lastIndex := suggestedName lastIndexOf: $.. lastIndex > 1 ifTrue: [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]]. suggestedName ifNil: [suggestedName := labelToUse , '.text']. + fileName := UIManager default saveFilenameRequest: 'File name?' - fileName := UIManager default request: 'File name?' initialAnswer: suggestedName. fileName isEmptyOrNil ifFalse: [(FileStream newFileNamed: fileName) nextPutAll: stringToSave; close]! Item was changed: ----- Method: TheWorldMenu>>loadProject (in category 'commands') ----- loadProject + | fName | - | stdFileMenuResult path | "Put up a Menu and let the user choose a '.project' file to load. Create a thumbnail and jump into the project." Project canWeLoadAProjectNow ifFalse: [^ self]. + fName := UIManager default chooseFileMatchingSuffixes: #('pr' 'project'). + fName ifNil:[^nil]. + + FileDirectory splitName: fName to:[:dir :file| + ProjectLoading + openFromDirectory: dir + andFileName: file] - path := FileList2 modalFolderSelector. - path ifNil: [^ nil]. - stdFileMenuResult := ((StandardFileMenu new) pattern: '*.pr'; - oldFileFrom: path) - startUpWithCaption: 'Select a File:' translated. - stdFileMenuResult ifNil: [^ nil]. - ProjectLoading - openFromDirectory: stdFileMenuResult directory - andFileName: stdFileMenuResult name ! Item was changed: ----- Method: TheWorldMenu>>readMorphFromAFile (in category 'commands') ----- readMorphFromAFile "Produce a morph from a file -- either a saved .morph file or a graphics file" | morphOrList ff aName f m | + aName := UIManager default chooseFileMatchingSuffixes: (Form allTypicalFileExtensions add: 'morph'; yourself) label: 'Choose a file to load' translated. - aName := Utilities chooseFileWithSuffixFromList: - (#('.morph'), Utilities graphicsFileSuffixes) withCaption: 'Choose a file - to load' translated. aName ifNil: [^ self]. "User made no choice" - aName == #none ifTrue: [^ self inform: - 'Sorry, no suitable files found - (names should end with .morph, .gif, - .bmp, .jpeg, .jpe, .jp, or .form)' translated]. (aName asLowercase endsWith: '.morph') ifTrue: [ff := FileStream readOnlyFileNamed: aName. morphOrList := ff fileInObjectAndCode. "code filed in is the Model class" "the file may contain either a single morph or an array of morphs" myWorld addMorphsAndModel: morphOrList] ifFalse: [f := Form fromFileNamed: aName. f ifNil: [^ self error: 'unrecognized image file format' translated]. m := myWorld drawingClass new form: f. myHand attachMorph: m] !

1 0

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

28 Dec '17

1 0

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

28 Dec '17

tim Rowledge uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-tpr.784.mcz ==================== Summary ==================== Name: Tools-tpr.784 Author: tpr Time: 28 December 2017, 12:20:53.89794 pm UUID: a907b96a-f612-4dc7-a38c-0ecf51f2693c Ancestors: Tools-tpr.783 Update ArchiveViewer to use the new file dialogs. Similarly for MessageSet & Workspace (though there are no senders of that) =============== Diff against Tools-tpr.783 =============== Item was changed: ----- Method: ArchiveViewer>>addDirectory (in category 'member operations') ----- addDirectory + | directory | - | directory | self canAddMember ifFalse: [ ^self ]. + directory := UIManager default chooseDirectory. - directory := FileList2 modalFolderSelector. directory ifNil: [^ self]. + archive addTree: directory removingFirstCharacters: directory pathName size + 1. self memberIndex: 0. self changed: #memberList.! Item was changed: ----- Method: ArchiveViewer>>addMember (in category 'member operations') ----- addMember + | local fName | - | result local full | self canAddMember ifFalse: [ ^self ]. + fName := UIManager default chooseFileMatching: '*' . + fName ifNil: [ ^self ]. - result := FileList2 modalFileSelector . - result ifNil: [ ^self ]. + local := FileDirectory localNameFor: fName. + (archive addFile: fName as: local) - local := result directory localNameFor: result name. - - full := result directory fullNameFor: result name. - - (archive addFile: full as: local) desiredCompressionMethod: ZipArchive compressionDeflated. self memberIndex: self members size. self changed: #memberList.! Item was changed: ----- Method: ArchiveViewer>>extractAll (in category 'archive operations') ----- extractAll | directory | self canExtractAll ifFalse: [^ self]. + directory := UIManager default chooseDirectory. + directory + ifNil: [^ self]. + + UIManager default informUserDuring: [:bar| archive extractAllTo: directory informing: bar]. + + + ! - directory := FileList2 modalFolderSelector ifNil: [^ self]. - UIManager default informUserDuring: [:bar| archive extractAllTo: directory informing: bar].! Item was changed: ----- Method: ArchiveViewer>>openNewArchive (in category 'archive operations') ----- openNewArchive | result | + result := UIManager default chooseFileMatching: '*' . - result := FileList2 modalFileSelector . result ifNil: [ ^self ]. + self fileName: result - self fileName: (result directory fullNameFor: result name). ! Item was changed: ----- Method: ArchiveViewer>>saveArchive (in category 'archive operations') ----- saveArchive | result name | name := FileDirectory localNameFor: labelString . self canSaveArchive ifFalse: [ ^self ]. result := UIManager default + saveFilenameRequest: 'Save this zip to' - request: 'Name this zip ' initialAnswer: name. result ifNil: [ ^self ]. (archive canWriteToFileNamed: result) ifFalse: [ self inform: name, ' is used by one or more members in your archive, and cannot be overwritten. Try writing to another file name'. ^self ]. [ archive writeToFileNamed: result ] on: Error do: [ :ex | self inform: ex description. ]. self setLabel: name asString. self changed: #memberList "in case CRC's and compressed sizes got set"! Item was changed: ----- Method: MessageSet>>fileOutMessage (in category 'message functions') ----- fileOutMessage "Put a description of the selected method on a file, or all methods if none selected." | fileName | self selectedMessageName ifNotNil: [^super fileOutMessage]. + 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: [| internalStream | internalStream := WriteStream on: (String new: 1000). internalStream header; timeStamp. messageList do: [:methodRef| methodRef methodSymbol == #Comment ifTrue: [methodRef actualClass organization putCommentOnFile: internalStream numbered: 1 moveSource: false forClass: methodRef actualClass] ifFalse: [methodRef actualClass printMethodChunk: methodRef methodSymbol withPreamble: true on: internalStream moveSource: false toFile: nil]]. FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]! Item was changed: ----- Method: Workspace>>appendContentsOfFile (in category 'menu commands') ----- appendContentsOfFile "Prompt for a file, and if one is obtained, append its contents to the contents of the receiver. Caution: as currently implemented this abandons any custom style information previously in the workspace. Someone should fix this. Also, for best results you should accept the contents of the workspace before requesting this." + | fName | + fName := UIManager default chooseFileMatching: '*' label: 'Choose file to add to workspace'. + fName ifNil:[^self]. + + FileStream oldFileNamed: fName do:[:aFileStream| + contents := (contents ifNil: ['']) asString, aFileStream contentsOfEntireFile]. - | aFileStream | - (aFileStream := FileList2 modalFileSelector) ifNil: [^ self]. - contents := (contents ifNil: ['']) asString, aFileStream contentsOfEntireFile. - aFileStream close. self changed: #contents!

1 0

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

28 Dec '17

tim Rowledge uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tpr.993.mcz ==================== Summary ==================== Name: System-tpr.993 Author: tpr Time: 28 December 2017, 12:14:53.711212 pm UUID: b0b7616c-47d9-4b95-a35e-ab2d79268f5f Ancestors: System-eem.992 Connect the image saving process to the new FileSaverDialog. Likewise for FilePackage fileout. =============== Diff against System-eem.992 =============== Item was changed: ----- Method: FilePackage>>fileOut (in category 'fileIn/fileOut') ----- fileOut + "Ask the user for a file path where I should save my contents; if the file already exists ask for a replacement name" + | fileName | + fileName := UIManager default saveFilenameRequest: 'Enter the file name' initialAnswer: self fullPackageName. + fileName ifNil:[^self]. + [FileStream + newFileNamed: fileName + do: [:stream | + sourceSystem isEmpty + ifFalse: [stream nextChunkPut: sourceSystem printString; + cr]. + self fileOutOn: stream. + stream cr; cr. + self classes do: [:cls | cls needsInitialize + ifTrue: [stream cr; nextChunkPut: cls name , ' initialize']]. + stream cr] + ] on: FileExistsException + do: [:ex | fileName := UIManager default saveFilenameRequest: 'Last entered filename already exists; try again' initialAnswer: self fullPackageName. + ex retry]! - | fileName stream | - fileName := UIManager default request: 'Enter the file name' initialAnswer:''. - stream := FileStream newFileNamed: fileName. - sourceSystem isEmpty ifFalse:[ - stream nextChunkPut: sourceSystem printString;cr ]. - self fileOutOn: stream. - stream cr; cr. - self classes do:[:cls| - cls needsInitialize ifTrue:[ - stream cr; nextChunkPut: cls name,' initialize']]. - stream cr. - stream close. - - "DeepCopier new checkVariables." - ! Item was changed: ----- Method: SmalltalkImage>>getFileNameFromUserSuggesting: (in category 'snapshot and quit') ----- getFileNameFromUserSuggesting: aName "Ask the user for a new image name" | newName | newName := UIManager default + saveFilenameRequest: 'Save Image as new name...' translated - request: 'New File Name?' translated initialAnswer: aName. + newName ifNil: [^nil]. - newName isEmpty ifTrue: [^nil]. ((FileDirectory default fileOrDirectoryExists: (self fullNameForImageNamed: newName)) or: [FileDirectory default fileOrDirectoryExists: (self fullNameForChangesNamed: newName)]) ifTrue: [ (self confirm: ('{1} already exists. Overwrite?' translated format: {newName})) ifFalse: [^nil]]. ^newName !

1 0

Morph doesn't paint on every tick?
by Louis LaBrunda 28 Dec '17

28 Dec '17

Hi All, I'm making a CalendarDisplayMorph. The code below is called every second. I'm sure it is being called every second. But the seconds don't change every second. It does change if I click on the morph and select or move it or something. I'm testing it with this: (TransformationMorph new asFlexOf: CalendarDisplayMorph new) openInWorld. What am I missing? Lou displayDateTimeHeader "Display the date and time in the header." | font rect canvas fWidth weekDay dateString timeString | font := TextStyle default fontOfSize: 96. fWidth := self extent x. canvas := destForm getCanvas. rect := Rectangle origin: 0@0 extent: fWidth@headerHeight. canvas frameAndFillRectangle: rect fillColor: self cellColor borderWidth: 2 borderColor: self borderColor. currentDate := DateAndTime now. weekDay := currentDate dayOfWeekName asString. self drawString: weekDay centeredIn: rect vOffset: 5 withFont: font color: self textColor. dateString := currentDate monthName, ' ', currentDate dayOfMonth printString, ', ', currentDate year printString. self drawString: dateString centeredIn: rect vOffset: 35 withFont: font color: self textColor. timeString := String streamContents: [:aStream | currentDate asTime print24: false showSeconds: true on: aStream]. self drawString: timeString centeredIn: rect vOffset: 65 withFont: font color: self textColor. -- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon

3 6

← Newer
1
2
3
4
5
6
7
...
16
Older →

Jump to page: