Posted to tcl by kevin_walzer at Tue Oct 20 11:25:22 GMT 2020view pretty
global iconmenu set iconmenu .menubar menu $iconmenu $iconmenu add command -label "Status" -command { puts "status icon clicked" } $iconmenu add command -label "Exit" -command exit image create photo book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw== pack [button .b1 -text "Modify" -image book -command modify] pack [button .b2 -text "Notify" -command notify] pack [button .b3 -text "Destroy" -command {tk systray destroy}] tk systray create book "Systray sample" {puts "foo"} {tk_popup $iconmenu [winfo pointerx .] [winfo pointery .]} proc modify { } { image create photo page -data R0lGODlhCwAPAKIAAP//////AMDAwICAgAAA/wAAAAAAAAAAACwAAAAACwAPAAADMzi6CzAugiAgDGE68aB0RXgRJBFVX0SNpQlUWfahQOvSsgrX7eZJMlQMWBEYj8iQchlKAAA7 tk systray modify image page tk systray modify text "Modified text" tk systray modify b1_callback {puts "this is a different output"} tk systray modify b3_callback {puts "hello yall"} } proc notify {} { tk sysnotify "Alert" "This is an alert" }