Changeset 662 for trunk/src

Timestamp:

Apr 3, 2007 10:23:46 PM (17 years ago)

Author:

dkearney

Message:

adding Rappture::progress function for tcl

Location:

trunk/src/tcl

Files:

• configure.in (modified) (1 diff)
• src/Rappture_Init.cc (modified) (2 diffs)
• src/RpUtilsTclInterface.cc (added)
• src/RpUtilsTclInterface.h (added)

trunk/src/tcl/configure.in

@@ -85 +85 @@
 
 #TEA_ADD_SOURCES([Rappture_Init.cc RpLibraryTclInterface.cc RpUnitsTclInterface.cc ])
-TEA_ADD_SOURCES([Rappture_Init.cc RpUnitsTclInterface.cc RpEncodeTclInterface.cc])
+TEA_ADD_SOURCES([Rappture_Init.cc RpUnitsTclInterface.cc RpEncodeTclInterface.cc RpUtilsTclInterface.cc])
 TEA_ADD_HEADERS([])
 TEA_ADD_INCLUDES([])

trunk/src/tcl/src/Rappture_Init.cc

@@ -29 +29 @@
 #include "RpUnitsTclInterface.h"
 #include "RpEncodeTclInterface.h"
+#include "RpUtilsTclInterface.h"
 
 #ifdef __cplusplus
@@ -59 +60 @@
     }
 
+    if (RapptureUtils_Init(interp) != TCL_OK) {
+        return TCL_ERROR;
+    }
+
     return TCL_OK;
 }