diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2021-03-02 16:29:37 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2021-03-02 16:29:37 +0000 |
| commit | 616f8e79872ffbec55d54a3dd50a5e7c12df531e (patch) | |
| tree | a161afe04b7f6fe85d431035954f953ebbfafc04 /Master/tlpkg/tltcl/lib/tk8.6/bgerror.tcl | |
| parent | 9f5b17da86ecb1e3dc760d0cf781062ba16460a7 (diff) | |
Updated Tcl/Tk
git-svn-id: svn://tug.org/texlive/trunk@58056 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/bgerror.tcl')
| -rw-r--r-- | Master/tlpkg/tltcl/lib/tk8.6/bgerror.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/bgerror.tcl b/Master/tlpkg/tltcl/lib/tk8.6/bgerror.tcl index 84219247605..fe8dfe0410e 100644 --- a/Master/tlpkg/tltcl/lib/tk8.6/bgerror.tcl +++ b/Master/tlpkg/tltcl/lib/tk8.6/bgerror.tcl @@ -41,7 +41,7 @@ proc ::tk::dialog::error::Details {} { set w .bgerrorDialog set caption [option get $w.function text {}] set command [option get $w.function command {}] - if { ($caption eq "") || ($command eq "") } { + if {($caption eq "") || ($command eq "")} { grid forget $w.function } lappend command [$w.top.info.text get 1.0 end-1c] @@ -50,7 +50,7 @@ proc ::tk::dialog::error::Details {} { } proc ::tk::dialog::error::SaveToLog {text} { - if { $::tcl_platform(platform) eq "windows" } { + if {$::tcl_platform(platform) eq "windows"} { set allFiles *.* } else { set allFiles * @@ -129,11 +129,11 @@ proc ::tk::dialog::error::bgerror {err {flag 1}} { set lines 0 set maxLine 45 foreach line [split $err \n] { - if { [string length $line] > $maxLine } { - append displayedErr "[string range $line 0 [expr {$maxLine-3}]]..." + if {[string length $line] > $maxLine} { + append displayedErr "[string range $line 0 $maxLine-3]..." break } - if { $lines > 4 } { + if {$lines > 4} { append displayedErr "..." break } else { @@ -182,7 +182,7 @@ proc ::tk::dialog::error::bgerror {err {flag 1}} { pack $W.text -side left -expand yes -fill both $W.text insert 0.0 "$err\n$info" $W.text mark set insert 0.0 - bind $W.text <ButtonPress-1> { focus %W } + bind $W.text <Button-1> {focus %W} $W.text configure -state disabled # 2. Fill the top part with bitmap and message |