MENUITEM PREDISPLAY

[Darren Reely]

The best I could come up with is this, but it still requires you press 
the return key. I couldn't see a way to popup menu items for particular 
actionmenu.

  procedure init
  push ActionBar

Darren


Gildas VIAUD wrote:
> Hello Listers,
> I would like to use ACTIONMENU and MENUITEM within a "PREDISPLAY" mode, but it doesn't work.
> Even on an empty subscreen, you have to press the return key to display the menuitems.
> Who have any idea about this issue ?
> Thanks in advance for your help.
> Gildas VIAUD.
>
> Here are two small programs for tests :
>
>  
> SCREEN xmenu1  from 1,1 TO 22,80  &
>        menu                      &
>        nomode                    &
>        noaction                  &
>        message on line 24        &
>        actionbar on line 1
>  
> SET MENUKEYS
>
> ACTIONMENU label "Options"
> MENUITEM label "Option 1"    action designer OPT1
> MENUITEM label "Option 2"    action designer OPT2
> MENUITEM label "Option 3"    action designer OPT3
> MENUITEM label "Exit"        action   RETURN
>
>
> PROCEDURE DESIGNER OPT1;
> BEGIN
>  RUN SCREEN xopt1 
> END;
>
> PROCEDURE DESIGNER OPT2
> BEGIN
>  RUN SCREEN xopt2 
> END;
>
> PROCEDURE DESIGNER OPT3
> BEGIN
>  RUN SCREEN xopt3 
> END
>
> BUILD
>
>
> SCREEN xopt1 FROM 2,1  to 23,36  &
>        menu                      &
>        nomode                    &
>        noaction                  &
>        message on line 24        &
>        actionbar on line 1
>  
> SET MENUKEYS
>
> ACTIONMENU label "Your action"   
> MENUITEM   label "First"          action   DESIGNER ACT1
> MENUITEM   label "Second"         action   DESIGNER ACT2
> MENUITEM   label "Third"          action   DESIGNER ACT3      	
> MENUITEM   label "Exit"           action   RETURN
>
> PROCEDURE DESIGNER ACT1
> BEGIN
>  RUN SCREEN xact1 
> END
>
> PROCEDURE DESIGNER ACT2
> BEGIN
>  RUN SCREEN xact2
> END
>
> PROCEDURE DESIGNER ACT3
> BEGIN
>  RUN SCREEN xact3 
> END
>
> BUILD
>
>  
>
>