4 * [Generated from tspr, 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 /* --- tspr_getSprAddr --- *
34 * On exit: R0 == pointer to tool sprites, or 0 if none
36 * Use: Returns a pointer to the toolsprites. If the user is using
37 * RISC OS 2, or there are no toolsprites defined, then
41 extern routine tspr_getSprAddr;
43 /* --- tspr_borderWidths --- *
47 * On exit: R0 == title bar height
48 * R1 == vertical scroll bar width
49 * R2 == horizontal scroll bar height
51 * Use: Return the width of window tools by looking at the
52 * sprites associated with them, rather than creating
56 extern routine tspr_borderWidths;
58 /* --- tspr_adjustBox --- *
60 * On entry: R1 == pointer to Wimp_OpenWindow block to modify
62 * On exit: Block updated in place
64 * Use: Updates the open block to ensure that the window is opened
68 extern routine tspr_adjustBox;
70 /*----- That's all, folks -------------------------------------------------*/