npm - @zzz0350/ozon-listing-workbench - Versions diffs - 0.5.0 → 1.0.1 - Mend

@zzz0350/ozon-listing-workbench 0.5.0 → 1.0.1

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (1060) hide show

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Noumea DELETED Viewed

@@ -1,12 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-set TZData(:Pacific/Noumea) {
-    {-9223372036854775808 39948 0 LMT}
-    {-1829387148 39600 0 %z}
-    {250002000 43200 1 %z}
-    {257342400 39600 0 %z}
-    {281451600 43200 1 %z}
-    {288878400 39600 0 %z}
-    {849366000 43200 1 %z}
-    {857228400 39600 0 %z}
-}

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Pago_Pago DELETED Viewed

@@ -1,7 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-set TZData(:Pacific/Pago_Pago) {
-    {-9223372036854775808 45432 0 LMT}
-    {-2445424632 -40968 0 LMT}
-    {-1861879032 -39600 0 SST}
-}

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Palau DELETED Viewed

@@ -1,7 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-set TZData(:Pacific/Palau) {
-    {-9223372036854775808 -54124 0 LMT}
-    {-3944624276 32276 0 LMT}
-    {-2177485076 32400 0 %z}
-}

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Pitcairn DELETED Viewed

@@ -1,7 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-set TZData(:Pacific/Pitcairn) {
-    {-9223372036854775808 -31220 0 LMT}
-    {-2177421580 -30600 0 %z}
-    {893665800 -28800 0 %z}
-}

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Pohnpei DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Guadalcanal)]} {
-    LoadTimeZoneFile Pacific/Guadalcanal
-}
-set TZData(:Pacific/Pohnpei) $TZData(:Pacific/Guadalcanal)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Ponape DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Guadalcanal)]} {
-    LoadTimeZoneFile Pacific/Guadalcanal
-}
-set TZData(:Pacific/Ponape) $TZData(:Pacific/Guadalcanal)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Port_Moresby DELETED Viewed

@@ -1,7 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-set TZData(:Pacific/Port_Moresby) {
-    {-9223372036854775808 35320 0 LMT}
-    {-2840176120 35312 0 PMMT}
-    {-2366790512 36000 0 %z}
-}

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Rarotonga DELETED Viewed

@@ -1,33 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-set TZData(:Pacific/Rarotonga) {
-    {-9223372036854775808 48056 0 LMT}
-    {-2209555256 -38344 0 LMT}
-    {-543072056 -37800 0 %z}
-    {279714600 -34200 0 %z}
-    {289387800 -36000 0 %z}
-    {309952800 -34200 1 %z}
-    {320837400 -36000 0 %z}
-    {341402400 -34200 1 %z}
-    {352287000 -36000 0 %z}
-    {372852000 -34200 1 %z}
-    {384341400 -36000 0 %z}
-    {404906400 -34200 1 %z}
-    {415791000 -36000 0 %z}
-    {436356000 -34200 1 %z}
-    {447240600 -36000 0 %z}
-    {467805600 -34200 1 %z}
-    {478690200 -36000 0 %z}
-    {499255200 -34200 1 %z}
-    {510139800 -36000 0 %z}
-    {530704800 -34200 1 %z}
-    {541589400 -36000 0 %z}
-    {562154400 -34200 1 %z}
-    {573643800 -36000 0 %z}
-    {594208800 -34200 1 %z}
-    {605093400 -36000 0 %z}
-    {625658400 -34200 1 %z}
-    {636543000 -36000 0 %z}
-    {657108000 -34200 1 %z}
-    {667992600 -36000 0 %z}
-}

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Saipan DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Guam)]} {
-    LoadTimeZoneFile Pacific/Guam
-}
-set TZData(:Pacific/Saipan) $TZData(:Pacific/Guam)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Samoa DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Pago_Pago)]} {
-    LoadTimeZoneFile Pacific/Pago_Pago
-}
-set TZData(:Pacific/Samoa) $TZData(:Pacific/Pago_Pago)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Tahiti DELETED Viewed

@@ -1,6 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-set TZData(:Pacific/Tahiti) {
-    {-9223372036854775808 -35896 0 LMT}
-    {-1806674504 -36000 0 %z}
-}

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Tarawa DELETED Viewed

@@ -1,6 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-set TZData(:Pacific/Tarawa) {
-    {-9223372036854775808 41524 0 LMT}
-    {-2177494324 43200 0 %z}
-}

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Tongatapu DELETED Viewed

