(FILECREATED "16-Jan-85 15:41:00" {PHYLUM}<BLUEBONNET>BBTR>BBTROBJECTS.;32 40705
changes to: (FNS DISPLAY.MESSAGE)
previous date: " 8-Jan-85 17:42:01" {PHYLUM}<BLUEBONNET>BBTR>BBTROBJECTS.;30)
(* Copyright (c) by NIL. All rights reserved.)
(PRETTYCOMPRINT BBTROBJECTSCOMS)
(RPAQQ BBTROBJECTSCOMS ((ITEMTYPES DOUBLE.ACTION.SENSOR Flashing.Word.Button Message.Area
NumberButton.NewOrNext Q.&.A Small.Number.Pad StartBb.Button Word.Button) (DIALOGS BbTr)))
(READ.ITEMTYPE DOUBLE.ACTION.SENSOR 5)
(\TYPE ITEM.TYPE NAME DOUBLE.ACTION.SENSOR COMMENT
"An inverting sensor which performs some action both when pressed and when released" KIND SENSOR
PARAMETERS ((\TYPE PARAMETER NAME PLACEMENT TYPE (REGION) DEFAULT (100 100 30 30) COMMENT
"An area sensitive to touch") (\TYPE PARAMETER NAME ACTION.WHEN.RELEASED TYPE (FORM) DEFAULT NIL
COMMENT "The action to be taken when the left mouse button is released") (\TYPE PARAMETER NAME
ACTION.WHEN.PRESSED TYPE (FORM) DEFAULT NIL COMMENT
"The action to be taken when the left mouse button is pressed")) OTHER (FNS ((SENSE
SENSE.DOUBLE.ACTION.SENSOR))) CLASSES (SENSOR))
(DEFINEQ
(SENSE.DOUBLE.ACTION.SENSOR
[LAMBDA (item touch xcoord ycoord) (* JG "12-Sep-84 15:03")
(* * A sensor which inverts only when pressed and performs actions on entry and on exit)
(PROG ((region (GET.FIELDQ item PLACEMENT)))
(if (AND touch (INSIDEP region xcoord ycoord))
then (FLIP.BOX region)
(TRILLIUM.EVAL (GET.FIELDQ item ACTION.WHEN.PRESSED))
(WAITNOBUG)
(FLIP.BOX region)
(TRILLIUM.EVAL (GET.FIELDQ item ACTION.WHEN.RELEASED))
(RETURN T)
else (RETURN NIL])
)
(READ.ITEMTYPE Flashing.Word.Button 5)
(\TYPE ITEM.TYPE NAME Flashing.Word.Button COMMENT
"A bitmapless flashing double-action word-only button" KIND COMPOSITE PARAMETERS ((\TYPE PARAMETER
NAME PLACEMENT TYPE (POSITION) COMMENT "The lower left corner of the string" DEFAULT (100 . 100))
(\TYPE PARAMETER NAME LINE TYPE (STRING) COMMENT "The text itself" DEFAULT "Yes") (\TYPE PARAMETER
NAME FONT TYPE (FONT) COMMENT "Font of the text" DEFAULT (GACHA 12 BOLD)) (\TYPE PARAMETER NAME
SOURCE TYPE (ONEOF (INPUT INVERSE MERGE TEXTURE)) COMMENT "Source for BitBlt" DEFAULT INPUT) (
\TYPE PARAMETER NAME OPERATION TYPE (ONEOF (PAINT REPLACE INVERT ERASE)) COMMENT
"Operation for BitBlt" DEFAULT REPLACE) (\TYPE PARAMETER NAME TEXTURE TYPE (SHADE) COMMENT
"Texture for BitBlt" DEFAULT 0) (\TYPE PARAMETER NAME CELL TYPE (CELL) COMMENT
"The cell associated with the wordbutton" DEFAULT MessageArea.Cell) (\TYPE PARAMETER NAME HelpMessage
TYPE (STRING) COMMENT "Help message associated with this button" DEFAULT "") (\TYPE PARAMETER
NAME ACTION.WHEN.PRESSED TYPE (FORM) COMMENT
"The action to be performed when the left mouse button is pressed" DEFAULT NIL) (\TYPE PARAMETER NAME
ACTION.WHEN.RELEASED TYPE (FORM) COMMENT
"The action to be performed when the left mouse button is released" DEFAULT NIL) (\TYPE PARAMETER
NAME EXTRA.WIDTH TYPE (INTEGER) COMMENT "Number of extra bits for region around the string" DEFAULT
2)) SUBITEM.SPECS ((ITEM LINE.OF.TEXT (PLACEMENT PLACEMENT) (LINE LINE) (FONT FONT) (SOURCE
SOURCE) (OPERATION OPERATION) (TEXTURE TEXTURE)) (ITEM DOUBLE.ACTION.SENSOR (ACTION.WHEN.PRESSED
ACTION.WHEN.PRESSED) (ACTION.WHEN.RELEASED ACTION.WHEN.RELEASED) (PLACEMENT (create REGION LEFT ←
(IDIFFERENCE (CAR PLACEMENT) EXTRA.WIDTH) BOTTOM ← (IDIFFERENCE (IDIFFERENCE (CDR PLACEMENT) (
FONTPROP FONT (QUOTE DESCENT))) EXTRA.WIDTH) WIDTH ← (IPLUS (STRINGWIDTH LINE FONT) (ITIMES 2
EXTRA.WIDTH)) HEIGHT ← (IPLUS (FONT.HEIGHT FONT) (ITIMES 2 EXTRA.WIDTH)))))) CLASSES (BUTTON
COMPOSITE))
(READ.ITEMTYPE Message.Area 5)
(\TYPE ITEM.TYPE NAME Message.Area COMMENT "A bordered print region" KIND DISPLAYER PARAMETERS ((
\TYPE PARAMETER NAME PLACEMENT TYPE (REGION) COMMENT "The position of this item" DEFAULT (0 0 450
80)) (\TYPE PARAMETER NAME CELL TYPE (CELL) COMMENT "The cell whose value is going to be displayed"
DEFAULT MessageArea.Cell) (\TYPE PARAMETER NAME FONT TYPE (FONT) COMMENT "Font of the text"
DEFAULT (HELVETICA 12)) (\TYPE PARAMETER NAME SOURCE TYPE (ONEOF (INPUT INVERT TEXTURE)) COMMENT
"Source for BitBlt" DEFAULT INPUT) (\TYPE PARAMETER NAME OPERATION TYPE (ONEOF (REPLACE PAINT
INVERT ERASE)) COMMENT "Operation for BitBlt" DEFAULT REPLACE) (\TYPE PARAMETER NAME BACKGROUND TYPE
(SHADE) COMMENT "Texture for BitBlt" DEFAULT 42405) (\TYPE PARAMETER NAME MARGIN TYPE (INTEGER)
COMMENT "Left margin for text" DEFAULT 1) (\TYPE PARAMETER NAME BORDER.THICKNESS TYPE (INTEGER)
COMMENT "Thickness of the border" DEFAULT 5)) OTHER (FNS ((SHOW SHOW.PRINT.REGION) (DISPLAY
DISPLAY.MESSAGE))) CLASSES (DISPLAYER))
(DEFINEQ
(DISPLAY.MESSAGE
(LAMBDA (ITEM) (* JG "10-Jan-85 16:24") (* DAHJr " 7-OCT-83 11:25") (DECLARE (GLOBALVARS
ANALYZE.LOT.DSP CURRENT.DSP)) (PROG ((CELL (GET.PARAMQ ITEM CELL PRINT.REGION)) (REGION (GET.PARAMQ
ITEM PLACEMENT PRINT.REGION)) (SOURCE (GET.PARAMQ ITEM SOURCE PRINT.REGION)) (OPERATION (GET.PARAMQ
ITEM OPERATION PRINT.REGION)) (TEXTURE (GET.PARAMQ ITEM TEXTURE PRINT.REGION)) (BACKGROUND (GET.PARAMQ
ITEM BACKGROUND PRINT.REGION)) (FONT (GET.PARAMQ ITEM FONT PRINT.REGION)) (MARGIN (GET.PARAMQ ITEM
MARGIN PRINT.REGION)) DSP OLD.CLIPPING.REGION CBOX LEFT BOTTOM WIDTH HEIGHT BOX LIST.OF.LINES XCOORD
YCOORD TEXT.WIDTH FONT.HEIGHT FONT.DESCENT OLD.SOURCE OLD.OPERATION OLD.FONT TX TY CHAR.WIDTH) (SETQ
DSP CURRENT.DSP) (SETQ OLD.CLIPPING.REGION (DSPCLIPPINGREGION NIL DSP)) (SETQ CBOX (INTERSECTREGIONS
REGION OLD.CLIPPING.REGION)) (COND (CBOX (DSPFILL CBOX BACKGROUND (QUOTE REPLACE) DSP) (SETQ LEFT (
IPLUS MARGIN (fetch (REGION LEFT) of REGION))) (SETQ BOTTOM (IPLUS MARGIN (fetch (REGION BOTTOM) of
REGION))) (SETQ WIDTH (IDIFFERENCE (fetch (REGION WIDTH) of REGION) (LSH MARGIN 1))) (SETQ HEIGHT (
IDIFFERENCE (fetch (REGION HEIGHT) of REGION) (LSH MARGIN 1))) (SETQ BOX (create REGION LEFT ← LEFT
BOTTOM ← BOTTOM WIDTH ← WIDTH HEIGHT ← HEIGHT)) (SETQ LIST.OF.LINES (MKLIST (GET.CURRENT.VALUE CELL)))
(OR FONT (SETQ FONT (DSPFONT NIL DSP))) (DSPCLIPPINGREGION BOX DSP) (SETQ OLD.FONT (DSPFONT FONT DSP)
) (SETQ OLD.SOURCE (DSPSOURCETYPE SOURCE DSP)) (SETQ OLD.OPERATION (DSPOPERATION OPERATION DSP)) (
MOVETOUPPERLEFT DSP BOX) (SETQ CHAR.WIDTH (CHARWIDTH (CHARCODE a) FONT)) (if (LISTP (CAR LIST.OF.LINES
)) then (for msg in LIST.OF.LINES do (PRINTPARA (IQUOTIENT (IPLUS LEFT CHAR.WIDTH) CHAR.WIDTH) (
IQUOTIENT (IPLUS LEFT WIDTH) CHAR.WIDTH) msg NIL NIL DSP) (TERPRI DSP) (DSPXPOSITION (IPLUS LEFT
CHAR.WIDTH) DSP)) else (PRINTPARA (IQUOTIENT (IPLUS LEFT CHAR.WIDTH) CHAR.WIDTH) (IQUOTIENT (IPLUS
LEFT WIDTH) CHAR.WIDTH) LIST.OF.LINES NIL NIL DSP)) (DSPCLIPPINGREGION OLD.CLIPPING.REGION DSP) (
DSPFONT OLD.FONT DSP) (DSPSOURCETYPE OLD.SOURCE DSP) (DSPOPERATION OLD.OPERATION DSP))))))
)
(READ.ITEMTYPE NumberButton.NewOrNext 5)
(\TYPE ITEM.TYPE NAME NumberButton.NewOrNext COMMENT "A NumberButtonNextDigit with a timer attached"
KIND COMPOSITE PARAMETERS ((\TYPE PARAMETER NAME PLACEMENT TYPE (POSITION) DEFAULT (170 . 170)
COMMENT "The grid position of the lower left corner of the button" GRID.TYPE (LOCATION)) (\TYPE
PARAMETER NAME LABEL TYPE (STRING) DEFAULT 1 COMMENT "The words above this button") (\TYPE
PARAMETER NAME FONT TYPE (FONT) DEFAULT NIL COMMENT "The font for the label") (\TYPE PARAMETER NAME
CELL TYPE (CELL) DEFAULT CELL.1 COMMENT "The cell affected by this button") (\TYPE PARAMETER NAME
DIGIT TYPE (INTEGER) DEFAULT 1 COMMENT "The digit added to the number in the cell") (\TYPE
PARAMETER NAME PICTURE TYPE (BITMAP.NAME) DEFAULT SIMPLE.BUTTON.BITMAP COMMENT
"The graphic for the button")) SUBITEM.SPECS ((LABEL BUTTON (ITEM PICTURE (PLACEMENT (PTRANSLATE
PLACEMENT (NEW.POSITION (MINUS BUTTON.BITMAP.EXTRA) 0))) (BITMAP PICTURE))) (ITEM LINE.OF.TEXT (
PLACEMENT (PICTURE.CENTER BUTTON)) (LINE LABEL) (XALIGNMENT (QUOTE CENTER)) (FONT FONT)) (ITEM
FLASHING.SENSITIVE.REGION (PLACEMENT (BOUNDING.BOX BUTTON)) (ACTION.FORM (LIST (QUOTE
BbTr.NewOrNextDigit) (KWOTE CELL) DIGIT)))) CLASSES (BUTTON COMPOSITE) (QUOTE CLASSES) (BUTTON))
(READ.ITEMTYPE Q.&.A 5)
(\TYPE ITEM.TYPE NAME Q.&.A COMMENT "A line of questions and answers" KIND COMPOSITE PARAMETERS ((
\TYPE PARAMETER NAME PLACEMENT TYPE (POSITION) COMMENT "The lower left corner of the question"
DEFAULT (10 . 400)) (\TYPE PARAMETER NAME QUESTION TYPE (STRING) COMMENT "The question itself"
DEFAULT "A question?") (\TYPE PARAMETER NAME ANSWERS TYPE (LIST (CONSTANT)) COMMENT
"The answers themselves" DEFAULT (Yes No)) (\TYPE PARAMETER NAME HelpMessage TYPE (FORM) COMMENT
"Help message for this question" DEFAULT " No help available for this query.") (\TYPE PARAMETER NAME
FONT TYPE (FONT) COMMENT "Font of the text" DEFAULT (GACHA 12 BOLD)) (\TYPE PARAMETER NAME
Q.TO.A.SPACING TYPE (INTEGER) COMMENT "Spacing between the question and the first answer" DEFAULT 32
) (\TYPE PARAMETER NAME INTER.A.SPACING TYPE (INTEGER) COMMENT "Spacing between each answer"
DEFAULT 16) (\TYPE PARAMETER NAME BbName TYPE (CONSTANT) COMMENT
"Name of corresponding CopyJob field in Bluebonnet" DEFAULT NIL) (\TYPE PARAMETER NAME
ACTION.WHEN.PRESSED TYPE (FORM) COMMENT "Action when clicking for help" DEFAULT NIL) (\TYPE
PARAMETER NAME ACTION.WHEN.RELEASED TYPE (FORM) COMMENT
"Action when the left mouse button is released on help" DEFAULT NIL)) SUBITEM.SPECS ((ITEM
Flashing.Word.Button (PLACEMENT (PROG1 PLACEMENT (SETQ *PLACEMENT* (NEW.POSITION (IPLUS (fetch
(LOCATION X) of PLACEMENT) (STRINGWIDTH QUESTION FONT)) (fetch (LOCATION Y) of PLACEMENT))))) (
LINE QUESTION) (HelpMessage HelpMessage) (ACTION.WHEN.PRESSED (LIST (QUOTE PROGN) (LIST (QUOTE
CHANGE.CELL) (QUOTE MessageArea.Cell) HelpMessage) ACTION.WHEN.PRESSED)) (ACTION.WHEN.RELEASED (
LIST (QUOTE PROGN) (LIST (QUOTE CHANGE.CELL) (QUOTE MessageArea.Cell) "") ACTION.WHEN.RELEASED)))
(FOREACH (ANSWER IN ANSWERS) (I FROM 0) DO (ITEM Word.Button (PLACEMENT (PROG1 (SETQ
*PLACEMENT* (NEW.POSITION (IPLUS (fetch (LOCATION X) of *PLACEMENT*) (if (ZEROP I) then
Q.TO.A.SPACING else INTER.A.SPACING)) (fetch (LOCATION Y) of *PLACEMENT*))) (SETQ *PLACEMENT* (
NEW.POSITION (IPLUS (fetch (LOCATION X) of *PLACEMENT*) (STRINGWIDTH ANSWER FONT)) (fetch (
LOCATION Y) of *PLACEMENT*))))) (LINE ANSWER) (CELL (SETQ -REALNAME- (PACK* BbName (QUOTE .Cell))
)) (ACTION.FORM (LIST (QUOTE PROGN) (LIST (QUOTE CHANGE.CELL) -REALNAME- (KWOTE ANSWER)) (LIST
(QUOTE TestForChange) (KWOTE BbName) (KWOTE ANSWER))))))) CLASSES (COMPOSITE))
(READ.ITEMTYPE Small.Number.Pad 5)
(\TYPE ITEM.TYPE NAME Small.Number.Pad COMMENT "A small number pad, putting its value in a cell" KIND
COMPOSITE PARAMETERS ((\TYPE PARAMETER NAME PLACEMENT TYPE (POSITION) DEFAULT (170 . 170) COMMENT
"The lower left corner of the number pad" GRID.TYPE (LOCATION)) (\TYPE PARAMETER NAME CELL TYPE (
CELL) DEFAULT NumberPad.Cell COMMENT "The cell affected by pushing the pad's buttons") (\TYPE
PARAMETER NAME BbName TYPE (CONSTANT) DEFAULT NIL COMMENT
"Name of corresponding CopyJob field in Bluebonnet") (\TYPE PARAMETER NAME INITIAL.VALUE TYPE (
INTEGER) DEFAULT 1 COMMENT "How to initialize the cell when entering the frame") (\TYPE PARAMETER
NAME PICTURE TYPE (BITMAP.NAME) DEFAULT SMALL.SIMPLE.BUTTON.BITMAP COMMENT
"The graphic for the button") (\TYPE PARAMETER NAME FONT TYPE (FONT) DEFAULT (GACHA 8 BOLD) COMMENT
"The font for the button labels") (\TYPE PARAMETER NAME BORDER.THICKNESS TYPE (INTEGER) DEFAULT 1
COMMENT "The thickness in screen points of the border") (\TYPE PARAMETER NAME BORDER.COLOR TYPE (
SHADE) DEFAULT 65535 COMMENT "The color of the border") (\TYPE PARAMETER NAME PRINT.FONT TYPE (FONT
) DEFAULT (HELVETICA 10 BOLD) COMMENT "The font of the print region") (\TYPE PARAMETER NAME
PRINT.MARGIN TYPE (INTEGER) DEFAULT 1 COMMENT "The margin of the printing region") (\TYPE PARAMETER
NAME PRINT.BACKGROUND TYPE (SHADE) DEFAULT 0 COMMENT "The background of the printing region") (
\TYPE PARAMETER NAME PRINT.TEXTURE TYPE (SHADE) DEFAULT 65535 COMMENT
"The texture with which the print is combined") (\TYPE PARAMETER NAME PRINT.SOURCE TYPE (ONEOF (
INPUT INVERT MERGE TEXTURE)) DEFAULT INPUT COMMENT "How the texture is combined with the print") (
\TYPE PARAMETER NAME PRINT.OPERATION TYPE (ONEOF (PAINT REPLACE INVERT ERASE)) DEFAULT REPLACE
COMMENT "How the print is combined with the background")) SUBITEM.SPECS ((ITEM VALUE.BAR (PLACEMENT
(NEW.REGION (PTRANSLATE PLACEMENT -8 100) 84 20)) (CELL CELL) (XALIGNMENT (QUOTE CENTER)) (
YALIGNMENT (QUOTE CENTER)) (FONT PRINT.FONT) (BORDER.THICKNESS BORDER.THICKNESS) (BORDER.COLOR
BORDER.COLOR) (PRINT.MARGIN PRINT.MARGIN) (PRINT.BACKGROUND PRINT.BACKGROUND) (PRINT.TEXTURE
PRINT.TEXTURE) (PRINT.SOURCE PRINT.SOURCE) (PRINT.OPERATION PRINT.OPERATION)) (ITEM INITIALIZATION
(PLACEMENT PLACEMENT) (ACTION.FORM (LIST (QUOTE PROGN) (LIST (QUOTE SET.CELL) CELL (KWOTE
INITIAL.VALUE)) (LIST (QUOTE PUTPROP) (KWOTE CELL) (KWOTE (QUOTE LastTime)) (QUOTE (CLOCK 0))))
)) (ITEM IMPLICATION (PLACEMENT PLACEMENT) (CELL CELL) (ACTION.FORM (LIST (QUOTE if) (CONS (
QUOTE GREATERP) (CONS (LIST (QUOTE CELL.VALUE) CELL) (QUOTE (0)))) (QUOTE then) (LIST (QUOTE
TestForChange) (KWOTE BbName) (LIST (QUOTE CELL.VALUE) CELL))))) (ITEM NumberButton.NewOrNext (
LABEL 1) (PLACEMENT (PTRANSLATE PLACEMENT 0 72)) (CELL CELL) (DIGIT 1) (PICTURE PICTURE) (FONT
FONT)) (ITEM NumberButton.NewOrNext (LABEL 2) (PLACEMENT (PTRANSLATE PLACEMENT 28 72)) (CELL CELL
) (DIGIT 2) (PICTURE PICTURE) (FONT FONT)) (ITEM NumberButton.NewOrNext (LABEL 3) (PLACEMENT (
PTRANSLATE PLACEMENT 56 72)) (CELL CELL) (DIGIT 3) (PICTURE PICTURE) (FONT FONT)) (ITEM
NumberButton.NewOrNext (LABEL 4) (PLACEMENT (PTRANSLATE PLACEMENT 0 48)) (CELL CELL) (DIGIT 4) (
PICTURE PICTURE) (FONT FONT)) (ITEM NumberButton.NewOrNext (LABEL 5) (PLACEMENT (PTRANSLATE
PLACEMENT 28 48)) (CELL CELL) (DIGIT 5) (PICTURE PICTURE) (FONT FONT)) (ITEM
NumberButton.NewOrNext (LABEL 6) (PLACEMENT (PTRANSLATE PLACEMENT 56 48)) (CELL CELL) (DIGIT 6)
(PICTURE PICTURE) (FONT FONT)) (ITEM NumberButton.NewOrNext (LABEL 7) (PLACEMENT (PTRANSLATE
PLACEMENT 0 24)) (CELL CELL) (DIGIT 7) (PICTURE PICTURE) (FONT FONT)) (ITEM
NumberButton.NewOrNext (LABEL 8) (PLACEMENT (PTRANSLATE PLACEMENT 28 24)) (CELL CELL) (DIGIT 8)
(PICTURE PICTURE) (FONT FONT)) (ITEM NumberButton.NewOrNext (LABEL 9) (PLACEMENT (PTRANSLATE
PLACEMENT 56 24)) (CELL CELL) (DIGIT 9) (PICTURE PICTURE) (FONT FONT)) (ITEM
NumberButton.NewOrNext (LABEL 0) (PLACEMENT (PTRANSLATE PLACEMENT 28 0)) (CELL CELL) (DIGIT 0) (
PICTURE PICTURE) (FONT FONT)) (ITEM NUMBER.BUTTON (LABEL "C") (PLACEMENT (PTRANSLATE PLACEMENT
56 0)) (CELL CELL) (DIGIT 0) (PICTURE PICTURE) (FONT FONT)) (ITEM BORDER (PLACEMENT (create
REGION LEFT ← (IDIFFERENCE (CAR PLACEMENT) 8) BOTTOM ← (CDR PLACEMENT) WIDTH ← 84 HEIGHT ← 120)) (
THICKNESS 1) (COLOR 65535))) CLASSES (BUTTON COMPOSITE) (QUOTE CLASSES) (BUTTON))
(READ.ITEMTYPE StartBb.Button 5)
(\TYPE ITEM.TYPE NAME StartBb.Button COMMENT "A general button" KIND COMPOSITE PARAMETERS ((\TYPE
PARAMETER NAME PLACEMENT TYPE (POSITION) DEFAULT (300 . 400) COMMENT
"The grid position of the lower left corner of the button" GRID.TYPE (LOCATION)) (\TYPE PARAMETER
NAME PICTURE TYPE (BITMAP.NAME) DEFAULT OFFPAGE.BUTTON.BITMAP COMMENT "The artwork for the button")
(\TYPE PARAMETER NAME LIST.OF.LINES TYPE (LIST (STRING)) DEFAULT ("Start") COMMENT
"The words associated with the button") (\TYPE PARAMETER NAME TEXT.OFFSET TYPE (OFFSET.VECTOR (
PLACEMENT)) DEFAULT (2 . 3) COMMENT
"The offset of the words form the lower left corner of the button") (\TYPE PARAMETER NAME
HORIZONTAL.ALIGNMENT TYPE (ONEOF (LEFT CENTER RIGHT)) DEFAULT CENTER COMMENT
"Horizontal alignment of text about reference point") (\TYPE PARAMETER NAME VERTICAL.ALIGNMENT TYPE
(ONEOF (TOP CENTER BOTTOM)) DEFAULT CENTER COMMENT
"Vertical alignment of text about the reference point") (\TYPE PARAMETER NAME FONT TYPE (FONT)
DEFAULT (TIMESROMAND 24) COMMENT "Font in which to print the label") (\TYPE PARAMETER NAME SOURCE
TYPE (ONEOF (INPUT)) DEFAULT INPUT COMMENT "The source for BITBLT for the labels") (\TYPE
PARAMETER NAME OPERATION TYPE (ONEOF (INVERT REPLACE PAINT ERASE)) DEFAULT INVERT COMMENT
"The operation for BITBLT for the labels") (\TYPE PARAMETER NAME RESPONSE TYPE (ONEOF (NONE
BLACK.WHILE.DEPRESSED INVERTS.WHEN.DEPRESSED)) DEFAULT BLACK.WHILE.DEPRESSED COMMENT
"The response to being depressed") (\TYPE PARAMETER NAME STACK.OPERATION TYPE (ONEOF (NO.CHANGE
PUSH POP)) DEFAULT NO.CHANGE COMMENT "How to change the stack of frames") (\TYPE PARAMETER NAME
INITIALIZATION TYPE (ONEOF (INITIALIZE DO.NOT.INITIALIZE)) DEFAULT INITIALIZE COMMENT
"Whether or not to do initialization of the frame") (\TYPE PARAMETER NAME FRAME TYPE (FRAME) DEFAULT
DescriptionPanel COMMENT "The frame to push to")) SUBITEM.SPECS ((ITEM GENERAL.BUTTON (PLACEMENT
PLACEMENT) (PICTURE PICTURE) (TEXT LIST.OF.LINES) (TEXT.OFFSET TEXT.OFFSET) (HORIZONTAL.ALIGNMENT
HORIZONTAL.ALIGNMENT) (VERTICAL.ALIGNMENT VERTICAL.ALIGNMENT) (FONT FONT) (SOURCE SOURCE) (
OPERATION OPERATION) (RESPONSE RESPONSE) (ACTION (QUOTE (PROGN (RPAQQ in.Trillium T) (
StartBluebonnet T)))))) OTHER (BITMAPS ((OFFPAGE.BUTTON.BITMAP {(READBITMAP)(74 40
"OOOOOOOOOOOOOOOOOD@@"
"OOOOOOOOOOOOOOOOOF@@"
"OOOOOOOOOOOOOOOOOG@@"
"N@@@@@@@@@@@@@@@GGH@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"OOOOOOOOOOOOOOOOOGL@"
"OOOOOOOOOOOOOOOOOGL@"
"OOOOOOOOOOOOOOOOOGL@"
"@@@@@@@@@@@@@@@@@CL@"
"OOOOOOOOOOOOOOOOOAL@"
"GOOOOOOOOOOOOOOOOHL@"
"COOOOOOOOOOOOOOOOLD@"
"AOOOOOOOOOOOOOOOON@@"
"@OOOOOOOOOOOOOOOOO@@")}))) CLASSES (BUTTON COMPOSITE) (QUOTE CLASSES) (BUTTON))
(READ.ITEMTYPE Word.Button 5)
(\TYPE ITEM.TYPE NAME Word.Button COMMENT "A bitmapless inverting interacting word-only button" KIND
COMPOSITE PARAMETERS ((\TYPE PARAMETER NAME PLACEMENT TYPE (POSITION) COMMENT
"The lower left corner of the string" DEFAULT (100 . 100)) (\TYPE PARAMETER NAME LINE TYPE (
CONSTANT) COMMENT "The text itself" DEFAULT Yes) (\TYPE PARAMETER NAME FONT TYPE (FONT) COMMENT
"Font of the text" DEFAULT (GACHA 12 BOLD)) (\TYPE PARAMETER NAME SOURCE TYPE (ONEOF (INPUT
INVERSE MERGE TEXTURE)) COMMENT "Source for BitBlt" DEFAULT INPUT) (\TYPE PARAMETER NAME OPERATION
TYPE (ONEOF (PAINT REPLACE INVERT ERASE)) COMMENT "Operation for BitBlt" DEFAULT REPLACE) (\TYPE
PARAMETER NAME TEXTURE TYPE (SHADE) COMMENT "Texture for BitBlt" DEFAULT 0) (\TYPE PARAMETER NAME
CELL TYPE (CELL) COMMENT "The cell associated with the wordbutton" DEFAULT CELL.1) (\TYPE PARAMETER
NAME ACTION.FORM TYPE (FORM) COMMENT "The action associated with the sensor" DEFAULT NIL) (\TYPE
PARAMETER NAME EXTRA.WIDTH TYPE (INTEGER) COMMENT
"Number of extra bits for region around the string" DEFAULT 2)) SUBITEM.SPECS ((ITEM LINE.OF.TEXT (
PLACEMENT PLACEMENT) (LINE (MKSTRING LINE)) (FONT FONT) (SOURCE SOURCE) (OPERATION OPERATION) (
TEXTURE TEXTURE)) (ITEM LIGHT (PLACEMENT (SETQ *-PLACEMENT-* (create REGION LEFT ← (IDIFFERENCE
(CAR PLACEMENT) EXTRA.WIDTH) BOTTOM ← (IDIFFERENCE (IDIFFERENCE (CDR PLACEMENT) (FONTPROP FONT (
QUOTE DESCENT))) EXTRA.WIDTH) WIDTH ← (IPLUS (STRINGWIDTH LINE FONT) (ITIMES 2 EXTRA.WIDTH)) HEIGHT
← (IPLUS (FONT.HEIGHT FONT) (ITIMES 2 EXTRA.WIDTH))))) (CELL CELL) (REFERENCE.VALUE LINE)) (
ITEM SENSITIVE.REGION (PLACEMENT *-PLACEMENT-*) (ACTION.FORM ACTION.FORM))) CLASSES (BUTTON
COMPOSITE))
(READ.INTERFACEQ BbTr 3)
(\TYPE INTERFACE NAME BbTr FRAMES ((\TYPE FRAME NAME BEGIN ITEMS ((\TYPE LINE.OF.TEXT PLACEMENT (
320 . 600) LINE "Push this button to start the" XALIGNMENT CENTER FONT (TIMESROMAND 24 (MEDIUM
REGULAR REGULAR))) (\TYPE LINE.OF.TEXT PLACEMENT (320 . 550) LINE "Bluebonnet Expert Help System"
XALIGNMENT CENTER FONT (TIMESROMAND 24 (MEDIUM REGULAR REGULAR))) (\TYPE StartBb.Button PLACEMENT
(288 . 429) FONT (TIMESROMAN 16 (BOLD REGULAR REGULAR)) PICTURE EXTERNAL.BUTTON.BITMAP TEXT.OFFSET
(27 . 42)))) (\TYPE FRAME NAME BITMAPS ITEMS ((\TYPE BITMAP PLACEMENT (10 . 200) NAME
EXAMPLE.BITMAP BITMAP {(READBITMAP)(100 100
"OOOOOOOOOOOOOOOOOOOOOOOOO@@@"
"OOOOOOOOOOOOOOOOOOOOOOOOO@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@AOOOOOOH@@@OOOOOOON@@C@@@"
"L@@AOOOOOOH@@@OOOOOOON@@C@@@"
"L@@AOOOOOOH@@@OOOOOOON@@C@@@"
"L@@AOOOOOOH@@@OOOOOOON@@C@@@"
"L@@AOOOOOOH@@@OOOOOOON@@C@@@"
"L@@AO@@@@@@@@@OL@@@@GN@@C@@@"
"L@@AO@@@@@@@@@OL@@@@GN@@C@@@"
"L@@AO@@@@@@@@@OL@@@@GN@@C@@@"
"L@@AO@@@@@@@@@OL@@@@GN@@C@@@"
"L@@AO@@@@@@@@@OL@@@@@@@@C@@@"
"L@@AO@@@@@@@@@OL@@@@@@@@C@@@"
"L@@AO@@@@@@@@@OL@@@@@@@@C@@@"
"L@@AO@@@@@@@@@OL@@@@@@@@C@@@"
"L@@AOOOOOOH@@@OL@@@@@@@@C@@@"
"L@@AOOOOOOH@@@OL@@@@@@@@C@@@"
"L@@AOOOOOOH@@@OL@@@@@@@@C@@@"
"L@@AOOOOOOH@@@OL@@@@@@@@C@@@"
"L@@AOOOOOOH@@@OL@@@@@@@@C@@@"
"L@@AO@@@@@@@@@OL@@@@@@@@C@@@"
"L@@AO@@@@@@@@@OL@@@@@@@@C@@@"
"L@@AO@@@@@@@@@OL@@COOOONC@@@"
"L@@AO@@@@@@@@@OL@@COOOONC@@@"
"L@@AO@@@@@@@@@OL@@COOOONC@@@"
"L@@AO@@@@@@@@@OL@@COOOONC@@@"
"L@@AO@@@@@@@@@OL@@COOOONC@@@"
"L@@AO@@@@@@@@@OL@@@@CO@@C@@@"
"L@@AO@@@@@@@@@OL@@@@CO@@C@@@"
"L@@AO@@@@@@@@@OL@@@@CO@@C@@@"
"L@@AO@@@@@@@@@OL@@@@CO@@C@@@"
"L@@AO@@@@@@@@@OL@@@@CO@@C@@@"
"L@@AOOOOOOHOL@OOOOOOOOAOK@@@"
"L@@AOOOOOOHOL@OOOOOOOOAOK@@@"
"L@@AOOOOOOHOL@OOOOOOOOAOK@@@"
"L@@AOOOOOOHOL@OOOOOOOOAOK@@@"
"L@@AOOOOOOHOL@OOOOOOOOAOK@@@"
"L@@AOOOOOOHOL@OOOOOOOOAOK@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"L@@@@@@@@@@@@@@@@@@@@@@@C@@@"
"OOOOOOOOOOOOOOOOOOOOOOOOO@@@"
"OOOOOOOOOOOOOOOOOOOOOOOOO@@@")}) (\TYPE BITMAP PLACEMENT (120 . 200) NAME EXTERNAL.BUTTON.BITMAP BITMAP {(READBITMAP)(74 74
"OOOOOOOOOOOOOOOOOD@@"
"OOOOOOOOOOOOOOOOOF@@"
"OOOOOOOOOOOOOOOOOG@@"
"N@@@@@@@@@@@@@@@GGH@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"OOOOOOOOOOOOOOOOOGL@"
"OOOOOOOOOOOOOOOOOGL@"
"OOOOOOOOOOOOOOOOOGL@"
"@@@@@@@@@@@@@@@@@CL@"
"OOOOOOOOOOOOOOOOOAL@"
"GOOOOOOOOOOOOOOOOHL@"
"COOOOOOOOOOOOOOOOLD@"
"AOOOOOOOOOOOOOOOON@@"
"@OOOOOOOOOOOOOOOOO@@")}) (\TYPE BITMAP PLACEMENT (204 . 200) NAME OFFPAGE.BUTTON.BITMAP BITMAP {(READBITMAP)(74 40
"OOOOOOOOOOOOOOOOOD@@"
"OOOOOOOOOOOOOOOOOF@@"
"OOOOOOOOOOOOOOOOOG@@"
"N@@@@@@@@@@@@@@@GGH@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"N@@@@@@@@@@@@@@@GGL@"
"OOOOOOOOOOOOOOOOOGL@"
"OOOOOOOOOOOOOOOOOGL@"
"OOOOOOOOOOOOOOOOOGL@"
"@@@@@@@@@@@@@@@@@CL@"
"OOOOOOOOOOOOOOOOOAL@"
"GOOOOOOOOOOOOOOOOHL@"
"COOOOOOOOOOOOOOOOLD@"
"AOOOOOOOOOOOOOOOON@@"
"@OOOOOOOOOOOOOOOOO@@")}) (\TYPE BITMAP PLACEMENT (288 . 200) NAME SIMPLE.BUTTON.BITMAP BITMAP {(READBITMAP)(40 40
"OOOOOOOOM@@@"
"OOOOOOOOMH@@"
"OOOOOOOOML@@"
"N@@@@@@AMN@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"N@@@@@@AMO@@"
"OOOOOOOOMO@@"
"OOOOOOOOMO@@"
"OOOOOOOOMO@@"
"@@@@@@@@@O@@"
"OOOOOOOOLG@@"
"GOOOOOOONC@@"
"COOOOOOOOA@@"
"AOOOOOOOOH@@"
"@OOOOOOOOL@@")}) (\TYPE BITMAP PLACEMENT (338 . 200) NAME SMALL.SPOT.BITMAP BITMAP {(READBITMAP)(21 22
"@AOL@@@@"
"@GOO@@@@"
"@OOOH@@@"
"AOOOL@@@"
"COOON@@@"
"GOOOO@@@"
"GOOOO@@@"
"OOOOOH@@"
"OOOOOH@@"
"OOOOOH@@"
"OOOOOH@@"
"OOOOOH@@"
"OOOOOH@@"
"OOOOOH@@"
"OOOOOH@@"
"GOOOO@@@"
"GOOOO@@@"
"COOON@@@"
"AOOOL@@@"
"@OOOH@@@"
"@GOO@@@@"
"@AOL@@@@")}) (\TYPE BITMAP PLACEMENT (371 . 196) NAME SMALL.SIMPLE.BUTTON.BITMAP BITMAP {(READBITMAP)(25 24
"@@@@@@@@"
"@@@@@D@@"
"@GOOOD@@"
"@D@@AD@@"
"@D@@AD@@"
"@D@@AD@@"
"@D@@AD@@"
"@D@@AD@@"
"@D@@AD@@"
"@D@@AD@@"
"@D@@AD@@"
"@D@@AD@@"
"@D@@AD@@"
"@D@@AD@@"
"@D@@AD@@"
"@GOOOD@@"
"@@@@@@@@"
"@OOOOH@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@"
"@@@@@@@@")}))) (\TYPE FRAME NAME BbRun ITEMS ((\TYPE GENERAL.BUTTON PLACEMENT (557 . 8) PICTURE
OFFPAGE.BUTTON.BITMAP TEXT ("HELP") ACTION (CHANGE.CELL MessageArea.Cell
" To get help about a particular query,
point to it and press the left mouse button.
A help message will appear in the current window and remain
visible as long as you keep the left mouse button depressed.") TEXT.OFFSET (28 . 26) VERSION 1) (
\TYPE GENERAL.BUTTON PLACEMENT (449 . 8) PICTURE OFFPAGE.BUTTON.BITMAP TEXT ("Change" "task")
ACTION (BbTr.ChangeTask) FONT (HELVETICA 8 (MEDIUM REGULAR REGULAR)) TEXT.OFFSET (28 . 26) VERSION
1) (\TYPE STRAIGHT.LINE PLACEMENT (0 59 646 59 NIL)) (\TYPE STRAIGHT.LINE PLACEMENT (0 255 646
255 NIL)) (\TYPE STRAIGHT.LINE PLACEMENT (0 459 646 459 NIL)) (\TYPE LINE.OF.TEXT PLACEMENT (14 .
442) LINE "Comments:" FONT (HELVETICA 10 (BOLD ITALIC REGULAR))) (\TYPE LINE.OF.TEXT PLACEMENT (
14 . 240) LINE "Instructions:" FONT (HELVETICA 10 (BOLD ITALIC REGULAR))) (\TYPE Message.Area
PLACEMENT (30 277 590 157) CELL StatusWindow.Cell XALIGNMENT LEFT YALIGNMENT TOP FONT (HELVETICA 12
(BOLD REGULAR REGULAR)) BACKGROUND 0 BORDER.THICKNESS 0 MARGIN 5) (\TYPE Message.Area PLACEMENT (31
73 591 157) CELL UserInstructionWindow.Cell XALIGNMENT LEFT YALIGNMENT TOP FONT (HELVETICA 12 (BOLD
REGULAR REGULAR)) BACKGROUND 0 MARGIN 5 BORDER.THICKNESS 0) (\TYPE INIT.CELL PLACEMENT (630 . 443)
CELL StatusWindow.Cell VALUE "") (\TYPE INIT.CELL PLACEMENT (628 . 235) CELL
UserInstructionWindow.Cell VALUE "") (\TYPE INITIALIZATION PLACEMENT (638 . 49) ACTION.FORM (PROGN
(BbTr.DeleteButton (QUOTE Start) (FIND.FRAME CURRENT.INTERFACE (QUOTE BbRun))) (
BbTr.DeleteButton (QUOTE Stop) (FIND.FRAME CURRENT.INTERFACE (QUOTE BbRun))))) (\TYPE
GENERAL.BUTTON PLACEMENT (233 . 8) PICTURE OFFPAGE.BUTTON.BITMAP TEXT ("Start") ACTION (
EvalWhenNotReading8200 (QUOTE (Push8200Button (QUOTE StartPrint)))) FONT (GACHA 12 (MEDIUM
REGULAR REGULAR)) TEXT.OFFSET (28 . 26) VERSION 1) (\TYPE GENERAL.BUTTON PLACEMENT (341 . 8)
PICTURE OFFPAGE.BUTTON.BITMAP TEXT ("Stop") ACTION (NILL) FONT (GACHA 12 (MEDIUM REGULAR REGULAR))
TEXT.OFFSET (28 . 26) VERSION 1))) (\TYPE FRAME NAME BbRunSimulator SUPERFRAMES (BbRun) ITEMS ((
\TYPE LINE.OF.TEXT PLACEMENT (268 . 766) LINE "8200 Simulator" FONT (HELVETICA 16 (BOLD REGULAR
REGULAR))) (\TYPE Flashing.Word.Button PLACEMENT (26 . 717) LINE "Open RDH" FONT (GACHA 10 (BOLD
REGULAR REGULAR)) CELL Cell.1 ACTION.WHEN.PRESSED (SetBit (fetch machineState of JobState) 21 2)) (
\TYPE Flashing.Word.Button PLACEMENT (26 . 695) LINE "Open Document Cover" FONT (GACHA 10 (BOLD
REGULAR REGULAR)) ACTION.WHEN.PRESSED (SetBit (fetch machineState of JobState) 21 1)) (\TYPE
Flashing.Word.Button PLACEMENT (26 . 673) LINE "Open Top Paper Tray" FONT (GACHA 10 (BOLD REGULAR
REGULAR)) ACTION.WHEN.PRESSED (ACTION.PRINT "The Top Paper Tray is open")) (\TYPE
Flashing.Word.Button PLACEMENT (26 . 651) LINE "Open Bottom Paper Tray" FONT (GACHA 10 (BOLD
REGULAR REGULAR)) ACTION.WHEN.PRESSED (ACTION.PRINT "The Bottom Paper Tray is open")) (\TYPE
Flashing.Word.Button PLACEMENT (26 . 610) LINE "Put Original in RDH" FONT (GACHA 10 (BOLD REGULAR
REGULAR)) ACTION.WHEN.PRESSED (SetBit (fetch machineState of JobState) 19 128)) (\TYPE
Flashing.Word.Button PLACEMENT (26 . 588) LINE "Put Original on Glass" FONT (GACHA 10 (BOLD
REGULAR REGULAR)) ACTION.WHEN.PRESSED (ACTION.PRINT "The Original is on the platen")) (\TYPE
Flashing.Word.Button PLACEMENT (26 . 535) LINE "Reverse Originals" FONT (GACHA 10 (BOLD REGULAR
REGULAR)) ACTION.WHEN.PRESSED (ACTION.PRINT "The Originals have been reversed")) (\TYPE
Flashing.Word.Button PLACEMENT (26 . 513) LINE "Load Paper into Top Paper Tray" FONT (GACHA 10 (
BOLD REGULAR REGULAR)) ACTION.WHEN.PRESSED (SetBitOff (fetch machineState of JobState) 18 1)) (
\TYPE Flashing.Word.Button PLACEMENT (386 . 717) LINE "Close RDH" FONT (GACHA 10 (BOLD REGULAR
REGULAR)) ACTION.WHEN.PRESSED (SetBitOff (fetch machineState of JobState) 21 2)) (\TYPE
Flashing.Word.Button PLACEMENT (386 . 695) LINE "Close Document Cover" FONT (GACHA 10 (BOLD
REGULAR REGULAR)) ACTION.WHEN.PRESSED (SetBitOff (fetch machineState of JobState) 21 1)) (\TYPE
Flashing.Word.Button PLACEMENT (388 . 673) LINE "Close Top Paper Tray" FONT (GACHA 10 (BOLD
REGULAR REGULAR)) ACTION.WHEN.PRESSED (ACTION.PRINT "The Top Paper Tray is closed")) (\TYPE
Flashing.Word.Button PLACEMENT (386 . 610) LINE "Remove Original from RDH" FONT (GACHA 10 (BOLD
REGULAR REGULAR)) ACTION.WHEN.PRESSED (SetBitOff (fetch machineState of JobState) 19 128)) (\TYPE
Flashing.Word.Button PLACEMENT (386 . 588) LINE "Remove Original from Glass" FONT (GACHA 10 (BOLD
REGULAR REGULAR)) ACTION.WHEN.PRESSED (ACTION.PRINT "The Original is no more on the platen")) (
\TYPE Flashing.Word.Button PLACEMENT (386 . 535) LINE "Remove Copies from the Output Tray" FONT (
GACHA 10 (BOLD REGULAR REGULAR)) ACTION.WHEN.PRESSED (PROGN (SetBitOff (fetch machineState of
JobState) 18 64) (SetBitOff (fetch machineState of JobState) 19 64))) (\TYPE Flashing.Word.Button
PLACEMENT (386 . 513) LINE "Remove Paper from Top Paper Tray" FONT (GACHA 10 (BOLD REGULAR REGULAR
)) ACTION.WHEN.PRESSED (ACTION.PRINT "The Paper is no more in the Top Paper Tray")) (\TYPE
Flashing.Word.Button PLACEMENT (388 . 651) LINE "Close Bottom Paper Tray" FONT (GACHA 10 (BOLD
REGULAR REGULAR)) ACTION.WHEN.PRESSED (ACTION.PRINT "The Bottom Paper Tray is closed")))) (\TYPE
FRAME NAME DescriptionPanel ITEMS ((\TYPE LINE.OF.TEXT PLACEMENT (14 . 766) LINE
"Describe the document to be copied:" FONT (TIMESROMAND 24 (MEDIUM REGULAR REGULAR))) (\TYPE
LINE.OF.TEXT PLACEMENT (14 . 372) LINE "Describe the desired copies:" FONT (TIMESROMAND 24 (MEDIUM
REGULAR REGULAR))) (\TYPE Flashing.Word.Button PLACEMENT (40 . 448) LINE
"About how many images are to be copied?" EXTRA.WIDTH 2 HelpMessage "" ACTION.WHEN.PRESSED (
CHANGE.CELL MessageArea.Cell " Estimate approximately the number of pages of your original.")
ACTION.WHEN.RELEASED (CHANGE.CELL MessageArea.Cell "")) (\TYPE Small.Number.Pad PLACEMENT (205 .
237) CELL NumberOfCopies.Cell BbName NumberOfCopies) (\TYPE Small.Number.Pad PLACEMENT (381 . 393)
CELL #OfOriginalSheets.Cell BbName #OfOriginalSheets) (\TYPE GENERAL.BUTTON PLACEMENT (475 . 16)
PICTURE OFFPAGE.BUTTON.BITMAP TEXT ("Proceed") ACTION (BbTr.ProceedFromPanel) TEXT.OFFSET (28 . 26)
VERSION 1) (\TYPE GENERAL.BUTTON PLACEMENT (565 . 16) PICTURE OFFPAGE.BUTTON.BITMAP TEXT ("HELP")
ACTION (CHANGE.CELL MessageArea.Cell (QUOTE (To get help about a particular query, point to it and
press the left mouse button. A help message will appear in the current window and remain visible as
long as you keep the left mouse button depressed.))) TEXT.OFFSET (28 . 26) VERSION 1) (\TYPE
Message.Area PLACEMENT (0 0 450 80) OPERATION REPLACE BACKGROUND 0 MARGIN 5 FONT (HELVETICA 12 (
BOLD REGULAR REGULAR)) BORDER.THICKNESS 0) (\TYPE Flashing.Word.Button PLACEMENT (40 . 300) LINE
"Number of copies" HelpMessage "" ACTION.WHEN.PRESSED (CHANGE.CELL MessageArea.Cell
" Indicate how many copies of your document
you want.") ACTION.WHEN.RELEASED (CHANGE.CELL MessageArea.Cell "")) (\TYPE INITIALIZATION
PLACEMENT (576 . 769) NAME "Initialization for DescriptionPanel frame" ACTION.FORM (
BbTr.Trillium.Initialize)) (\TYPE Q.&.A PLACEMENT (40 . 748) QUESTION "Is it a bound document?"
QUESTION.CELL OriginalsBound.HelpCell ANSWER.CELL OriginalsBound.Cell BbName OriginalsBound
HelpMessage (QUOTE (A bound document is a book or any other original whose pages are fastened
together.))) (\TYPE BORDER PLACEMENT (-5 -5 460 90) THICKNESS 5 COLOR 42405) (\TYPE Q.&.A PLACEMENT
(40 . 720) QUESTION "Are you willing to unbind the document for this copying job?" QUESTION.CELL
Unbindable.HelpCell ANSWER.CELL Unbindable.Cell BbName Unbindable HelpMessage (QUOTE (Unbound
documents can be copied much faster than bound documents. If your original has a removable binding,
such as staples, you may save yourself time by removing the binding to make the copies.))) (\TYPE
Q.&.A PLACEMENT (40 . 182) QUESTION "Use standard paper?" QUESTION.CELL
CopiesOnStandardPaper.HelpCell ANSWER.CELL CopiesOnStandardPaper.Cell BbName CopiesOnStandardPaper
HelpMessage (QUOTE (If you select %"Yes%", your copies will be made on white 8.5%" x 11%" paper.)))
(\TYPE Q.&.A PLACEMENT (40 . 524) QUESTION "Quality of original:" ANSWERS ("Darker than normal"
normal "Lighter than normal") QUESTION.CELL CopyBrightness.HelpCell ANSWER.CELL CopyBrightness.Cell
BbName CopyBrightness HelpMessage (QUOTE (If your original is a paste-up, has a lot of background or
is printed on colored paper, select %"Darker than normal%". If the image on your original has faint
lines or is printed in light blue or pencil, %"Lighter than normal%" should be selected.))) (\TYPE
Q.&.A PLACEMENT (40 . 100) QUESTION "Reduce size of images?" QUESTION.CELL Reduction.HelpCell
ANSWER.CELL Reduction.Cell ANSWERS (No "35%% smaller" "26%% smaller" "2%% smaller") BbName
Reduction HelpMessage (QUOTE (The copies can be smaller than the originals.Two 8 1/2 x 11 can be
copied onto one 8 1/2 x 11 with 35%% reduction. Use 26%% to reduce an 8 1/2 x 14 to 8 1/2 by 11
format. 2%% reduction leaves room for hole punching or stapling.))) (\TYPE Q.&.A PLACEMENT (40 . 152
) QUESTION "Staple each copy?" QUESTION.CELL Staple.HelpCell ANSWER.CELL Staple.Cell BbName Staple
HelpMessage (QUOTE (Your copies can be delivered either with or without a staple in the upper left
corner.))) (\TYPE Q.&.A PLACEMENT (40 . 124) QUESTION "Put images on both sides?" QUESTION.CELL
TwoSidedCopies.HelpCell ANSWER.CELL TwoSidedCopies.Cell BbName TwoSidedCopies HelpMessage (QUOTE (If
you want your copies to be two-sided, answer %"Yes%" to this question.))) (\TYPE Q.&.A PLACEMENT (
40 . 214) QUESTION "Collate each copy?" QUESTION.CELL Collate.HelpCell ANSWER.CELL Collate.Cell
BbName Collate HelpMessage (QUOTE (If you want your copies delivered in numerical order, that is,
sequenced like your originals, select %"Yes%".))) (\TYPE Q.&.A PLACEMENT (40 . 580) QUESTION
"Is it on standard thickness paper?" QUESTION.CELL OriginalsOnStandardPaper.HelpCell ANSWER.CELL
OriginalsOnStandardPaper.Cell BbName OriginalsOnStandardPaper HelpMessage (QUOTE (If your original
is on unusually heavy or flimsy paper, it cannot be put in the Recirculating Document Handler.))) (
\TYPE Q.&.A PLACEMENT (40 . 552) QUESTION "Is it on unusually fragile or thick paper?" BbName
OriginalsPaperTooFragileOrThick HelpMessage (QUOTE (No help available for this query.))) (\TYPE
Q.&.A PLACEMENT (40 . 664) QUESTION "Is it on standard size (8.5%" x 11%") paper?" QUESTION.CELL
OriginalsStandardSize.HelpCell ANSWER.CELL OriginalsStandardSize.Cell BbName OriginalsStandardSize
HelpMessage (QUOTE (If your originals are on standard size paper, they can be put in the
Recirculating Document Handler.))) (\TYPE Q.&.A PLACEMENT (40 . 608) QUESTION
"Is it larger than 8.5%" by 14%"?" QUESTION.CELL OriginalsTooLarge.HelpCell ANSWER.CELL
OriginalsTooLarge.Cell BbName OriginalsTooLarge HelpMessage (QUOTE (No help available for this
query.))) (\TYPE Q.&.A PLACEMENT (40 . 636) QUESTION "Is it smaller than 8%" by 10%"?"
QUESTION.CELL OriginalsTooSmall.HelpCell ANSWER.CELL OriginalsTooSmall.Cell BbName OriginalsTooSmall
HelpMessage (QUOTE (No help available for this query.))) (\TYPE Q.&.A PLACEMENT (40 . 692)
QUESTION "Copy both sides of each sheet?" QUESTION.CELL TwoSidedOriginals.HelpCell ANSWER.CELL
TwoSidedOriginals.Cell BbName TwoSidedOriginals HelpMessage (QUOTE (If your original is two-sided,
answer %"Yes%" to this question.)))))) FIRST.FRAME BEGIN BACKGROUND.COLOR WHITE REGION (0 1 655 806))
(DECLARE: DONTCOPY
(FILEMAP (NIL (1161 1747 (SENSE.DOUBLE.ACTION.SENSOR 1171 . 1745)) (4902 7031 (DISPLAY.MESSAGE 4913 .
7029)))))
STOP