Changeset 3736 for trunk/lang/tcl/src/Rappture_Init.c

Timestamp:

Jul 1, 2013 4:25:47 PM (11 years ago)

Author:

gah

Message:

remove deprecated mesh examples

File:

• trunk/lang/tcl/src/Rappture_Init.c (modified) (2 diffs)

trunk/lang/tcl/src/Rappture_Init.c

@@ -44 +44 @@
 Rappture_Init( Tcl_Interp * interp)
 {
-    fprintf(stderr, "Rappture_init\n");
 #ifdef _WIN32
     rpWinInitJob();
@@ -52 +51 @@
     }
     if (Tcl_PkgProvide(interp, "Rappture", RAPPTURE_VERSION) != TCL_OK) {
-        return TCL_ERROR;
-    }
-    if (Tcl_SetVar(interp, "::Rappture::version", RAPPTURE_VERSION,
-                   TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG) == NULL) {
-        return TCL_ERROR;
-    }
-    if (Tcl_SetVar(interp, "::Rappture::build", SVN_VERSION,
-                   TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG) == NULL) {
         return TCL_ERROR;
     }