'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Wind Open 
'  -Wb Wind Base   
'  -Wb Wind Rastport   
'  -Wb Gfx Ink     
'  -Get Msg    
'  -Wb Gfx Text    
'  -Wb Swatch    
'  -Wb Wind Close  
'
Wb Wind Open 0 To 0,0,84,22,2+4+8
W=Wb Wind Base
R=Wb Wind Rastport(W)
'
Wb Gfx Ink R To 2,0
Wb Gfx Text "Clic me!",10,18 To R
Amos To Back 
'
While Get Msg(W)<>$200
   Wb Gfx Text Wb Swatch,10,18 To R
Wend 
'
Amos To Front 
Wb Wind Close W
End