english
version "1.0"
identify "wxyz"

# Copyright (c) 1998 by Wayne C. Gramlich.
# All rights reserved.
#
# Permission to use, copy, modify, distribute, and sell this software
# for any purpose is hereby granted without fee provided that the above
# copyright notice and this permission are retained.  The author makes
# no representations about the suitability of this software for any purpose.
# It is provided "as is" without express or implied warranty.

module swit_color

#: This module implements SWIT (STIPPLE Window Interface Toolkit)


#: {color} procedures:

procedure color_append@color
    takes
	color color
	tcl_command tcl_command
    returns_nothing

    #: This proecedure will append {color} to {tcl_command}.


procedure create@color
    takes
	name string
    returns color

    #: This procedure will create and return a {color} object with a
    #, name of {name}.


procedure equal@color
    takes
	color1 color
	color2 color
    returns logical

    #: This procedure will return {true} if {color1} is equal to {color2}
    #, and {false} otherwise.


procedure transparent_create@color
    takes_nothing
    returns color

    #: This procedure will create and return the transparent {color}.