diff options
author | N.N. <matju@users.sourceforge.net> | 2008-02-13 23:59:11 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2008-02-13 23:59:11 +0000 |
commit | 00f9ebd85a15218bc37ff6e3a3e67bcca18e91ec (patch) | |
tree | 19591ba6b54095703b887ad903058e4b201d049a /desiredata/src/desire.tk | |
parent | 960ea21cd21426fec2c21b77ed136e843d1a0dd5 (diff) |
require Tcl/Tk 8.5
svn path=/trunk/; revision=9439
Diffstat (limited to 'desiredata/src/desire.tk')
-rw-r--r-- | desiredata/src/desire.tk | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/desiredata/src/desire.tk b/desiredata/src/desire.tk index d1d02cda..b424c9cc 100644 --- a/desiredata/src/desire.tk +++ b/desiredata/src/desire.tk @@ -32,6 +32,8 @@ set cvsid {$Id: desire.tk,v 1.1.2.600.2.419 2007-10-27 00:22:27 matju Exp $} set debug 0 ;# DON'T TOUCH THIS, make yourself a debug.tcl instead! +if {$tcl_version < 8.5} {puts "Please upgrade to Tcl/Tk 8.5... Thank You.\n(your version is $tcl_version)"; exit 84} + if {[catch {winfo children .}]} {set tk 0} {set tk 1} set argh0 [file normalize [file join [pwd] $argv0]] |