Alain Pastor wrote:
> 

> OK, here is a little example (not tested in OS X):
> 

OOPS!
fn doTest should read like this:

local fn doTest
'~'9
   dim wPtr     as .CGrafPort
   dim gridPict as ..Picture

   gridPict = fn CreateGrid

   window 1,"test"
   color _zRed
   text _times,36,_boldBit%,_srcOr

   wPtr = window( _wndPort )
   long if wPtr
     wPtr.filler = _jLeft
     do
       fn ShowMe( gridPict ) : delay 3 * _sec
       wPtr.filler++
     until wPtr.filler > _jFull

     EraseRect( wPtr.portRect )
     color _zBlack : print "That's all folks!"
   end if

   if gridPict then KillPicture( gridPict)

end fn

-- 
Cheers,

A. Pastor