diff options
Diffstat (limited to 'otherlibs/labltk/support/cltkMain.c')
| -rw-r--r-- | otherlibs/labltk/support/cltkMain.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/otherlibs/labltk/support/cltkMain.c b/otherlibs/labltk/support/cltkMain.c index 2853b3856..eb4617a45 100644 --- a/otherlibs/labltk/support/cltkMain.c +++ b/otherlibs/labltk/support/cltkMain.c @@ -95,7 +95,7 @@ CAMLprim value camltk_opentk(value argv) } if (Tcl_Init(cltclinterp) != TCL_OK) - tk_error(cltclinterp->result); + tk_error(Tcl_GetStringResult(cltclinterp)); Tcl_SetVar(cltclinterp, "argv0", String_val (argv0), TCL_GLOBAL_ONLY); { /* Sets argv */ @@ -132,13 +132,13 @@ CAMLprim value camltk_opentk(value argv) } } if (Tk_Init(cltclinterp) != TCL_OK) - tk_error(cltclinterp->result); + tk_error(Tcl_GetStringResult(cltclinterp)); /* Retrieve the main window */ cltk_mainWindow = Tk_MainWindow(cltclinterp); if (NULL == cltk_mainWindow) - tk_error(cltclinterp->result); + tk_error(Tcl_GetStringResult(cltclinterp)); Tk_GeometryRequest(cltk_mainWindow,200,200); } @@ -165,7 +165,7 @@ CAMLprim value camltk_opentk(value argv) if (0 == access(f,R_OK)) if (TCL_OK != Tcl_EvalFile(cltclinterp,f)) { stat_free(f); - tk_error(cltclinterp->result); + tk_error(Tcl_GetStringResult(cltclinterp)); }; stat_free(f); } |