4 * [Generated from saveWarn, 25 September 1996]
7 #if !defined(__CC_NORCROFT) || !defined(__arm)
8 #error You must use the Norcroft ARM Compiler for Sapphire programs
11 #pragma include_only_once
12 #pragma force_top_level
21 /*----- Overview ----------------------------------------------------------*
32 * On entry: R0 == estimated size of data
33 * R1 == file type of the data
34 * R2 == pointer to name of the file
35 * R3 == pointer to handler block
36 * R4 == value to pass to handlers in R10
37 * R5 == value to pass to handlers in R12
38 * R6 == flags (in bottom two bits)
42 * Use: Displays a warning box allowing the user to save a modified
43 * document. The flags in R6 are as follows:
45 * Bit 0 File is safe; don't give a warning
46 * Bit 1 File's name is sensible; display it in the warning
48 * The handler block is the same as that passed to saveAs (q.v.)
49 * with an extra entry point on the very beginning, which is
50 * expected to remove the document from memory. This entry
51 * point is not passed any arguments except for R10 and R12.
53 * In order for the system to work, you must call various
54 * saveWarn routines from your saveAs entry points:
56 * saveWarn_saved from saEntry__success
57 * saveWarn_close from saEntry__closed
60 extern routine saveWarn;
62 /* --- saveWarn_saved --- *
68 * Use: Informs saveWarn that the document has been saved. If
69 * saveWarn is not operating, this call is ignored. You should
70 * only call this routine if the document is *safe*, rather than
71 * RAM transferred to another application, for example.
74 extern routine saveWarn_saved;
76 /* --- saveWarn_close --- *
82 * Use: Informs saveWarn that the save dialogue box has been closed.
83 * If the document is now saved, then it is removed from
87 extern routine saveWarn_close;
89 /*----- That's all, folks -------------------------------------------------*/