Winico 官方文档#
名字#
winico
Windows Icon extension for Tcl/Tk
概要#
软件包需要
Tcl 8.4
软件包需要
winico 0.6
描述#
Winico
是一个扩展,它为Windows
下的Tk
应用程序提供了对图标的增强处理。这包括从图标文件和可执行资源加载图标,还提供任务栏图标管理。
例子#
% winico createfrom icons/smiley.ico
ico#5
% winico info ico#5
{-pos 0 -width 32 -height 32 -geometry 32x32 -bpp 4 -hicon 0x670081 -ptr 0xf99884} {-pos 1 -width 16 -height 16 -geometry 16x16 -bpp 4 -hicon 0xad01b4 -ptr 0xf99884}
set contextmenu [menu .popup -tearoff 0]
...
winico taskbar add ico#1 -pos 1 -text "big tcp server" -callback "mytclproc $contextmenu %m %i %X %Y"
...
proc mytclproc {contextmenu msg ico x y } {
if { $msg=="WM_RBUTTONUP" } {
$contextmenu post $x $y
}
}
示例#
import tkinter
import os.path
import sys
def event(evt, id, icon, x, y):
if evt == "WM_RBUTTONDOWN":
menu = tkinter.Menu(tearoff=False)
menu.add_command(label="Quit", command=root.quit)
menu.tk_popup(x, y)
root = tkinter.Tk()
root.tk.call('package', 'require', 'Winico') # 导入Winico
icon = root.tk.call('winico', 'createfrom', os.path.split(sys.executable)[0] + "\\tcl\\pkg\\tkchat.ico") # 设置图标
root.tk.call('winico', 'taskbar', "add", icon,
'-callback', (root.register(event), '%m', '%i', root, '%x', '%y'), # 设置托盘事件
'-pos', 0,
'-text', "Winico") # 设置托盘提示文本
root.mainloop()
作者#
Leo Schubert
利奥·舒伯特
Brueckner&Jarosch Ing.-GmbH
布鲁克纳&雅罗斯奇·宁。
Modifications by Pat Thoyts.
帕特·索伊斯的修改。
关键字#
icons
system tray
taskbar
版权#
版权所有 © 1997-1998
Brueckner&Jarosch