Index: library/systray.tcl
==================================================================
--- library/systray.tcl
+++ library/systray.tcl
@@ -108,11 +108,11 @@
 		uplevel #0 [dict get $_current -button3]
 	    }
 	}
     }
 
-    namespace export create configure destroy
+    namespace export create configure destroy exists
     namespace ensemble create
 }
 
 
 # Pure-Tcl system notification window for use if native implementation not available.
@@ -320,10 +320,15 @@
     }
     set _created 0
     set _current {}
     return
 }
+
+proc tk::systray::exists {} {
+    variable _created
+    return $_created
+}
 
 # Check systray options
 proc ::tk::systray::_check_options {argsList singleOk} {
     variable _options
 