@@ -1,16 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-set TZData(:Pacific/Tongatapu) {
-    {-9223372036854775808 44352 0 LMT}
-    {-767189952 44400 0 %z}
-    {-284041200 46800 0 %z}
-    {915102000 46800 0 %z}
-    {939214800 50400 1 %z}
-    {953384400 46800 0 %z}
-    {973342800 50400 1 %z}
-    {980596800 46800 0 %z}
-    {1004792400 50400 1 %z}
-    {1012046400 46800 0 %z}
-    {1478350800 50400 1 %z}
-    {1484398800 46800 0 %z}
-}

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Truk DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Port_Moresby)]} {
-    LoadTimeZoneFile Pacific/Port_Moresby
-}
-set TZData(:Pacific/Truk) $TZData(:Pacific/Port_Moresby)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Wake DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Tarawa)]} {
-    LoadTimeZoneFile Pacific/Tarawa
-}
-set TZData(:Pacific/Wake) $TZData(:Pacific/Tarawa)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Wallis DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Tarawa)]} {
-    LoadTimeZoneFile Pacific/Tarawa
-}
-set TZData(:Pacific/Wallis) $TZData(:Pacific/Tarawa)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Pacific/Yap DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Port_Moresby)]} {
-    LoadTimeZoneFile Pacific/Port_Moresby
-}
-set TZData(:Pacific/Yap) $TZData(:Pacific/Port_Moresby)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Poland DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Europe/Warsaw)]} {
-    LoadTimeZoneFile Europe/Warsaw
-}
-set TZData(:Poland) $TZData(:Europe/Warsaw)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Portugal DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Europe/Lisbon)]} {
-    LoadTimeZoneFile Europe/Lisbon
-}
-set TZData(:Portugal) $TZData(:Europe/Lisbon)

package/versions/0.5.0/_internal/_tcl_data/tzdata/ROC DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Asia/Taipei)]} {
-    LoadTimeZoneFile Asia/Taipei
-}
-set TZData(:ROC) $TZData(:Asia/Taipei)

package/versions/0.5.0/_internal/_tcl_data/tzdata/ROK DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Asia/Seoul)]} {
-    LoadTimeZoneFile Asia/Seoul
-}
-set TZData(:ROK) $TZData(:Asia/Seoul)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Singapore DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Asia/Singapore)]} {
-    LoadTimeZoneFile Asia/Singapore
-}
-set TZData(:Singapore) $TZData(:Asia/Singapore)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/AST4 DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Puerto_Rico)]} {
-    LoadTimeZoneFile America/Puerto_Rico
-}
-set TZData(:SystemV/AST4) $TZData(:America/Puerto_Rico)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/AST4ADT DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Halifax)]} {
-    LoadTimeZoneFile America/Halifax
-}
-set TZData(:SystemV/AST4ADT) $TZData(:America/Halifax)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/CST6 DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Regina)]} {
-    LoadTimeZoneFile America/Regina
-}
-set TZData(:SystemV/CST6) $TZData(:America/Regina)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/CST6CDT DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Chicago)]} {
-    LoadTimeZoneFile America/Chicago
-}
-set TZData(:SystemV/CST6CDT) $TZData(:America/Chicago)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/EST5 DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Indianapolis)]} {
-    LoadTimeZoneFile America/Indianapolis
-}
-set TZData(:SystemV/EST5) $TZData(:America/Indianapolis)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/EST5EDT DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/New_York)]} {
-    LoadTimeZoneFile America/New_York
-}
-set TZData(:SystemV/EST5EDT) $TZData(:America/New_York)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/HST10 DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Honolulu)]} {
-    LoadTimeZoneFile Pacific/Honolulu
-}
-set TZData(:SystemV/HST10) $TZData(:Pacific/Honolulu)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/MST7 DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Phoenix)]} {
-    LoadTimeZoneFile America/Phoenix
-}
-set TZData(:SystemV/MST7) $TZData(:America/Phoenix)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/MST7MDT DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Denver)]} {
-    LoadTimeZoneFile America/Denver
-}
-set TZData(:SystemV/MST7MDT) $TZData(:America/Denver)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/PST8 DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Pitcairn)]} {
-    LoadTimeZoneFile Pacific/Pitcairn
-}
-set TZData(:SystemV/PST8) $TZData(:Pacific/Pitcairn)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/PST8PDT DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Los_Angeles)]} {
-    LoadTimeZoneFile America/Los_Angeles
-}
-set TZData(:SystemV/PST8PDT) $TZData(:America/Los_Angeles)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/YST9 DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Gambier)]} {
-    LoadTimeZoneFile Pacific/Gambier
-}
-set TZData(:SystemV/YST9) $TZData(:Pacific/Gambier)

package/versions/0.5.0/_internal/_tcl_data/tzdata/SystemV/YST9YDT DELETED Viewed

