[Amsn-commits] SF.net SVN: amsn: [6924] trunk/amsn/utils/webcamsn/src

[<kak...@us...>]

Revision: 6924
Author:   kakaroto
Date:     2006-06-18 14:49:59 -0700 (Sun, 18 Jun 2006)
ViewCVS:  http://svn.sourceforge.net/amsn/?rev=6924&view=rev

Log Message:
-----------
Trying to remove the segmentation faults when amsn is compiled with the wrong version of tcl/tk

Modified Paths:
--------------
    trunk/amsn/utils/TkCximage/src/TkCximage.cpp
    trunk/amsn/utils/webcamsn/src/webcamsn.c
Modified: trunk/amsn/utils/TkCximage/src/TkCximage.cpp
===================================================================
--- trunk/amsn/utils/TkCximage/src/TkCximage.cpp	2006-06-18 21:35:26 UTC (rev 6923)
+++ trunk/amsn/utils/TkCximage/src/TkCximage.cpp	2006-06-18 21:49:59 UTC (rev 6924)
@@ -258,14 +258,14 @@
   const char *KnownFormats[] = {"cximage", "cxgif", "cxpng", "cxjpg", "cxtga", "cxbmp"};
 
   //Check Tcl version is 8.3 or higher
-  if (Tcl_InitStubs(interp, "8.3", 0) == NULL) {
+  if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
     return TCL_ERROR;
   }
 
   LOG("Tcl stub initialized"); //
 
   //Check TK version is 8.3 or higher
-  if (Tk_InitStubs(interp, "8.3", 0) == NULL) {
+  if (Tk_InitStubs(interp, TK_VERSION, 0) == NULL) {
     return TCL_ERROR;
   }
 

Modified: trunk/amsn/utils/webcamsn/src/webcamsn.c
===================================================================
--- trunk/amsn/utils/webcamsn/src/webcamsn.c	2006-06-18 21:35:26 UTC (rev 6923)
+++ trunk/amsn/utils/webcamsn/src/webcamsn.c	2006-06-18 21:49:59 UTC (rev 6924)
@@ -732,12 +732,12 @@
 	
 
   //Check Tcl version is 8.3 or higher
-  if (Tcl_InitStubs(interp, "8.3", 0) == NULL) {
+  if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
     return TCL_ERROR;
   }
 
   //Check TK version is 8.3 or higher
-  if (Tk_InitStubs(interp, "8.3", 0) == NULL) {
+  if (Tk_InitStubs(interp, TK_VERSION, 0) == NULL) {
     return TCL_ERROR;
   }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.