Catching enter key in ListBox

Function doStuff()

	DoWindow/K Panel0
 
	Make/T/O/N=(5,1) list
	Make/U/B/O/N=(5,1,2) sel
	sel[][0] = 0x02

	// override edit color	
	Make/O/W/U/N=(5,3) myColors = 65535
	SetDimLabel 2, 1, backColors, sel

	list = "text " + num2str(p)
	NewPanel/K=1
	ListBox list1, proc=listBoxProc,listWave=list, size={150,150}, mode=1, selWave=sel, colorWave=myColors
End
 
Function listBoxProc(lba) : ListBoxControl
	STRUCT WMListboxAction &lba
 
	Variable row = lba.row
	Variable col = lba.col
	WAVE/T/Z listWave = lba.listWave
	WAVE/Z selWave = lba.selWave
 
	switch( lba.eventCode )
		case -1: // control being killed
			break
		case 1: // mouse down
			break
		case 3: // double click
 
			if(!WaveExists(listWave) || row >= DimSize(listWave,0))
				return 0
			endif
 
			printf "row: %d\r", row
 
			break
		case 6: // begin edit
			print "begin edit aka pressed enter the first time"
			// forcefully end cell editing
			ListBox list1,disable=1
			ListBox list1,disable=0
			// how to get the focus onto the ListBox back ?
			break
		case 7: // end edit
			print "end edit aka pressed enter again after begin edit"
			break
		case 6: // keystroke
			if(!WaveExists(listWave))
				return 0
			endif
 
			printf "pressed key: %d\r", row
			break
		case 13: // checkbox clicked (Igor 6.2 or later)
			break
	endswitch
 
	return 0
End