
(register-frame2 'bidicom-history
"/usr/local/glisp/factory/bidicomd/bidicom-history.lsp"
LOCAL_OSD
(- PRIO_SPECIAL_APPLI 3)
#'(lambda (f)
(draw f)
)
#'(lambda (f)
(undraw f)
)
#'bidicom-history-key-func
nil
nil)

(defun bidicom-history-key-func (key on-off)
(case key
(otherwise t)
))

(defun draw-bidicom-history ()
(map-frame 'bidicom-history)
)

(defun undraw-bidicom-history ()
(unmap-frame 'bidicom-history)
)

(defun clear-bidicom-history ()
(setf-get-y bidicom-history-log 100)
(setf (text bidicom-history-log) " ")
(draw-obj bidicom-history bidicom-history-box)
)
