'**************************************
'                                     *
'     IntuiExtend.Lib 1.4/@1995-96    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Wind Open 
'  -Wb Wind Base 
'  -Wb Init Bool Gadget  
'  -Wb Icon Image  
'  -Wb Gadget Image  
'  -Wb Insert Gadget 
'  -Wb Refresh Gadget  
'  -Get Msg  
'  -Wb Remove Gadget 
'  -Wb Free Image  
'  -Wb Free Bool Gadget  
'  -Wb Wind Close
'
Default 
A$=Fsel$(Dir$,"Bouton.abk","Chargez une banque contenant","des bouton SVP.")
Load A$
'
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 Abs((Chip Free+Fast Free)-AA);" octets de Mémoire libéré"
'
III:
Amos To Front 
Wb Wind Close W