Packages May 2017

packages@lists.squeakfoundation.org

1 participants
36 discussions

The Trunk: Sound-eem.63.mcz
by commits＠source.squeak.org 19 May '17

19 May '17

Eliot Miranda uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-eem.63.mcz ==================== Summary ==================== Name: Sound-eem.63 Author: eem Time: 19 May 2017, 1:17:46.463283 pm UUID: da2f7750-4acd-43c7-923e-757bb7a80737 Ancestors: Sound-pre.62 Add the "new" Terf SoundPlugin primitives that deal with multiple devices etc. =============== Diff against Sound-pre.62 =============== Item was added: + ----- Method: SoundPlayer class>>primGetDefaultSoundPlayer (in category 'private') ----- + primGetDefaultSoundPlayer + "Answer the name of the default output device." + <primitive: 'primitiveGetDefaultSoundPlayer' module: 'SoundPlugin'> + self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primGetDefaultSoundRecorder (in category 'private') ----- + primGetDefaultSoundRecorder + "Answer the name of the default input device." + <primitive: 'primitiveGetDefaultSoundRecorder' module: 'SoundPlugin'> + self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primGetNumberOfSoundPlayerDevices (in category 'private') ----- + primGetNumberOfSoundPlayerDevices + "Answer the number of output devices." + <primitive: 'primitiveGetNumberOfSoundPlayerDevices' module: 'SoundPlugin'> + self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primGetNumberOfSoundRecorderDevices (in category 'private') ----- + primGetNumberOfSoundRecorderDevices + "Answer the number of input devices." + <primitive: 'primitiveGetNumberOfSoundRecorderDevices' module: 'SoundPlugin'> + self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primGetSoundPlayerDeviceName: (in category 'private') ----- + primGetSoundPlayerDeviceName: n + "Answer the name of the n'th output device." + <primitive: 'primitiveGetSoundPlayerDeviceName' module: 'SoundPlugin'> + self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primGetSoundRecorderDeviceName: (in category 'private') ----- + primGetSoundRecorderDeviceName: n + "Answer the name of the n'th input device." + <primitive: 'primitiveGetSoundRecorderDeviceName' module: 'SoundPlugin'> + self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primSetDefaultSoundPlayer: (in category 'private') ----- + primSetDefaultSoundPlayer: deviceName + "Set the default output device by supplying its name." + <primitive: 'primitiveSetDefaultSoundPlayer' module: 'SoundPlugin'> + self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primSetDefaultSoundRecorder: (in category 'private') ----- + primSetDefaultSoundRecorder: deviceName + "Set the default input device by supplying its name." + <primitive: 'primitiveSetDefaultSoundRecorder' module: 'SoundPlugin'> + self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primSoundEnableAEC: (in category 'private') ----- + primSoundEnableAEC: aBooleanInteger + "Enable or disable acoustic echo-cancellation (AEC). aBooleanInteger should be 0 for false, and 1 for true." + <primitive: 'primitiveSoundEnableAEC' module: 'SoundPlugin'> + self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primSoundGetRecordLevel (in category 'private') ----- + primSoundGetRecordLevel + "Return sound as array of doubles left then right channel, range is 0.0 to 1.0 but may be overdriven" + <primitive: 'primitiveSoundGetRecordLevel' module: 'SoundPlugin'> + self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primSoundSupportsAEC (in category 'private') ----- + primSoundSupportsAEC + "Answer if the plugin supports echo-cancellation on this OS/hardware." + <primitive: 'primitiveSoundSupportsAEC' module: 'SoundPlugin'> + self primitiveFailed!

1 0

The Trunk: Kernel-pre.1105.mcz
by commits＠source.squeak.org 19 May '17

19 May '17

Patrick Rein uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-pre.1105.mcz ==================== Summary ==================== Name: Kernel-pre.1105 Author: pre Time: 19 May 2017, 2:22:29.00196 pm UUID: 7e22498c-7586-584c-a2a9-81331c572590 Ancestors: Kernel-pre.1104 Removes a redundancy in CompiledCode. =============== Diff against Kernel-nice.1103 =============== Item was changed: ----- Method: CompiledCode class>>headerFlagForEncoder: (in category 'method encoding') ----- headerFlagForEncoder: anEncoder - anEncoder class == PrimaryBytecodeSetEncoderClass ifTrue: - [^0]. - anEncoder class == SecondaryBytecodeSetEncoderClass ifTrue: - [^SmallInteger minVal]. "This allows subclasses for compiler variants such as the ScriptEncoder in EToys to continue to function." + (anEncoder isKindOf: PrimaryBytecodeSetEncoderClass) ifTrue: - (anEncoder class inheritsFrom: PrimaryBytecodeSetEncoderClass) ifTrue: [^0]. + (anEncoder isKindOf: SecondaryBytecodeSetEncoderClass) ifTrue: - (anEncoder class inheritsFrom: SecondaryBytecodeSetEncoderClass) ifTrue: [^SmallInteger minVal]. self error: 'The encoder is not one of the two installed bytecode sets'! Item was added: + ----- Method: Number>>** (in category 'mathematical functions') ----- + ** aNumber + + ^ self raisedTo: aNumber!

1 0

The Trunk: Sound-pre.62.mcz
by commits＠source.squeak.org 17 May '17

17 May '17

