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

   1 /*
   2  * fontmenu.h
   3  *
   4  * [Generated from fontmenu, 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 #endif
  10
  11 #pragma include_only_once
  12 #pragma force_top_level
  13
  14 #ifndef __fontmenu_h
  15 #define __fontmenu_h
  16
  17 #ifndef __sapphire_h
  18   #include "sapphire.h"
  19 #endif
  20
  21 /*----- Overview ----------------------------------------------------------*
  22  *
  23  * Functions provided:
  24  *
  25  *  fm_create
  26  *  fm_tickFont
  27  *  fm_init
  28  */
  29
  30 /* --- fm_create --- *
  31  *
  32  * On entry:    R0 == current font name
  33  *              R1 == handler to call when selection made
  34  *              R2 == R10 value to call with
  35  *              R3 == R12 value to call with
  36  *              R4 == pointer to routine to call to create submenu
  37  *                    (ie. menu_create or tms_create)
  38  *
  39  * On exit:     CS if any fonts exist and
  40  *                 R0 == pointer to a menu definition
  41  *                R1 == event handler to call
  42  *                R2 == R10 value for event handler
  43  *                R3 == R12 value for event handler
  44  *              else CC and
  45  *                R0-R3 corrupted
  46  *              May return an error
  47  *
  48  * Use:         Creates a user menu definition suitable for passing directly
  49  *              to (menu|tms)_create. Note however, that the menu defintion
  50  *              does *not* include any title; this must be created first.
  51  *              If you require items such as the system font, then
  52  *              add these to the menu before creating the menu returned
  53  *              from this call.
  54  */
  55
  56 extern routine fm_create;
  57
  58 /* --- fm_tickFont --- *
  59  *
  60  * On entry:    R0 == name to tick
  61  *
  62  * On exit:     --
  63  *
  64  * Use:         Ticks the font with tht given name in the fontmenu. If
  65  *              no font exists then the existing ticks are removed
  66  */
  67
  68 extern routine fm_tickFont;
  69
  70 /* --- fm_init --- *
  71  *
  72  * On entry:    --
  73  *
  74  * On exit:     --
  75  *
  76  * Use:         Initialises the font menu system.
  77  */
  78
  79 extern routine fm_init;
  80
  81 /*----- Events ------------------------------------------------------------*/
  82
  83 #define fmEvent_select 0
  84
  85 /*----- That's all, folks -------------------------------------------------*/
  86
  87 #endif