Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | more readable |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
29049e28d23af5326de15f5d15cb7cc3 |
| User & Date: | jan.nijtmans 2012-06-14 07:37:36 |
Context
|
2012-06-14
| ||
| 13:56 | fix fCmd-6.19 on win32, which was broken by [a7e00a0e02] check-in: 8992b49011 user: jan.nijtmans tags: trunk | |
| 07:37 | more readable check-in: 29049e28d2 user: jan.nijtmans tags: trunk | |
| 07:32 | more readable check-in: e39c97211d user: jan.nijtmans tags: core-8-5-branch | |
|
2012-06-12
| ||
| 12:36 | add test that triggered reporting of [Bug 3530230] check-in: 41bb6c4e84 user: dkf tags: trunk | |
Changes
Changes to library/dde/pkgIndex.tcl.
1 |
if {![package vsatisfies [package provide Tcl] 8.5]} return
| | | 1 2 3 4 5 6 7 |
if {![package vsatisfies [package provide Tcl] 8.5]} return
if {[info sharedlibextension] ne ".dll"} return
if {[::tcl::pkgconfig get debug]} {
package ifneeded dde 1.4.0 [list load [file join $dir tcldde14g.dll] dde]
} else {
package ifneeded dde 1.4.0 [list load [file join $dir tcldde14.dll] dde]
}
|
Changes to library/platform/shell.tcl.
| ︙ | ︙ | |||
183 184 185 186 187 188 189 |
} else {
# Success
close $channel
return [file normalize $newname]
}
}
}
| | | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 |
} else {
# Success
close $channel
return [file normalize $newname]
}
}
}
if {$channel != ""} {
return -code error "Failed to open a temporary file: $channel"
} else {
return -code error "Failed to find an unused temporary file name"
}
}
proc ::platform::shell::DIR {} {
|
| ︙ | ︙ |
Changes to library/reg/pkgIndex.tcl.
1 |
if {![package vsatisfies [package provide Tcl] 8.5]} return
| | | 1 2 3 4 5 6 7 8 9 |
if {![package vsatisfies [package provide Tcl] 8.5]} return
if {[info sharedlibextension] ne ".dll"} return
if {[::tcl::pkgconfig get debug]} {
package ifneeded registry 1.3 \
[list load [file join $dir tclreg13g.dll] registry]
} else {
package ifneeded registry 1.3 \
[list load [file join $dir tclreg13.dll] registry]
}
|