summaryrefslogtreecommitdiffstats
path: root/library/tk.tcl
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-05-19 13:43:36 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-05-19 13:43:36 (GMT)
commit44f5fc24fed3e8fce2accea8bd57a5998c3829b5 (patch)
tree6d8cfe3aa5a6267fb32f2cd82f90a6cf44f71186 /library/tk.tcl
parent4c6f36571342ed68e0b7930dc209fb3e5972bf51 (diff)
downloadtk-44f5fc24fed3e8fce2accea8bd57a5998c3829b5.zip
tk-44f5fc24fed3e8fce2accea8bd57a5998c3829b5.tar.gz
tk-44f5fc24fed3e8fce2accea8bd57a5998c3829b5.tar.bz2
Possible fix for [http://core.tcl.tk/tcl/info/4955f5d8a4dce006e063f924bc9709f7850ecb6a|4955f5d8a4]
Diffstat (limited to 'library/tk.tcl')
-rw-r--r--library/tk.tcl16
1 files changed, 8 insertions, 8 deletions
diff --git a/library/tk.tcl b/library/tk.tcl
index c490797..0110fe3 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -24,7 +24,7 @@ namespace eval ::tk {
# The msgcat package is not available. Supply our own
# minimal replacement.
proc mc {src args} {
- tailcall format $src {*}$args
+ return [format $src {*}$args]
}
proc mcmax {args} {
set max 0
@@ -334,35 +334,35 @@ proc ::tk::EventMotifBindings {n1 dummy dummy} {
if {![llength [info commands tk_chooseColor]]} {
proc ::tk_chooseColor {args} {
- tailcall ::tk::dialog::color:: {*}$args
+ return [::tk::dialog::color:: {*}$args]
}
}
if {![llength [info commands tk_getOpenFile]]} {
proc ::tk_getOpenFile {args} {
if {$::tk_strictMotif} {
- tailcall ::tk::MotifFDialog open {*}$args
+ return [::tk::MotifFDialog open {*}$args]
} else {
- tailcall ::tk::dialog::file:: open {*}$args
+ return [::tk::dialog::file:: open {*}$args]
}
}
}
if {![llength [info commands tk_getSaveFile]]} {
proc ::tk_getSaveFile {args} {
if {$::tk_strictMotif} {
- tailcall ::tk::MotifFDialog save {*}$args
+ return [::tk::MotifFDialog save {*}$args]
} else {
- tailcall ::tk::dialog::file:: save {*}$args
+ return [::tk::dialog::file:: save {*}$args]
}
}
}
if {![llength [info commands tk_messageBox]]} {
proc ::tk_messageBox {args} {
- tailcall ::tk::MessageBox {*}$args
+ return [::tk::MessageBox {*}$args]
}
}
if {![llength [info command tk_chooseDirectory]]} {
proc ::tk_chooseDirectory {args} {
- tailcall ::tk::dialog::file::chooseDir:: {*}$args
+ return [::tk::dialog::file::chooseDir:: {*}$args]
}
}