Article ID: 179914
Article Last Modified on 5/12/2003
USE HOME()+"Tutorial\Customer"company+contact+address+city+state+zip+phone+ono+cno
DO Test.spr
The list box should be displaying properly with the Terminal 6
point font.
SET DEFAULT TO HOME()+"SAMPLES\DATA"
USE customer SHARED
DEFINE POPUP getpop ;
PROMPT FIELD cust_id+company ;
+ contact + address ;
+ city + region ;
+ postalcode + phone ;
+ country + cust_id ;
SCROLL
DEFINE WINDOW XXX FROM 1,1 TO 50,100
ACTIVATE WINDOW XXX
@ 11,10 GET popit PICTURE "@&N" ;
POPUP getpop SIZE 30.000,90.667 ;
DEFAULT " " FONT "Terminal", 6 STYLE ""
READ CYCLE
CLEAR ALL
*** end of programAdditional query words: raster
Keywords: KB179914