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

   1 /*
   2  * tspr.h
   3  *
   4  * [Generated from tspr, 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 __tspr_h
  15 #define __tspr_h
  16
  17 #ifndef __sapphire_h
  18   #include "sapphire.h"
  19 #endif
  20
  21 /*----- Overview ----------------------------------------------------------*
  22  *
  23  * Functions provided:
  24  *
  25  *  tspr_getSprAddr
  26  *  tspr_borderWidths
  27  *  tspr_adjustBox
  28  */
  29
  30 /* --- tspr_getSprAddr --- *
  31  *
  32  * On entry:    --
  33  *
  34  * On exit:     R0 == pointer to tool sprites, or 0 if none
  35  *
  36  * Use:         Returns a pointer to the toolsprites. If the user is using
  37  *              RISC OS 2, or there are no toolsprites defined, then
  38  *              0 is returned.
  39  */
  40
  41 extern routine tspr_getSprAddr;
  42
  43 /* --- tspr_borderWidths --- *
  44  *
  45  * On entry:    --
  46  *
  47  * On exit:     R0 == title bar height
  48  *              R1 == vertical scroll bar width
  49  *              R2 == horizontal scroll bar height
  50  *
  51  * Use:         Return the width of window tools by looking at the
  52  *              sprites associated with them, rather than creating
  53  *              a temporary window.
  54  */
  55
  56 extern routine tspr_borderWidths;
  57
  58 /* --- tspr_adjustBox --- *
  59  *
  60  * On entry:    R1 == pointer to Wimp_OpenWindow block to modify
  61  *
  62  * On exit:     Block updated in place
  63  *
  64  * Use:         Updates the open block to ensure that the window is opened
  65  *              on the screen.
  66  */
  67
  68 extern routine tspr_adjustBox;
  69
  70 /*----- That's all, folks -------------------------------------------------*/
  71
  72 #endif