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!