-- | This is a very basic system tray widget. That said, it works-- very well since it is based on eggtraymanager.moduleSystem.Taffybar.Systray(systrayNew)whereimportGraphics.UI.GtkimportGraphics.UI.Gtk.Misc.TrayManagersystrayNew::IOWidgetsystrayNew=dobox<-hBoxNewFalse5trayManager<-trayManagerNewJustscreen<-screenGetDefault_<-trayManagerManageScreentrayManagerscreen_<-ontrayManagertrayIconAdded$\w->dowidgetShowAllwboxPackStartboxwPackNatural0_<-ontrayManagertrayIconRemoved$\w->doputStrLn"Tray icon removed"widgetShowAllboxreturn(toWidgetbox)