'**************************************
'                                     *
'     IntuiExtend.Lib 1.4/@1995-96    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
Default 
'
' Placez vous dans le repertoire ou se trouve le repertoire 'Data'...
Load "data/bouton.abk"
Amos To Back 
'
Wb Wind Open SCR To 164,56,44,31,2+4+8+$2000000
W=Wb Wind Base
'
'Initialise un bool gadget 
BGAD0=Wb Init Bool Gadget(0,6,12,32,16,0)
'Si BGAD0=0, pas de gadget...  
If BGAD0=0 Then Bell : Goto III
'
TR0=Wb Icon Image(1) : Rem Icon 1 -> Image 1
TR1=Wb Icon Image(2) : Rem Icon 2 -> Image 2
'Insère les images dans le gadget  
Wb Gadget Image TR0,TR1 To BGAD0
'Insère le gadget dans la GadgetList de la fenêtre 
Wb Insert Gadget W To BGAD0
'Redessine le gadget 
Wb Refresh Gadget W,BGAD0
'
AA=Chip Free+Fast Free
'Attend la sélection du CloseGadget($200)
While Get Msg(W)<>$200 : Wend 
'Elimine le gadget de la fenêtre 
Wb Remove Gadget W,BGAD0
'
Wb Free Image TR0 : Rem Libére l'image 1 
Wb Free Image TR1 : Rem Libére l'image 2 
'Libére la mémoire du gadget 
Wb Free Bool Gadget BGAD0
'
Print(Chip Free+Fast Free)-AA
'
III:
Amos To Front 
Wb Wind Close W
Wait Key