(? #[() "ÀÁÂ\042ˆÀÃÄ\042ˆÅ`ˆÆ`ˆ‡\000" [defvar service-list-export-last-pos 0 service-list-export-menu-width 730 (m-frame-1 service-list-export-menu :width (m-scale-h service-list-export-menu-width h-unit) :title (gettext "Exchange Channel List") :button (list (backquote (m-access-3 service-list-export-lbl :title (backquote-unquote (gettext "Export Channel List")) :enter-action (function (lambda (key) (write-back-bytes 1120 8 1 8888))))) (backquote (m-access-3 service-list-import-lbl :title (backquote-unquote (gettext "Import Channel List")) :enter-action (function (lambda (key) (write-back-bytes 1120 8 2 8888)))))) :last-pos (quote service-list-export-last-pos)) (set-my-dwin-child service-list-export-menu)] 11])
