;;; -*- Mode:Lisp; Package:User; Fonts:CPTFONTB; Base:8 -*-
;;; Copyright (c) 1985, HyperTech Associates.  All rights reserved.

;;; Get the features list right immediately so that it can be used anywhere.

#+3600
(Selectq (si:get-release-version)
  (6 (Sstatus :feature :release6))
  (5 (Sstatus :feature :release5))
  (Otherwise
   (Ferror "Unkown system version (~d)." (si:get-release-version))))


(DefSystem HyperWindow
  (:name "HyperWindow")
  (:short-name "HWind")
  (:pathname-default "HTech: HyperWindow;")
;;;  (:patchable "HTech: HyperWindowPatch;")
;;;  #+3600 (:maintaining-sites :HyperTech :CDI-Dallas)
  (:module fixes ("fixes" #+ti "ti-fixes" #+lmi "lmi-fixes"))
  (:module fonts ("bevels" "HyperFont"))
  (:module macros "bevel-macros")
  (:module primitives ("beveled-border" "flexible-mouse"))
  (:module boxed-items-menu "boxed-items-menu")
  (:module beveled-windows "beveled-windows")
  (:module HyperWindow-Modules ("keypad" "calculator"))

  (:compile-load fixes)
  (:fasload fonts)
  (:compile-load macros (:fasload fonts fixes) (:fasload fonts fixes))
  (:compile-load-init primitives
   (fixes macros) (:fasload fixes macros) (:fasload fixes fonts macros))
  (:compile-load-init boxed-items-menu
   (fixes macros primitives)
   (:fasload fixes macros primitives)
   (:fasload fixes macros primitives))
  (:compile-load-init beveled-windows
   (fixes macros primitives boxed-items-menu)
   (:fasload fixes macros primitives boxed-items-menu)
   (:fasload fixes macros primitives boxed-items-menu))
  (:compile-load-init HyperWindow-Modules
   (fixes macros primitives boxed-items-menu beveled-windows)
   (:fasload fixes macros primitives boxed-items-menu beveled-windows)
   (:fasload fixes macros primitives boxed-items-menu beveled-windows))
  )