[SYS21] Re: JBA Explorer windows

[grahame.ward@xxxxxxxxxxxxxxxxxxxxxxxxxx]

Following is some DDS for a pop-up prompt window that works fine (e.g. you 
can drag the window about) in System 21 explorer. It is a proper DDS 
window not the pseudo window as in System 21. Hope it helps.

Grahame Ward
Pimpernel International


A                                      DSPSIZ(24 80 *DS3) 
A                                      REF(*LIBL/RYREF) 
A                                      CA12(12) 
A                                      PRINT 
           R F01SFL                    SFL 
   33                                  SFLNXTCHG 
             OPTNS1         1A  B  2  1 
                                       CHECK(ER) 
                                       VALUES(' ' '1') 
                                       DSPATR(UL) 
   35                                  DSPATR(PC RI) 
             DSGCS1    R   -3   O  2  4REFFLD(DSGN01 RYP01)
             DESCS1    R        O  2 10REFFLD(DESC01 RYP01)
             DSGNS1    R        H      REFFLD(DSGN01 RYP01)
A          R F01CTL                    SFLCTL(F01SFL) 
A                                      SFLSIZ(0012) 
A                                      SFLPAG(0011) 
A                                      WINDOW(F01WIN) 
A                                      ROLLUP(26 'Roll Up')
A                                      BLINK 
A                                      OVERLAY 
A N30                                  SFLCLR 
A  30                                  SFLDSPCTL 
A  31                                  SFLDSP  
A  32                                  SFLEND(*MORE)  
A            SRN01          4S 0H      SFLRCDNBR(CURSOR)  
A            SCR01          5S 0H      SFLSCROLL  
A                                  1  1'S  Design'  
A                                      DSPATR(HI)  
A                                  1 17'Search for..'  
A                                      DSPATR(HI)  
A            SRCHDS        10   B  1 30CHECK(LC)  
A  50                                  DSPATR(RI)  
A  50                                  COLOR(WHT)  
A          R F01WIN  
A                                      BLINK  
A                                      OVERLAY  
A                                      WINDOW(4 30 15 39 *NOMSGLIN)  
A                                      WDWBORDER((*COLOR GRN) (*DSPATR 
RI)- 
A                                       (*CHAR '        '))  
A                                      WDWTITLE((*TEXT 'Select Design'))   

A                                      WDWTITLE((*TEXT 'F12=Previous') 
*BO- 
A                                      TTOM)  
A                                 14  1' - 
A                                           '  
A                                      DSPATR(UL)  
A                                      COLOR(BLU) 
A                                 15  1'1=Select' 
A                                      COLOR(BLU) 
A  50                             15 14'No Records Match Search'
A                                      COLOR(WHT) 
           R @ASSUME 
                                       ASSUME 
                                       OVERLAY 
                                   1  2' ' 
           R @KEEP 
                                       KEEP 
                                       OVERLAY