15 lines
424 B
Plaintext
15 lines
424 B
Plaintext
--- src/aoe/TclApp.cc.orig Sat Nov 27 18:38:25 1999
|
|
+++ src/aoe/TclApp.cc Sat Nov 27 18:43:51 1999
|
|
@@ -186,9 +186,9 @@
|
|
// Call Tcl function to create a Tcl command
|
|
if (Tcl_CreateCommand(ptInterp,
|
|
pcCommand->getName(),
|
|
- TclCommand::command,
|
|
+ &TclCommand::command,
|
|
(ClientData)pcCommand,
|
|
- TclCommand::cleanUp) == NULL) return 0;
|
|
+ &TclCommand::cleanUp) == NULL) return 0;
|
|
return 1;
|
|
}
|
|
|