Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | 3th "load" argument should be Titlecase Fix registry library name for Tcl 9 |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk | main |
| Files: | files | file ages | folders |
| SHA3-256: |
8d9bc901e37c4f273253b5a2630e9545 |
| User & Date: | jan.nijtmans 2024-09-10 19:58:18.513 |
| Original Comment: | 3th "load" argument should be Camelcase Fix registry library name for Tcl 9 |
References
|
2024-09-14
| ||
| 12:16 | Merge [8d9bc901e37c4f27]: 3th "load" argument should be Titlecase Fix registry library name for Tcl ... check-in: 72e1cbdd56 user: pooryorick tags: unchained, INCOMPATIBLE_LICENSE | |
Context
|
2024-09-14
| ||
| 12:16 | Merge [8d9bc901e37c4f27]: 3th "load" argument should be Titlecase Fix registry library name for Tcl ... check-in: 72e1cbdd56 user: pooryorick tags: unchained, INCOMPATIBLE_LICENSE | |
|
2024-09-11
| ||
| 06:31 | Add tcl::idna, expr operators, oo to changes.md check-in: 52a5f4ab95 user: apnadkarni tags: trunk, main | |
|
2024-09-10
| ||
| 19:58 | 3th "load" argument should be Titlecase Fix registry library name for Tcl 9 check-in: 8d9bc901e3 user: jan.nijtmans tags: trunk, main | |
| 19:48 | 3th "load" argument should be Titlecase check-in: e75679b59a user: jan.nijtmans tags: core-8-branch | |
| 13:27 | merge 8.7 check-in: a4c3f6a3e8 user: dgp tags: trunk, main | |
Changes
Changes to library/clock.tcl.
| ︙ | ︙ | |||
667 668 669 670 671 672 673 |
# Helper that checks whether registry module is available (Windows only)
# and loads it on demand.
#
#----------------------------------------------------------------------
proc ::tcl::clock::_hasRegistry {} {
set res 0
if { $::tcl_platform(platform) eq {windows} } {
| | | | | 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 |
# Helper that checks whether registry module is available (Windows only)
# and loads it on demand.
#
#----------------------------------------------------------------------
proc ::tcl::clock::_hasRegistry {} {
set res 0
if { $::tcl_platform(platform) eq {windows} } {
if { [catch { package require registry 1.3 }] } {
# try to load registry directly from root (if uninstalled / development env):
if {[regexp {[/\\]library$} [info library]]} {catch {
load [lindex \
[glob -tails -directory [file dirname [info nameofexecutable]] \
tcl9registry*[expr {[::tcl::pkgconfig get debug] ? {g} : {}}].dll] 0 \
] Registry
}}
}
if { [namespace which -command ::registry] ne "" } {
set res 1
}
}
proc ::tcl::clock::_hasRegistry {} [list return $res]
|
| ︙ | ︙ |