'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Wb Remove Gadget 
'  -Wb Free Slide Gadget 
'  -Wb Wind Close  
'  -Wb Wind Open Wb
'  -Current Screen 
'  -Wb Wind Base 
'  -Wb Wind Rastport 
'  -Wb Init Hslide Gadget  
'  -Wb Init Vslide Gadget    
'  -Wb Init Mslide Gadget    
'  -Wb New Hslide Gadget     
'  -Wb New Vslide Gadget     
'  -Wb New Mslide Gadget     
'  -Wb Slide Swap Look     
'  -Wb Insert Gadget     
'  -Wb Bevel Box     
'  -Wb Gfx Ink     
'  -Wb Gfx Mode      
'  -Get Msg      
'  -Wb Gadget Id   
'  -Wb Hpos    
'  -Wb Vpos    
'  -Hard Mouse Key 
'
Amos To Back 
'
Wb Wind Open Wb Current Screen To 164,56,257,140,2+4+8+$2000000
W=Wb Wind Base : R=Wb Wind Rastport(W)
'
BGAD0=Wb Init Hslide Gadget(0,42,20,198,9,$200)
Wb Slide Swap Look BGAD0 : Wb Insert Gadget W To BGAD0
'
BGAD1=Wb Init Vslide Gadget(1,17,31,21,99,$200)
Wb Slide Swap Look BGAD1 : Wb Insert Gadget W To BGAD1
'
BGAD2=Wb Init Mslide Gadget(2,42,31,198,99,$200)
Wb Slide Swap Look BGAD2 : Wb Insert Gadget W To BGAD2
'
SLI_STEP0=$FFFF/120
Wb New Hslide Gadget W To BGAD0,SLI_STEP0,SLI_STEP0
'
SLI_STEP1=$FFFF/120
Wb New Vslide Gadget W To BGAD1,SLI_STEP1,SLI_STEP1
'
SLI_STEP2=$FFFF/120
Wb New Mslide Gadget W To BGAD2,SLI_STEP2,SLI_STEP2,SLI_STEP2,SLI_STEP2
'
Wb Bevel Box R To 2,1,41,19,240,29
Wb Bevel Box R To 2,1,40,19,241,29
'
Wb Bevel Box R To 2,1,17,30,39,130
Wb Bevel Box R To 2,1,16,30,38,130
'
Wb Bevel Box R To 2,1,41,30,240,130
Wb Bevel Box R To 2,1,40,30,241,130
'
Wb Gfx Ink R To 1,0
Wb Gfx Mode R,1
'
While Z<>$200
   Z=Get Msg(W)
   If Z=$20 or Z=$40
      Z1=Wb Gadget Id(Get Msg Iadr)
      If Z1=0 : H=Wb Hpos(BGAD0) : End If 
      If Z1=1 : V=Wb Vpos(BGAD1) : End If 
      If Z1=2 : H=Wb Hpos(BGAD2) : V=Wb Vpos(BGAD2) : End If 
      Wb New Hslide Gadget W To BGAD0,H,SLI_STEP0
      Wb New Vslide Gadget W To BGAD1,V,SLI_STEP1
      Wb New Mslide Gadget W To BGAD2,H,V,SLI_STEP2,SLI_STEP2
   End If 
Wend 
'
While Hard Mouse Key=1 : Wend 
'
Amos To Front 
'
Wb Remove Gadget W,BGAD0
Wb Remove Gadget W,BGAD1
Wb Remove Gadget W,BGAD2
Wb Free Slide Gadget BGAD0
Wb Free Slide Gadget BGAD1
Wb Free Slide Gadget BGAD2
Wb Wind Close W