1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--- togl/togl.c.orig 2015-06-23 18:03:50 UTC
+++ togl/togl.c
@@ -709,7 +709,7 @@ int Togl_Init(Tcl_Interp *interp)
}
#endif
- Tcl_CreateCommand(interp, "togl", Togl_Cmd,
+ Tcl_CreateCommand(interp, "togl", (Tcl_CmdProc *)Togl_Cmd,
(ClientData) Tk_MainWindow(interp), NULL);
Tcl_InitHashTable(&CommandTable, TCL_STRING_KEYS);
@@ -941,7 +941,7 @@ int Togl_Configure(Tcl_Interp *interp, s
int oldAuxNumber = togl->AuxNumber;
if (Tk_ConfigureWidget(interp, togl->TkWin, configSpecs,
- argc, argv, (char *)togl, flags) == TCL_ERROR) {
+ argc, (const char **)argv, (char *)togl, flags) == TCL_ERROR) {
return(TCL_ERROR);
}
/*fprintf(stderr,"hier %d %d %d\n", togl->TkWin, togl->Width, togl->Height);*/
@@ -1154,7 +1154,7 @@ static int Togl_Cmd(ClientData clientDat
/* Create command event handler */
togl->widgetCmd = Tcl_CreateCommand(interp, Tk_PathName(tkwin),
- Togl_Widget, (ClientData)togl,
+ (Tcl_CmdProc *)Togl_Widget, (ClientData)togl,
(Tcl_CmdDeleteProc*) ToglCmdDeletedProc);
Tk_CreateEventHandler(tkwin,
ExposureMask | StructureNotifyMask,
|
