diff options
| -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 45800d549..08a24622c 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} { |