Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Possible fix for 4955f5d8a4 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | bug-4955f5d8a4 |
| Files: | files | file ages | folders |
| SHA1: |
3322b5d9befabfcb98b7f37217fd5579 |
| User & Date: | jan.nijtmans 2014-05-19 13:43:36 |
Context
|
2014-05-22
| ||
| 20:24 | merge trunk Closed-Leaf check-in: c24e8f56 user: jan.nijtmans tags: bug-4955f5d8a4 | |
| 14:46 | Make the "scrollbar" a real Tcl_Obj-based command. No change in functionality. check-in: 896837ef user: jan.nijtmans tags: scrollbar-obj-cmd | |
|
2014-05-19
| ||
| 13:43 | Possible fix for 4955f5d8a4 check-in: 3322b5d9 user: jan.nijtmans tags: bug-4955f5d8a4 | |
|
2014-04-09
| ||
| 09:28 | Provide full Tk patchlevel to tk.pc and move private libs to "Libs.private". Supply both the shared library and the stub library to "Libs": Only one of them will actually be linked in, depending on whether -DUSE_TCL_STUBS is defined or not. check-in: db84bd2b user: jan.nijtmans tags: trunk | |
Changes
Changes to library/tk.tcl.
| ︙ | ︙ | |||
20 21 22 23 24 25 26 |
# Set up the msgcat commands
namespace eval msgcat {
namespace export mc mcmax
if {[interp issafe] || [catch {package require msgcat}]} {
# The msgcat package is not available. Supply our own
# minimal replacement.
proc mc {src args} {
| | | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
# Set up the msgcat commands
namespace eval msgcat {
namespace export mc mcmax
if {[interp issafe] || [catch {package require msgcat}]} {
# The msgcat package is not available. Supply our own
# minimal replacement.
proc mc {src args} {
return [format $src {*}$args]
}
proc mcmax {args} {
set max 0
foreach string $args {
set len [string length $string]
if {$len>$max} {
set max $len
|
| ︙ | ︙ | |||
330 331 332 333 334 335 336 |
#----------------------------------------------------------------------
# Define common dialogs on platforms where they are not implemented
# using compiled code.
#----------------------------------------------------------------------
if {![llength [info commands tk_chooseColor]]} {
proc ::tk_chooseColor {args} {
| | | | | | | | | 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 |
#----------------------------------------------------------------------
# Define common dialogs on platforms where they are not implemented
# using compiled code.
#----------------------------------------------------------------------
if {![llength [info commands tk_chooseColor]]} {
proc ::tk_chooseColor {args} {
return [::tk::dialog::color:: {*}$args]
}
}
if {![llength [info commands tk_getOpenFile]]} {
proc ::tk_getOpenFile {args} {
if {$::tk_strictMotif} {
return [::tk::MotifFDialog open {*}$args]
} else {
return [::tk::dialog::file:: open {*}$args]
}
}
}
if {![llength [info commands tk_getSaveFile]]} {
proc ::tk_getSaveFile {args} {
if {$::tk_strictMotif} {
return [::tk::MotifFDialog save {*}$args]
} else {
return [::tk::dialog::file:: save {*}$args]
}
}
}
if {![llength [info commands tk_messageBox]]} {
proc ::tk_messageBox {args} {
return [::tk::MessageBox {*}$args]
}
}
if {![llength [info command tk_chooseDirectory]]} {
proc ::tk_chooseDirectory {args} {
return [::tk::dialog::file::chooseDir:: {*}$args]
}
}
#----------------------------------------------------------------------
# Define the set of common virtual events.
#----------------------------------------------------------------------
|
| ︙ | ︙ |