Posted to tcl by kevin_walzer at Tue Oct 06 20:30:28 GMT 2020view pretty
image create photo book -data R0lGODlhDwAPAKIAAP//////AP8AAMDAwICAgAAAAAAAAAAAACwAAAAADwAPAAADSQhA2u5ksPeKABKSCaya29d4WKgERFF0l1IMQCAKatvBJ0OTdzzXI1xMB3TBZAvATtB6NSLKleXi3OBoLqrVgc0yv+DVSEUuFxIAOw== systray create book "Systray sample" {puts "Here is the systray output"} proc modify { } { image create photo page -data R0lGODlhCwAPAKIAAP//////AMDAwICAgAAA/wAAAAAAAAAAACwAAAAACwAPAAADMzi6CzAugiAgDGE68aB0RXgRJBFVX0SNpQlUWfahQOvSsgrX7eZJMlQMWBEYj8iQchlKAAA7 systray modify image page systray modify text "Modified text" systray modfiy callback {puts "this is a different output"} } proc notification {args} { sysnotify "Alert" "This is an alert" } pack [button .b1 -text "Modify" -image book -command modify] pack [button .b2 -text "Notify" -command notification pack [button .b3 -text "Destroy" -command {systray destroy}]