(load "/usr/local/glisp/server/m-panel.lsp")(unless (boundp 'm-help-lsp)(load "/usr/local/glisp/server/m-help.lsp"))(defvar h-unit (m-get-h-unit SCR_LOCAL))(defvar v-unit (m-get-v-unit SCR_LOCAL))(defvar font-id (get-suitable-font-id 'FNT_A h-unit v-unit))(progn
(setf rsv-biff1-panel
(make-gframe
(m-scale-h 100 h-unit) (m-scale-v 360 v-unit)(m-scale-h 760 h-unit) (m-scale-v 154 v-unit)(list
(make-gtext (m-scale-h 10 h-unit) (m-scale-v 22 v-unit)
"Timer Event Due to Start"
font-id COLOR16_248 'left)(setf rsv-biff1-panel-msg
(make-gtext-box (m-scale-h 10 h-unit) (m-scale-v 28 v-unit)(m-scale-h 740 h-unit) (m-scale-v 56 v-unit)
font-id COLOR16_157 COLOR16_248
(m-scale-h 6 h-unit) (m-scale-v 22 v-unit)(m-scale-v 26 v-unit) (list "") 'left nil nil))(setf rsv-biff1-cursor
(m-make-help-cursor-2 :enter-text-lst (list (gettext "Continue"))
:exit-text-lst  (list (gettext "Cancel timer")))))
COLOR16_169 nil 3 nil nil nil nil nil nil nil))(m-help-set-pos rsv-biff1-cursor (m-scale-h 40 h-unit) (m-scale-v 82 v-unit)))(progn
(setf rsv-biff2-panel
(make-gframe
(m-scale-h 100 h-unit) (m-scale-v 360 v-unit)(m-scale-h 760 h-unit) (m-scale-v 154 v-unit)(list
(make-gtext (m-scale-h 10 h-unit) (m-scale-v 22 v-unit)
"Timer Event Due to Start"
font-id COLOR16_248 'left)(setf rsv-biff2-panel-msg
(make-gtext-box (m-scale-h 10 h-unit) (m-scale-v 28 v-unit)(m-scale-h 740 h-unit) (m-scale-v 56 v-unit)
font-id COLOR16_157 COLOR16_248
(m-scale-h 6 h-unit) (m-scale-v 22 v-unit)(m-scale-v 26 v-unit) (list "") 'left nil nil))(setf rsv-biff2-cursor
(m-make-help-cursor-2 :enter-text-lst (list (gettext "Continue"))
:exit-text-lst  (list (gettext "Cancel timer")))))
COLOR16_169 nil 3 nil nil nil nil nil nil nil))(m-help-set-pos rsv-biff2-cursor (m-scale-h 40 h-unit) (m-scale-v 82 v-unit)))(defvar rsv-start-biff-msg " ")(defun panel-rsv-start-biff ()(m-panel-2 rsv-start-biff :message rsv-start-biff-msg))
