ListBox & ColorPopup

Share icon

The following example illustrates what I would like to do: clicking into a colored listbox cell to change the color. The following method works but it would be MUCH nicer if 1) the popup occurs exactly where the mouse clicked and 2) if the popup ist being killed automatically after selecting a new color. I guess both can be accomplished using hook functions but I don't see how at the moment (which may reflect my ignorance for working with structures...).

Ideally a built-in ListBox option (just like checkbox) would exist.

Any thoughts are welcome!

function myPanel() : Panel
 
    Make/O/T/N=(20,3) wList
    SetDimlabel 1, 0, Index, wList
    SetDimlabel 1, 1, Color, wList
    SetDimlabel 1, 2, Stuff, wList
    Make/O/N=(20,3,2) sWave = 0
    Make/O/N=(20,3) cWave = trunc(abs(enoise(65535)))
    wList[][0] = num2str(p)
    wList[][2] = "blah"
 
    NewPanel/K=1/N=TestPanel /W=(600,100,1300,500)
    
    ListBox list0,pos={50,50},size={600,300},listWave=wlist
    ListBox list0,selWave=sWave, colorWave = cWave, proc=myListBoxProc
    ListBox list0,fsize = 12, frame=3, userColumnResize=1
    
    //set color of second column
    sWave[][1][1]= p
    SetDimLabel 2,1,backColors, sWave   
end
 
 
Function myListBoxProc(lba) : ListBoxControl
    STRUCT WMListboxAction &lba
    
    Variable row = lba.row
    Variable col = lba.col
    WAVE/T/Z listWave = lba.listWave
    WAVE/Z cWave = lba.colorWave    
    
    switch( lba.eventCode )
        case -1: // control being killed
            break
        case 1: // mouse down
            
            // clicked on color 
            if(col == 1)
                    
                variable/g WhichRow = row
                    
                //get a color popup             
                GetWindow TestPanel wsizeRM
    
                variable top, left
                top = V_top * ScreenResolution/72
                left = V_left * ScreenResolution/72
                    
                NewPanel/K=1 /N=cpop /W=(left+200, top+200, left+250, top+220)
                PopupMenu popup0 value="*COLORPOP*", proc = myPopMenuProc
                PopupMenu popup0 popColor=(cWave[row][0],cWave[row][1],cWave[row][2])
                    
            endif
        
            break
    
    // handle more events
    
    endswitch
    
    return 0
End
 
 
Function myPopMenuProc(pa) : PopupMenuControl
    STRUCT WMPopupAction &pa
    
    wave/Z cWave
    NVAR WhichRow
    variable rr, gg, bb
    
    switch( pa.eventCode )
        case 2: // mouse up
            Variable popNum = pa.popNum
            String popStr = pa.popStr
            
            sscanf popstr, "(%g,%g,%g)", rr,gg,bb   
            cWave[WhichRow][0] = rr; cWave[WhichRow][1] = gg; cWave[WhichRow][2] = bb;
            
            break
        case -1: // control being killed
            break
    endswitch
 
    return 0
End



EDIT: ok, I found a solution to problem 1). I overlooked mouseLoc.