;;; -*- Mode: LISP; Syntax: COMMON-LISP; Base: 10.; Package: XIT -*-
;;;_____________________________________________________________________________
;;;
;;;                       System: XACT
;;;                       Module: Initialization
;;;                       Version: 1.0
;;;
;;; Copyright (c): Forschungsgruppe DRUID, Juergen Herczeg
;;;                Universitaet Stuttgart
;;;
;;; File: /usr/local/lisp/xit/xact/init.lisp
;;; File Creation Date: 06/12/92 09:38:16
;;; Last Modification Time: 10/09/92 08:53:31
;;; Last Modification By: Juergen Herczeg
;;;
;;;
;;; Changes (worth to be mentioned):
;;; ================================
;;;
;;;_____________________________________________________________________________

(in-package :xit)

(define-resources
  (* :user-interface-construction-window x) 100
  (* :user-interface-construction-window y) 100
  (* :user-interface-construction-window width) 800
  (* :user-interface-construction-window height) 500
  (* :user-interface-construction-window border-width) 1
  (* :user-interface-construction-window background) "white"
  (* :user-interface-construction-window work-area background) 0.06
  )

(defvar *interface-builder* nil)

(setq *interface-builder*
    (make-window 'ui-construction-window
		 :state :managed
		 :parts (default-parts-options 'ui-construction-window)
		 :layouter (default-layouter-options 'ui-construction-window)))


