229ea01b19
- Pass maintainership to submitter PR: 118786 Submitted by: Pietro Cerutti <gahr@gahr.ch>
29 lines
1.1 KiB
C
29 lines
1.1 KiB
C
--- togl/togl.c.orig 2007-12-17 19:12:44.000000000 +0100
|
|
+++ togl/togl.c 2007-12-17 19:14:18.000000000 +0100
|
|
@@ -709,7 +709,7 @@
|
|
}
|
|
#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 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 @@
|
|
|
|
/* 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,
|