Packages December 2017

packages@lists.squeakfoundation.org

1 participants
92 discussions

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

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

28 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 }!

1 0

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

28 Dec '17

tim Rowledge uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-tpr.176.mcz ==================== Summary ==================== Name: Files-tpr.176 Author: tpr Time: 27 December 2017, 3:18:16.857836 pm UUID: e942dde3-52d1-4865-bac5-783b7ba1b4ad Ancestors: Files-nice.175 FileDirectory tests for has-files and has-subdirs. =============== Diff against Files-nice.175 =============== Item was changed: ----- Method: AcornFileDirectory class>>parentDirectoryNickname (in category 'platform specific') ----- parentDirectoryNickname "Answer the nick-name for the parent directory (e.g. '..' on Unix and Windows). + Acorn chose to use the much more sensible ^; after all it points upwards..." + ^$^! - Who knows what this is on Acorn?" - ^nil! Item was removed: - ----- Method: FileDirectory class>>setDefaultDirectoryFrom: (in category 'system start up') ----- - setDefaultDirectoryFrom: imageName - "Initialize the default directory to the directory containing the Squeak image file. This method is called when the image starts up." - - DirectoryClass := self activeDirectoryClass. - DefaultDirectory := self on: (FilePath pathName: (self dirPathFor: imageName) isEncoded: true) asSqueakPathName. - ! Item was added: + ----- Method: FileDirectory>>hasFiles (in category 'testing') ----- + hasFiles + "Return true if we find an entry that is a file, false otherwise" + "FileDirectory default hasFiles" + + self entriesDo: [ :entry |entry isDirectory ifFalse: [^true] ] . + ^false! Item was added: + ----- Method: FileDirectory>>hasSubDirectories (in category 'testing') ----- + hasSubDirectories + "Return true if we find an entry that is a directory, false otherwise" + "FileDirectory default hasSubDirectories" + + self entriesDo: [ :entry |entry isDirectory ifTrue: [^true] ] . + ^false! Item was changed: FileDirectory subclass: #UnixFileDirectory instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Files-Directories'! + !UnixFileDirectory commentStamp: 'tpr 12/26/2017 13:44' prior: 0! - !UnixFileDirectory commentStamp: '<historical>' prior: 0! I represent a Unix FileDirectory. + + It is worth noting that the various enumeration methods do *not* include the parent and local directory pseudo-names '.' and '..'. They are filtered out in the primitive that reads the directory entries. !

1 0

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

28 Dec '17

tim Rowledge uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-tpr.391.mcz ==================== Summary ==================== Name: Graphics-tpr.391 Author: tpr Time: 27 December 2017, 3:16:27.756643 pm UUID: 0154dd33-d625-485c-8afa-502ffb8ce24b Ancestors: Graphics-mt.390 Cleaner filename extension listing for Form =============== Diff against Graphics-mt.390 =============== Item was added: + ----- Method: Form class>>allTypicalFileExtensions (in category 'file list services') ----- + allTypicalFileExtensions + + ^ImageReadWriter allTypicalFileExtensions add: 'form'; yourself! Item was changed: ----- Method: Form class>>fileReaderServicesForFile:suffix: (in category 'file list services') ----- fileReaderServicesForFile: fullName suffix: suffix + ^(self allTypicalFileExtensions - ^((ImageReadWriter allTypicalFileExtensions add: '*'; add: 'form'; yourself) includes: suffix) ifTrue: [ self services ] ifFalse: [#()] !

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2017