[Мансур]

Идея-фикс к пятнице (прошу помидорами не закидывать):
вместо написания связки из DCL и нагромождения кода в VLisp делать такую конструкцию:

Код:

[Выделить все]

 
(defun MyDlg ( / DlgDefs DlgInit Lst)
  (setq
    Lst (list "Item1" "Item2" "Item3") ;; список для popup_list 
    DlgDefs ;; шаблон для генерации DCL
      '(
        ;; новый тайл
        (myeditbox :edit_box (width . 30) (editwidth . 10)) 
        ;; -> myeditbox :edit_box { width=30; editwidth=10; }
        ;; определение диалога
        (mydialog ;; идентификатор диалога
          :dialog "DialogCaption"
        ;;-> :myeditbox {label="Enter string"; key=key1; width=10;}
            (:myeditbox "Enter string" (key . key1) (width . 10))
            (:popup_list "Select item" (key . keylst) (width . 10))
            (:button "Select object" (key . btSel) (fixed_width . true))
            spacer
            (:radio_column "Radio group"
              (:radio_button "Case 1" (key . bkey2))
              (:radio_button "Case 2" (key . bkey3))
            )
            errtile
            ok_cancel
        )
     )

    DlgInit ;; список для инициализации диалога
             ;; (key [(onchange> (выражение)] [(init> (выражение))]
             ;; для нужных нам элементов диалога определяем необходимый набор выражений
             ;; которые будут выполняться в соответствующих местах,
             ;; например onchange> - при потере фокуса, init> - при запуске диалога и т.п.
      '((key1 (onchange> (print $value)) (init> (if obj (cdr (assoc 0 (entget (car obj)))) "--")))
        (keylst (initpopup> "1" Lst) (onchange> (print "list item")) (get> Val))
        (bkey2 (act> (print "bkey2 pressed")))
        (bkey3 (init> . "1") (onchange> (print "bkey3 pressed") (set_tile "key1" "Hey2!")))
        (btSel (act> (done_dialog 2)) (onclose> 2 (setq obj (entsel "\nSelect object: "))))
        ;(T (if obj (set_tile "key1" (vl-princ-to-string obj))))
      )
  )
  ;; DoDialog - функция которая всю эту хрень парсит, сохраняет в DCL и вызывает
  (DoDialog DlgDefs DlgInit "mydialog")
  (princ)
)    

Да, я в курсе, что идея хранить DCL внутри лиспа не нова. Но именно в таком ракурсе не встречал.
Профит - обходимся без DCL и гораздо проще реализуем всю dcl-ную логику.
Я думаю, реализация DoDialog тоже в скором будущем нарисуется.
Хотелось бы услышать предложения/критику.

[ShaggyDoc]

Мансур, поздравляю, ты "открыл" невизуальное программирование. Именно так, в древние времена, писали программы на всех языках программирования - в коде, вслепую, описывали элементы диалоговых окон. Это вообще-то и сейчас можно сделать, создавая формы в run-time, только занимаются этим в исключительных случаях, при разработке компонентов, а также по религиозным причинам.

Профит - обходимся без DCL и гораздо проще реализуем всю dcl-ную логику.

Как раз "вековая мечта" программистов была прямо противоположная - отделить внешнее представление от логики работы. Что с успехом сделано во всех современных средах программирования.

Нет никакой "dcl-ной логики" - логика есть в программе. И не надо её, "dcl-логику", придумывать. Надо иметь "контролы" и ссылки на имена событий (а в Lisp это как раз легко делать), которые происходят при действии с элементами окна. Описание формы само по себе и его можно менять сколько угодно, логика работы программы - тоже своя. Её можно менять не затрагивая форму. А в Lisp с dcl можно вообще одной формой в разных программах пользоваться.

[gomer]

Сообщение от Мансур Идея-фикс к пятнице (прошу помидорами не закидывать):

Чем бы дитя не тешилось, лишь бы не забеременело

[hwd]

Сообщение от Мансур Хотелось бы услышать предложения/критику.

Как выше верно отметил ShaggyDoc, смешивать логику работы приложения с его визуальным представлением - это очень плохое решение. Не стоит открытую тобой "Америку" брать на вооружение, т.к. сам же потом и намучаешься с ней...

[E-degtyarev]

Сообщение от Мансур Хотелось бы услышать предложения/критику.

Это "технология" конца 80-х начала 90-х годов прошлого столетия. Имел дело с "Турбо Паскаль-6" фирмы Borland. (DOS). Там этот подход был реализован в полной мере.