Code:
(defun dcl (/ dcl_id)
(setq depths
' ("1 1/2\"" "2\"" "2 1/8\"" "2 1/4\"" "2 7/8\"" "3 1/8\""
"3 5/8\"" "3 3/4\"" "4 1/4\"" "4 3/4\"" "4 7/8\"" "5\""
"5 1/4\"" "5 3/8\"" "5 5/8\"" "5 3/4\"" "6 1/8\"" "6 3/4\""
"7 1/4\"" "7 5/8\"" "7 7/8\"" "8 1/4\"" "9 1/8\"" "10 5/8\""
)
dcldone nil
dclwidth t
)
(setq dcl_id(load_dialog "dw"))
(if(not(new_dialog "dw" dcl_id))(exit));;<- This is the reason you need to change it in your dcl file.
;;<- If "dw" was left as "wall" I believe you would not have had
;;<- the problem.
(settiles)
(action_tile "start" "(set_tile \"auto\" \"0\")")
(action_tile "end" "(set_tile \"auto\" \"0\")")
(action_tile "auto" "(foreach tile '(\"start\" \"end\")(set_tile tile \"0\"))")
(action_tile "offset" "(mode_tile \"offsetsize\" 0 )")
(action_tile "size" "(getdepth)")
(foreach tile '("left" "right" "center")(action_tile tile "(mode_tile \"offsetsize\" 1)"))
(action_tile "accept" "(gettiles)")
(action_tile "cancel" "(done_dialog 1)")
(if (= (start_dialog) 1)(exit))
(setq dcldone t)
(princ)
)