Просмотр всех имен и описаний блоков

(defun ru-block-show-all-names-and-decriptions
                                               (is_read_only
                                                /           lst
                                                lst_descr   lst_names
                                                result
                                               )
                                               ;|
(ru-block-show-all-names-and-decriptions T)

|;
  (if (setq lst (ru-block-list-all-names-and-decriptions))
    (progn
      (foreach x lst
        (setq lst_names (cons (car x) lst_names)
              lst_descr (cons (cadr x) lst_descr)
        ) ;_ end of setq
      ) ;_ end of foreach
      (if (setq result
                 (ru-dlg-double-list
                   "Список блоков"  "Имя блока"      "Описание"
                   lst_names        lst_descr        is_read_only
                  ) ;_ end of ru-dlg-double-list
          ) ;_ end of setq
        (setq result (cadr result))
      ) ;_ end of if
    ) ;_ end of progn
  ) ;_ end of if
  result
) ;_ end of defun