diff options
| author | Shawn O. Pearce <spearce@spearce.org> | 2007-06-02 16:11:26 -0400 |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2007-06-02 20:00:55 -0400 |
| commit | cfb07cca7d9a517fae1bdc741c41c06d150a852f (patch) | |
| tree | d89e549f5011cee5b29a801314155f91ff4a6cf2 | |
| parent | 6309172ea56294d08674cf35df92d6a3fa695480 (diff) | |
| download | git-cfb07cca7d9a517fae1bdc741c41c06d150a852f.tar.gz git-cfb07cca7d9a517fae1bdc741c41c06d150a852f.tar.xz | |
git-gui: Verify Tcl/Tk is new enough for our needs
For quite a while we have been assuming the user is running on
a Tcl/Tk 8.4 or later platform. This may not be the case on
some very old systems. Unfortunately I am pretty far down the
path of using the Tcl/Tk 8.4 commands and options and cannot
easily work around them to support earlier versions of Tcl/Tk.
So we'll check that we are using the correct version up front,
and if not we'll stop with a related error message.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
| -rwxr-xr-x | git-gui.sh | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/git-gui.sh b/git-gui.sh index daee5601b..cc1625bfa 100755 --- a/git-gui.sh +++ b/git-gui.sh @@ -22,6 +22,22 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA} ###################################################################### ## +## Tcl/Tk sanity check + +if {[catch {package require Tcl 8.4} err] + || [catch {package require Tk 8.4} err] +} { + catch {wm withdraw .} + tk_messageBox \ + -icon error \ + -type ok \ + -title "git-gui: fatal error" \ + -message $err + exit 1 +} + +###################################################################### +## ## configure our library set oguilib {@@GITGUI_LIBDIR@@} |