diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2019-06-22 06:25:36 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2019-06-22 06:25:36 (GMT) |
| commit | 8bfb3ee2869841799b88a03b53ca7e2b99c5b10c (patch) | |
| tree | 5873ce17036ae1188846175cd250018ce9837c48 /macosx/tkMacOSXServices.c | |
| parent | 779f43bf68b8ce10b9356a7ac83916707c4a780b (diff) | |
| download | tk-8bfb3ee2869841799b88a03b53ca7e2b99c5b10c.zip tk-8bfb3ee2869841799b88a03b53ca7e2b99c5b10c.tar.gz tk-8bfb3ee2869841799b88a03b53ca7e2b99c5b10c.tar.bz2 | |
CONST to const; make code compile
Diffstat (limited to 'macosx/tkMacOSXServices.c')
| -rw-r--r-- | macosx/tkMacOSXServices.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/macosx/tkMacOSXServices.c b/macosx/tkMacOSXServices.c index af40a91..9bc22ea 100644 --- a/macosx/tkMacOSXServices.c +++ b/macosx/tkMacOSXServices.c @@ -157,16 +157,16 @@ ServicesEventProc( int TkMacOSXRegisterServiceWidgetObjCmd( ClientData cd, - Tcl_Interp *ip, + Tcl_Interp *interp, int objc, - Tcl_Obj *CONST objv[]) + Tcl_Obj *const objv[]) { /* * Need proper number of args. */ if (objc != 2) { - Tcl_WrongNumArgs(ip, 1, objv, "path?"); + Tcl_WrongNumArgs(interp, 1, objv, "path?"); return TCL_ERROR; } @@ -176,8 +176,8 @@ TkMacOSXRegisterServiceWidgetObjCmd( Rect bounds; NSRect frame; - Tk_Window path = - Tk_NameToWindow(ip, Tcl_GetString(objv[1]), Tk_MainWindow(ip)); + Tk_Window path = Tk_NameToWindow(interp, + Tcl_GetString(objv[1]), Tk_MainWindow(interp)); if (path == NULL) { return TCL_ERROR; |