'paul-

COMPILE 0,_caseinsensitive
END GLOBALS

LOCAL FN buildwind
  WINDOW 1,"Simpletween",(0,38)-(300,200),_doczoom_noAutoClip
  
  WINDOW FILL ' <--      add this statement and it works fine...
  
  Height =WINDOW(_height)
  Wideness =WINDOW(_width)
  wd$=STR$(Wideness)
  he$=STR$(Height)
  msg$ =wd$+" x"+he$
  PRINT%(0,WINDOW(_height)+12)msg$
END FN

FN buildwind
DO
  HANDLEEVENTS
UNTIL 0