Up-Time counter

Menu "Tools"
    "Up-time",/Q,getUpTime()
end
//___________________________________________________________________________________________________   
// update the up-time panel with the current up-time of Igor
Function upTimeTask(s)      // This is the function that will be called periodically
    STRUCT WMBackgroundStruct &s
 
    SetVariable valdisp0 Win=upTimePanel, value=_STR:Secs2Time(ticks/60,5)
 
    return 0    // Continue background task
end
//___________________________________________________________________________________________________   
// create a panel displaying the current up-time of Igor
Function getUpTime()
        // get up-time panel if it exists
    if (ItemsInList(WinList("upTimePanel",";","WIN:64")))
        DoWindow/F upTimePanel
    else
        // create up-time task
        Variable numTicks = 1 * 60      // 60 ticks = 1 second
        CtrlNamedBackground upTime, period=numTicks, proc=upTimeTask
        CtrlNamedBackground upTime, start
        // create up-time window
        Newpanel/K=1/NA=2/W=(0,0,120,20)/N=upTimePanel as ""
        SetVariable valdisp0, Win=upTimePanel, size={120,20},font='Nexa Light',frame=0, title="Up-Time:",value=_STR:time(),help={"The current up-time of Igor "+num2str(IgorVersion())}
        ModifyPanel/W=upTimePanel, cbRGB=(65534,65534,65534)
        SetWindow upTimePanel, hook(MyHook) = upTimeWindowHook  
    endif
end
//___________________________________________________________________________________________________   
// Stop the background task 
Function StopUpTimeTask()
    CtrlNamedBackground upTime, stop
    dowindow/K upTimePanel
End
//___________________________________________________________________________________________________   
// Stop the background task if the window is killed
Function upTimeWindowHook(s)
    STRUCT WMWinHookStruct &s
 
    Variable hookResult = 0
 
    switch(s.eventCode)
        case 2:             // window killed
            StopUpTimeTask()
            break
 
    endswitch
 
    return hookResult       // 0 if nothing done, else 1
end
//___________________________________________________________________________________________________