[ssr] / StraySrc / Libraries / Sapphire / bsh / stdDbox.bas

REM Sapphire stddbox macro library -- © 1994 Straylight

DEF FNstddbox_test=0

REM --- Buttons ---

DEF FNbutton(m$)
[ opt 4
.but__l
  dcd bFlag_text
  equs m$+CHR$(0)
  FNalign
]
=0

DEF FNbuttons_cancel
[ opt 4
.but__l
  dcd bFlag_cancel
]
=0

DEF FNbuttons_gap
[ opt 4
.but__l
  dcd 0
]
=0

DEF FNbuttons_end
!(but__l+O%-P%)=!(but__l+O%-P%) OR bFlag_last
=0

REM --- Writable dialogue box ---

DEF FNwritable(l%,f%,v$,t$)
[ opt 4
  dcd l% OR f%
  dcb v$+CHR$(0)
  dcb t$+CHR$(0)
  FNalign
]
=0
Commit	Line	Data
c1b567d8 MW	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