#!/usr/local/bin/wish -f
#
# Copyright (C) 1993-1996 Olivetti Research Limited, Cambridge, England.
#
# THERE IS NO WARRANTY FOR THIS SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE
# LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
# OTHER PARTIES PROVIDE THIS SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND,
# EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  NO
# GUARANTEE IS MADE THAT THIS SOFTWARE IS FREE OF SOFTWARE VIRUSES.  THE ENTIRE
# RISK AS TO THE QUALITY AND PERFORMANCE OF THIS SOFTWARE IS WITH YOU.  SHOULD
# THIS SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY
# SERVICING, REPAIR OR CORRECTION.
#
# IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL
# ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE
# THIS SOFTWARE AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
# GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE
# OR INABILITY TO USE THIS SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA
# OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES
# OR A FAILURE OF THIS SOFTWARE TO OPERATE WITH ANY OTHER SYSTEMS), EVEN IF
# SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
# DAMAGES.

wm withdraw .

if {[llength $argv] == 0} {
    set netscapeCmd "netscape"
} else {
    set netscapeCmd $argv
}

set rs {0000 4040 8080 bfbf ffff}
set gs {0000 3333 6666 9999 cccc ffff}
set bs {0000 3333 6666 9999 cccc ffff}

canvas .c
pack .c

set y 0
foreach r $rs {
	set x 0
	foreach g $gs {
		foreach b $bs {
			set col "#$r$g$b"
			.c create rectangle [expr $x*20] [expr $y*20] \
				  [expr $x*20+20] [expr $y*20+20] -fill $col -outline black
			incr x
		}
	}
	incr y
}
.c configure -width [expr $x*20+5] -height [expr $y*20+5]
update

eval "exec $netscapeCmd 2>@stderr >@stdout <@stdin"
exit
