Conference ilbbak::ibi_focus

190.0. "Broken WINDOW" by CHEFS::PARTONJ (I was sure I pressed RETURN...) Tue Mar 28 1989 13:30

               <<< SHIRE::LAYERED:[NOTES$LIBRARY]FOCUS.NOTE;1 >>>
                      -< European FOCUS Notes Conference >-
================================================================================
Note 132.0                        Broken WINDOW                       No replies
RDGE44::PARTON                                       98 lines  14-MAR-1989 19:55
--------------------------------------------------------------------------------

    I am having problems with a vertical menu WINDOW. The window concerned
    is entitled 'ASSIST2' in the .FEX below. On calling this window
    from an initial vertical menu window ('ASSIST1'), the return value
    does not appear to be checked the first time - i.e. the window is
    simply re-displayed. However, on pressing RETURN the SECOND time,
    the return value is actioned. Testing the window interactively does
    result in the return value being set correctly. The other windows
    invoked in the .FEX work perfectly. I have tried setting the variable
    &ASSIST2 prior to calling the window - but to no effect. Any ideas?
    
    Jonathan.
----------------------------------------------------------------------------    
    -* ASSIST menu options J.P. Feb 89.
-LOOP_1
-WINDOW ASSIST ASSIST1
-IF &ASSIST1 EQ QUIT GOTO EOJ;
-IF &ASSIST1 EQ OPT1 GOTO MENU_2;
-IF &ASSIST1 EQ OPT4 GOTO MENU_5;
-GOTO LOOP_1
-MENU_2                                 <- Problem is here
-WINDOW ASSIST ASSIST2 
-IF &WINDOWVALUE EQ ESCAPE GOTO LOOP_1;
-IF &ASSIST2 EQ ASSQ2 GOTO LOOP_1;
-IF &ASSIST2 EQ TT1 GOTO TT_1;
-IF &ASSIST2 EQ TT2 GOTO TT_2;
-IF &ASSIST2 EQ TT3 GOTO TT_3;
-IF &ASSIST2 EQ TT4 GOTO TT_4;
-IF &ASSIST2 EQ TT5 GOTO TT_5;
-IF &ASSIST2 EQ TT6 GOTO TT_6;
-IF &ASSIST2 EQ TT7 GOTO TT_7;
-IF &ASSIST2 EQ TT8 GOTO TT_8;
-IF &ASSIST2 EQ TT9 GOTO TT_9;
-IF &ASSIST2 EQ TT10 GOTO TT_10;
-IF &ASSIST2 EQ TT11 GOTO TT_11;
-IF &ASSIST2 EQ TT12 GOTO TT_12;
-IF &ASSIST2 EQ TT13 GOTO TT_13;
-GOTO MENU_2
-TT_1
TABLETALK FILE ACCOUNT
-RUN
-GOTO MENU_2
-TT_2
TABLETALK FILE PROJECT
-RUN
-GOTO MENU_2
-TT_3
TABLETALK FILE ORDER
-RUN
-GOTO MENU_2
-TT_4
TABLETALK FILE DELIV
-RUN
-GOTO MENU_2
-TT_5
TABLETALK FILE SERVICE
-RUN
-GOTO MENU_2
-TT_6
TABLETALK FILE COMPET
-RUN
-GOTO MENU_2
-TT_7
TABLETALK FILE CPROJECT
-RUN
-GOTO MENU_2
-TT_8
TABLETALK FILE CORDER
-RUN
-GOTO MENU_2
-TT_9
TABLETALK FILE CDELIV
-RUN
-GOTO MENU_2
-TT_10
TABLETALK FILE CSERVICE
-RUN
-GOTO MENU_2
-TT_11
TABLETALK FILE CCOMPET
-RUN
-GOTO MENU_2
-TT_12
TABLETALK FILE WLCOMPET
-RUN
-GOTO MENU_2
-TT_13
TABLETALK FILE WLREASON
-RUN
-GOTO MENU_2
-EXIT
-MENU_5
-WINDOW ASSIST ASSIST5 
-IF &WINDOWVALUE EQ ESCAPE GOTO LOOP_1;
EX &ASSIST5
-RUN
-GOTO LOOP_1
-EOJ
-EXIT