summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: ae6ec61)
raw | patch | inline | side by side (parent: ae6ec61)
author | Bert Wesarg <bert.wesarg@googlemail.com> | |
Tue, 23 Nov 2010 07:37:50 +0000 (08:37 +0100) | ||
committer | Pat Thoyts <patthoyts@users.sourceforge.net> | |
Wed, 19 Oct 2011 13:13:15 +0000 (14:13 +0100) |
Ensure the browser path is shown on the title with a / suffix and escape
any backslashes or newlines in path elements before display.
Signed-off-by: Bert Wesarg <bert.wesarg@googlemail.com>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
any backslashes or newlines in path elements before display.
Signed-off-by: Bert Wesarg <bert.wesarg@googlemail.com>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
lib/browser.tcl | patch | blob | history |
diff --git a/lib/browser.tcl b/lib/browser.tcl
index a8c622351167be937b9f02df149a1a6ec2a16e98..0328338fda22c90c674630e0351982ff1bb2fbc4 100644 (file)
--- a/lib/browser.tcl
+++ b/lib/browser.tcl
wm withdraw $top
wm title $top [append "[appname] ([reponame]): " [mc "File Browser"]]
+ if {$path ne {}} {
+ if {[string index $path end] ne {/}} {
+ append path /
+ }
+ }
+
set browser_commit $commit
- set browser_path $browser_commit:$path
+ set browser_path "$browser_commit:[escape_path $path]"
${NS}::label $w.path \
-textvariable @browser_path \