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.