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