diff options
| author | Shawn O. Pearce <spearce@spearce.org> | 2007-05-28 15:11:56 (GMT) |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2007-05-28 21:50:41 (GMT) |
| commit | 26ae37d6fc9eeec27a0edf98c820b8a0b98e96f3 (patch) | |
| tree | f414203b83dbed3cfd1837de3fe885c1808c9df5 /lib/option.tcl | |
| parent | 5b6ffff644237682c5a20e8ec0a16164bdeb3bfb (diff) | |
| download | git-26ae37d6fc9eeec27a0edf98c820b8a0b98e96f3.zip git-26ae37d6fc9eeec27a0edf98c820b8a0b98e96f3.tar.gz git-26ae37d6fc9eeec27a0edf98c820b8a0b98e96f3.tar.bz2 | |
git-gui: Show the git-gui library path in 'About git-gui'
Because we now try to automatically guess the library directory
in certain installations users may wonder where git-gui is getting
its supporting files from. We now display this location in our
About dialog, and we also include the location we are getting our
Git executables from.
Unfortunately users cannot use this 'About git-gui' dialog to
troubleshoot library loading problems; the dialog is defined by
code that exists in the library directory, creating a catch-22.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
Diffstat (limited to 'lib/option.tcl')
| -rw-r--r-- | lib/option.tcl | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lib/option.tcl b/lib/option.tcl index e06aca5..9f76f02 100644 --- a/lib/option.tcl +++ b/lib/option.tcl @@ -52,7 +52,7 @@ proc save_config {} { } proc do_about {} { - global appvers copyright + global appvers copyright oguilib global tcl_patchLevel tk_patchLevel set w .about_dialog @@ -91,6 +91,10 @@ $copyright" \ append v ", Tk version $tk_patchLevel" } + set d {} + append d "git exec dir: [gitexec]\n" + append d "git-gui lib: $oguilib" + label $w.vers \ -text $v \ -padx 5 -pady 5 \ @@ -100,6 +104,15 @@ $copyright" \ -relief solid pack $w.vers -side top -fill x -padx 5 -pady 5 + label $w.dirs \ + -text $d \ + -padx 5 -pady 5 \ + -justify left \ + -anchor w \ + -borderwidth 1 \ + -relief solid + pack $w.dirs -side top -fill x -padx 5 -pady 5 + menu $w.ctxm -tearoff 0 $w.ctxm add command \ -label {Copy} \ |