twapi systemtrayの使い方
をテンプレートにして作成
[
Front page
] [
Page list
|
Search
|
Recent changes
|
RSS of recent changes
]
Start:
*''twapi::systemtray'' [#eb297666]
システムトレイは[[winico:http://tktable.sourceforge.net/w...
**アイコンを読み込む関連(twapi/resource.tcl参照) [#e66499...
,::twapi::load_icon_from_file,ファイルからicoを読み込む
,::twapi::load_icon_from_module,DLLやEXEからicoを読み込む
,::twapi::load_icon_from_system,システムOEMからicoを読み...
,::twapi::free_icon,アイコンのハンドルを解放
マニュアル:http://twapi.sourceforge.net/resource.html
**システムトレイ関連(twapi/shell.tcl参照) [#m129aa22]
,::twapi::systemtray addicon,システムトレイにアイコン追加...
,::twapi::systemtray modifyicon,idのパラメータ(アイコン...
,::twapi::systemtray removeicon,システムトレイから削除
マニュアル:http://twapi.sourceforge.net/shell.html
これだけ。引数のパラメータや定数はresource.tcl、shell.tcl...
アイコンをロードして、そのアイコンのハンドルをsystemtray...
**サンプル [#nf722027]
クリックでアイコンの切り替え、ダブルクリックでメッセージ...
package require Tk
package require twapi
set state 1
set ico1 [twapi::load_icon_from_system INFORMATION]
set ico2 [twapi::load_icon_from_system WARNING]
proc ico_hook {id type loc time} {
puts $id,$type,$loc,$time
switch $type {
lbuttonup {
switch_state
update_systemtray $id
}
lbuttondblclk {
tk_messageBox -message "Ouch!"
}
contextmenu {
$::popup post {*}$loc
}
}
}
proc quit {id} {
twapi::systemtray removeicon $id
exit
}
proc switch_state {} {
if {$::state == 1} {
set ::state 2
} else {
set ::state 1
}
}
proc update_systemtray {id} {
twapi::systemtray modifyicon $id -hicon [set ::ico$:...
}
wm withdraw .
set id [twapi::systemtray addicon $ico1 ico_hook]
update_systemtray $id
set ::popup [menu .popup -tearoff 0]
$::popup add command -label "Exit" -command {
quit $id
}
**コメントをどーぞ [#d0577ca8]
#comment
----
[[CategoryTclTk]]
End:
*''twapi::systemtray'' [#eb297666]
システムトレイは[[winico:http://tktable.sourceforge.net/w...
**アイコンを読み込む関連(twapi/resource.tcl参照) [#e66499...
,::twapi::load_icon_from_file,ファイルからicoを読み込む
,::twapi::load_icon_from_module,DLLやEXEからicoを読み込む
,::twapi::load_icon_from_system,システムOEMからicoを読み...
,::twapi::free_icon,アイコンのハンドルを解放
マニュアル:http://twapi.sourceforge.net/resource.html
**システムトレイ関連(twapi/shell.tcl参照) [#m129aa22]
,::twapi::systemtray addicon,システムトレイにアイコン追加...
,::twapi::systemtray modifyicon,idのパラメータ(アイコン...
,::twapi::systemtray removeicon,システムトレイから削除
マニュアル:http://twapi.sourceforge.net/shell.html
これだけ。引数のパラメータや定数はresource.tcl、shell.tcl...
アイコンをロードして、そのアイコンのハンドルをsystemtray...
**サンプル [#nf722027]
クリックでアイコンの切り替え、ダブルクリックでメッセージ...
package require Tk
package require twapi
set state 1
set ico1 [twapi::load_icon_from_system INFORMATION]
set ico2 [twapi::load_icon_from_system WARNING]
proc ico_hook {id type loc time} {
puts $id,$type,$loc,$time
switch $type {
lbuttonup {
switch_state
update_systemtray $id
}
lbuttondblclk {
tk_messageBox -message "Ouch!"
}
contextmenu {
$::popup post {*}$loc
}
}
}
proc quit {id} {
twapi::systemtray removeicon $id
exit
}
proc switch_state {} {
if {$::state == 1} {
set ::state 2
} else {
set ::state 1
}
}
proc update_systemtray {id} {
twapi::systemtray modifyicon $id -hicon [set ::ico$:...
}
wm withdraw .
set id [twapi::systemtray addicon $ico1 ico_hook]
update_systemtray $id
set ::popup [menu .popup -tearoff 0]
$::popup add command -label "Exit" -command {
quit $id
}
**コメントをどーぞ [#d0577ca8]
#comment
----
[[CategoryTclTk]]
Page:
HTML convert time: 0.003 sec.