From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:29:44 pm (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] <name>OpenPrinterDialog</name> <environment>OS.MacFilename</environment> <private>false</private> <constant>false</constant> <category>class variables</category> <initializer>false</initializer> <attributes> <package>MacPrintingSupport</package> </attributes> <methods> OS.MacFilename class <category>utilities</category>
disableMacPrinterDialog "Set the class variable OpenPrinterDialog to false in order to have the image behave as in previous versions (not showing any dialog)." "MacFilename disableMacPrinterDialog" OpenPrinterDialog := false
enableMacPrinterDialog "Set the class variable OpenPrinterDialog to true to show the standard printing dialog." "MacFilename enableMacPrinterDialog" OpenPrinterDialog := true
</methods> <methods> OS.MacFilename class <category>class initialization</category>
initialize "Set the class variable OpenPrinterDialog to false in order to have the image behave as in previous versions" OpenPrinterDialog := false
</methods> <methods> OS.MacFilename <category>primitives</category>
primPrintFile " print a PostScript file via print manager without opening a JobDialog Georg Heeg, 1999" <primitive: 1632 errorCode: err> ^osName class == String primitiveArgumentClass ifTrue: [| ep| ep := err parameter. ep isInteger ifTrue: [ self error: 'A printing related error occured: ' , ep printString] ifFalse: [ self error: ep]] ifFalse: [osName := IOAccessor convertSimpleStringForPlatform: self asString. self printFile]
primPrintFileWithDialog " print a PostScript file via print manager opening a JobDialog Georg Heeg, 1999" <primitive: 1686 errorCode: err> ^osName class == String primitiveArgumentClass ifTrue: [| ep| ep := err parameter. ep isInteger ifTrue: [ self error: 'A printing related error occured: ' , ep printString] ifFalse: [ self error: ep]] ifFalse: [osName := IOAccessor convertSimpleStringForPlatform: self asString. self printFile]
</methods> <methods> OS.MacFilename <category>private</category>
printFile "print a PostScript file via print manager. Depending on the value of class variable OpenPrintDialog, the printer drivers dialog is opened, or a silent printing is started. Georg Heeg, 1999" OpenPrinterDialog ifTrue: [self primPrintFileWithDialog] ifFalse: [self primPrintFile]
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>MacFilename</name> <environment>OS</environment> <super>OS.Filename</super> <private>false</private> none <imports></imports> <category>OS-Mac</category> <attributes> <package>OS-Mac</package> </attributes> </class>