summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 41bdcda)
raw | patch | inline | side by side (parent: 41bdcda)
author | Shawn O. Pearce <spearce@spearce.org> | |
Sun, 21 Jan 2007 01:04:02 +0000 (20:04 -0500) | ||
committer | Shawn O. Pearce <spearce@spearce.org> | |
Sun, 21 Jan 2007 07:54:18 +0000 (02:54 -0500) |
Now that we know what version git-gui is, the about dialog should
display it to the end-user. This way users can find out what version
they have before they report a problem or request a feature.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
display it to the end-user. This way users can find out what version
they have before they report a problem or request a feature.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
git-gui.sh | patch | blob | history |
diff --git a/git-gui.sh b/git-gui.sh
index 0770ad03f94bcec4602b932afc94d2c03ba27f5c..212a093118e42d3e31f0e5c25df2eb5655b88a47 100755 (executable)
--- a/git-gui.sh
+++ b/git-gui.sh
}
proc do_about {} {
- global appname copyright
+ global appname appvers copyright
global tcl_patchLevel tk_patchLevel
set w .about_dialog
-font font_ui
pack $w.desc -side top -fill x -padx 5 -pady 5
- set v [exec git --version]
- append v "\n\n"
+ set v {}
+ append v "$appname version $appvers\n\n"
+ append v "[exec git --version]\n\n"
if {$tcl_patchLevel eq $tk_patchLevel} {
append v "Tcl/Tk version $tcl_patchLevel"
} else {