MENUITEM PREDISPLAY

[Jeff Hoffman]

Hi

Do not have access to PH to try it, but try push find in the init 
procedure, I know its a menu screen but if there is no syntax error it may 
initialize things.

Jeff

At 06:03 AM 22/09/2006, you wrote:
>Gildas:
>
>  Look in your terminal manual. You may be able to cause QUICK to get the
>  terminal to fire off a carriage  return <cr> back to the computer.
>
>  For example: on HP terminal I believe the escape sequence to fire
>function
>  key, F8 is <esc>f8E so the trick is to first load the function key ( lookup
>  programming function keys in the terminal manual )
>  with <cr> then send the firing sequence. info = ESC + 'f8E' in the 
> initialize
>  procedure.
>
>
>Regards,
>Peter
>
>>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
>>>
>>>
>>>
>>--
>>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
>>Mailing list: powerh-l at lists.sowder.com
>>Subscribe: &quot;subscribe&quot; in message body to 
>>powerh-l-request at lists.sowder.com
>>Unsubscribe: &quot;unsubscribe &lt;password&gt;&quot; in message body to 
>>powerh-l-request at lists.sowder.com
>>http://lists.sowder.com/mailman/listinfo/powerh-l
>>This list is closed, thus to post to the list you must be a subscriber.
>>Add 'site:lists.sowder.com powerh-l' to your search terms to search the 
>>list archive at Google.
>
>_________________________________________________________________
>Buy what you want when you want it on Sympatico / MSN Shopping 
>http://shopping.sympatico.msn.ca/content/shp/?ctId=2,ptnrid=176,ptnrdata=081805
>
>--
>= = = = = = = = = = = = = = = = = = = = = = = = = = = =
>Mailing list: powerh-l at lists.sowder.com
>Subscribe: &quot;subscribe&quot; in message body to 
>powerh-l-request at lists.sowder.com
>Unsubscribe: &quot;unsubscribe &lt;password&gt;&quot; in message body to 
>powerh-l-request at lists.sowder.com
>http://lists.sowder.com/mailman/listinfo/powerh-l
>This list is closed, thus to post to the list you must be a subscriber.
>Add 'site:lists.sowder.com powerh-l' to your search terms to search the 
>list archive at Google.