;;; -*- Mode:Common-Lisp; Package:USER; Fonts:(MEDFNT HL12B HL12BI); Base:10 -*-

;1;;*
;1;; The data, information, methods, and concepts contained herein are a valuable*
;1;; trade secret of Texas Instruments.  They are licensed in confidence by Texas*
;1;; Instruments and may only be used as permitted under the terms of the*
;1;; definitive license agreement under which such use is licensed.*
;1;;*
;1;;			    RESTRICTED RIGHTS LEGEND*
;1;;*
;1;; Use, duplication, or disclosure by the Government is subject to restrictions*
;1;; as set forth in subdivision (b)(3)(ii) of the Rights in Technical Data and*
;1;; Computer Software clause at 52.227-7013.*
;1;;*
;1;;			 TEXAS INSTRUMENTS INCORPORATED*
;1;;				  P.O. BOX 2909*
;1;;			       AUSTIN, TEXAS 78769*
;1;;*
;1;; Copyright (C) 1987 Texas Instruments Incorporated.  All rights reserved.*
;1;;*

;1; Change History*
;1; Date         Person         Change*
;1;---------------------------------------------------------------------------*
;1; 05-12-87    KJF        Original.*



;1;;*
;1;; Dials and Gauges requires the graphics window system so load it if is not already loaded.*
;1;;*

(UNLESS (si:find-system-named 'gwin t t)
  (MAKE-SYSTEM 'gwin :noconfirm))


(DEFPACKAGE "DASH" (:size  1000) (:use "W" "TICL" "LISP" "GWIN" "ZLC"))


(DEFSYSTEM DIALS
  (:NAME		"Dials and Gauges")
  (:NICKNAMES		"Dials-Gauges")
  (:SHORT-NAME		"DIALS")
  (:PATHNAME-DEFAULT	"SYS:PUBLIC.DIALS;")
  
  (:module basic-dial   "basic-dial-information")
  (:module dial-mixins  "background-and-shape-features")
  (:module more-mixins  "value-displays")
  (:module dial-flavors	"complete-dial-flavors")
  (:module entys        "dial-entities")
  (:module rest         ("dial-tick-label-functions" "miscellany"))
  (:module fonts        ("boxed-font" "medled-font"))  ;1; "switches-font"))*
  (:module STARTER-KIT	"sys:public.dials;starter-kit-demo")
  
  (:compile-load       basic-dial)
  (:compile-load-init  dial-mixins (basic-dial)
		       (:fasload basic-dial))
  (:compile-load-init  more-mixins (dial-mixins)
		       (:fasload basic-dial dial-mixins))
  (:compile-load-init  dial-flavors (more-mixins)
		       (:fasload basic-dial dial-mixins more-mixins))
  (:compile-load-init  entys (dial-flavors)
		       (:fasload basic-dial dial-mixins more-mixins dial-flavors))
  (:compile-load-init  rest (entys)
		       (:fasload basic-dial dial-mixins more-mixins dial-flavors entys))
  (:fasload            fonts)
;1;		       (:fasload basic-dial dial-mixins more-mixins dial-flavors entys)))*
  (:AUXILIARY	       STARTER-KIT))