clear edit_box

[lrfcbabe]

I want to clear the contents of an edit_box if the user selects a radio button. Loading and running the DCL is no prob., stdscale is not getting set correctly, (print stdscale) returns nil every time i select a button. scla and sclb are defined radio_buttons in the DCL.
Thanks

(action_tile "scla" "(set_scale $value)&quot
(action_tile "sclb" "(set_scale $value)&quot
(action_tile "accept" "(getscale) (done_dialog)&quot

(defun set_scale (which)
(cond
((= which "scla&quot (setq stdscale 10.6666667))
((= which "sclb&quot (setq stdscale 5.33333333))
);cond
(if stdscale (set_tile "othscale" "&quot)
(print stdscale)

 

[lrfcbabe]

All I had to do was ask and I would figure it out. This is what I came up with. Talk about making a mountain out of a molehill.

(action_tile "scla" "(set_scale)&quot
(action_tile "sclb" "(set_scale)&quot
(action_tile "accept" "(getscale) (done_dialog)&quot

(defun set_scale ()
(if (/= (get_tile "othscale&quot "&quot(set_tile "othscale" "&quot));defun