dcl 多级窗口
有时为了有更好地操作,需要使用多级窗口来分类多个功能。
因为 dcl 只支持模态对话框,所以打开 子对话框后,只有子对话框能获得焦点。如果要与主对话框交互,需先关闭子对话框。
示例代码
(defun example:dcl-subdialog (/ *error* curr-page total-page dcl-fp dcl-tmp cb-flush-page cb-img1 cb-img2 cb-img3)
"DCL多级对话框示例代码"
""
"(example:dcl-subdialog)"
(require (quote dcl:*))
(defun subdialog (m n / curr-page total-page dcl-fp dcl-tmp cb-flush-page page-init)
"m n 表示图像的 行 列个数"
"1. Model 建立数据模型。"
(setq curr-page 0)
(setq total-page 3)
"2. View 建立显示视图。"
(dcl:dialog "subimgs")
(progn (dcl:hr 0.08)
(write-line ":text{key=\"num\";}"
dcl-fp)
(dcl:hr 0.08)
(setq i 0)
(dcl:begin-cluster "column" "")
(repeat m
(