>>
>>
>>We know
>>(1) CTRL+F does a find - not difficult to implement
>>(2) On the find menu, there's a next
>>
>>
>>You may want to change the key values
>>

>>&& (1) RightClick - see two last bars
>>
>>DEFINE POPUP ccp SHORTCUT RELATIVE from mrow(),mcol()
>>
>>
>>DEFINE BAR _med_cut OF ccp PROMPT "Cu\<t" ;
>>	KEY CTRL+X, "Ctrl+X" ;
>>	MESSAGE "Removes the selection and places it onto the Clipboard"
>>	
>>DEFINE BAR _med_copy OF ccp PROMPT "\<Copy" ;
>>	KEY CTRL+C, "Ctrl+C" ;
>>	MESSAGE "Copies the selection onto the Clipboard"
>>	
>>DEFINE BAR _med_paste OF ccp PROMPT "\<Paste" ;
>>	KEY CTRL+V, "Ctrl+V" ;
>>	MESSAGE "Pastes the contents of the Clipboard"
>>	
>>DEFINE BAR _med_slcta OF ccp PROMPT "Se\<lect All" ;
>>	KEY CTRL+A, "Ctrl+A" ;
>>	MESSAGE "Selects all text or items in the current window"
>>
>>define bar _MED_FIND of ccp prompt '\<Find' ;
>>	key CTRL+F, 'Ctrl+F' ;
>>	message 'Finds text in the current window'
>>
>>define bar (cntbar('ccp')) + 1 of ccp prompt 'Find Nex\<t' ;
>>	key CTRL+T, 'Ctrl+T' ;
>>	message 'Find Next'
>>
>>on selection bar (cntbar('ccp')) of ccp ;
>>	Keyboard "{CTRL+F}{ALT+N}" plain clear
>>	
>>activate popup ccp
>>
>>release popup ccp
>>

>>
>>

>>&& (2) KeyPress
>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>
>>if( inlist(m.nShiftAltCtrl, 2) and  inlist(m.nKeyCode, 20) )
>>	NODEFAULT
>>	keyboard "{CTRL+F}{ALT+N}" plain clear
>>endif
>>

>
>Looks like we don't need Find Next, Find dialog seems to work by itself.
>
>Thanks a lot again, Gregory.


I would have said - but you don't need it any more - that you can drive 'Find Next' with ctrl+N

try  && get rid of ALT-N (file/new)
	release bar  _MFI_NEW of _MSM_FILE
catch

endtry

DEFINE POPUP ccp SHORTCUT RELATIVE from mrow(),mcol()


DEFINE BAR _med_cut OF ccp PROMPT "Cu\<t" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "Removes the selection and places it onto the Clipboard"
	
DEFINE BAR _med_copy OF ccp PROMPT "\<Copy" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "Copies the selection onto the Clipboard"
	
DEFINE BAR _med_paste OF ccp PROMPT "\<Paste" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "Pastes the contents of the Clipboard"
	
DEFINE BAR _med_slcta OF ccp PROMPT "Se\<lect All" ;
	KEY CTRL+A, "Ctrl+A" ;
	MESSAGE "Selects all text or items in the current window"

define bar _MED_FIND of ccp prompt '\<Find' ;
	key CTRL+F, 'Ctrl+F' ;
	message 'Finds text in the current window'

define bar (cntbar('ccp')) + 1 of ccp prompt 'Find \<Next' ;
	key CTRL+N, 'Ctrl+N' ;
	message 'Find Next'

on selection bar (cntbar('ccp')) of ccp ;
	Keyboard "{CTRL+F}{ALT+N}" plain clear
	
activate popup ccp

release popup ccp

&& keypress
LPARAMETERS nKeyCode, nShiftAltCtrl

if( inlist(m.nShiftAltCtrl, 2) and  inlist(m.nKeyCode, 14) )
	NODEFAULT
	keyboard "{CTRL+F}{ALT+N}" plain clear
endif