[Tclresource-commits] Source tclResourceOSX.c,1.6,1.7

[<bde...@us...>]

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1:/tmp/cvs-serv15322/Source

Modified Files:
	tclResourceOSX.c 
Log Message:
Version numbering built in the code

Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- tclResourceOSX.c	27 Nov 2003 18:37:47 -0000	1.6
+++ tclResourceOSX.c	29 Nov 2003 13:13:07 -0000	1.7
@@ -173,6 +173,8 @@
  */
 
 int Resource_Init(Tcl_Interp *interp) {
+	char vstr[64];
+	
 #ifdef USE_TCL_STUBS
     if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
 		return TCL_ERROR;
@@ -183,8 +185,11 @@
     Tcl_CreateObjCommand(interp, "resource", Tcl_ResourceObjCmd,
 			     (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
 	
+    sprintf(vstr,"%d.%d%c%d\0", TCLRESOURCE_MAJOR, TCLRESOURCE_MINOR, 
+			TCLRESOURCE_STAGE, TCLRESOURCE_SUBMINOR);
+				 
     /* Declare the tclResource package. */
-    if (Tcl_PkgProvide(interp, "resource", TCLRESOURCE_VERSION_STRING) != TCL_OK) {
+    if (Tcl_PkgProvide(interp, "resource", vstr) != TCL_OK) {
 		return TCL_ERROR;
     }       
     return TCL_OK;