*** UNDER CONSTRUCTION ***

Sibling Window: Focus & Control

Code required to change the focus among multiple windows follows.

1. Window change event (PEV_10).
   • Old default code:

     G.key = decode(focus(true),parent,key_f3,
                          child ,key_nextblock,
                          9999);
             

   • New code:

     {
                  G.tw  = focus(true);
                  G.key = decode(G.tw,parent,key_f3,
                                      child ,key_nextblock,
                                      9999);
                  }
              

2. In "driving window" (registration):
   • Old default code:

     }
     while (true) {                              /* loop forever                   */
             

   • New code:

     }
     g.tw = current;
     while (true) {                              /* loop forever                   */
       while (g.tw != current) { i = g.tw; g.tw = current; window(i,run); }
             

     3.  In Structure window trigger:
     {                                           /* User window trigger            */
     list dl;                                    /* delete list                    */
     int  mode; int rows;                        /* window mode, rows per row      */
     int  i;    int   j;                         /* loop variables                 */
     char val_wrno[6];                           /* USED IN WRNOVAL()              */
     char val_bn[7];                             /* USED IN BNVAL()                */
     
     while (true) {
       raw_input();
       if (G.key in (key_quit,9999)) break;
       }
     
     if (G.key != 9999)
       window(current,close);
     
     

     ---