(? #[() "À`ˆÁ`ˆÂ`ˆ‡\000" [(m-frame-1 dms-dev-list-panel :menu-bg-color *menu-background-color* :form *dms-dev-list-form* :data *dms-dev-list-data* :title (gettext "Remote Device List") :info2 (backquote (m-row-1 () :fg (backquote-unquote (list FDP_COLOR_TEXT_SUB_ONBASE)) :bg (backquote-unquote (list FDP_COLOR_BORDER_ONBASE)) :h-unit (backquote-unquote h-unit) :v-unit (backquote-unquote v-unit) :form (backquote-unquote dms-dev-list-header-form) :data (backquote-unquote (backquote (((backquote-unquote (gettext "MAC Address")) (backquote-unquote (gettext "Device Name")) (backquote-unquote (gettext "Permit")))))))) :button (mapcar (function (lambda (data) (list (quote m-row-1) () :form *dms-dev-list-form* :enter-action (function (lambda (key) (dms-dev-list-write-back (dms-dev-list-get-pos)))) :data (if data data (list (list "") (list ""))) :focus (if data t)))) (m-subseq (append *dms-dev-list-data* (make-list2 *dms-dev-list-win-size* ())) 0 *dms-dev-list-win-size*)) :width (m-scale-h 720 h-unit) :cursor-help-args (list :bg *menu-background-color* :cur-up-text-lst (list "" (gettext "Select")) :return-text-lst (list (gettext "Return")) :enter-text-lst (list "" (gettext "Change"))) :last-pos ()) (set-my-dwin-nwset-child dms-dev-list-panel) (m-frame-enter-cursor dms-dev-list-panel (car (m-frame-button-list dms-dev-list-panel)))] 9])
