  -*- Mode : LISP ; Syntax : Common - Lisp ; Package : COMMON - LISP - USER ; Base : 10 -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
          The Garnet User Interface Development Environment .       ; ; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; This code was written as part of the Garnet project at          ;;;
  Carnegie Mellon University , and has been placed in the public    ; ; ;
  domain .   If you are using this code or any part of Garnet ,       ; ; ;
;;; please contact  to be put on the mailing list. ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; $Id::                                                             $

  CHANGE LOG :
  10/5/03 RGA --- Long filenames and MCL .
  10/2/03 RGA --- New compile / load protocol
  10/2/03 RGA --- Added scrolling - unlabeled - box
    7/28/96 RGA --- changed to use garnet - compile / load
   6/23/93   - Added " polyline - functions "
   3/20/93   - Moved " standard - edit " after " motif - parts " to
                     avoid a compiler warning ( reference to Motif - Background )
   2/24/93     references to compile - opal / inter - p
   2/10/93 Mickish - Added motif - trill - device , menubar - functions , and
;;;                    motif-menubar
   1/10/93   - added standard - edit
;;; 08/27/92 Mickish - Added motif-scrolling-menu
  08/17/92 Mickish - Added save - gadget and load - gadget
;;; 08/05/92 Mickish - Added option-button and motif-option-button
  04/08/92 Mickish - Added error - gadget - utils and motif - error - gadget
  04/02/92 McDaniel - New multifont - gadget .
  02/20/92 Mickish - Moved make - package call into Garnet - Loader .
  03/26/91 Pervin - Load compiled files in Lucid .
  03/22/91 Mickish ,    all the provides and setf 's at end .
       scrolling - window - parts and
;;;                           motif-scrolling-window
  03/14/91     motif - gauge .
  02/28/91     ( gc t ) after every load in allegro .
;;;			     Also, added motif-menu.
       motif gadgets
  08/10/90     " multi - feedback " to " polyline - creator "
  08/07/90     " multi - feedback " and " scrolling - window "
  07/16/90     " browser - gadget "
  06/18/90     " v - slider - parts " and added
;;;             "scrolling-input-string" and "scrolling-labeled-box"
  06/05/90    
  04/16/90    each file after compiling in Allegro .
  04/12/90 Mitchell - Added # + allegro ( gc t )
  03/26/90   - Added scrolling - menu and error - gadget
  03/22/90     the package " GARNET - GADGETS "
;;;			   for the TI Explorer
  02/16/90 - Andrew Mickish - Removed defvar for Garnet - Gadgets - Pathname

(in-package :COMMON-LISP-USER)

(defvar *debug-gadgets-mode* nil)

