Updating the upper limit of a second set variable limits control

Share icon

Hi all,

I am just wondering is there any way to set the upper limit of a second setvariable control which will be consequently updated after I insert the value of the first setvariable and do some stuff using a button control i.e. I want the upper limit of the second setvariable will be the value of the first setvariable? 

I am attacing a portion of the code to make it clear what I want to do.

#pragma TextEncoding = "MacRoman"
#pragma rtGlobals=3     // Use modern global access method and strict wave access.
 
Menu "Macros"
 "My Joint Histo Panel Creation", MyHisData()//MyJointHisData()//MyJoinHistoPanel()
End
 
Function MyHisData()
 
    Make/O/N=5000000 timeData=30+gnoise(10)
    Make/O/N=5000000 energyData=1000+gnoise(10)
    
    
   Variable/G gtimeBin = 50
   Variable/G genergyBin = 50
    
   JointHistogram/BINS={gtimeBin, genergyBin}/C/DEST=myJointHisData energyData, timeData
   
   // Energy projection (ON TIME BIN AXIS)
   Make/O/N=(gtimeBin) timeBinAxis
   
   Variable/G timebin_1 = 0, timebin_2=0, energybin_1=0, energybin_2=0
   Variable row, column, sum_Event=0
   
   Make/O/N=(timebin_2-timebin_1) timeBinAxis
   
   For (row=timebin_1; row < timebin_2; row++)
       For(column=energybin_1; column<energybin_2; column++ )
         sum_Event +=myJointHisData[row][column]
       endfor
       timeBinAxis[row] = sum_Event
       sum_Event = 0
   endfor
      
   
End
 
Function ButtonProc(ba) : ButtonControl //button for 2d image bin setting
    STRUCT WMButtonAction &ba
 
    switch( ba.eventCode )
        case 2: // mouse up
            // click code here
            WAVE/Z timeData
            WAVE/Z energyData
            NVAR gtimeBin, genergyBin
            //NVAR genergyBin
            
            JointHistogram/BINS={gtimeBin, genergyBin}/C/DEST=myJointHisData timeData, energyData
                    
        case -1: // control being killed
            break
    endswitch
 
    return 0
End
 
Window Panel00() : Panel
    PauseUpdate; Silent 1       // building window...
    NewPanel /W=(304,279,993,759)
    ShowTools/A
    SetVariable setvar0,pos={0.00,1.00},size={99.00,14.00},bodyWidth=60,title="time bin"
    SetVariable setvar0,limits={0,inf,1},value= gtimeBin
    SetVariable setvar1,pos={137.00,4.00},size={114.00,14.00},bodyWidth=60, title="energy bin"
    SetVariable setvar1,limits={0,inf,1},value= genergyBin
    Button button0,pos={16.00,30.00},size={165.00,16.00},proc=ButtonProc,title="Draw 2dImage"
    
    //for energy projection (ON TIME BIN AXIS) 
    SetVariable time1SetVariableSetLimt title="time1SetVariableSet", proc=SetVarProcForbin_1Limit,value=timebin_1
 
    SetVariable setvar2,limits={0,gtimeBin,1},value=_NUM:0 //here I want the upper limit will be the value of setvar0's value 
  i.e. the number of time bin axis
    
    Display/W=(172,120,517,360)/HOST=# 
    AppendImage myJointHisData
    ModifyImage myJointHisData ctab= {0.1,*,Red,1}
    ModifyGraph margin(left)=43,margin(bottom)=43,margin(top)=43,margin(right)=43
    ModifyGraph mirror=0
    RenameWindow #,G0
    SetActiveSubwindow ##
EndMacro
 
//I think this fragment of code will parse the value of setvar0's but not sure how to extract that
Function SetVarProcForbin_1Limit(sva) : SetVariableControl
    STRUCT WMSetVariableAction &sva
 
    switch( sva.eventCode )
        case 1: // mouse up
        case 2: // Enter key
        case 3: // Live update
            Variable dval = sva.dval
            String sval = sva.sval
            break
        case -1: // control being killed
            break
    endswitch
 
    return 0
End

 

The strswitch approach below would get you started:

Function SetVarProc(sva) : SetVariableControl
    STRUCT WMSetVariableAction &sva
 
    switch( sva.eventCode )
        case 1: // mouse up
        case 2: // Enter key
        case 3: // Live update
            Variable dval = sva.dval
            String sval = sva.sval
            strswitch(sva.ctrlName)
                case "setvar1":
                    // do whatever is required when setvar1 changes
                    ...
                    // now change the limits on setvar2
                    SetVariable setvar2, win=..., limits={0,dval,1}
                    break
                case "setvar2":
                    // do whatever is required when setvar2 changes
                    ...
                    break
            endswitch
            break
        case -1: // control being killed
            break
    endswitch
 
    return 0
end

 

March 17, 2020 at 10:18 am - Permalink