diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclClock.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c index af977eb..c49b1b4 100644 --- a/generic/tclClock.c +++ b/generic/tclClock.c @@ -146,7 +146,6 @@ static const struct ClockCommand clockCommands[] = { {"milliseconds", ClockMillisecondsObjCmd,TclCompileClockReadingCmd, INT2PTR(2)}, {"scan", ClockScanObjCmd, TclCompileBasicMin1ArgCmd, NULL}, {"seconds", ClockSecondsObjCmd, TclCompileClockReadingCmd, INT2PTR(3)}, - {"configure", ClockConfigureObjCmd, NULL, NULL}, {"ConvertLocalToUTC", ClockConvertlocaltoutcObjCmd, NULL, NULL}, {"GetDateFields", ClockGetdatefieldsObjCmd, NULL, NULL}, {"GetJulianDayFromEraYearMonthDay", @@ -267,6 +266,11 @@ TclClockInit( cmdPtr->compileProc = clockCmdPtr->compileProc ? clockCmdPtr->compileProc : TclCompileBasicMin0ArgCmd; } + cmdPtr = (Command *)Tcl_CreateObjCommand(interp, + "::tcl::unsupported::clock::configure", + ClockConfigureObjCmd, data, NULL); + data->refCount++; + cmdPtr->compileProc = TclCompileBasicMin0ArgCmd; } /* @@ -945,7 +949,7 @@ TimezoneLoaded( * This function is invoked to process the Tcl "::clock::configure" (internal) command. * * Usage: - * ::tcl::clock::configure ?-option ?value?? + * ::tcl::unsupported::clock::configure ?-option ?value?? * * Results: * Returns a standard Tcl result. |