; Test function for (LoadDialogOnTheFly)
(defun c:test
( / *error* dcl dch des txt dlgRtn
) '( ( m )
)
)
(LoadDialogOnTheFly dcl
'( ; @ will be substituted with ";" - obviously, and everything in the code is written lowercase, because it will be converted to lwcase anyway
test : dialog
{ label = "edit text" @ initial_focus = "edit1" @ spacer @ ; separate the @ from other strings (esp from numbers) with space
: row
{
: column
{ width = 5.09 @ fixed_width = true @ spacer @
: text
{ key = "prompt" @ label = "type text" @ }
}
: edit_box
{ key = "edit1" @ edit_width = 26.42 @ fixed_width = true @ }
}
spacer @
: row
{ fixed_width = true @ alignment = centered @
: ok_button
{ key = "ok-key" @ width = 11 @ }
: cancel_button
{ key = "cancel-key" @ width = 11 @ }
}
}
)
); LoadDialogOnTheFly
); setq dch
(setq txt
"Type text here") )
); and
); defun C:test for (LoadDialogOnTheFly)