| 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 |