1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/bin/sh
# the next line restarts using wish \
exec wish "$0" "$@"
# $Id: overlay.tcl,v 1.4 2009/03/30 23:37:11 vareille Exp $
# Togl - a Tk OpenGL widget
# Copyright (C) 1996 Brian Paul and Ben Bederson
# See the LICENSE file for copyright details.
# $Log: overlay.tcl,v $
# Revision 1.4 2009/03/30 23:37:11 vareille
# win32 is back to togl1.7
#
# Revision 1.2 2006/09/27 19:05:22 vareille
# introduced togl 1.7 + addition of 'getCurrentContext'
#
# Revision 1.4 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.3 2001/01/29 18:11:53 brianp
# Jonas Beskow's changes to use Tcl/Tk stub interface
#
# Revision 1.2 1998/01/24 14:05:50 brianp
# added quit button (Ben Bederson)
#
# Revision 1.1 1997/03/07 01:26:38 brianp
# Initial revision
#
#
# A Tk/OpenGL widget demo using an overlay.
load [file dirname [info script]]/overlay[info sharedlibextension]
proc setup {} {
wm title . "Overlay demo"
togl .win -width 200 -height 200 -rgba true -double false -overlay true
button .btn -text Quit -command exit
pack .win -expand true -fill both
pack .btn -expand true -fill both
}
# Execution starts here!
setup
|
