AutoScaler Panel for Table Column

// Creates a panel with a checkbox and value display
// Checking the box will auto-scale a wave in the first
// column of a table by factors in orders of magnitude
// Put in procedure window and type AutoScaler() to show panel
// Must have an active table with the first column as a numeric wave
 
Function AutoScaler()
    NewPanel /W=(292,129,494,204) as "AutoScaler"
    CheckBox scaleit,pos={12,16},size={173,19},proc=CheckProc,title="Auto-Scale 1st Column"
    CheckBox scaleit,fSize=14,value= 0
    ValDisplay scalefactor,pos={18,41},size={150,20},title="Scale x10^",fSize=14
    ValDisplay scalefactor,limits={0,0,0},barmisc={0,1000},value= #"1"
    return 0
end
 
Function CheckProc(cba) : CheckBoxControl
    STRUCT WMCheckboxAction &cba
    
    string theOne
    variable itsScale
 
    switch( cba.eventCode )
        case 2: // mouse up
            theOne=StringFromList(0,WinList("*",";","WIN:2"))
                        // no table windows active
            if (strlen(theOne)==0)
                Checkbox scaleit, value=0
                ValDisplay scalefactor, value=_NUM:1
                break
            endif
            wave theWave = WaveRefIndexed(theOne,0,3)
                        // no waves in table
            if (!WaveExists(theWave))
                Checkbox scaleit, value=0
                ValDisplay scalefactor, value=_NUM:1
                break
            endif
                        // first wave is not numeric        
            if (WaveType(theWave,1)!=1)
                Checkbox scaleit, value=0
                ValDisplay scalefactor, value=_NUM:1
                break
            endif
                        // checked or unchecked action
            if (cba.checked)
                itsScale = round( log(WaveMax(theWave)))
                ValDisplay scalefactor, value=_NUM:itsScale
            else
                ControlInfo scalefactor
                itsScale = -V_value
                ValDisplay scalefactor, value=_NUM:1                
            endif
            theWave /= 10^itsScale
            break
    endswitch
 
    return 0
end