;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: USER; Base: 10 -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; This file created by LAPIDARY 1.4: A Garnet Interface Builder
;;; on Aug 28, 1991, 9:15 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 `(
    (: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 177)
      (: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 ) 187))
      (:TOP ,(formula `(FLOOR (- (+ (GVL :TOP-OVER :TOP ) (* (GVL :TOP-OVER :HEIGHT ) 0.5 ) 1 ) (/ (GVL :HEIGHT ) 2 ) ) ) 441))))))

))

