Tk Library Source Code

Artifact 8793046f0180f4e52081b874e998063ec21b0ff0:

Attachment "app.patch" to ticket [88507dbd48] added by arjenmarkus 2014-12-15 08:13:36.

---

--- application.tcl
+++ application.tcl
@@ -46,11 +46,15 @@
     return
 }
 
 proc ::diagram::application::showerror {text} {
     global argv0
-    puts stderr "$argv0: $text"
+    if { [llength [package present Tk]] != 1 } {
+        puts stderr "$argv0: $text"
+    } else {
+        tk_messageBox -type ok -icon error -title "Error in application" -message "$argv0: $text"
+    }
     exit 1
 }
 
 # # ## ### ##### ######## ############# #####################
 ## Internal data and status