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}]