spector@vx2.NYU.EDU (David HM Spector) (11/10/88)
I got the OK from Paul Mercer, the author of the ShowINIT code, on AppleLink to post the source code here on USEnet, so what follows below is the ShowINIT Info file and then the ShowINIT.a file in the next message. This version knows about "cicn"s and other neet things. _DHMS -----------------------------===CutHere===------------------------------------ ShowINIT 1.1B1 of 07/15/88 (dog days of Summer version) ------------------------------------------------------- ShowINIT is a mechanism in which an INIT (called by INIT31) may display an icon status message in a consistant fashion. Revision History ---------------- pre 1.0B1 - see source 1.0B1 revised for future INIT31 compatibility. added interfaces for new routines InitShowINIT & ShowINIT31. 1.1B1 revved back to previous calling interface. you only need to call ShowINIT now and due to popular demand, deltaX is back! also due to popular demand, color icons are now done automatically. note that the color icon is only used if 4 bits or more is available on the main graphics device; the normal #ICN is used for all other cases. General Info ------------ To use ShowINIT in your INIT, you should have the following declarations in your source code, as appropriate: Assembler IMPORT ShowINIT Pascal PROCEDURE ShowINIT(iconID, moveX: Integer); EXTERNAL; 'C' pascal void ShowINIT(iconID, moveX) short iconID, moveX; extern; Consult the file 'ShowDEMO.a' for an example INIT that uses ShowINIT. Credits ------- AppleLink: MERCER1 Delphi: PAULMERCER MCI: SOL UUCP: {sun,voder,nsc,mtxinu,dual}!apple!pmercer CSNET: pmercer@Apple.com Paul Mercer P.O. Box 160165 Cupertino, CA 95016-0165