



(setf BIDICOM-HISTORY-FNT FNT18)

(setf BIDICOM-HISTORY-FNTCOL COLOR16_248)
(setf BIDICOM-HISTORY-BGCOL COLOR16_169)

(setf BIDICOM-HISTORY-FRAME-X 50)
(setf BIDICOM-HISTORY-FRAME-Y 50)
(setf BIDICOM-HISTORY-FRAME-W 1200)
(setf BIDICOM-HISTORY-FRAME-H 800)

(setf BIDICOM-HISTORY-BOX-X 50)
(setf BIDICOM-HISTORY-BOX-Y 50)
(setf BIDICOM-HISTORY-BOX-W 1000)
(setf BIDICOM-HISTORY-BOX-H 32)

(setf BIDICOM-HISTORY-LOG-X 120)
(setf BIDICOM-HISTORY-LOG-Y 50)

(progn
(setf bidicom-history
(make-gframe
BIDICOM-HISTORY-FRAME-X BIDICOM-HISTORY-FRAME-Y BIDICOM-HISTORY-FRAME-W BIDICOM-HISTORY-FRAME-H
(list
(setf bidicom-history-title
(make-gmbox BIDICOM-HISTORY-FRAME-X BIDICOM-HISTORY-FRAME-Y BIDICOM-HISTORY-FRAME-W BIDICOM-HISTORY-FRAME-H
(make-gtext (/ BIDICOM-HISTORY-FRAME-W 2) BIDICOM-HISTORY-FRAME-Y
"Bidicom History"
BIDICOM-HISTORY-FNT BIDICOM-HISTORY-FNTCOL 'center)
BIDICOM-HISTORY-BGCOL nil))
(setf bidicom-history-box
(make-gmbox BIDICOM-HISTORY-BOX-X BIDICOM-HISTORY-BOX-Y BIDICOM-HISTORY-BOX-W BIDICOM-HISTORY-BOX-H
(setf bidicom-history-log
(make-gtext BIDICOM-HISTORY-LOG-X BIDICOM-HISTORY-LOG-Y
" " BIDICOM-HISTORY-FNT BIDICOM-HISTORY-FNTCOL 'left))
BIDICOM-HISTORY-BGCOL nil )))
0 nil nil nil nil nil nil nil nil nil))
(set-frame-dwin-parent bidicom-history (get-frame-dwin-my-name factory-parent-frame) t)
)
