DEFINE PAD testComment OF _MSYSMENU PROMPT "Test Comment" ON SELECTION PAD testComment OF _MSYSMENU logCommand("MESSAGEBOX('Hello, World!')") PROCEDURE logCommand LPARAMETERS tcCommand SET LIBRARY TO HOME(1)+"foxtools" IF NOT EMPTY(tcCommand) lnHActive = _WOnTop() ACTIVATE WINDOW command DoSleep(.05) KEYBOARD "* " + tcCommand KEYBOARD '{SHIFT+UPARROW}' +'{ENTER}' DoSleep(.05) _WSelect(lnHActive) *** EXECSCRIPT(tcCommand) ENDIF *!* Wait for any needed windows events to get through PROCEDURE DoSleep LPARAMETERS tnSeconds LOCAL lnSeconds lnSeconds = SECONDS() DO WHILE SECONDS() - lnSeconds < tnSeconds DOEVENTS ENDDO