;; (eval-when (:compile-toplevel :load-toplevel :execute)
;;   (proclaim
;;    (if *debug-gadgets-mode*
         ( and ( boundp ' Garnet - Compile - Debug - Settings )
;; 	    Garnet-Compile-Debug-Settings)
;;        ;; Global default settings.
         ( and ( boundp ' Default - Garnet - Proclaim )
 	          ) ) ) )


  Only loads this file when not compiling all of Garnet .
  ( unless ( get : garnet - modules :  )
;;   (load (merge-pathnames "multifont-loader" Garnet-Opal-PathName)))
					; The pathname is CORRECT!

(eval-when (:load-toplevel :compile-toplevel :execute)
  (garnet-mkdir-if-needed Garnet-Gadgets-Pathname))

(Defvar Garnet-Gadgets-Files
  '(
    ;; "GAD-scroll-parts"			; Helper modules containing definitions for
    ;; "GAD-slider-parts"			; scroll bar and slider objects
    ;; "GAD-v-arrows"
    ;; "GAD-v-boxes"
    ;; "GAD-h-arrows"
    ;; "GAD-h-boxes"

    ;; "v-scroll-bar"
    ;; "h-scroll-bar"
    ;; "v-slider"
    ;; "h-slider"
    ;; "trill-device"			; A horizontal slider without the shaft

    ;; "GAD-button-parts"			; Helper module for button and menu objects
    ;; "x-buttons"
    ;; "text-buttons"
    ;; "radio-buttons"

    ;; "error-gadget-utils"
    ;; "error-gadget"
    ;; "scrolling-menu"

    ;; "scrolling-input-string"
    ;; "scrolling-labeled-box"
    ;; "scrolling-unlabeled-box"

    ;; "gauge"				; Semi-circular gauge
    ;; "menu"
    ;; "labeled-box"			; A box with editable text and a label
    ;; "arrow-line"			; A line/arrowhead combination
    ;; "graphics-selection"		; Selection squares for move-grow interaction
    ;; "option-button"
    ;; "popup-menu-button"
    ;; "save-load-functions"
    ;; "save-gadget"
    ;; "load-gadget"

    ;; "browser-gadget"
    ;; "polyline-functions"
    ;; "polyline-creator"
    ;; "multi-selection"
    ;; "menubar-functions" "menubar"

    ;; "scrolling-window-parts"
    ;; "scrolling-window"

    ;; "prop-value-gadgets"
    ;; "prop-sheet"
    ;; "prop-sheet-win"

    ;; "motif-parts"
    ;; "motif-v-scroll-bar"
    ;; "motif-h-scroll-bar"
    ;; "motif-trill-device"
    ;; "motif-slider"
    ;; "motif-text-buttons"
    ;; "motif-check-buttons"
    ;; "motif-radio-buttons"
    ;; "motif-menu"
    ;; "motif-gauge"
    ;; "motif-scrolling-labeled-box"
    ;; "motif-prop-sheet-win"
    ;; "motif-scrolling-window"
    ;; "motif-error-gadget"
    ;; "motif-option-button"
    ;; "motif-scrolling-menu"
    ;; "motif-save-gadget"
    ;; "motif-load-gadget"
    ;; "motif-menubar"

    ;; "multifont-gadget"
    ;; "scrolling-window-multifont"
    ;; "standard-edit"
    ;; "mouseline"
    ))

(dolist (file Garnet-Gadgets-Files)
  (let ((gadget-str (concatenate 'string "gadgets:" file)))
    (garnet-compile gadget-str)
    (garnet-load gadget-str)))

(progn
  (setf (get :garnet-modules :gadgets)  t)
  (setf (get :garnet-modules :GAD-scroll-parts) t)
  (setf (get :garnet-modules :GAD-slider-parts) t)
  (setf (get :garnet-modules :GAD-v-arrows) t)
  (setf (get :garnet-modules :GAD-v-boxes) t)
  (setf (get :garnet-modules :GAD-h-arrows) t)
  (setf (get :garnet-modules :GAD-h-boxes) t)
  (setf (get :garnet-modules :v-scroll-bar) t)
  (setf (get :garnet-modules :h-scroll-bar) t)
  (setf (get :garnet-modules :v-slider) t)
  (setf (get :garnet-modules :h-slider) t)
  (setf (get :garnet-modules :trill-device) t)
  (setf (get :garnet-modules :GAD-button-parts) t)
  (setf (get :garnet-modules :x-buttons) t)
  (setf (get :garnet-modules :text-buttons) t)
  (setf (get :garnet-modules :radio-buttons) t)
  (setf (get :garnet-modules :error-gadget-utils) t)
  (setf (get :garnet-modules :error-gadget) t)
  (setf (get :garnet-modules :scrolling-menu) t)
  (setf (get :garnet-modules :gauge) t)
  (setf (get :garnet-modules :menu) t)
  (setf (get :garnet-modules :menubar) t)
  (setf (get :garnet-modules :labeled-box) t)
  (setf (get :garnet-modules :arrow-line) t)
  (setf (get :garnet-modules :graphics-selection) t)
  (setf (get :garnet-modules :option-button) t)
  (setf (get :garnet-modules :popup-menu-button) t)
  (setf (get :garnet-modules :save-load-functions) t)
  (setf (get :garnet-modules :save-gadget) t)
  (setf (get :garnet-modules :load-gadget) t)
  (setf (get :garnet-modules :browser-gadget) t)
  (setf (get :garnet-modules :polyline-functions) t)
  (setf (get :garnet-modules :polyline-creator) t)
  (setf (get :garnet-modules :scrolling-window-parts) t)
  (setf (get :garnet-modules :scrolling-window) t)
  (setf (get :garnet-modules :standard-edit) t)
  (setf (get :garnet-modules :mouseline) t)
  (setf (get :garnet-modules :scrolling-input-string) t)
  (setf (get :garnet-modules :scrolling-labeled-box) t)
  (setf (get :garnet-modules :multi-selection) t)
  (setf (get :garnet-modules :prop-value) t)
  (setf (get :garnet-modules :prop-sheet) t)
  (setf (get :garnet-modules :prop-sheet-win) t)
  (setf (get :garnet-modules :motif-parts) t)
  (setf (get :garnet-modules :motif-v-scroll-bar) t)
  (setf (get :garnet-modules :motif-h-scroll-bar) t)
  (setf (get :garnet-modules :motif-slider) t)
  (setf (get :garnet-modules :motif-trill-device) t)
  (setf (get :garnet-modules :motif-text-buttons) t)
  (setf (get :garnet-modules :motif-check-buttons) t)
  (setf (get :garnet-modules :motif-radio-buttons) t)
  (setf (get :garnet-modules :motif-gauge) t)
  (setf (get :garnet-modules :motif-menu) t)
  (setf (get :garnet-modules :motif-scrolling-labeled-box) t)
  (setf (get :garnet-modules :motif-scrolling-window) t)
  (setf (get :garnet-modules :motif-scrolling-menu) t)
  (setf (get :garnet-modules :motif-prop-sheet-win) t)
  (setf (get :garnet-modules :motif-error-gadget) t)
  (setf (get :garnet-modules :motif-option-button) t)
  (setf (get :garnet-modules :motif-save-gadget) t)
  (setf (get :garnet-modules :motif-load-gadget) t)
  (setf (get :garnet-modules :multifont-gadget) t)
  (setf (get :garnet-modules :motif-menubar) t)
  )

 Syntax : Common - Lisp ; Package : COMMON - LISP - USER ; Base : 10 -*-

 ; ;

 This code was written as part of the Garnet project at          ;;;
 ; ;
 ; ;
 please contact  to be put on the mailing list. ;;;


 $Id::                                                             $
                    motif-menubar
 08/27/92 Mickish - Added motif-scrolling-menu
 08/05/92 Mickish - Added option-button and motif-option-button
                           motif-scrolling-window
			     Also, added motif-menu.
             "scrolling-input-string" and "scrolling-labeled-box"
			   for the TI Explorer
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (proclaim
    (if *debug-gadgets-mode*
 	    Garnet-Compile-Debug-Settings)
        ;; Global default settings.
   (load (merge-pathnames "multifont-loader" Garnet-Opal-PathName)))
 The pathname is CORRECT!
 "GAD-scroll-parts"			; Helper modules containing definitions for
 "GAD-slider-parts"			; scroll bar and slider objects
 "GAD-v-arrows"
 "GAD-v-boxes"
 "GAD-h-arrows"
 "GAD-h-boxes"
 "v-scroll-bar"
 "h-scroll-bar"
 "v-slider"
 "h-slider"
 "trill-device"			; A horizontal slider without the shaft
 "GAD-button-parts"			; Helper module for button and menu objects
 "x-buttons"
 "text-buttons"
 "radio-buttons"
 "error-gadget-utils"
 "error-gadget"
 "scrolling-menu"
 "scrolling-input-string"
 "scrolling-labeled-box"
 "scrolling-unlabeled-box"
 "gauge"				; Semi-circular gauge
 "menu"
 "labeled-box"			; A box with editable text and a label
 "arrow-line"			; A line/arrowhead combination
 "graphics-selection"		; Selection squares for move-grow interaction
 "option-button"
 "popup-menu-button"
 "save-load-functions"
 "save-gadget"
 "load-gadget"
 "browser-gadget"
 "polyline-functions"
 "polyline-creator"
 "multi-selection"
 "menubar-functions" "menubar"
 "scrolling-window-parts"
 "scrolling-window"
 "prop-value-gadgets"
 "prop-sheet"
 "prop-sheet-win"
 "motif-parts"
 "motif-v-scroll-bar"
 "motif-h-scroll-bar"
 "motif-trill-device"
 "motif-slider"
 "motif-text-buttons"
 "motif-check-buttons"
 "motif-radio-buttons"
 "motif-menu"
 "motif-gauge"
 "motif-scrolling-labeled-box"
 "motif-prop-sheet-win"
 "motif-scrolling-window"
 "motif-error-gadget"
 "motif-option-button"
 "motif-scrolling-menu"
 "motif-save-gadget"
 "motif-load-gadget"
 "motif-menubar"
 "multifont-gadget"
 "scrolling-window-multifont"
 "standard-edit"
 "mouseline"

  CHANGE LOG :
  10/5/03 RGA --- Long filenames and MCL .
  10/2/03 RGA --- New compile / load protocol
  10/2/03 RGA --- Added scrolling - unlabeled - box
    7/28/96 RGA --- changed to use garnet - compile / load
   6/23/93   - Added " polyline - functions "
   3/20/93   - Moved " standard - edit " after " motif - parts " to
                     avoid a compiler warning ( reference to Motif - Background )
   2/24/93     references to compile - opal / inter - p
   2/10/93 Mickish - Added motif - trill - device , menubar - functions , and
   1/10/93   - added standard - edit
  08/17/92 Mickish - Added save - gadget and load - gadget
  04/08/92 Mickish - Added error - gadget - utils and motif - error - gadget
  04/02/92 McDaniel - New multifont - gadget .
  02/20/92 Mickish - Moved make - package call into Garnet - Loader .
  03/26/91 Pervin - Load compiled files in Lucid .
  03/22/91 Mickish ,    all the provides and setf 's at end .
       scrolling - window - parts and
  03/14/91     motif - gauge .
  02/28/91     ( gc t ) after every load in allegro .
       motif gadgets
  08/10/90     " multi - feedback " to " polyline - creator "
  08/07/90     " multi - feedback " and " scrolling - window "
  07/16/90     " browser - gadget "
  06/18/90     " v - slider - parts " and added
  06/05/90    
  04/16/90    each file after compiling in Allegro .
  04/12/90 Mitchell - Added # + allegro ( gc t )
  03/26/90   - Added scrolling - menu and error - gadget
  03/22/90     the package " GARNET - GADGETS "
  02/16/90 - Andrew Mickish - Removed defvar for Garnet - Gadgets - Pathname

(in-package :COMMON-LISP-USER)

(defvar *debug-gadgets-mode* nil)

         ( and ( boundp ' Garnet - Compile - Debug - Settings )
         ( and ( boundp ' Default - Garnet - Proclaim )
 	          ) ) ) )


  Only loads this file when not compiling all of Garnet .
  ( unless ( get : garnet - modules :  )

(eval-when (:load-toplevel :compile-toplevel :execute)
  (garnet-mkdir-if-needed Garnet-Gadgets-Pathname))

(Defvar Garnet-Gadgets-Files
  '(










    ))

(dolist (file Garnet-Gadgets-Files)
  (let ((gadget-str (concatenate 'string "gadgets:" file)))
    (garnet-compile gadget-str)
    (garnet-load gadget-str)))

(progn
  (setf (get :garnet-modules :gadgets)  t)
  (setf (get :garnet-modules :GAD-scroll-parts) t)
  (setf (get :garnet-modules :GAD-slider-parts) t)
  (setf (get :garnet-modules :GAD-v-arrows) t)
  (setf (get :garnet-modules :GAD-v-boxes) t)
  (setf (get :garnet-modules :GAD-h-arrows) t)
  (setf (get :garnet-modules :GAD-h-boxes) t)
  (setf (get :garnet-modules :v-scroll-bar) t)
  (setf (get :garnet-modules :h-scroll-bar) t)
  (setf (get :garnet-modules :v-slider) t)
  (setf (get :garnet-modules :h-slider) t)
  (setf (get :garnet-modules :trill-device) t)
  (setf (get :garnet-modules :GAD-button-parts) t)
  (setf (get :garnet-modules :x-buttons) t)
  (setf (get :garnet-modules :text-buttons) t)
  (setf (get :garnet-modules :radio-buttons) t)
  (setf (get :garnet-modules :error-gadget-utils) t)
  (setf (get :garnet-modules :error-gadget) t)
  (setf (get :garnet-modules :scrolling-menu) t)
  (setf (get :garnet-modules :gauge) t)
  (setf (get :garnet-modules :menu) t)
  (setf (get :garnet-modules :menubar) t)
  (setf (get :garnet-modules :labeled-box) t)
  (setf (get :garnet-modules :arrow-line) t)
  (setf (get :garnet-modules :graphics-selection) t)
  (setf (get :garnet-modules :option-button) t)
  (setf (get :garnet-modules :popup-menu-button) t)
  (setf (get :garnet-modules :save-load-functions) t)
  (setf (get :garnet-modules :save-gadget) t)
  (setf (get :garnet-modules :load-gadget) t)
  (setf (get :garnet-modules :browser-gadget) t)
  (setf (get :garnet-modules :polyline-functions) t)
  (setf (get :garnet-modules :polyline-creator) t)
  (setf (get :garnet-modules :scrolling-window-parts) t)
  (setf (get :garnet-modules :scrolling-window) t)
  (setf (get :garnet-modules :standard-edit) t)
  (setf (get :garnet-modules :mouseline) t)
  (setf (get :garnet-modules :scrolling-input-string) t)
  (setf (get :garnet-modules :scrolling-labeled-box) t)
  (setf (get :garnet-modules :multi-selection) t)
  (setf (get :garnet-modules :prop-value) t)
  (setf (get :garnet-modules :prop-sheet) t)
  (setf (get :garnet-modules :prop-sheet-win) t)
  (setf (get :garnet-modules :motif-parts) t)
  (setf (get :garnet-modules :motif-v-scroll-bar) t)
  (setf (get :garnet-modules :motif-h-scroll-bar) t)
  (setf (get :garnet-modules :motif-slider) t)
  (setf (get :garnet-modules :motif-trill-device) t)
  (setf (get :garnet-modules :motif-text-buttons) t)
  (setf (get :garnet-modules :motif-check-buttons) t)
  (setf (get :garnet-modules :motif-radio-buttons) t)
  (setf (get :garnet-modules :motif-gauge) t)
  (setf (get :garnet-modules :motif-menu) t)
  (setf (get :garnet-modules :motif-scrolling-labeled-box) t)
  (setf (get :garnet-modules :motif-scrolling-window) t)
  (setf (get :garnet-modules :motif-scrolling-menu) t)
  (setf (get :garnet-modules :motif-prop-sheet-win) t)
  (setf (get :garnet-modules :motif-error-gadget) t)
  (setf (get :garnet-modules :motif-option-button) t)
  (setf (get :garnet-modules :motif-save-gadget) t)
  (setf (get :garnet-modules :motif-load-gadget) t)
  (setf (get :garnet-modules :multifont-gadget) t)
  (setf (get :garnet-modules :motif-menubar) t)
  )
