'From Squeak5.2rc1 of 12 October 2018 [latest update: #18204] on 12 October 2018 at 2:43:09 pm'! TestCase subclass: #EPSCanvasTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'MorphicExtrasTests-Postscript Canvases'! !MailComposition methodsFor: 'actions' stamp: 'pre 10/12/2018 13:30'! addAttachment self saveFields. (UIManager default chooseFileMatching: '*' label: 'Choose attachment') ifNotNil: [:fileName | FileStream readOnlyFileNamed: fileName do: [:file | file binary. mailMessage addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName)]. self changed: #messageText]. ! ! !PackageDependencyTest methodsFor: 'tests' stamp: 'pre 10/12/2018 13:04'! testEtoys "Etoys clean-up is to be done for the after 5.2 release --pre" self testPackage: #EToys dependsExactlyOn: #( Balloon #'Chronology-Core' Collections Compiler Compression Files Graphics Kernel Morphic MorphicExtras Multilingual Network Protocols SUnit System #'ToolBuilder-Kernel' Tools ).! ! !PackageDependencyTest methodsFor: 'tests' stamp: 'pre 10/12/2018 13:13'! testMorphic self testPackage: #Morphic dependsExactlyOn: #( Balloon #'Chronology-Core' Collections Compiler Compression EToys Files Graphics Kernel Monticello MonticelloConfigurations MorphicExtras Multilingual Network Sound System SystemReporter #'ToolBuilder-Kernel' #'ToolBuilder-Morphic' Tools TrueType ).! ! !PackageDependencyTest methodsFor: 'tests' stamp: 'pre 10/12/2018 13:24'! testMorphicExtras self testPackage: #MorphicExtras dependsExactlyOn: #( Balloon #'Chronology-Core' Collections Compiler Files Graphics Kernel MonticelloConfigurations Morphic Multilingual Network Protocols Sound System #'ToolBuilder-Kernel' #'ToolBuilder-Morphic' Tools ).! ! !PackageDependencyTest methodsFor: 'tests' stamp: 'pre 10/12/2018 13:29'! testNetwork self testPackage: #Network dependsExactlyOn: #( #'Chronology-Core' Collections Compiler Compression Files Graphics Kernel Morphic Multilingual #'SqueakSSL-Core' System #'ToolBuilder-Kernel' #'WebClient-Core' ).! ! !PackageDependencyTest methodsFor: 'tests' stamp: 'pre 10/12/2018 13:31'! testSUnitGUI self testPackage: #SUnitGUI dependsExactlyOn: #( #'Chronology-Core' Collections Environments Graphics Kernel #'PackageInfo-Base' SUnit System #'ToolBuilder-Kernel' Tools ).! ! !PackageDependencyTest methodsFor: 'tests' stamp: 'pre 10/12/2018 13:31'! testSound self testPackage: #Sound dependsExactlyOn: #( #'Chronology-Core' Collections Compiler Balloon Files Graphics Kernel Network System #'ToolBuilder-Kernel' ).! ! !PackageDependencyTest methodsFor: 'tests' stamp: 'pre 10/12/2018 13:33'! testSystem "Etoys clean-up is to be done for the after 5.2 release --pre" self testPackage: #System dependsExactlyOn: #( #'Chronology-Core' Collections Compiler Compression Environments Files Graphics #'Installer-Core' Kernel MonticelloConfigurations Morphic MorphicExtras Multilingual Network #'PackageInfo-Base' Sound #'ToolBuilder-Kernel' TrueType ).! ! !PackageDependencyTest methodsFor: 'tests' stamp: 'pre 10/12/2018 13:46'! testTools "Tools currently directly depend on the new file handling dialogs. To be refactored in after 5.2 release --pre" self testPackage: #Tools dependsExactlyOn: #( #'Chronology-Core' Collections Compiler Compression Environments Files Graphics Kernel Morphic MorphicExtras Multilingual Network #'PackageInfo-Base' System #'ToolBuilder-Kernel' ).! ! !PackageDependencyTest methodsFor: 'failures' stamp: 'pre 10/12/2018 13:46'! expectedFailures ^ #(testEtoys testSystem testTools)! ! !Unicode class methodsFor: 'unicode data' stamp: 'pre 10/12/2018 13:27'! fetch: what fromUnicodeData: fileName | unicodeLocation | unicodeLocation := 'https://www.unicode.org/Public/UCD/latest/ucd/'. UIManager default informUser: 'Downloading ', what during: [ | response| response := (Smalltalk at: #WebClient) httpGet: unicodeLocation, fileName. ^ response isSuccess ifFalse: [self error: 'Download failed'] ifTrue: [response content]]. ! ! !FancyMailComposition reorganize! ('actions' addAttachment completeTheMessage sendNow submit submit:) ('initialization' celeste:to:subject:initialText:theLinkToInclude:) ('morphic gui' borderAndButtonColor buttonWithAction:label:help: forgetIt newColumn newRow openInMorphic simpleString: staticBackgroundColor) ('accessing' messageText messageText: subject subject: to to:) ('private' breakLines:atWidth: breakLinesInMessage: perform:orSendTo:) ('interface' menuGet:shifted:) ('user interface' morphicOpen open) ('MailSender interface' sendMailMessage: smtpServer) ('*60Deprecated-ST80-Support' mvcOpen) !