;;; -*- Mode: LISP; Syntax: COMMON-LISP; Base: 10.; Package: XIT -*-
;;;_____________________________________________________________________________
;;;
;;;                       System: XAM
;;;                       Module: Browser Initialization
;;;                       Version: 1.0
;;;
;;; Copyright (c): Forschungsgruppe DRUID, Juergen Herczeg
;;;                Universitaet Stuttgart
;;;
;;; File: /usr/local/lisp/xit/xam/init-meta-browse.lisp
;;; File Creation Date: 10/09/92 11:29:08
;;; Last Modification Time: 12/10/92 09:11:09
;;; Last Modification By: Juergen Herczeg
;;;
;;;
;;; Changes (worth to be mentioned):
;;; ================================
;;;
;;;_____________________________________________________________________________

(in-package :xit)              

(defvar *meta-gio-browser*)
(defvar *meta-object-browser*)
(defvar *meta-class-browser*)

(define-resources
  (* meta-gio-browser x) 200
  (* meta-gio-browser y) 150
  (* meta-gio-browser width) 600
  (* meta-gio-browser height) 500
  (* meta-object-browser x) 300
  (* meta-object-browser y) 250
  (* meta-object-browser width) 400
  (* meta-object-browser height) 400
  (* meta-class-browser x) 250
  (* meta-class-browser y) 200
  (* meta-class-browser width) 500
  (* meta-class-browser height) 400
  )

(setq *meta-gio-browser* (make-meta-gio-browser))
(setq *meta-object-browser* (make-meta-object-browser))
(setq *meta-class-browser* (make-meta-class-browser))

