<> <> <> <> <<<>>> DIRECTORY PSKMessages USING [Handle]; ControlMessages: CEDAR DEFINITIONS = BEGIN Key: TYPE = { <> mBannerPrinter, mVersion, mBannerMasterError, mBannerExceptionTemplate, mBannerJobPurged, mBannerPurgedCommQ, mBannerPurgedFormatter, mBannerPurgedMarker, mBannerPurgedOtherQ, mBannerDocNotPrinted, mBannerTransmitError, mBannerFormattingError, mBannerMarkingError, mBannerOtherError, mDecompErrorNoResources, mDecompErrorParseFailure, mDecompErrorFeatureNotImplemented, mDecompErrorFontProblem, mDecompErrorNoDefaultFont, mDecompErrorPlateTooComplicated, mDecompErrorTooManyPlates, mDecompErrorLogicError, mDecompErrorUnknown, mOk, <> mSystemControl, mUINoDefaultFont, mMissingDefaultFont, mInsufficientFreePages, mCantRecover, mDocAborted, mSetTargetWarning, mRepairModeEntered, mRepairModeExited, mPrinterStatus2, mPrintEngineFailure, mEngineFailure, mForwardingError, mCatalogingFonts, mBeginFontRotation, mRotatingFont, mRotationDone, mRotationError, mInsufficientVolSpace, mUnknown, mBanshee, mTPLocalPrintCompleted, mTPRemotePrintCompleted, mPrinted, mTransmitted, mBusy, mNoAnswer, mTransmitError, mFaxFailure, mAborted }; totalKeys: CARDINAL = ORD[LAST[Key]] - ORD[FIRST[Key]] + 1; InitMessages: PROCEDURE RETURNS [controlMsgs: PSKMessages.Handle]; <> END. -- ControlMessages LOG [when - who - what] 18-Jul-85 9:56:03 - Jacks - Created. 5-Nov-85 15:21:42 - Jacks - Removed GetHandle and added InitMessages.