dnl m4 stuff for building interfaces
dnl
dnl poplist(1 id, 2 first,3 rest)
define(poplist,dnl
	POPUPTRIGGER "$2" ID $1 AT (10 PrevTop+13 62 AUTO) LEFTANCHOR
	LIST "$2" $3 ID `eval(($1) + 1)' AT (PrevLeft PrevTop 52 1) VISIBLEITEMS `eval(1+len(patsubst($3, "[^"]*" *, X)))' NONUSABLE
	POPUPLIST ID $1 `eval(($1) + 1)'
)dnl
define(poplistnext,dnl
	POPUPTRIGGER "$2" ID $1 AT (PrevRight+5 PrevTop 62 AUTO) LEFTANCHOR
	LIST "$2" $3 ID `eval(($1) + 1)' AT (PrevLeft PrevTop 52 1) VISIBLEITEMS `eval(1+len(patsubst($3, "[^"]*" *, X)))' NONUSABLE
	POPUPLIST ID $1 `eval(($1) + 1)'
)dnl