chiark - git - mdw - ssr/blob - StraySrc/Libraries/Sapphire/csapph/h/warning

   1 /*
   2  * warning.h
   3  *
   4  * [Generated from warning, 25 September 1996]
   5  */
   6
   7 #if !defined(__CC_NORCROFT) || !defined(__arm)
   8   #error You must use the Norcroft ARM Compiler for Sapphire programs
   9 #endif1
  10
  11 #pragma include_only_once
  12 #pragma force_top_level
  13
  14 #ifndef __warning_h
  15 #define __warning_h
  16
  17 #ifndef __sapphire_h
  18   #include "sapphire.h"
  19 #endif
  20
  21 /*----- Overview ----------------------------------------------------------*
  22  *
  23  * Functions provided:
  24  *
  25  *  warning
  26  *  warn_init
  27  */
  28
  29 /* --- warning --- *
  30  *
  31  * On entry:    R0 == pointer to warning text to display
  32  *              R1 == pointer to buttons block
  33  *
  34  * On exit:     R0 == button that was clicked
  35  *              CS if this was default, CC otherwise
  36  *
  37  * Use:         Displays a warning to the user.  The warning box can have up
  38  *              to five buttons (because it's too small for any more than
  39  *              that).  These are placed in a column on the right hand side
  40  *              of the dialogue.  The buttons are numbered from 0 up to 4
  41  *              from the bottom upwards, 0 being the default.  You can
  42  *              choose one button to be `Cancel', in which case pressing
  43  *              escape will activate it.
  44  */
  45
  46 extern routine warning;
  47
  48 /* --- warn_init --- *
  49  *
  50  * On entry:    R0 == program name
  51  *
  52  * On exit:     --
  53  *
  54  * Use:         Sets up the Warning dialogue box for use.
  55  */
  56
  57 extern routine warn_init;
  58
  59 /*----- That's all, folks -------------------------------------------------*/
  60
  61 #endif