;;; -*- Mode: LISP; Syntax: COMMON-LISP; Base: 10.; Package: XIT -*-
;;;_____________________________________________________________________________
;;;
;;;                       System: XAM
;;;                       Module: Color Resource
;;;                       Version: 1.0
;;;
;;; Copyright (c): Forschungsgruppe DRUID, Juergen Herczeg
;;;                Universitaet Stuttgart
;;;
;;; File: /usr/local/lisp/xit/xam/color-resources.lisp
;;; File Creation Date: 10/09/92 11:28:48
;;; Last Modification Time: 10/09/92 16:06:24
;;; Last Modification By: Juergen Herczeg
;;;
;;;
;;; Changes (worth to be mentioned):
;;; ================================
;;;
;;;_____________________________________________________________________________

(in-package :xit)              

(define-resources
  (* :gio-graph-window :background) 0.06
  
  (* :gio-graph-window :object :foreground) "red"
  (* :gio-graph-window :object :background) "lavender blush"
  (* :gio-graph-window :object :border-width) 0

  (* :gio-graph-window :window :foreground) "black"
  (* :gio-graph-window :window :background) "white"
  (* :gio-graph-window :window :inside-border) 2
  (* :gio-graph-window :window :border-width) 1
  (* :gio-graph-window :window :border) "black"

  (* :gio-graph-window :text-dispel :foreground) "black"
  (* :gio-graph-window :text-dispel :background) "white"
  (* :gio-graph-window :text-dispel :border-width) 1
  (* :gio-graph-window :text-dispel :border) "black"

  (* :gio-graph-window :bitmap-dispel :foreground) "black"
  (* :gio-graph-window :bitmap-dispel :background) "white"
  (* :gio-graph-window :bitmap-dispel :border-width) 0

  (* :gio-graph-window :layouter :foreground) "springgreen3"
  (* :gio-graph-window :layouter :background) "honeydew"
  (* :gio-graph-window :layouter :border-width) 0
  
  (* :gio-graph-window :link :foreground) "black"
  (* :gio-graph-window :part-link :foreground) "black"
  (* :gio-graph-window :part-of-link :foreground) "black"
  (* :gio-graph-window :view-of-link :foreground) "red"
  (* :gio-graph-window :layouter-link :foreground) "springgreen3"
  (* :gio-graph-window :icon-link :foreground) "magenta3"
  (* :gio-graph-window :popup-part-link :foreground) "medium blue"
  )