version 1.1.1.1, 2008/11/10 13:29:29 |
version 1.4, 2012/01/23 07:38:16 |
|
|
$OpenBSD$ |
$OpenBSD$ |
--- tkdgen.tcl.orig Tue Sep 16 04:15:35 2008 |
--- tkdgen.tcl.orig Mon Feb 23 20:20:03 2004 |
+++ tkdgen.tcl Tue Sep 16 04:15:35 2008 |
+++ tkdgen.tcl Mon Nov 10 19:41:33 2008 |
@@ -8,7 +8,7 @@ |
@@ -8,7 +8,7 @@ |
# Version 2 or later version. |
# Version 2 or later version. |
# $Id$ |
# $Id$ |
# wish \ |
# wish \ |
-exec wish "$0" "$@" || clear; echo "'wish' não encontrado! -- Tcl/Tk é necessário para rodar esse programa."; exit 1 |
-exec wish "$0" "$@" || clear; echo "'wish' não encontrado! -- Tcl/Tk é necessário para rodar esse programa."; exit 1 |
+exec wish8.4 "$0" "$@" || clear; echo "'wish' não encontrado! -- Tcl/Tk é necessário para rodar esse programa."; exit 1 |
+exec wish${MODTK_VERSION} "$0" "$@" || clear; echo "'wish' não encontrado! -- Tcl/Tk é necessário para rodar esse programa."; exit 1 |
|
|
set dirHome $env(HOME) |
set dirHome $env(HOME) |
cd $dirHome |
cd $dirHome |