chiark
/
gitweb
/
~ian
/
chiark-tcl-applet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
19512a7
)
setimage
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 9 Jun 2012 18:40:26 +0000
(19:40 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sat, 9 Jun 2012 18:40:26 +0000
(19:40 +0100)
applet.tcl
patch
|
blob
|
history
diff --git
a/applet.tcl
b/applet.tcl
index c68d6e91de0ea60c6971f91cec1c34880d214b36..e660bce7acbba766981b75cf9a68ab5052ee2c6c 100644
(file)
--- a/
applet.tcl
+++ b/
applet.tcl
@@
-30,6
+30,12
@@
package require tktray
# applet::tooltip-set TEXT-MAYBE-MULTILINE
# whenever they like.
#
# 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
# 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
}
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 }
}
destroy [frame .i.i.make-exist]
bind .i <<IconConfigure>> { innerwindow-resetup-required IconConfigure }
}
-
-
-
-proc setimage {image} {
- .i configure -image $image
-}