diff options
| author | Shawn O. Pearce <spearce@spearce.org> | 2008-02-22 01:40:25 -0500 |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2008-02-22 01:40:25 -0500 |
| commit | b5e2f805e6bdbaae629399fea92deb053f4ca7cd (patch) | |
| tree | 420f06c14d8b90a472aeea048bc400f1fed6fada /lib/error.tcl | |
| parent | afdb4be0fc48da74e8f02fe5ca22777cb2d214ed (diff) | |
| parent | 3baee1f3bf8e30f0fc67bbb1a49877bf0660fd29 (diff) | |
| download | git-b5e2f805e6bdbaae629399fea92deb053f4ca7cd.tar.xz | |
Merge branch 'maint'
* maint:
git-gui: Focus insertion point at end of strings in repository chooser
git-gui: Avoid hardcoded Windows paths in Cygwin package files
git-gui: Default TCL_PATH to same location as TCLTK_PATH
git-gui: Paper bag fix error dialogs opening over the main window
Diffstat (limited to 'lib/error.tcl')
| -rw-r--r-- | lib/error.tcl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/error.tcl b/lib/error.tcl index 45800d5493..08a24622c7 100644 --- a/lib/error.tcl +++ b/lib/error.tcl @@ -2,7 +2,11 @@ # Copyright (C) 2006, 2007 Shawn Pearce proc _error_parent {} { - return [grab current .] + set p [grab current .] + if {$p eq {}} { + return . + } + return $p } proc error_popup {msg} { |