;;; -*- Mode:LISP; Package:USER; Base:10 -*-

(in-package 'user)

(unless (find-package 'HOSTOBJ)
  (make-package 'hostobj :use '(LISP GLOBAL OBJ)))

(defsystem boxnet
  (:pathname-default "boxnet:tools;")
;;; User interface
  (:module simple-panes "box-simple-panes")	;window pane types
  (:module window "box-window")			;window definition
  (:module main "box-main")			;window interface main loop
;;;
  (:compile-load simple-panes)
  (:compile-load-init window simple-panes (:fasload simple-panes))
  (:compile-load-init main  window (:fasload window))
;;; Host objects
  (:module defobedit "defobedit")		;tool for editing objects
  (:module net-objs "net-objs")			;host object type defs
  (:module net-edits "net-edits")		;editing host objects
;;;
  (:compile-load defobedit)
  (:compile-load-init net-objs defobedit (:fasload defobedit))
  (:compile-load-init net-edits defobedit (:fasload net-objs)))