>DEFINE BAR 2 OF padFile PROMPT "\<Open..." KEY "CTRL+O" >>
>DEFINE BAR 2 OF padFile PROMPT "\<Open..." >>
* If POPUP is absolute then is simple RELEASE BAR 2 OF padFile DEFINE BAR 2 OF padFile PROMPT "\<Open..." * if popup is relative, redefine the bar in the same position it is not simple * without information, because AFTER/BEFORE they ask for an existing bar, * and AFAIK don't exist a command that return the current BAR position * then * put this into a procedure FOR ipos=1 TO CNTBAR("padFile") IF GETBAR("padFile",m.ipos)=2 release BAR 2 OF padFile EXIT ENDIF NEXT IF m.ipos=1 DEFINE BAR 2 OF padFile PROMPT "\<Open..." BEFORE _MFIRST ELSE DEFINE BAR 2 OF padFile PROMPT "\<Open..." AFTER GETBAR("padFile",m.ipos-1) ENDIF