diff options
| author | Ian Roxborough <irox@redhat.com> | 2001-09-08 21:55:17 +0000 |
|---|---|---|
| committer | Ian Roxborough <irox@redhat.com> | 2001-09-08 21:55:17 +0000 |
| commit | 926d71c5c29102926ff1cf87828cad68a79bce56 (patch) | |
| tree | 5db22f4f17ca5f8c78ab7fffe45a79a617c3f666 /libgui/src/tclsizebox.c | |
| parent | b111a96ea19bde1004ecea63c7827a1d4b0b73ef (diff) | |
| download | gdb-LIBGUI_TCL_8_3.tar.gz | |
libgui import for Tcl/Tk8.3 upgradeLIBGUI_TCL_8_3
Diffstat (limited to 'libgui/src/tclsizebox.c')
| -rw-r--r-- | libgui/src/tclsizebox.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgui/src/tclsizebox.c b/libgui/src/tclsizebox.c index 9a8d30559bf..c10e2e3f9c8 100644 --- a/libgui/src/tclsizebox.c +++ b/libgui/src/tclsizebox.c @@ -112,7 +112,7 @@ sizebox_event_proc (ClientData cd, XEvent *event_ptr) su = (struct sizebox_userdata *) GetWindowLong (hwnd, GWL_USERDATA); SetWindowLong (hwnd, GWL_USERDATA, 0); SetWindowLong (hwnd, GWL_WNDPROC, (LONG) su->wndproc); - Tcl_Free ((char *) su); + ckfree ((char *) su); DestroyWindow (hwnd); } } @@ -149,7 +149,7 @@ sizebox_create (Tk_Window tkwin, Window parent, ClientData cd) pt.x, pt.y, Tk_Width (tkwin), Tk_Height (tkwin), parhwnd, NULL, Tk_GetHINSTANCE (), NULL); - su = (struct sizebox_userdata *) Tcl_Alloc (sizeof *su); + su = (struct sizebox_userdata *) ckalloc (sizeof *su); su->tkwin = tkwin; su->wndproc = (WNDPROC) GetWindowLong (hwnd, GWL_WNDPROC); SetWindowLong (hwnd, GWL_USERDATA, (LONG) su); |