chiark - git - mdw - ssr/blob - StraySrc/Libraries/Sapphire/bsh/stdDbox.bas

   1 REM Sapphire stddbox macro library -- © 1994 Straylight
   2
   3 DEF FNstddbox_test=0
   4
   5 REM --- Buttons ---
   6
   7 DEF FNbutton(m$)
   8 [ opt 4
   9 .but__l
  10   dcd bFlag_text
  11   equs m$+CHR$(0)
  12   FNalign
  13 ]
  14 =0
  15
  16 DEF FNbuttons_cancel
  17 [ opt 4
  18 .but__l
  19   dcd bFlag_cancel
  20 ]
  21 =0
  22
  23 DEF FNbuttons_gap
  24 [ opt 4
  25 .but__l
  26   dcd 0
  27 ]
  28 =0
  29
  30 DEF FNbuttons_end
  31 !(but__l+O%-P%)=!(but__l+O%-P%) OR bFlag_last
  32 =0
  33
  34 REM --- Writable dialogue box ---
  35
  36 DEF FNwritable(l%,f%,v$,t$)
  37 [ opt 4
  38   dcd l% OR f%
  39   dcb v$+CHR$(0)
  40   dcb t$+CHR$(0)
  41   FNalign
  42 ]
  43 =0