#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"

# $Id: index.tcl,v 1.5 2001/12/20 13:59:31 beskow Exp $

# Togl - a Tk OpenGL widget
# Copyright (C) 1996  Brian Paul and Ben Bederson
# See the LICENSE file for copyright details.


# $Log: index.tcl,v $
# Revision 1.5  2001/12/20 13:59:31  beskow
# Improved error-handling in togl.c in case of window creation failure
# Added pkgIndex target to makefile
# Updated documentation to reflect stubs-interface (Togl.html + new README.stubs)
# Added tk8.4a3 headers
# Removed obsolete Tk internal headers
#
# Revision 1.4  2001/01/29 18:11:53  brianp
# Jonas Beskow's changes to use Tcl/Tk stub interface
#
# Revision 1.3  1998/01/24 14:05:50  brianp
# added quit button (Ben Bederson)
#
# Revision 1.2  1997/04/11 01:37:34  brianp
# added a timer to rotate the triangles
#
# Revision 1.1  1996/10/23 23:18:11  brianp
# Initial revision
#


# A Tk/OpenGL widget demo using color-index mode.

load [file dirname [info script]]/index[info sharedlibextension]

proc setup {} {
    wm title . "Color index demo"

    togl .win -width 200 -height 200  -rgba false  -double true  -privatecmap false  -time 10
    button .btn  -text Quit -command exit

    pack .win -expand true -fill both
    pack .btn -expand true -fill both
}



# Execution starts here!
setup