Set Igor Sleep Meter

// Igor Sleep Meter
//
// Creates a slider that can be used to adjust the relative attention level given to Igor
// This procedure only has use under MacOS, not Windows
// Higher values of sleep mean Igor spends less time looking for something to do
// A value of ZERO gives full time to Igor as a foreground application

#pragma rtGlobals=1

Function SetIgorSleep()
    if (WinType("IgorSleep")==0)
        NewPanel/W=(150,50,217,171)/K=1/N=IgorPower as "IgorSleep"
        Slider Power,pos={7,21},size={47,80},proc=SleepNumber,limits={0,20,1},value= 1
    endif
    SetProcessSleep 1
End

Function SleepNumber(sa) : SliderControl
    STRUCT WMSliderAction &sa
   
    switch( sa.eventCode )
        case -1: // kill
            SetProcessSleep 1
            break
        default:
            if( sa.eventCode & 1 ) // value set
                SetProcessSleep sa.curval
            endif
            break
    endswitch

    return 0
End