From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 9 Jun 2012 18:40:26 +0000 (+0100)
Subject: setimage
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl-applet.git;a=commitdiff_plain;h=e83279661ca71a95d236df97655761f6d77b4fd8

setimage
---

diff --git a/applet.tcl b/applet.tcl
index c68d6e9..e660bce 100644
--- a/applet.tcl
+++ b/applet.tcl
@@ -30,6 +30,12 @@ package require tktray
 #      applet::tooltip-set TEXT-MAYBE-MULTILINE
 #   whenever they like.
 #
+# Icon:
+#
+#  Caller should call:
+#      applet::setimage IMAGE
+#  as necessary.
+#
 # Inner window subprocess:
 #
 #  Caller that needs access to inner window should define
@@ -162,6 +168,12 @@ proc tooltip-show {x y} {
     uplevel #0 $tooltip_on_vis
 }
 
+#----- simple images -----
+
+proc setimage {image} {
+    .i configure -image $image
+}
+
 }
 
 
@@ -215,9 +227,3 @@ proc setupinnerwindow {w} {
     destroy [frame .i.i.make-exist]
     bind .i <<IconConfigure>> { innerwindow-resetup-required IconConfigure }
 }
-
-
-
-proc setimage {image} {
-    .i configure -image $image
-}