diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-18 10:31:58 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-03-18 10:31:58 (GMT) |
commit | 907b916cca8d7416964c4294cd1679e3c458ec3a (patch) | |
tree | 61f95cacc85e9770c61e3638e9a12969ed056a65 /generic | |
parent | 3734b92b956e72d5e585e98d17e33fdce98e699d (diff) | |
download | tcl-907b916cca8d7416964c4294cd1679e3c458ec3a.zip tcl-907b916cca8d7416964c4294cd1679e3c458ec3a.tar.gz tcl-907b916cca8d7416964c4294cd1679e3c458ec3a.tar.bz2 |
Move "::tcl::clock::configure" to the tcl::unsupported namespace
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. |