Patrick Rein uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-pre.62.mcz ==================== Summary ==================== Name: Sound-pre.62 Author: pre Time: 17 May 2017, 4:32:00.602796 pm UUID: 26e495b2-81f0-0141-8ea8-13cf15baacd1 Ancestors: Sound-ul.61 Fixed an important issue about the naming of the Bach fugue... =============== Diff against Sound-ul.61 =============== Item was changed: + ----- Method: AbstractSound class>>bachFugue (in category 'examples-bach fugue BWV847') ----- - ----- Method: AbstractSound class>>bachFugue (in category 'examples-bach fugue') ----- bachFugue "Play a fugue by J. S. Bach using and instance of me as the sound for all four voices." "PluckedSound bachFugue play" ^ self bachFugueOn: self default ! Item was changed: + ----- Method: AbstractSound class>>bachFugueOn: (in category 'examples-bach fugue BWV847') ----- - ----- Method: AbstractSound class>>bachFugueOn: (in category 'examples-bach fugue') ----- bachFugueOn: aSound "Play a fugue by J. S. Bach using the given sound as the sound for all four voices." "PluckedSound bachFugue play" ^ MixedSound new add: (self bachFugueVoice1On: aSound) pan: 1.0; add: (self bachFugueVoice2On: aSound) pan: 0.0; add: (self bachFugueVoice3On: aSound) pan: 1.0; add: (self bachFugueVoice4On: aSound) pan: 0.0. ! Item was changed: + ----- Method: AbstractSound class>>bachFugueVoice1On: (in category 'examples-bach fugue BWV847') ----- - ----- Method: AbstractSound class>>bachFugueVoice1On: (in category 'examples-bach fugue') ----- bachFugueVoice1On: aSound "Voice one of a fugue by J. S. Bach." ^ self noteSequenceOn: aSound from: #( (1047 0.15 268) (988 0.15 268) (1047 0.30 268) (784 0.30 268) (831 0.30 268) (1047 0.15 268) (988 0.15 268) (1047 0.30 268) (1175 0.30 268) (784 0.30 268) (1047 0.15 268) (988 0.15 268) (1047 0.30 268) (1175 0.30 268) (698 0.15 268) (784 0.15 268) (831 0.60 268) (784 0.15 268) (698 0.15 268) (622 0.15 268) (1047 0.15 268) (988 0.15 268) (880 0.15 268) (784 0.15 268) (698 0.15 268) (622 0.15 268) (587 0.15 268) (523 0.30 268) (1245 0.30 268) (1175 0.30 268) (1047 0.30 268) (932 0.30 268) (880 0.30 268) (932 0.30 268) (1047 0.30 268) (740 0.30 268) (784 0.30 268) (880 0.30 268) (740 0.30 268) (784 0.60 268) (rest 0.15) (523 0.15 268) (587 0.15 268) (622 0.15 268) (698 0.15 268) (784 0.15 268) (831 0.45 268) (587 0.15 268) (622 0.15 268) (698 0.15 268) (784 0.15 268) (880 0.15 268) (932 0.45 268) (622 0.15 268) (698 0.15 268) (784 0.15 268) (831 0.15 268) (784 0.15 268) (698 0.15 268) (622 0.15 268) (587 0.30 268) (1047 0.15 268) (988 0.15 268) (1047 0.60 268) (rest 0.9) (1397 0.30 268) (1245 0.30 268) (1175 0.30 268) (rest 0.3) (831 0.30 268) (784 0.30 268) (698 0.30 268) (784 0.30 268) (698 0.15 268) (622 0.15 268) (698 0.30 268) (587 0.30 268) (784 0.60 268) (rest 0.3) (988 0.30 268) (1047 0.30 268) (1047 0.15 268) (988 0.15 268) (1047 0.30 268) (784 0.30 268) (831 0.60 268) (rest 0.3) (880 0.30 268) (932 0.30 268) (932 0.15 268) (880 0.15 268) (932 0.30 268) (698 0.30 268) (784 0.60 268) (rest 0.3) (784 0.30 268) (831 0.30 268) (831 0.30 268) (784 0.30 268) (698 0.30 268) (rest 0.3) (415 0.30 268) (466 0.30 268) (523 0.30 268) (rest 0.3) (415 0.15 268) (392 0.15 268) (415 0.30 268) (349 0.30 268) (466 0.30 268) (523 0.30 268) (466 0.30 268) (415 0.30 268) (466 0.30 268) (392 0.30 268) (349 0.30 268) (311 0.30 268) (349 0.30 268) (554 0.30 268) (523 0.30 268) (466 0.30 268) (523 0.30 268) (415 0.30 268) (392 0.30 268) (349 0.30 268) (392 0.30 268) (784 0.15 268) (740 0.15 268) (784 0.30 268) (523 0.30 268) (622 0.30 268) (784 0.15 268) (740 0.15 268) (784 0.30 268) (880 0.30 268) (587 0.30 268) (784 0.15 268) (740 0.15 268) (784 0.30 268) (880 0.30 268) (523 0.15 268) (587 0.15 268) (622 0.60 268) (587 0.15 268) (523 0.15 268) (466 0.30 346) (rest 0.45) (587 0.15 346) (659 0.15 346) (740 0.15 346) (784 0.15 346) (880 0.15 346) (932 0.45 346) (659 0.15 346) (698 0.15 346) (784 0.15 346) (880 0.15 346) (932 0.15 346) (1047 0.45 346) (740 0.15 346) (784 0.15 346) (880 0.15 346) (932 0.30 346) (622 0.15 346) (587 0.15 346) (622 0.30 346) (392 0.30 346) (415 0.30 346) (698 0.15 346) (622 0.15 346) (698 0.30 346) (440 0.30 346) (466 0.30 346) (784 0.15 346) (698 0.15 346) (784 0.30 346) (494 0.30 346) (523 0.15 346) (698 0.15 346) (622 0.15 346) (587 0.15 346) (523 0.15 346) (466 0.15 346) (440 0.15 346) (392 0.15 346) (349 0.30 346) (831 0.30 346) (784 0.30 346) (698 0.30 346) (622 0.30 346) (587 0.30 346) (622 0.30 346) (698 0.30 346) (494 0.30 346) (523 0.30 346) (587 0.30 346) (494 0.30 346) (523 0.60 346) (rest 0.3) (659 0.30 346) (698 0.30 346) (698 0.15 346) (659 0.15 346) (698 0.30 346) (523 0.30 346) (587 0.60 346) (rest 0.3) (587 0.30 346) (622 0.30 346) (622 0.15 346) (587 0.15 346) (622 0.30 346) (466 0.30 346) (523 1.20 346) (523 0.30 346) (587 0.15 346) (622 0.15 346) (698 0.15 346) (622 0.15 346) (698 0.15 346) (587 0.15 346) (494 0.30 457) (rest 0.6) (494 0.30 457) (523 0.30 457) (rest 0.6) (622 0.30 457) (587 0.30 457) (rest 0.6) (698 0.60 457) (rest 0.6) (698 0.30 457) (622 0.30 457) (831 0.30 457) (784 0.30 457) (698 0.30 457) (622 0.30 457) (587 0.30 457) (622 0.30 457) (698 0.30 457) (494 0.30 457) (523 0.30 457) (587 0.30 457) (494 0.30 457) (494 0.30 457) (523 0.30 457) (rest 0.3) (523 0.30 457) (698 0.15 457) (587 0.15 457) (622 0.15 457) (523 0.45 457) (494 0.30 457) (523 0.60 457) (rest 0.3) (659 0.30 268) (698 0.60 268) (rest 0.3) (698 0.30 268) (698 0.30 268) (622 0.15 268) (587 0.15 268) (622 0.30 268) (698 0.30 268) (587 0.40 268) (rest 0.4) (587 0.40 268) (rest 0.4) (523 1.60 268)).! Item was changed: + ----- Method: AbstractSound class>>bachFugueVoice2On: (in category 'examples-bach fugue BWV847') ----- - ----- Method: AbstractSound class>>bachFugueVoice2On: (in category 'examples-bach fugue') ----- bachFugueVoice2On: aSound "Voice two of a fugue by J. S. Bach." ^ self noteSequenceOn: aSound from: #( (rest 4.8) (1568 0.15 346) (1480 0.15 346) (1568 0.30 346) (1047 0.30 346) (1245 0.30 346) (1568 0.15 346) (1480 0.15 346) (1568 0.30 346) (1760 0.30 346) (1175 0.30 346) (1568 0.15 346) (1480 0.15 346) (1568 0.30 346) (1760 0.30 346) (1047 0.15 346) (1175 0.15 346) (1245 0.60 346) (1175 0.15 346) (1047 0.15 346) (932 0.30 346) (1245 0.15 346) (1175 0.15 346) (1245 0.30 346) (784 0.30 346) (831 0.30 346) (1397 0.15 346) (1245 0.15 346) (1397 0.30 346) (880 0.30 346) (932 0.30 346) (1568 0.15 346) (1397 0.15 346) (1568 0.30 346) (988 0.30 346) (1047 0.30 346) (1175 0.15 346) (1245 0.15 346) (1397 0.90 346) (1245 0.15 346) (1175 0.15 346) (1047 0.15 346) (932 0.15 346) (831 0.15 346) (784 0.15 346) (698 0.30 346) (1661 0.30 346) (1568 0.30 346) (1397 0.30 346) (1245 0.30 346) (1175 0.30 346) (1245 0.30 346) (1397 0.30 346) (988 0.30 346) (1047 0.30 346) (1175 0.30 346) (988 0.30 346) (1047 0.30 457) (1568 0.15 457) (1480 0.15 457) (1568 0.30 457) (1175 0.30 457) (1245 0.60 457) (rest 0.3) (1319 0.30 457) (1397 0.30 457) (1397 0.15 457) (1319 0.15 457) (1397 0.30 457) (1047 0.30 457) (1175 0.60 457) (rest 0.3) (1175 0.30 457) (1245 0.30 457) (1245 0.15 457) (1175 0.15 457) (1245 0.30 457) (932 0.30 457) (1047 0.30 457) (1245 0.15 457) (1175 0.15 457) (1245 0.30 457) (1397 0.30 457) (932 0.30 457) (1245 0.15 457) (1175 0.15 457) (1245 0.30 457) (1397 0.30 457) (831 0.15 457) (932 0.15 457) (1047 0.60 457) (932 0.15 457) (831 0.15 457) (784 0.15 457) (622 0.15 457) (698 0.15 457) (784 0.15 457) (831 0.15 457) (932 0.15 457) (1047 0.15 457) (1175 0.15 457) (1245 0.15 457) (1175 0.15 457) (1047 0.15 457) (1175 0.15 457) (1245 0.15 457) (1397 0.15 457) (1568 0.15 457) (1760 0.15 457) (1865 0.15 457) (698 0.15 457) (784 0.15 457) (831 0.15 457) (932 0.15 457) (1047 0.15 457) (1175 0.15 457) (1319 0.15 457) (1397 0.15 457) (1245 0.15 457) (1175 0.15 457) (1245 0.15 457) (1397 0.15 457) (1568 0.15 457) (1760 0.15 457) (1976 0.15 457) (2093 0.30 457) (1976 0.15 457) (1760 0.15 457) (1568 0.15 457) (1397 0.15 457) (1245 0.15 457) (1175 0.15 457) (1047 0.30 457) (1245 0.30 457) (1175 0.30 457) (1047 0.30 457) (932 0.30 457) (880 0.30 457) (932 0.30 457) (1047 0.30 457) (740 0.30 457) (784 0.30 457) (880 0.30 457) (740 0.30 457) (784 0.30 457) (1175 0.15 457) (1047 0.15 457) (1175 0.30 457) (rest 0.6) (1319 0.15 457) (1175 0.15 457) (1319 0.30 457) (rest 0.6) (1480 0.15 457) (1319 0.15 457) (1480 0.30 457) (rest 0.6) (784 0.15 457) (698 0.15 457) (784 0.30 457) (rest 0.6) (880 0.15 457) (784 0.15 457) (880 0.30 457) (rest 0.6) (988 0.15 457) (880 0.15 457) (988 0.30 457) (rest 0.6) (1047 0.15 457) (988 0.15 457) (1047 0.30 457) (784 0.30 457) (831 0.30 457) (1047 0.15 457) (988 0.15 457) (1047 0.30 457) (1175 0.30 457) (784 0.30 457) (1047 0.15 457) (988 0.15 457) (1047 0.30 457) (1175 0.30 457) (698 0.15 457) (784 0.15 457) (831 0.60 457) (784 0.15 457) (698 0.15 457) (622 0.30 457) (1047 0.15 457) (988 0.15 457) (1047 0.30 457) (784 0.30 457) (831 0.60 457) (rest 0.3) (880 0.30 457) (932 0.30 457) (932 0.15 457) (880 0.15 457) (932 0.30 457) (698 0.30 457) (784 0.60 457) (rest 0.3) (784 0.60 457) (831 0.15 457) (932 0.15 457) (1047 0.15 457) (988 0.15 457) (1047 0.15 457) (831 0.15 457) (698 1.20 457) (698 0.30 591) (1175 0.15 591) (1047 0.15 591) (1175 0.30 591) (698 0.30 591) (622 0.30 591) (1245 0.15 591) (1175 0.15 591) (1245 0.30 591) (784 0.30 591) (698 0.30 591) (1397 0.15 591) (1245 0.15 591) (1397 0.30 591) (831 0.30 591) (784 0.15 591) (1397 0.15 591) (1245 0.15 591) (1175 0.15 591) (1047 0.15 591) (988 0.15 591) (880 0.15 591) (784 0.15 591) (1047 0.30 591) (1397 0.30 591) (1245 0.30 591) (1175 0.30 591) (rest 0.3) (831 0.30 591) (784 0.30 591) (698 0.30 591) (784 0.30 591) (698 0.15 591) (622 0.15 591) (698 0.30 591) (587 0.30 591) (831 0.30 591) (784 0.30 591) (rest 0.3) (880 0.30 591) (988 0.30 591) (1047 0.30 591) (698 0.15 591) (622 0.15 591) (587 0.15 591) (523 0.15 591) (523 0.30 591) (1047 0.15 346) (988 0.15 346) (1047 0.30 346) (784 0.30 346) (831 0.30 346) (1047 0.15 346) (988 0.15 346) (1047 0.30 346) (1175 0.30 346) (784 0.30 346) (1047 0.15 346) (988 0.15 346) (1047 0.30 346) (1175 0.30 346) (698 0.20 346) (784 0.20 346) (831 0.80 346) (784 0.20 346) (698 0.20 346) (659 1.60 346)). ! Item was changed: + ----- Method: AbstractSound class>>bachFugueVoice3On: (in category 'examples-bach fugue BWV847') ----- - ----- Method: AbstractSound class>>bachFugueVoice3On: (in category 'examples-bach fugue') ----- bachFugueVoice3On: aSound "Voice three of a fugue by J. S. Bach." ^ self noteSequenceOn: aSound from: #( (rest 14.4) (523 0.15 457) (494 0.15 457) (523 0.30 457) (392 0.30 457) (415 0.30 457) (523 0.15 457) (494 0.15 457) (523 0.30 457) (587 0.30 457) (392 0.30 457) (523 0.15 457) (494 0.15 457) (523 0.30 457) (587 0.30 457) (349 0.15 457) (392 0.15 457) (415 0.60 457) (392 0.15 457) (349 0.15 457) (311 0.15 457) (523 0.15 457) (494 0.15 457) (440 0.15 457) (392 0.15 457) (349 0.15 457) (311 0.15 457) (294 0.15 457) (262 0.15 457) (294 0.15 457) (311 0.15 457) (294 0.15 457) (262 0.15 457) (233 0.15 457) (208 0.15 457) (196 0.15 457) (175 0.15 457) (466 0.15 457) (415 0.15 457) (392 0.15 457) (349 0.15 457) (311 0.15 457) (294 0.15 457) (262 0.15 457) (233 0.15 457) (262 0.15 457) (294 0.15 457) (262 0.15 457) (233 0.15 457) (208 0.15 457) (196 0.15 457) (175 0.15 457) (156 0.15 457) (415 0.15 457) (392 0.15 457) (349 0.15 457) (311 0.15 457) (277 0.15 457) (262 0.15 457) (233 0.15 457) (208 0.30 457) (523 0.30 457) (466 0.30 457) (415 0.30 457) (392 0.30 457) (349 0.30 457) (392 0.30 457) (415 0.30 457) (294 0.30 457) (311 0.30 457) (349 0.30 457) (294 0.30 457) (311 0.30 457) (415 0.30 457) (392 0.30 457) (349 0.30 457) (392 0.30 457) (311 0.30 457) (294 0.30 457) (262 0.30 457) (294 0.30 457) (466 0.30 457) (415 0.30 457) (392 0.30 457) (415 0.30 457) (349 0.30 457) (311 0.30 457) (294 0.30 457) (311 0.30 457) (rest 1.2) (262 0.30 457) (233 0.30 457) (220 0.30 457) (rest 0.3) (311 0.30 457) (294 0.30 457) (262 0.30 457) (294 0.30 457) (262 0.15 457) (233 0.15 457) (262 0.30 457) (294 0.30 457) (196 0.30 591) (466 0.15 591) (440 0.15 591) (466 0.30 591) (294 0.30 591) (311 0.30 591) (523 0.15 591) (466 0.15 591) (523 0.30 591) (330 0.30 591) (349 0.30 591) (587 0.15 591) (523 0.15 591) (587 0.30 591) (370 0.30 591) (392 0.60 591) (rest 0.15) (196 0.15 591) (220 0.15 591) (247 0.15 591) (262 0.15 591) (294 0.15 591) (311 0.45 591) (220 0.15 591) (233 0.15 591) (262 0.15 591) (294 0.15 591) (311 0.15 591) (349 0.45 591) (247 0.15 591) (262 0.15 591) (294 0.15 591) (311 0.30 591) (rest 0.6) (330 0.30 591) (349 0.30 591) (175 0.30 591) (156 0.30 591) (147 0.30 591) (rest 0.3) (208 0.30 591) (196 0.30 591) (175 0.30 591) (196 0.30 591) (175 0.15 591) (156 0.15 591) (175 0.30 591) (196 0.30 591) (262 0.15 591) (294 0.15 591) (311 0.15 591) (294 0.15 591) (262 0.15 591) (233 0.15 591) (208 0.15 591) (196 0.15 591) (175 0.15 591) (466 0.15 591) (415 0.15 591) (392 0.15 591) (349 0.15 591) (311 0.15 591) (294 0.15 591) (262 0.15 591) (233 0.15 591) (262 0.15 591) (294 0.15 591) (262 0.15 591) (233 0.15 591) (208 0.15 591) (196 0.15 591) (175 0.15 591) (156 0.15 591) (415 0.15 591) (392 0.15 591) (349 0.15 591) (311 0.15 591) (294 0.15 591) (262 0.15 591) (233 0.15 591) (208 0.15 591) (233 0.15 591) (262 0.15 591) (233 0.15 591) (208 0.15 591) (196 0.15 591) (175 0.15 591) (156 0.15 591) (147 0.15 591) (392 0.15 591) (349 0.15 591) (311 0.15 591) (294 0.15 591) (262 0.15 591) (247 0.15 591) (220 0.15 591) (196 0.60 772) (196 0.60 772) (rest 0.15) (196 0.15 772) (220 0.15 772) (247 0.15 772) (262 0.15 772) (294 0.15 772) (311 0.15 772) (349 0.15 772) (392 0.15 772) (349 0.15 772) (415 0.15 772) (392 0.15 772) (349 0.15 772) (311 0.15 772) (294 0.15 772) (262 0.15 772) (247 0.30 772) (262 0.15 772) (494 0.15 772) (262 0.30 772) (196 0.30 772) (208 0.30 772) (262 0.15 772) (247 0.15 772) (262 0.30 772) (294 0.30 772) (196 0.30 772) (262 0.15 772) (247 0.15 772) (262 0.30 772) (294 0.30 772) (175 0.15 772) (196 0.15 772) (208 0.60 772) (196 0.15 772) (175 0.15 772) (156 0.60 772) (rest 0.3) (311 0.30 772) (294 0.30 772) (262 0.30 772) (392 0.30 772) (196 0.30 772) (262 3.60 268) (494 0.40 268) (rest 0.4) (494 0.40 268) (rest 0.4) (392 1.60 268)). ! Item was changed: + ----- Method: AbstractSound class>>bachFugueVoice4On: (in category 'examples-bach fugue BWV847') ----- - ----- Method: AbstractSound class>>bachFugueVoice4On: (in category 'examples-bach fugue') ----- bachFugueVoice4On: aSound "Voice four of a fugue by J. S. Bach." ^ self noteSequenceOn: aSound from: #( (rest 61.2) (131 0.15 500) (123 0.15 500) (131 0.30 500) (98 0.30 500) (104 0.30 500) (131 0.15 500) (123 0.15 500) (131 0.30 500) (147 0.30 500) (98 0.30 500) (131 0.15 500) (123 0.15 500) (131 0.30 500) (147 0.30 500) (87 0.15 500) (98 0.15 500) (104 0.60 500) (98 0.15 500) (87 0.15 500) (78 0.60 500) (rest 0.3) (156 0.30 500) (147 0.30 500) (131 0.30 500) (196 0.30 500) (98 0.30 500) (131 3.60 268) (131 3.20 205)). ! Item was changed: + ----- Method: AbstractSound class>>stereoBachFugue (in category 'examples-bach fugue BWV847') ----- - ----- Method: AbstractSound class>>stereoBachFugue (in category 'examples-bach fugue') ----- stereoBachFugue "Play fugue by J. S. Bach in stereo using different timbres." "AbstractSound stereoBachFugue play" "(AbstractSound bachFugueVoice1On: FMSound flute1) play" "(AbstractSound bachFugueVoice1On: PluckedSound default) play" ^ MixedSound new add: (self bachFugueVoice1On: FMSound oboe1) pan: 0.2; add: (self bachFugueVoice2On: FMSound organ1) pan: 0.8; add: (self bachFugueVoice3On: PluckedSound default) pan: 0.4; add: (self bachFugueVoice4On: FMSound brass1) pan: 0.6. !

