Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Merge [8d9bc901e37c4f27]: 3th "load" argument should be Titlecase Fix registry library name for Tcl 9. |
|---|---|
| Timelines: | family | ancestors | descendants | both | unchained | INCOMPATIBLE_LICENSE |
| Files: | files | file ages | folders |
| SHA3-256: |
72e1cbdd569213e741793bf582180c37 |
| User & Date: | pooryorick 2024-09-14 12:16:03.743 |
Context
|
2024-09-14
| ||
| 12:24 | Add generci/tclDate.h. check-in: 5d0a381167 user: pooryorick tags: unchained, INCOMPATIBLE_LICENSE | |
| 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 | |
| 12:14 | Further fix to fossil tracking to that merging clock.tcl from trunk affects clock.tcl, not clockclas... check-in: 045cc4e183 user: pooryorick tags: unchained, INCOMPATIBLE_LICENSE | |
|
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 | |
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]
|
| ︙ | ︙ |