4 * [Generated from fontmenu, 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 ----------------------------------------------------------*
30 /* --- fm_create --- *
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)
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
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
56 extern routine fm_create;
58 /* --- fm_tickFont --- *
60 * On entry: R0 == name to tick
64 * Use: Ticks the font with tht given name in the fontmenu. If
65 * no font exists then the existing ticks are removed
68 extern routine fm_tickFont;
76 * Use: Initialises the font menu system.
79 extern routine fm_init;
81 /*----- Events ------------------------------------------------------------*/
83 #define fmEvent_select 0
85 /*----- That's all, folks -------------------------------------------------*/