Panel with 'Enter' as default Ok button action.

Share icon

Hello,

I'm trying to build a small panel, that is supposed to resemble a dialog. Purpose is to enter a numeric value and store it in a global variable. The panel has for this purpose a SetVariable field and two buttons (OK and Cancel).

I'm handling the button actions via proc calls. Entering a value in the field and using the mouse to cancel or confirm the set value works fine.

What I miss is having the Return/Enter Buttons on the keyboard act as if clicking the corresponding button. I can't help but find no way to handle this?

With best regards, Lars Sölter



Function /S UI_NVarInput( varname, panelname ) : Panel
	String varname
	String panelname
	
	String windowname
	String usrdat = ""
	String tmpvarname = varname+"_DNVI"
	
	NVAR numvar = $(varname)
	NVAR tmpnumvar = $(tmpvarname)
	
	usrdat = ReplaceStringByKey( "NVARNAME", usrdat, varname, "=" )
	
	if( NVAR_Exists( tmpnumvar ) == 0 )
		Variable/G/D $(tmpvarname) = 0
		NVAR tmpnumvar = $(tmpvarname)
	endif
	if( NVAR_Exists( numvar ) == 1 )
		tmpnumvar = numvar
	endif
	
	usrdat = ReplaceStringByKey( "TMPNVARNAME", usrdat, tmpvarname, "=" )

	PauseUpdate; Silent 1		// building window...
	NewPanel /FLT=2 /K=1 /N=UI_NVarInput /W=(267,122,586,236) as panelname
	windowname = S_name
	
	SetDrawLayer UserBack

	SetDrawEnv fname= "Segoe UI"
	DrawText 15, 30, "Name"
	SetDrawEnv fname= "Andale Mono"
	DrawText 60, 30, varname
	SetDrawEnv fname= "Segoe UI"
	DrawText 15, 55, "Value"
	SetVariable PanVar1 value=tmpnumvar, title=" ", pos={60,40}, size={240,10}, limits={-inf,inf,0}, font="Andale Mono"
	
	Button ButtonOk, pos={140,78}, size={70,22}, userdata=usrdat, proc=UI_NVarInput_Ok, title="Ok"
	Button ButtonOk,font="Segoe UI"
	Button ButtonCancel, pos={230,78}, size={70,22}, font="Segoe UI", userdata=usrdat, proc=UI_NVarInput_Cancel, title="Cancel"
	Button ButtonCancel,font="Segoe UI"
	
	return windowname
End


Function UI_NVarInput_Ok( s ) : ButtonControl
	STRUCT WMButtonAction &s
	
	String varname
	varname = StringByKey( "NVARNAME", GetUserData( s.win, s.ctrlName, "" ), "=" )
	NVAR numvar = $(varname)
	
	String tmpvarname
	tmpvarname = StringByKey( "TMPNVARNAME", GetUserData( s.win, s.ctrlName, "" ), "=" )
	NVAR tmpnumvar = $(tmpvarname)
	
	switch( s.eventCode )
		case 2: // mouse up
			if( NVAR_Exists( tmpnumvar ) == 1 )
				if( NVAR_Exists( numvar ) == 0 )
					Variable/G/D $(varname) = 0
					NVAR numvar = $(varname)
				endif
				numvar = tmpnumvar
				KillVariables /Z $tmpvarname
			endif
	
			KillWindow $s.win
			break
	endswitch
End


Function UI_NVarInput_Cancel( s ) : ButtonControl
	STRUCT WMButtonAction &s
	
	String tmpvarname
	tmpvarname = StringByKey( "TMPNVARNAME", GetUserData( s.win, s.ctrlName, "" ), "=" )
	
	switch( s.eventCode )
		case 2: // mouse up
			KillVariables /Z $tmpvarname
			KillWindow $s.win
			break
	endswitch
End
You need to use a Window Hook function. Here is an example of the basic technique:

Function DoneButtonProc(ba) : ButtonControl
	STRUCT WMButtonAction &ba

	switch( ba.eventCode )
		case 2: // mouse up
			// First, do whatever needs to be done, then close the panel
			KillWindow Panel0
			break
		case -1: // control being killed
			break
	endswitch

	return 0
End

Function DefaultButtonHook(s)
	STRUCT WMWinHookStruct &s

	Variable hookResult = 0

	switch(s.eventCode)
		case 11:				// Keyboard
			if (s.keycode == 11 || s.keycode == 13)		// linefeed or carriage return
				KillWindow panel0
				hookResult = 1
			endif
			break

	endswitch

	return hookResult		// 0 if nothing done, else 1
End


Window panel0() : Panel
	PauseUpdate; Silent 1		// building window...
	NewPanel /W=(150,50,450,250)
	Button donebutton,pos={113,87},size={50,20},proc=DoneButtonProc,title="done"
	Button donebutton,fColor=(0,0,65535)
	SetWindow kwTopWin,hook(defaultbuttonhook)=DefaultButtonHook
EndMacro

First, run Panel0(). Then try clicking the button or pressing Enter.

Read about window hooks:
DisplayHelpTopic "Window Hook Functions"
My example uses a named hook function, which is preferred:
DisplayHelpTopic "Named Window Hook Functions"

John Weeks
WaveMetrics, Inc.
support@wavemetrics.com

March 13, 2013 at 12:52 pm - Permalink
Since you're using window hook functions anyway, why not extend them to enable increment/decrement of the setvariable control (I know it's not what your asking for but why not?).



Function SetVariableHook(s)
	STRUCT WMWinHookStruct &s

	Variable hookResult = 0

	switch(s.eventCode)
		case 11:				// Keyboard
			if (s.keycode == 30)		// linefeed or carriage return
				//increment the setvariable in your panel
				hookResult = 1
			elseif (s.keycode ==31)
				//decrement the setvariable in your panel
				hookResult = 1
			endif
			break

	endswitch

	return hookResult		// 0 if nothing done, else 1
End


Window panel0() : Panel
	PauseUpdate; Silent 1		// building window...
	NewPanel /W=(150,50,450,250)
	Button donebutton,pos={113,87},size={50,20},proc=DoneButtonProc,title="done"
	Button donebutton,fColor=(0,0,65535)
	SetWindow kwTopWin,hook(defaultbuttonhook)=DefaultButtonHook, hook(setvariablehook) = SetVariableHook
EndMacro


I added the setvariable hook to John's Panel

March 13, 2013 at 02:36 pm - Permalink