summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/error.tcl6
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/error.tcl b/lib/error.tcl
index 45800d5..08a2462 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} {