[求助]： 为什么dcl后不调用我的画图函数？

ssh

我的程序大概如：
(defun c:a()
(defun draw()
...
..
)
  (setq dcl_id (load_dialog "lispPs.dcl"))
  (if (not (new_dialog "dcl_show" dcl_id))(exit))
  (setq x (dimx_tile "image")
        y (dimy_tile "image"))
  (start_image "image")
  ;(fill_image )
  ( slide_image 0 0 x y "lispPs")
  (end_image)
  (action_tile "accept" " (draw)(done_dialog) ")
  (start_dialog)
  (unload_dialog dcl_id)
)

zhynt

你将
(defun draw()
...
..
)
放到
(defun c:a()
……
)
外面试试。

ssh

不行，还是没有反应，再就是怎么让一个slide充满image控件阿？
我的怎么总是很小
    :image{
     key = "image";
     width= 35;
     aspect_ratio = 1.5;
     //fixed_height = false;
     //fixed_width = false;
     color = -2;
    }

841594

如果（draw）函数定义的是在对话框之外画东西的命令，应该把它
放在（dong_dialog）之后。