(defun dcl
-sig
( typ
/ txt txt1
) txt
((= typ 1)"\n ok_cancel_help_errtile;" )
((= typ 2)"\n ok_cancel;")
((= typ 3)"\n ok_cancel_err;")
((= typ 4)"\n ok_only;")
((= typ 5)"\n ok_cancel_help;")
((= typ 6)"\n ok_cancel_help_info;")
((= typ 7)"\n cancel_button;")
((= typ 8)"\n cancel_button;\n errtile;")
((= typ 9)
"\n : row { "
"\n : spacer { width = 1.5 ; } "
"\n : button { label = \"Accept\" ; key = \"accept\"; width = 8; fixed_width = true; }"
"\n : button { label = \"Edit Design Data\"; key = \"resize\"; width = 9; fixed_width = true; }"
"\n : button { label = \"Cancel\" ; key = \"cancel\"; width = 8; fixed_width = true; is_cancel = true; }"
"\n : spacer { width = 1.5 ; } "
"\n }"
"\n : errtile { width= 50; alignment = centered; }"
)
)
)
txt1
"\n : boxed_row { "
"\n : column { "
txt
"\n : text { label = \""(getenv "SA_App_Name")"\"; alignment = centered;}" "\n }"
"\n : column { width = 8.5 ; fixed_width = true;"
"\n : image_button { key = \"avatar\" ; width = 3.8; color = -15; }"
"\n }"
"\n }"
)
)
txt1
);defun (setq txte(dcl-sig 1))