[92ab429295]: Add new subcommand [tk systray exists] to [tk systray]. Patch from Emiliano Gavilan.

1 files changed, 7 insertions, 2 deletions

diff --git a/library/systray.tcl b/library/systray.tcl
index ada0721..66bf460 100644
--- a/library/systray.tcl
+++ b/library/systray.tcl
@@ -110,7 +110,7 @@ namespace eval ::tk::systray {
 	}
     }
 
-    namespace export create configure destroy
+    namespace export create configure destroy exists
     namespace ensemble create
 }
 
@@ -393,7 +393,6 @@ proc ::tk::systray::configure {args} {
     }
 }
 
-
 # Remove the systray icon.
 proc ::tk::systray::destroy {} {
     variable _created
@@ -420,6 +419,12 @@ proc ::tk::systray::destroy {} {
     return
 }
 
+# Check systray icon existence.
+proc tk::systray::exists {} {
+    variable _created
+    return $_created
+}
+
 # Check systray options
 proc ::tk::systray::_check_options {argsList singleOk} {
     variable _options