Condensing Code for Similar Functions

Function CheckProc(cba) : CheckBoxControl
    STRUCT WMCheckboxAction &cba

    switch( cba.eventCode )
        case 2: // mouse up
            Variable checked = cba.checked
            strswitch(cba.ctrlName)
                case "checkbox01":
                    // do checkbox01 actions
                    ...
                    break
                case "checkbox02":
                    // do checkbox02 actions
                    ...
                    break
                ...
            endswitch
           
            break
        case -1: // control being killed
            break
    endswitch

    return 0
End

Function LotsOCBPanel() : Panel

    String sCB_Name
    String sCB_BaseName = "CB_check"
    String sCB_VariableName
    String sCB_VariableBaseName = "vCBval"
    String sDataFolder = "root:CheckBoxPanel"
    String sProcName
    String sProcBaseName = "cbProc"
   
    Variable vCB_Position = 0
    Variable vIndex = 0
   
    NewDataFolder/O $sDataFolder    //for checkbox variables
   
    PauseUpdate; Silent 1       // building window...
    NewPanel /W=(403,135,777,485)
   
    Do
        sCB_Name = sCB_BaseName + num2str(vIndex)
        sCB_VariableName = sDataFolder + ":" + sCB_VariableBaseName + num2str(vIndex)
        sProcName = sProcBaseName //+ num2str(vIndex) //use this if there's a proc for each checkbox
        vCB_Position += 20  //y position of checkbox
        Variable/G $(sCB_VariableName) = 1 //create global variable for each checkbox, initial value is checked
        CheckBox $sCB_Name,pos={1,vCB_Position},size={40,14},variable= $sCB_VariableName
        CheckBox $sCB_Name,title=sCB_Name, proc=$sProcName
        vIndex += 1
    While(vIndex<5)
End


Function cbProc(cba) : CheckBoxControl
    STRUCT WMCheckboxAction &cba
   
    String sCtrlName = cba.ctrlName
    switch( cba.eventCode )
        case 2: // mouse up
            print cba.ctrlName
            print cba.checked
            break
        case -1: // control being killed
            break
    endswitch

    return 0
End

Function check01(x)
   variable x
   ...
end

Function check02(x)
   variable x
   ...
end

Function CheckProc(cba) : CheckBoxControl
    STRUCT WMCheckboxAction &cba

        variable x = 2
    switch( cba.eventCode )
        case 2: // mouse up
            Variable checked = cba.checked
                        FUNCREF myprotofunc f = $cba.ctrlName
                        f(x)
            break
        case -1: // control being killed
            break
    endswitch
 
    return 0
End