X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=blobdiff_plain;f=lib%2Fchoose_rev.tcl;h=c8821c146386f850c0794df70f605cd9f18dcff3;hb=fbbdaa5f425417e7fee83f543b1d03806f034cab;hp=5e833a53764ad495f5d7753eb52673e02b73289e;hpb=4baba57f8d7bfee85ca1e521e1f6069923504799;p=git.git diff --git a/lib/choose_rev.tcl b/lib/choose_rev.tcl index 5e833a537..c8821c146 100644 --- a/lib/choose_rev.tcl +++ b/lib/choose_rev.tcl @@ -314,7 +314,7 @@ method commit_or_die {} { } set top [winfo toplevel $w] - set msg [append [mc "Invalid revision: %s" [get $this]] "\n\n$err"] + set msg [strcat [mc "Invalid revision: %s" [get $this]] "\n\n$err"] tk_messageBox \ -icon error \ -type ok \ @@ -451,7 +451,8 @@ method _sb_set {sb orient first last} { focus $old_focus } } - $sb set $first $last + + catch {$sb set $first $last} } method _show_tooltip {pos} {