mirror of
https://github.com/NGSolve/netgen.git
synced 2024-11-11 16:49:16 +05:00
52 lines
1.3 KiB
Tcl
52 lines
1.3 KiB
Tcl
|
#!/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
|