;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: USER; Base: 10 -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; This file created by LAPIDARY 1.4: A Garnet Interface Builder
;;; on Aug 28, 1991, 4:49 PM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(in-package "USER" :use '("LISP" "KR"))

(setf user::*Used-Garnet-Version* "1.4")

;;;
;;;     Functions needed from Lapidary
(load (merge-pathnames "lapidary-functions-loader"
			 user::Garnet-Lapidary-PathName))
(setf user::*Garnet-Objects-Just-Created* (list 
(create-instance 'TEMP-GADGET OPAL:AGGREGADGET
  (:WINDOW-TITLE "Drawing Window 3")
  (:WINDOW-LEFT 17)
  (:WINDOW-TOP 359)
  (:WINDOW-WIDTH 605)
  (:WINDOW-HEIGHT 472)
  (:WINDOW-P T)
  (:EXPORT-P NIL)
  (:PACKAGE-NAME "USER")
  (:LEFT 0)
  (:TOP 0)
  (:WIDTH (o-formula (GV WINDOW :WIDTH) 605))
  (:HEIGHT (o-formula (GV WINDOW :HEIGHT) 472))
  (:parts `(
    (NIL ,OPAL:AGGRELIST
      (:DIRECTION :HORIZONTAL)
      (:RANK-MARGIN 8)
      (:ITEMS 64)
      (:FIXED-WIDTH-P NIL)
      (:PIXEL-MARGIN NIL)
      (:H-SPACING 0)
      (:INDENT 0)
      (:FIXED-HEIGHT-P NIL)
      (:V-SPACING 0)
      (:SELECT-FUNCTION NIL)
      (:FIXED-WIDTH-SIZE NIL)
      (:FIXED-HEIGHT-SIZE NIL)
      (:H-ALIGN :LEFT)
      (:V-ALIGN :TOP)
      (:LEFT ,(formula `(+ (OPAL:GV-RIGHT (GVL :LEFT-OVER ) ) 30 ) 180))
      (:TOP 16)
      (:VISIBLE T)
      (:item-prototype 
        (,OPAL:RECTANGLE
          (:DRAW-FUNCTION :COPY)
          (:FILLING-STYLE ,(formula `(WHICH-COLOR )))
          (:LINE-STYLE ,OPAL:LINE-0)
          (:P-FEEDBACK-OBJ NIL)
          (:BOX (26 104 50 50 ))
          (:LEFT 26)
          (:TOP 104)
          (:WIDTH 50)
          (:HEIGHT 50))))
    (NIL ,OPAL:AGGRELIST
      (:DIRECTION :VERTICAL)
      (:RANK-MARGIN 3)
      (:ITEMS 3)
      (:FIXED-WIDTH-P NIL)
      (:PIXEL-MARGIN NIL)
      (:FIXED-HEIGHT-P NIL)
      (:V-SPACING 15)
      (:SELECT-FUNCTION NIL)
      (:H-SPACING 5)
      (:FIXED-WIDTH-SIZE NIL)
      (:FIXED-HEIGHT-SIZE NIL)
      (:H-ALIGN :LEFT)
      (:V-ALIGN :TOP)
      (:INDENT 0)
      (:LEFT 20)
      (:TOP ,(formula `(FLOOR (- (+ (GVL :TOP-OVER :TOP ) (* (GVL :TOP-OVER :HEIGHT ) 0.5 ) 1 ) (/ (GVL :HEIGHT ) 2 ) ) ) 127))
      (:VISIBLE T)
      (:item-prototype 
        (,OPAL:AGGREGADGET
          (:P-FEEDBACK-OBJ NIL)
          (:WIDTH-OVER ,(formula `(GVL :SOLID-THIN-LINE-RECTANGLE-37276 )))
          (:HEIGHT-OVER ,(formula `(GVL :SOLID-THIN-LINE-RECTANGLE-37276 )))
          (:WIDTH-DIFFERENCE 10)
          (:WIDTH-SCALE 1)
          (:MARK NIL)
          (:HEIGHT-DIFFERENCE 10)
          (:HEIGHT-SCALE 1)
          (:BOX (89 100 131 50 ))
          (:LEFT 89)
          (:TOP 100)
          (:WIDTH ,(o-formula (ROUND (+ (* (GVL :WIDTH-SCALE) (GVL :WIDTH-OVER :WIDTH)) (GVL :WIDTH-DIFFERENCE))) 131))
          (:HEIGHT ,(o-formula (ROUND (+ (* (GVL :HEIGHT-SCALE) (GVL :HEIGHT-OVER :HEIGHT)) (GVL :HEIGHT-DIFFERENCE))) 50))
          (:parts (
            (:SOLID-THIN-LINE-RECTANGLE-37276 ,OPAL:RECTANGLE
              (:DRAW-FUNCTION :COPY)
              (:FILLING-STYLE ,OPAL:BLACK-FILL)
              (:LINE-STYLE ,OPAL:LINE-0)
              (:P-FEEDBACK-OBJ NIL)
              (:S-FEEDBACK-OBJ NIL)
              (:LEFT-OVER ,(formula `(GVL :PARENT )))
              (:LEFT-OFFSET 10)
              (:TOP-OVER ,(formula `(GVL :PARENT )))
              (:TOP-OFFSET 10)
              (:LEFT ,(o-formula (+ (GVL :LEFT-OVER :LEFT) (GVL :LEFT-OFFSET)) 99))
              (:TOP ,(o-formula (+ (GVL :TOP-OVER :TOP) (GVL :TOP-OFFSET)) 110))
              (:WIDTH 121)
              (:HEIGHT 40)
              (:VISIBLE T))
            (:SOLID-THIN-LINE-RECTANGLE-37278 ,OPAL:RECTANGLE
              (:DRAW-FUNCTION :COPY)
              (:FILLING-STYLE ,OPAL:GRAY-FILL)
              (:LINE-STYLE ,OPAL:LINE-0)
              (:P-FEEDBACK-OBJ NIL)
              (:S-FEEDBACK-OBJ NIL)
              (:HEIGHT-DIFFERENCE 0)
              (:HEIGHT-SCALE 1)
              (:HEIGHT-OVER ,(formula `(GVL :PARENT :SOLID-THIN-LINE-RECTANGLE-37276 )))
              (:WIDTH-DIFFERENCE 0)
              (:WIDTH-SCALE 1)
              (:WIDTH-OVER ,(formula `(GVL :PARENT :SOLID-THIN-LINE-RECTANGLE-37276 )))
              (:TOP-OFFSET -10)
              (:TOP-OVER ,(formula `(GVL :PARENT :SOLID-THIN-LINE-RECTANGLE-37276 )))
              (:LEFT-OFFSET -10)
              (:LEFT-OVER ,(formula `(GVL :PARENT :SOLID-THIN-LINE-RECTANGLE-37276 )))
              (:LEFT ,(o-formula (+ (GVL :LEFT-OVER :LEFT) (GVL :LEFT-OFFSET)) 89))
              (:TOP ,(o-formula (+ (GVL :TOP-OVER :TOP) (GVL :TOP-OFFSET)) 100))
              (:WIDTH ,(o-formula (ROUND (+ (* (GVL :WIDTH-SCALE) (GVL :WIDTH-OVER :WIDTH)) (GVL :WIDTH-DIFFERENCE))) 121))
              (:HEIGHT ,(o-formula (ROUND (+ (* (GVL :HEIGHT-SCALE) (GVL :HEIGHT-OVER :HEIGHT)) (GVL :HEIGHT-DIFFERENCE))) 40))
              (:VISIBLE T))
            (:MEDIUM-TEXTURE-THIN-LINE-RECTANGLE-37280 ,OPAL:RECTANGLE
              (:DRAW-FUNCTION :COPY)
              (:FILLING-STYLE ,(create-instance nil OPAL:FILLING-STYLE
                    (:STIPPLE OPAL::GRAY-FILL-BITMAP)
                    (:FOREGROUND-COLOR OPAL:WHITE)
                    (:FILL-STYLE :OPAQUE-STIPPLED)))
              (:LINE-STYLE ,OPAL:LINE-0)
              (:P-FEEDBACK-OBJ NIL)
              (:BOX (36 95 102 23 ))
              (:S-FEEDBACK-OBJ NIL)
              (:WIDTH-DIFFERENCE -15)
              (:WIDTH-SCALE 1)
              (:WIDTH-OVER ,(formula `(GVL :PARENT :SOLID-THIN-LINE-RECTANGLE-37278 )))
              (:HEIGHT-DIFFERENCE -15)
              (:HEIGHT-SCALE 1)
              (:HEIGHT-OVER ,(formula `(GVL :PARENT :SOLID-THIN-LINE-RECTANGLE-37278 )))
              (:TOP-OFFSET 0.5)
              (:TOP-OVER ,(formula `(GVL :PARENT :SOLID-THIN-LINE-RECTANGLE-37278 )))
              (:LEFT-OFFSET 0.5)
              (:LEFT-OVER ,(formula `(GVL :PARENT :SOLID-THIN-LINE-RECTANGLE-37278 )))
              (:LEFT ,(o-formula (FLOOR (- (+ (GVL :LEFT-OVER :LEFT) (* (GVL :LEFT-OVER :WIDTH) (GVL :LEFT-OFFSET)) 1) (/ (GVL :WIDTH) 2))) 97))
              (:TOP ,(o-formula (FLOOR (- (+ (GVL :TOP-OVER :TOP) (* (GVL :TOP-OVER :HEIGHT) (GVL :TOP-OFFSET)) 1) (/ (GVL :HEIGHT) 2))) 108))
              (:WIDTH ,(o-formula (ROUND (+ (* (GVL :WIDTH-SCALE) (GVL :WIDTH-OVER :WIDTH)) (GVL :WIDTH-DIFFERENCE))) 106))
              (:HEIGHT ,(o-formula (ROUND (+ (* (GVL :HEIGHT-SCALE) (GVL :HEIGHT-OVER :HEIGHT)) (GVL :HEIGHT-DIFFERENCE))) 25))
              (:VISIBLE T))
            (:TEXT-37283 ,OPAL:CURSOR-TEXT
              (:STRING "begin white")
              (:DRAW-FUNCTION :COPY)
              (:CURSOR-INDEX NIL)
              (:FONT ,(create-instance nil OPAL:FONT))
              (:P-FEEDBACK-OBJ NIL)
              (:LEFT-OFFSET 0.5)
              (:TOP-OFFSET 0.5)
              (:TOP-OVER ,(formula `(GVL :PARENT :MEDIUM-TEXTURE-THIN-LINE-RECTANGLE-37280 )))
              (:LEFT-OVER ,(formula `(GVL :PARENT :MEDIUM-TEXTURE-THIN-LINE-RECTANGLE-37280 )))
              (:LEFT ,(o-formula (FLOOR (- (+ (GVL :LEFT-OVER :LEFT) (* (GVL :LEFT-OVER :WIDTH) (GVL :LEFT-OFFSET)) 1) (/ (GVL :WIDTH) 2))) 113))
              (:TOP ,(o-formula (FLOOR (- (+ (GVL :TOP-OVER :TOP) (* (GVL :TOP-OVER :HEIGHT) (GVL :TOP-OFFSET)) 1) (/ (GVL :HEIGHT) 2))) 114)))))))
      (:interactors (
        (NIL ,INTERACTORS:MENU-INTERACTOR
          (:LAPIDARY-P T)
          (:START-WHERE ,(formula `(LIST :ELEMENT-OF (GVL :OPERATES-ON ) )))
          (:FEEDBACK-OBJ NIL)
          (:ACTIVE T)
          (:SAVE-VALUES ((:ACTIVE . T) ))
          (:WINDOW ,(formula `(IF (GVL :OPERATES-ON ) (GVL :OPERATES-ON :WINDOW ) (LET ((START-WHERE (GVL :START-WHERE ) ) ) (COND ((EQ START-WHERE T ) T ) ((EQ START-WHERE NIL ) NIL ) (T (CASE (FIRST START-WHERE ) ((:IN :IN-BOX :IN-BUT-NOT-ON :ELEMENT-OF :LEAF-ELEMENT-OF :ELEMENT-OF-OR-NONE :LEAF-ELEMENT-OF-OR-NONE :CHECK-LEAF-BUT-RETURN-ELEMENT :CHECK-LEAF-BUT-RETURN-ELEMENT-OF-OR-NONE ) (GV (SECOND START-WHERE ) :WINDOW ) ) ((:LIST-ELEMENT-OF :LIST-LEAF-ELEMENT-OF :LIST-ELEMENT-OF-OR-NONE :LIST-LEAF-ELEMENT-OF-OR-NONE :LIST-CHECK-LEAF-BUT-RETURN-ELEMENT :LIST-CHECK-LEAF-BUT-RETURN-ELEMENT-OR-NONE ) (LET ((WINDOW-LIST NIL ) ) (DOLIST (OBJ (GV (SECOND START-WHERE ) (THIRD START-WHERE ) ) ) (LET ((WINDOW (G-LOCAL-VALUE OBJ :WINDOW ) ) ) (WHEN WINDOW (PUSHNEW WINDOW WINDOW-LIST ) ) ) ) WINDOW-LIST ) ) (T NIL ) ) ) ) ) )))))))
      (:MEDIUM-TEXTURE-THIN-LINE-RECTANGLE-37898 ,OPAL:RECTANGLE
        (:DRAW-FUNCTION :COPY)
        (:FILLING-STYLE ,(create-instance nil OPAL:FILLING-STYLE
              (:STIPPLE OPAL::GRAY-FILL-BITMAP)
              (:FOREGROUND-COLOR OPAL:WHITE)
              (:FILL-STYLE :OPAQUE-STIPPLED)))
        (:LINE-STYLE ,OPAL:LINE-0)
        (:LEFT ,(formula `(GVL :LEFT-OVER :LEFT ) 180))
        (:TOP 437)
        (:WIDTH ,(formula `(ROUND (GVL :WIDTH-OVER :WIDTH ) ) 400))
        (:HEIGHT 20))
      (:TEXT-37901 ,OPAL:CURSOR-TEXT
        (:STRING "Message Box")
        (:DRAW-FUNCTION :COPY)
        (:CURSOR-INDEX NIL)
        (:FONT ,(create-instance nil OPAL:FONT))
        (:LEFT ,(formula `(+ (GVL :LEFT-OVER :LEFT ) 10 ) 190))
        (:TOP ,(formula `(FLOOR (- (+ (GVL :TOP-OVER :TOP ) (* (GVL :TOP-OVER :HEIGHT ) 0.5 ) 1 ) (/ (GVL :HEIGHT ) 2 ) ) ) 441))))))

))

