diff options
| author | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2010-04-03 06:43:51 +0000 |
|---|---|---|
| committer | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2010-04-03 06:43:51 +0000 |
| commit | f5fc4d52079c0eb2a91e2cbc3c7c23f6554e43cb (patch) | |
| tree | feeec35aaf445ec41d4b1cb9e529a3193b2ad217 /otherlibs/labltk/support/cltkWait.c | |
| parent | ab550592efa74f1f67a705f84251cce7e32a64c6 (diff) | |
fix for tk86 and removal of tkanim
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10230 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/support/cltkWait.c')
| -rw-r--r-- | otherlibs/labltk/support/cltkWait.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/labltk/support/cltkWait.c b/otherlibs/labltk/support/cltkWait.c index a4fdab0c4..4c126b5d2 100644 --- a/otherlibs/labltk/support/cltkWait.c +++ b/otherlibs/labltk/support/cltkWait.c @@ -66,7 +66,7 @@ CAMLprim value camltk_wait_vis(value win, value cbid) vis->win = Tk_NameToWindow(cltclinterp, String_val(win), cltk_mainWindow); if (vis -> win == NULL) { stat_free((char *)vis); - tk_error(cltclinterp->result); + tk_error(Tcl_GetStringResult(cltclinterp)); }; vis->cbid = Int_val(cbid); Tk_CreateEventHandler(vis->win, VisibilityChangeMask, @@ -93,7 +93,7 @@ CAMLprim value camltk_wait_des(value win, value cbid) vis->win = Tk_NameToWindow(cltclinterp, String_val(win), cltk_mainWindow); if (vis -> win == NULL) { stat_free((char *)vis); - tk_error(cltclinterp->result); + tk_error(Tcl_GetStringResult(cltclinterp)); }; vis->cbid = Int_val(cbid); Tk_CreateEventHandler(vis->win, StructureNotifyMask, |