1 0

The Trunk: Network-pre.197.mcz
by commits＠source.squeak.org 15 May '17

15 May '17

Patrick Rein uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-pre.197.mcz ==================== Summary ==================== Name: Network-pre.197 Author: pre Time: 15 May 2017, 10:16:50.494328 pm UUID: 31250966-3cc4-5842-a5da-b35dbdc1d8aa Ancestors: Network-pre.196 Minor fixes to comply with standard library protocol and adds a missing setter =============== Diff against Network-pre.196 =============== Item was changed: ----- Method: DateAndTime>>asMailMessageString (in category '*Network-Url') ----- asMailMessageString "According to RFC 822: https://tools.ietf.org/html/rfc822#section-5" | result | result := WriteStream on: (String new: 30). result nextPutAll: self dayOfWeekAbbreviation; nextPut: $,; space; nextPutAll: (self dayOfMonth asString padded: #left to: 2 with: $0); space; nextPutAll: self monthAbbreviation; space; nextPutAll: self year asString; space. self printHMSOn: result. result space. result + nextPutAll: (self offset negative ifTrue: ['-'] ifFalse: ['+']); - nextPutAll: (self offset isNegative ifTrue: ['-'] ifFalse: ['+']); nextPutAll: (self offset abs hours asString padded: #left to: 2 with: $0); nextPutAll: (self offset abs minutes asString padded: #left to: 2 with: $0). ^ result contents! Item was added: + ----- Method: MailMessage>>subject: (in category 'access') ----- + subject: aString + + ^ self setField: 'subject' toString: aString!

1 0

The Trunk: Tools-pre.761.mcz
by commits＠source.squeak.org 15 May '17

15 May '17

Patrick Rein uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-pre.761.mcz ==================== Summary ==================== Name: Tools-pre.761 Author: pre Time: 15 May 2017, 9:37:39.826328 pm UUID: 8c06fe98-86ae-7d4b-b4fa-47eb181ac234 Ancestors: Tools-eem.760 Adds drag and drop support to the object explorer to make it consistent with the inspector interactions =============== Diff against Tools-eem.760 =============== Item was changed: ----- Method: ObjectExplorer>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowSpec treeSpec textSpec buttonSpec buttonOffset tool | windowSpec := builder pluggableWindowSpec new. windowSpec model: self; children: OrderedCollection new; label: #label; extent: self initialExtent. treeSpec := builder pluggableTreeSpec new. treeSpec model: self; nodeClass: self class nodeClass; roots: #getList; keyPress: #explorerKey:from:event:; getSelected: #currentSelection; setSelected: #currentSelection:; setSelectedParent: #currentParent:; menu: #genericMenu:; + dragItem: #getDragItem:; autoDeselect: false; columns: (ObjectExplorerWrapper showContentsInColumns ifTrue: [{ [:listMorph | (listMorph filteredItems collect: [:item | item preferredWidthOfColumn: 1]) max]. nil "take all the space"}]); frame: (0@0 corner: 1(a)0.71). windowSpec children add: treeSpec. buttonOffset := (Preferences standardButtonFont widthOfString: 'inspect') * 3/2. textSpec := builder pluggableCodePaneSpec new. textSpec model: self; getText: #expression; editText: #expression:; menu: #codePaneMenu:shifted:; help: 'Evaluate expressions for the current tree selection...' translated; frame: (LayoutFrame fractions: (0(a)0.71 corner: 1@1) offsets: (0@0 corner: buttonOffset negated@0)). windowSpec children add: textSpec. buttonSpec := builder pluggableButtonSpec new model: self; label: 'inspect'; action: #inspectObject; help: 'Switch to an inspector tool'; frame: (LayoutFrame fractions: (1(a)0.71 corner: 1@1) offsets: (buttonOffset negated@0 corner: 0 @ 0)). windowSpec children add: buttonSpec. tool := builder build: windowSpec. self changed: #expandRootsRequested. ^ tool! Item was added: + ----- Method: ObjectExplorer>>getDragItem: (in category 'user interface') ----- + getDragItem: binding + + ^ binding value!

1 0

The Trunk: ToolBuilder-Morphic-pre.194.mcz
by commits＠source.squeak.org 15 May '17

15 May '17

Patrick Rein uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-pre.194.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-pre.194 Author: pre Time: 15 May 2017, 9:36:39.991328 pm UUID: a559fcce-f05d-6044-ba8f-67a103756188 Ancestors: ToolBuilder-Morphic-topa.193 Adds double click capabilities to PluggableTreeMorph =============== Diff against ToolBuilder-Morphic-topa.193 =============== Item was changed: SimpleHierarchicalListMorph subclass: #PluggableTreeMorph + instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector dragTypeSelector nodeClass lastKeystrokeTime lastKeystrokes dragStartedSelector doubleClickSelector' - instanceVariableNames: 'rootWrappers selectedWrapper getRootsSelector getChildrenSelector hasChildrenSelector getLabelSelector getIconSelector getSelectedPathSelector setSelectedParentSelector getHelpSelector dropItemSelector wantsDropSelector dragItemSelector dragTypeSelector nodeClass lastKeystrokeTime lastKeystrokes dragStartedSelector' classVariableNames: 'FilterByLabelsOnly MaximumSearchDepth' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !PluggableTreeMorph commentStamp: 'ar 2/12/2005 04:38' prior: 0! A pluggable tree morph.! Item was added: + ----- Method: PluggableTreeMorph>>doubleClick: (in category 'event handling') ----- + doubleClick: evt + + | aMorph | + aMorph := self itemFromPoint: evt position. + self model perform: self doubleClickSelector with: aMorph withoutListWrapper + ! Item was added: + ----- Method: PluggableTreeMorph>>doubleClickEnabled (in category 'accessing') ----- + doubleClickEnabled + + ^ self doubleClickSelector notNil! Item was added: + ----- Method: PluggableTreeMorph>>doubleClickSelector (in category 'accessing') ----- + doubleClickSelector + + ^ doubleClickSelector! Item was added: + ----- Method: PluggableTreeMorph>>doubleClickSelector: (in category 'accessing') ----- + doubleClickSelector: anObject + + doubleClickSelector := anObject! Item was added: + ----- Method: PluggableTreeMorph>>mouseDown: (in category 'event handling') ----- + mouseDown: evt + | aMorph selectors | + + aMorph := self itemFromPoint: evt position. + evt yellowButtonPressed "First check for option (menu) click" + ifTrue: [ + (PluggableListMorph menuRequestUpdatesSelection and: [model okToChange]) ifTrue: [ + aMorph == selectedMorph + ifFalse: [self setSelectedMorph: aMorph]]. + ^ self yellowButtonActivity: evt shiftPressed]. + (aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)]) + ifTrue:[^self toggleExpandedState: aMorph event: evt]. + aMorph ifNil:[^super mouseDown: evt]. + + aMorph highlightForMouseDown. + self setProperty: #highlightedMorph toValue: aMorph. + + selectors := Array + with: #click: + with: (self doubleClickEnabled ifTrue: [#doubleClick:] ifFalse: [nil]) + with: nil + with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). + evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".!

1 0

The Trunk: ToolBuilder-Kernel-pre.110.mcz
by commits＠source.squeak.org 15 May '17

15 May '17

Patrick Rein uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-pre.110.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-pre.110 Author: pre Time: 15 May 2017, 9:34:18.749328 pm UUID: 86628552-c37c-c34b-ba1d-f11ec0a31a35 Ancestors: ToolBuilder-Kernel-jr.109 Adds double click capabilities to PluggableTreeSpecs =============== Diff against ToolBuilder-Kernel-jr.109 =============== Item was changed: PluggableWidgetSpec subclass: #PluggableTreeSpec + instanceVariableNames: 'roots getSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress doubleClick dropItem dropAccept autoDeselect dragItem nodeClass columns vScrollBarPolicy hScrollBarPolicy dragStarted' - instanceVariableNames: 'roots getSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress dropItem dropAccept autoDeselect dragItem nodeClass columns vScrollBarPolicy hScrollBarPolicy dragStarted' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !PluggableTreeSpec commentStamp: 'mvdg 3/21/2008 20:59' prior: 0! A pluggable tree widget. PluggableTrees are slightly different from lists in such that they ALWAYS store the actual objects and use the label selector to query for the label of the item. PluggableTrees also behave somewhat differently in such that they do not have a "getSelected" message but only a getSelectedPath message. The difference is that getSelectedPath is used to indicate by the model that the tree should select the appropriate path. This allows disambiguation of items. Because of this, implementations of PluggableTrees must always set their internal selection directly, e.g., rather than sending the model a setSelected message and wait for an update of the #getSelected the implementation must set the selection before sending the #setSelected message. If a client doesn't want this, it can always just signal a change of getSelectedPath to revert to whatever is needed. Instance variables: roots <Symbol> The message to retrieve the roots of the tree. getSelectedPath <Symbol> The message to retrieve the selected path in the tree. setSelected <Symbol> The message to set the selected item in the tree. getChildren <Symbol> The message to retrieve the children of an item hasChildren <Symbol> The message to query for children of an item label <Symbol> The message to query for the label of an item. icon <Symbol> The message to query for the icon of an item. help <Symbol> The message to query for the help of an item. menu <Symbol> The message to query for the tree's menu keyPress <Symbol> The message to process a keystroke. wantsDrop <Symbol> The message to query whether a drop might be accepted. dropItem <Symbol> The message to drop an item. enableDrag <Boolean> Enable dragging from this tree. autoDeselect <Boolean> Whether the tree should allow automatic deselection or not. unusedVar (unused) This variable is a placeholder to fix problems with loading packages in 3.10.! Item was added: + ----- Method: PluggableTreeSpec>>doubleClick (in category 'accessing') ----- + doubleClick + "Answer the selector for reacting to a double click" + ^ doubleClick! Item was added: + ----- Method: PluggableTreeSpec>>doubleClick: (in category 'accessing') ----- + doubleClick: selector + "Set the selector for reacting to a double click" + doubleClick := selector!

1 0

The Trunk: Morphic-pre.1337.mcz
by commits＠source.squeak.org 15 May '17

15 May '17

Patrick Rein uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-pre.1337.mcz ==================== Summary ==================== Name: Morphic-pre.1337 Author: pre Time: 15 May 2017, 9:28:31.344328 pm UUID: 31e536bc-642b-bb40-b690-5415d15803eb Ancestors: Morphic-mt.1336 Reworks how the explorer contents are determined to make the standard behavior both more discoverable and reusable. =============== Diff against Morphic-mt.1336 =============== Item was added: + ----- Method: Object>>explorerContents (in category '*Morphic-Explorer') ----- + explorerContents + "Override that method to define which properties of the object should be shown in the + object explorer. See for example the implementation in Integer>>#explorerContents." + + ^ (self class allInstVarNames asOrderedCollection withIndexCollect: [:each :index | + ObjectExplorerWrapper + with: (self instVarAt: index) + name: each + model: self]) , + ((1 to: self basicSize) collect: [:index | + ObjectExplorerWrapper + with: (self basicAt: index) + name: index printString + model: self ])! Item was changed: ListItemWrapper subclass: #ObjectExplorerWrapper instanceVariableNames: 'itemName parent' classVariableNames: 'ShowContentsInColumns' poolDictionaries: '' category: 'Morphic-Explorer'! + !ObjectExplorerWrapper commentStamp: 'pre 5/15/2017 21:23' prior: 0! + ObjectExplorerWrappers represent an item displayed in an object explorer tree. In addition to the common ListItemWrapper behavior it adds methods to refresh the list entry with updated values from the model. It is mostly used in #explorerContents methods to describe which instance variables of an object should be displayed in the explorer. + + Additionally, the value displayed can be visualized with a small icon which is defined by the class of the value object through the method #iconOrThumbnailOfSize:. + - !ObjectExplorerWrapper commentStamp: '<historical>' prior: 0! Contributed by Bob Arning as part of the ObjectExplorer package. ! Item was changed: ----- Method: ObjectExplorerWrapper>>contents (in category 'accessing') ----- contents + ^ self object explorerContents + do: [:wrapper | wrapper parent: self]; + yourself! - (self object respondsTo: #explorerContents) ifTrue: [ - ^ self object explorerContents - do: [:wrapper | wrapper parent: self]; - yourself]. - "For all others, show named vars first, then indexed vars" - ^(self object class allInstVarNames asOrderedCollection withIndexCollect: [:each :index | - self class - with: (self object instVarAt: index) - name: each - model: self object - parent: self]) , - ((1 to: self object basicSize) collect: [:index | - self class - with: (self object basicAt: index) - name: index printString - model: self object - parent: self])! Item was changed: ----- Method: ObjectExplorerWrapper>>refresh (in category 'monitoring') ----- refresh - "hack to refresh item given an object and a string that is either an index or an instance variable name." self parent ifNil: [^ self]. + [model explorerContents detect: [:wrapper | wrapper itemName = self itemName] + ifFound: [:wrapper | ^ self object: wrapper object ] + ifNone: [^ self object: nil]] + on: Error + do: [ :ex | self object: nil ]! - [ | index | - (model class allInstVarNames includes: self itemName) - ifTrue: [ self object: (model instVarNamed: self itemName) ] - ifFalse: [ index := self itemName asNumber. - (index between: 1 and: model basicSize) ifTrue: [ self object: (model basicAt: index)]] - ] on: Error do: [ :ex | self object: nil ]! Item was changed: ListItemWrapper subclass: #PluggableListItemWrapper instanceVariableNames: 'string getContentsSelector getStringSelector hasContentsSelector' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Explorer'! + !PluggableListItemWrapper commentStamp: 'pre 5/15/2017 21:08' prior: 0! + PluggableListItemWrapper makes it more easy for clients to use hierarchical lists. Rather than having to write a subclass of ListItemWrapper, a PluggableListItemWrapper can be used to provide the appropriate information straight from the model: - !PluggableListItemWrapper commentStamp: 'ar 10/14/2003 23:51' prior: 0! - luggableListItemWrapper makes it more easy for clients to use hierarchical lists. Rather than having to write a subclass of ListItemWrapper, a PluggableListItemWrapper can be used to provide the appropriate information straight from the model: string - an explicit string representation (contrary to the 'item' which contains any kind of object) getStringSelector - a message invoked to retrieve the sting representation of its item dynamically from its model (when a constant representation is undesirable) hasContentsSelector - a message invoked in the model to answer whether the item has any children or not. getContentsSelector - a message invoked in the model to retrieve the contents for its item. All callback selectors can have zero, one or two arguments with the item and the wrapper as first and second argument.!

1 0

The Trunk: Chronology-Core-pre.9.mcz
by commits＠source.squeak.org 12 May '17

12 May '17

Patrick Rein uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-pre.9.mcz ==================== Summary ==================== Name: Chronology-Core-pre.9 Author: pre Time: 12 May 2017, 5:38:53.048874 pm UUID: a643e5e5-bb82-e841-99c6-fbecce3e6e5f Ancestors: Chronology-Core-ul.8 tiny change of code formatting =============== Diff against Chronology-Core-ul.8 =============== Item was changed: ----- Method: DateAndTime>>setJdn:seconds:nano:offset: (in category 'squeak protocol') ----- setJdn: j seconds: s nano: n offset: o + jdn := j. + seconds := s. + nanos := n. + offset := o - jdn := j. - seconds := s. - nanos := n. - offset := o !

1 0

The Trunk: NetworkTests-pre.47.mcz
by commits＠source.squeak.org 12 May '17

12 May '17

Patrick Rein uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-pre.47.mcz ==================== Summary ==================== Name: NetworkTests-pre.47 Author: pre Time: 12 May 2017, 5:38:09.138874 pm UUID: 08607de4-b6f0-3d4a-b2b5-e510203fc346 Ancestors: NetworkTests-pre.46 Tests for supporting features for email handling including a message for creating a reply to a message and a rfc 822 compliant printing of DateAndTime objects =============== Diff against NetworkTests-pre.46 =============== Item was added: + TestCase subclass: #MailDateAndTimeTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'NetworkTests-RFC822'! Item was added: + ----- Method: MailDateAndTimeTest>>testBasicDate (in category 'as yet unclassified') ----- + testBasicDate + + | date | + date := DateAndTime year: 2017 month: 2 day: 3. + self assert: 'Fri, 03 Feb 2017 00:00:00 +0200' equals: date asMailMessageString! Item was added: + ----- Method: MailDateAndTimeTest>>testBasicDateAndTime (in category 'as yet unclassified') ----- + testBasicDateAndTime + + | date | + date := DateAndTime year: 2000 month: 6 day: 22 hour: 14 minute: 17 second: 47 offset: (Duration days: 0 hours: -5 minutes: 0 seconds: 0 nanoSeconds:0). + self assert: 'Thu, 22 Jun 2000 14:17:47 -0500' equals: date asMailMessageString + ! Item was added: + ----- Method: MailMessageTest>>fixtureMail (in category 'fixtures') ----- + fixtureMail + + ^ MailMessage empty + from: self fixtureSenderMail; + to: self fixtureReceiverMails; + messageId: self fixtureMessageId; + dateTime: self fixtureMessageDate; + subject: self fixtureSubject; + yourself! Item was added: + ----- Method: MailMessageTest>>fixtureMessageDate (in category 'fixtures') ----- + fixtureMessageDate + + ^ DateAndTime year: 2017 month: 2 day: 5 hour: 14 minute: 15 ! Item was added: + ----- Method: MailMessageTest>>fixtureMessageId (in category 'fixtures') ----- + fixtureMessageId + + ^ 'ijoisjdfoihasoidhfosihd(a)mail.com'! Item was added: + ----- Method: MailMessageTest>>fixtureReceiverMails (in category 'fixtures') ----- + fixtureReceiverMails + + ^ 'receiver(a)mail.com'! Item was added: + ----- Method: MailMessageTest>>fixtureSenderMail (in category 'fixtures') ----- + fixtureSenderMail + + ^ 'sender(a)mail.com'! Item was added: + ----- Method: MailMessageTest>>fixtureSubject (in category 'fixtures') ----- + fixtureSubject + + ^ 'This is the subject'! Item was added: + ----- Method: MailMessageTest>>testCreateAReplyForFrom (in category 'testing') ----- + testCreateAReplyForFrom + + | replyMail | + replyMail := MailMessage replyFor: self fixtureMail. + self assert: self fixtureSenderMail equals: replyMail to.! Item was added: + ----- Method: MailMessageTest>>testCreateAReplyForReplyTo (in category 'testing') ----- + testCreateAReplyForReplyTo + + | replyMail startMail | + startMail := self fixtureMail + setField: 'reply-to' toString: 'anothersender(a)mail.com'; + yourself. + replyMail := MailMessage replyFor: startMail. + self assert: 'anothersender(a)mail.com' equals: replyMail to.! Item was added: + ----- Method: MailMessageTest>>testCreateAReplyForReplyTos (in category 'testing') ----- + testCreateAReplyForReplyTos + + | replyMail startMail | + startMail := self fixtureMail + setField: 'reply-to' toString: 'anothersender(a)mail.com, andanothersender(a)mail.com'; + yourself. + replyMail := MailMessage replyFor: startMail. + self assert: 'anothersender(a)mail.com, andanothersender(a)mail.com' equals: replyMail to.! Item was added: + ----- Method: MailMessageTest>>testCreateAReplyHasANewSubject (in category 'testing') ----- + testCreateAReplyHasANewSubject + + | replyMail | + replyMail := MailMessage replyFor: self fixtureMail. + self assert: 'Re: ' , self fixtureSubject equals: replyMail subject.! Item was added: + ----- Method: MailMessageTest>>testCreateAReplyHasANewSubjectUnlessWasAlreadyReply (in category 'testing') ----- + testCreateAReplyHasANewSubjectUnlessWasAlreadyReply + + | replyMail startMail | + startMail := self fixtureMail + subject: 'Re: Subject'; + yourself. + replyMail := MailMessage replyFor: startMail. + self assert: 'Re: Subject' equals: replyMail subject.! Item was changed: + ----- Method: MailMessageTest>>testDateStampFractionalSecondFormatting (in category 'testing') ----- - ----- Method: MailMessageTest>>testDateStampFractionalSecondFormatting (in category 'as yet unclassified') ----- testDateStampFractionalSecondFormatting self assert: (MailMessage dateStamp: (DateAndTime fromSeconds: 1.234)) = 'Tue, 1 Jan 1901 00:00:01' description: 'RFC822 (and RFC2822) forbids non-integer seconds in dates'! Item was added: + ----- Method: MailMessageTest>>testReplyContainsInReplyTo (in category 'testing') ----- + testReplyContainsInReplyTo + + | replyMail | + replyMail := MailMessage replyFor: self fixtureMail. + self assert: self fixtureMessageId equals: (replyMail fieldNamed: 'in-reply-to' ifAbsent: [self fail]) mainValue.! Item was added: + ----- Method: MailMessageTest>>testReplyContainsReferences (in category 'testing') ----- + testReplyContainsReferences + + | replyMail lastReply | + replyMail := MailMessage replyFor: self fixtureMail. + replyMail + setField: 'message-id' toString: 'abc'; + from: 'me(a)mail.com'. + lastReply := MailMessage replyFor: replyMail. + + self + assert: self fixtureMessageId , ', abc' + equals: (lastReply fieldNamed: 'references' ifAbsent: [self fail]) mainValue.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2017