!7

cmodule FreeDiskSpaceTrayIcon > DynBigNumber {
  switchable bool inGigabytes = true;
  transient JLabel lbl;

  start {
    setDescription("FREE DISK");
    dm_addTrayIcon(onLeftClick(rThread dm_showModule, lbl = jlabel()));
    componentPopupMenuItems(lbl,
      "Show Module", rThread dm_showModule,
      "Remove", rThread dm_deleteModule);
    doEveryAndNow(5000, r actualUpdate);
  }
  
  void actualUpdate {
    //time "FDS" { // 0-1 ms
      setValue(str_toGBorMB(inGigabytes, freeDiskSpace()));
      setText(lbl, "[" + value + "]");
      toolTip(lbl, "Free space on home partition: " + value);
    //}
  }
}