>
>
>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.