# 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
uplevel #0 $tooltip_on_vis
}
+#----- simple images -----
+
+proc setimage {image} {
+ .i configure -image $image
+}
+
}
destroy [frame .i.i.make-exist]
bind .i <<IconConfigure>> { innerwindow-resetup-required IconConfigure }
}
-
-
-
-proc setimage {image} {
- .i configure -image $image
-}