Revision: 77286
http://sourceforge.net/p/brlcad/code/77286
Author: starseeker
Date: 2020-09-30 15:24:43 +0000 (Wed, 30 Sep 2020)
Log Message:
-----------
Report what happened if Tcl or Tk didn't initialize
Modified Paths:
--------------
brlcad/branches/thirdparty_rework/src/libtclcad/init.c
Modified: brlcad/branches/thirdparty_rework/src/libtclcad/init.c
===================================================================
--- brlcad/branches/thirdparty_rework/src/libtclcad/init.c 2020-09-30
15:24:05 UTC (rev 77285)
+++ brlcad/branches/thirdparty_rework/src/libtclcad/init.c 2020-09-30
15:24:43 UTC (rev 77286)
@@ -88,6 +88,8 @@
return TCL_OK;
if (Tcl_Init(interp) == TCL_ERROR) {
+ if (tlog)
+ bu_vls_printf(tlog, "Tcl init ERROR:\n%s\n",
Tcl_GetStringResult(interp));
return TCL_ERROR;
}
@@ -94,6 +96,8 @@
if (init_gui) {
#ifdef HAVE_TK
if (Tk_Init(interp) == TCL_ERROR) {
+ if (tlog)
+ bu_vls_printf(tlog, "Tk init ERROR:\n%s\n",
Tcl_GetStringResult(interp));
return TCL_ERROR;
}
#endif
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
