Revision: 44604
http://brlcad.svn.sourceforge.net/brlcad/?rev=44604&view=rev
Author: starseeker
Date: 2011-05-10 19:28:17 +0000 (Tue, 10 May 2011)
Log Message:
-----------
Linux needs Isst_Init
Modified Paths:
--------------
brlcad/trunk/src/adrt/isst_tcltk.c
Modified: brlcad/trunk/src/adrt/isst_tcltk.c
===================================================================
--- brlcad/trunk/src/adrt/isst_tcltk.c 2011-05-10 19:25:36 UTC (rev 44603)
+++ brlcad/trunk/src/adrt/isst_tcltk.c 2011-05-10 19:28:17 UTC (rev 44604)
@@ -623,6 +623,44 @@
}
int
+Isst_Init(Tcl_Interp *interp)
+{
+ if (Tcl_PkgProvide(interp, "isst", "0.1") != TCL_OK) {
+ return TCL_ERROR;
+ }
+
+ /*
+ * Initialize Tcl and the Togl widget module.
+ */
+ if (Tcl_InitStubs(interp, "8.1", 0) == NULL
+ || Togl_InitStubs(interp, "2.0", 0) == NULL) {
+ return TCL_ERROR;
+ }
+
+ /*
+ * Specify the C callback functions for widget creation, display,
+ * and reshape.
+ */
+ Tcl_CreateObjCommand(interp, "isst_init", isst_init, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "isst_zap", isst_zap, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "refresh_ogl", paint_window, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "reshape", reshape, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "load_g", isst_load_g, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "list_g", list_geometry, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "idle", idle, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "aetolookat", aetolookat, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "aerotate", aerotate, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "walk", move_walk, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "strafe", move_strafe, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "float", move_float, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "reset", zero_view, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "set_resolution", set_resolution, NULL, NULL);
+ Tcl_CreateObjCommand(interp, "render_mode", render_mode, NULL, NULL);
+
+ return TCL_OK;
+}
+
+int
Issttcltk_Init(Tcl_Interp *interp)
{
if (Tcl_PkgProvide(interp, "isst", "0.1") != TCL_OK) {
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Achieve unprecedented app performance and reliability
What every C/C++ and Fortran developer should know.
Learn how Intel has extended the reach of its next-generation tools
to help boost performance applications - inlcuding clusters.
http://p.sf.net/sfu/intel-dev2devmay
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
