How can I clear a MENU from the screen?

[John Esak]

Assuming you want the menu choice to work and the menu to exit also, look
into whether the standard # and @ and etc. work for menu action lines in
menu-procesing... They might... but I woldn't bet on it.  Also, when I've
had trouble with just display remnants which is what you might be taling
about... I usually work with VIDEO SYNC or, just do a redraw of the screen
(with SCREEN n) or even DISPLAY n (though this would be best after a VIDEO
SYNC.

John


> -----Original Message-----
> From: filepro-list-bounces at lists.celestial.com
> [mailto:filepro-list-bounces at lists.celestial.com]On Behalf Of Robert
> Sent: Thursday, November 04, 2004 1:39 PM
> To: filepro-list at lists.celestial.com
> Subject: How can I clear a MENU from the screen?
>
>
> I am having trouble clearing a menu from the screen if a show raw is the
> action.
> If the action is a system or something then the menu clears but the show
> raw keeps the remnants of the menu on the screen. control l clears it
> but I need the program to clear it.
> Any suggestions?
> I am using a MENU so that the user can have a hot key to pop up the menu
> and then key options to perform specific functions i.e. I want them to
> be able to hit i1 to open a file (see below).
> The data in the show raw sends a message to Tiny Term emulator to run a
> script function. The function executes and everything works except the
> menu does not go away.
> Any help is appreciated.
>
>    If:
>   Then: dim optmenu(3)
> ------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>   If:
>   Then: optmenu("1")="Image Right Options";optmenu("2")="1:Open Current
> File"
> ------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>    If:
>   Then: menu optmenu opencur
> ------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>    If:
>   Then: end
> ------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
> opencur If: 'open current file in IR
>   Then:
> ------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
>    If:
>   Then: show raw chr("27"){"&oFopen_file(\""{PolicyNumber{"\");"{chr("13")
> 10  -------   -
>     If:
>        Then: end
>
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list