@@ -1,5 +0,0 @@
-# created by ../tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Anchorage)]} {
-    LoadTimeZoneFile America/Anchorage
-}
-set TZData(:SystemV/YST9YDT) $TZData(:America/Anchorage)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Turkey DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Europe/Istanbul)]} {
-    LoadTimeZoneFile Europe/Istanbul
-}
-set TZData(:Turkey) $TZData(:Europe/Istanbul)

package/versions/0.5.0/_internal/_tcl_data/tzdata/UCT DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Etc/UTC)]} {
-    LoadTimeZoneFile Etc/UTC
-}
-set TZData(:UCT) $TZData(:Etc/UTC)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Alaska DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Anchorage)]} {
-    LoadTimeZoneFile America/Anchorage
-}
-set TZData(:US/Alaska) $TZData(:America/Anchorage)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Aleutian DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Adak)]} {
-    LoadTimeZoneFile America/Adak
-}
-set TZData(:US/Aleutian) $TZData(:America/Adak)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Arizona DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Phoenix)]} {
-    LoadTimeZoneFile America/Phoenix
-}
-set TZData(:US/Arizona) $TZData(:America/Phoenix)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Central DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Chicago)]} {
-    LoadTimeZoneFile America/Chicago
-}
-set TZData(:US/Central) $TZData(:America/Chicago)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/East-Indiana DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Indiana/Indianapolis)]} {
-    LoadTimeZoneFile America/Indiana/Indianapolis
-}
-set TZData(:US/East-Indiana) $TZData(:America/Indiana/Indianapolis)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Eastern DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/New_York)]} {
-    LoadTimeZoneFile America/New_York
-}
-set TZData(:US/Eastern) $TZData(:America/New_York)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Hawaii DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Honolulu)]} {
-    LoadTimeZoneFile Pacific/Honolulu
-}
-set TZData(:US/Hawaii) $TZData(:Pacific/Honolulu)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Indiana-Starke DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Indiana/Knox)]} {
-    LoadTimeZoneFile America/Indiana/Knox
-}
-set TZData(:US/Indiana-Starke) $TZData(:America/Indiana/Knox)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Michigan DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Detroit)]} {
-    LoadTimeZoneFile America/Detroit
-}
-set TZData(:US/Michigan) $TZData(:America/Detroit)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Mountain DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Denver)]} {
-    LoadTimeZoneFile America/Denver
-}
-set TZData(:US/Mountain) $TZData(:America/Denver)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Pacific DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(America/Los_Angeles)]} {
-    LoadTimeZoneFile America/Los_Angeles
-}
-set TZData(:US/Pacific) $TZData(:America/Los_Angeles)

package/versions/0.5.0/_internal/_tcl_data/tzdata/US/Samoa DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Pacific/Pago_Pago)]} {
-    LoadTimeZoneFile Pacific/Pago_Pago
-}
-set TZData(:US/Samoa) $TZData(:Pacific/Pago_Pago)

package/versions/0.5.0/_internal/_tcl_data/tzdata/UTC DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Etc/UTC)]} {
-    LoadTimeZoneFile Etc/UTC
-}
-set TZData(:UTC) $TZData(:Etc/UTC)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Universal DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Etc/UTC)]} {
-    LoadTimeZoneFile Etc/UTC
-}
-set TZData(:Universal) $TZData(:Etc/UTC)

package/versions/0.5.0/_internal/_tcl_data/tzdata/W-SU DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Europe/Moscow)]} {
-    LoadTimeZoneFile Europe/Moscow
-}
-set TZData(:W-SU) $TZData(:Europe/Moscow)

package/versions/0.5.0/_internal/_tcl_data/tzdata/WET DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Europe/Lisbon)]} {
-    LoadTimeZoneFile Europe/Lisbon
-}
-set TZData(:WET) $TZData(:Europe/Lisbon)

package/versions/0.5.0/_internal/_tcl_data/tzdata/Zulu DELETED Viewed

@@ -1,5 +0,0 @@
-# created by tools/tclZIC.tcl - do not edit
-if {![info exists TZData(Etc/UTC)]} {
-    LoadTimeZoneFile Etc/UTC
-}
-set TZData(:Zulu) $TZData(:Etc/UTC)

package/versions/0.5.0/_internal/_tcl_data/word.tcl DELETED Viewed

