The Trunk: MorphicExtras-tpr.219.mcz

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!