(? #[() "ˆÁÂÃ\042ˆÁÄÅ\042ˆÁÆÇ\042ˆÈ`ˆ‡\000" [() defvar h-unit (m-get-h-unit SCR_LOCAL) v-unit (m-get-v-unit SCR_LOCAL) card-list-last-pos 2 (m-frame-1 card-list :width (m-scale-h *card-lt-designed-width* h-unit) :title (ci-make-title) :info2 (quote ((m-message-1 list-main-title :title "") (m-message-1 list-sub-title :title ""))) :button (backquote ((m-access-1 list-item0 :title "" :enter-action ()) (m-access-1 list-item1 :title "" :enter-action ()) (m-access-1 list-item2 :title "" :enter-action ()) (m-access-1 list-item3 :title "" :enter-action ()) (m-access-1 list-item4 :title "" :enter-action ()))) :info (quote (m-message-1 list-bottom-text :title "")) :last-pos (quote card-list-last-pos) :with-title-underline t)] 11])