@@ -1,154 +0,0 @@
-# word.tcl --
-#
-# This file defines various procedures for computing word boundaries in
-# strings. This file is primarily needed so Tk text and entry widgets behave
-# properly for different platforms.
-#
-# Copyright (c) 1996 Sun Microsystems, Inc.
-# Copyright (c) 1998 Scriptics Corporation.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-# The following variables are used to determine which characters are
-# interpreted as white space.
-if {$::tcl_platform(platform) eq "windows"} {
-    # Windows style - any but a Unicode space char
-    if {![info exists ::tcl_wordchars]} {
-	set ::tcl_wordchars {\S}
-    }
-    if {![info exists ::tcl_nonwordchars]} {
-	set ::tcl_nonwordchars {\s}
-    }
-} else {
-    # Motif style - any Unicode word char (number, letter, or underscore)
-    if {![info exists ::tcl_wordchars]} {
-	set ::tcl_wordchars {\w}
-    }
-    if {![info exists ::tcl_nonwordchars]} {
-	set ::tcl_nonwordchars {\W}
-    }
-}
-# Arrange for caches of the real matcher REs to be kept, which enables the REs
-# themselves to be cached for greater performance (and somewhat greater
-# clarity too).
-namespace eval ::tcl {
-    variable WordBreakRE
-    array set WordBreakRE {}
-    proc UpdateWordBreakREs args {
-	# Ignores the arguments
-	global tcl_wordchars tcl_nonwordchars
-	variable WordBreakRE
-	# To keep the RE strings short...
-	set letter $tcl_wordchars
-	set space $tcl_nonwordchars
-	set WordBreakRE(after)		"$letter$space|$space$letter"
-	set WordBreakRE(before)		"^.*($letter$space|$space$letter)"
-	set WordBreakRE(end)		"$space*$letter+$space"
-	set WordBreakRE(next)		"$letter*$space+$letter"
-	set WordBreakRE(previous)	"$space*($letter+)$space*\$"
-    }
-    # Initialize the cache
-    UpdateWordBreakREs
-    trace add variable ::tcl_wordchars write ::tcl::UpdateWordBreakREs
-    trace add variable ::tcl_nonwordchars write ::tcl::UpdateWordBreakREs
-}
-# tcl_wordBreakAfter --
-#
-# This procedure returns the index of the first word boundary after the
-# starting point in the given string, or -1 if there are no more boundaries in
-# the given string. The index returned refers to the first character of the
-# pair that comprises a boundary.
-#
-# Arguments:
-# str -		String to search.
-# start -	Index into string specifying starting point.
-proc tcl_wordBreakAfter {str start} {
-    variable ::tcl::WordBreakRE
-    set result {-1 -1}
-    regexp -indices -start $start -- $WordBreakRE(after) $str result
-    return [lindex $result 1]
-}
-# tcl_wordBreakBefore --
-#
-# This procedure returns the index of the first word boundary before the
-# starting point in the given string, or -1 if there are no more boundaries in
-# the given string. The index returned refers to the second character of the
-# pair that comprises a boundary.
-#
-# Arguments:
-# str -		String to search.
-# start -	Index into string specifying starting point.
-proc tcl_wordBreakBefore {str start} {
-    variable ::tcl::WordBreakRE
-    set result {-1 -1}
-    regexp -indices -- $WordBreakRE(before) [string range $str 0 $start] result
-    return [lindex $result 1]
-}
-# tcl_endOfWord --
-#
-# This procedure returns the index of the first end-of-word location after a
-# starting index in the given string. An end-of-word location is defined to be
-# the first whitespace character following the first non-whitespace character
-# after the starting point. Returns -1 if there are no more words after the
-# starting point.
-#
-# Arguments:
-# str -		String to search.
-# start -	Index into string specifying starting point.
-proc tcl_endOfWord {str start} {
-    variable ::tcl::WordBreakRE
-    set result {-1 -1}
-    regexp -indices -start $start -- $WordBreakRE(end) $str result
-    return [lindex $result 1]
-}
-# tcl_startOfNextWord --
-#
-# This procedure returns the index of the first start-of-word location after a
-# starting index in the given string. A start-of-word location is defined to
-# be a non-whitespace character following a whitespace character. Returns -1
-# if there are no more start-of-word locations after the starting point.
-#
-# Arguments:
-# str -		String to search.
-# start -	Index into string specifying starting point.
-proc tcl_startOfNextWord {str start} {
-    variable ::tcl::WordBreakRE
-    set result {-1 -1}
-    regexp -indices -start $start -- $WordBreakRE(next) $str result
-    return [lindex $result 1]
-}
-# tcl_startOfPreviousWord --
-#
-# This procedure returns the index of the first start-of-word location before
-# a starting index in the given string.
-#
-# Arguments:
-# str -		String to search.
-# start -	Index into string specifying starting point.
-proc tcl_startOfPreviousWord {str start} {
-    variable ::tcl::WordBreakRE
-    set word {-1 -1}
-    if {$start > 0} {
-	regexp -indices -- $WordBreakRE(previous) [string range [string range $str 0 $start] 0 end-1] \
-		result word
-    }
-    return [lindex $word 0]
-}