LoadingImage "http://www.ibiza4all.nl/browser/loading.gif"

CacheLevel 2

Preload Images
"ibiza_surf_off.gif"
"ibiza_surf_on.gif"
"ibiza_island_off.gif"
"ibiza_island_on.gif"
"ibiza_sluit_off.gif"
"ibiza_sluit_on.gif"
"ibiza_rentals_off.gif"
"ibiza_rentals_on.gif"
"ibiza_restaurants_off.gif"
"ibiza_restaurants_on.gif"
"ibiza_bars_off.gif"
"ibiza_bars_on.gif"
"ibiza_nightlife_off.gif"
"ibiza_nightlife_on.gif"
"ibiza_sports_off.gif"
"ibiza_sports_on.gif"
"http://www.ibiza4all.org/bac.gif"
"http://www.ibiza4all.org/bac2.gif"
"ibiza_back.gif"
"ibiza_back2.gif"
"http://www.ibiza4all.org/fwd.gif"
"http://www.ibiza4all.org/fwd1.gif"

  "ibiza_body.gif"
  "ibiza_beaches2_off.gif"
  "ibiza_beaches2_on.gif"
  "ibiza_hotels2_off.gif"
  "ibiza_hotels2_on.gif"
  "ibiza_back_off.gif"
  "ibiza_back_on.gif"
  "ibiza_min_off.gif"
  "ibiza_min_on.gif"
  "ibiza_exit_off.gif"
  "ibiza_exit_on.gif"
  "beaches_body.gif"
  "url_body.gif"
  "ibiza_map_on.gif"
  "beaches_close.gif"
  "beaches_close2.gif"
  "beaches_ibiza.gif"
  "beaches_ibiza2.gif"
  "beaches_sanjose.gif"
  "beaches_sanjose2.gif"
  "beaches_sanantonio.gif"
  "beaches_sanantonio2.gif"
  "beaches_sanjuan.gif"
  "beaches_sanjuan2.gif"
  "beaches_santaeularia.gif"
  "beaches_santaeularia2.gif"
  "hotels_body.gif"
  "hotels_ibiza.gif"
  "hotels_ibiza2.gif"
  "hotels_playa.gif"
  "hotels_playa2.gif"
  "hotels_sanjose.gif"
  "hotels_sanjose2.gif"
  "hotels_sanantonio.gif"
  "hotels_sanantonio2.gif"
  "hotels_sanmiguel.gif"
  "hotels_sanmiguel2.gif"
  "hotels_santaeularia.gif"
  "hotels_santaeularia2.gif"



EndPreload

Title "IBIZA4all"

#############
# basis#
#############

Object Form
  Name      mainForm
  Bitmap   "ibiza_body.gif"

  setShapeBMP

EndObject

#############
# open url  #
#############


Object Button
  Type       Graphical
  Name       sluit
    Bitmap     "ibiza_surf_off.gif"
  OverBitmap "ibiza_surf_on.gif"
  Top        60
  Left       684
Event Click
  MainForm.bitmap "url_body.gif"
  MainForm.SetShapeBMP
  open  Show

  sluit Hide
    url_body Show
  beaches_body  Hide
  terug Show
  vooruit Show
    iBox Show
  beaches_close Hide
 beaches_ibiza Hide
beaches_sanjose Hide
beaches_sanantonio Hide
beaches_sanjuan Hide
beaches_santaeularia Hide
hotels_ibiza Hide
hotels_body Hide
hotels_ibiza Hide
hotels_playa Hide
hotels_sanjose Hide
hotels_sanantonio Hide
hotels_sanmiguel Hide
hotels_santaeularia Hide
mainBrowser.Location "http://www.ibiza4all.org/links/"
  EndEvent
EndObject


#############
# sluit url#
#############

Object Form
  Name       open
  Bitmap   "ibiza_body.gif"

  setShapeBMP

EndObject

Object Button
  Type       Graphical
  Name       open
  Bitmap       "ibiza_sluit_off.gif"
  OverBitmap "ibiza_sluit_on.gif"
  Top        60
  Left       684
 


Event Click
  MainForm.bitmap "ibiza_body.gif"
  MainForm.SetShapeBMP
  open  Hide

  sluit Show
  ibiza_body Hide
  url_body Show
  beaches_body  Hide
  terug Show
  vooruit Show
  beaches_close Hide
 beaches_ibiza Hide
beaches_sanjose Hide
beaches_sanantonio Hide
beaches_sanjuan Hide
beaches_santaeularia Hide
    iBox Show
hotels_body Hide
hotels_ibiza Hide
hotels_playa Hide
hotels_sanjose Hide
hotels_sanantonio Hide
hotels_sanmiguel Hide
hotels_santaeularia Hide

EndEvent
EndObject

###################
# url             #
###################

Object InputBox
  Name   iBox
  Top    9
  Left   578
  Height 18
  Width  230
  Text "http://"
 
Event Changed
    mainBrowser.Location iBox.Text
  Endevent
EndObject

##########################
# island #
##########################

Object Button
  Name       map
  Type       Graphical
  Bitmap     "ibiza_island_off.gif"
  OverBitmap "ibiza_island_on.gif"
  Top        60
  Left       25

Event Click
  mainBrowser.Location "http://www.ibiza4all.org/allabouttheisland.htm"
  MainForm.bitmap "ibiza_body.gif"
  MainForm.SetShapeBMP
  open  Hide

  sluit Show
  ibiza_body Hide
  url_body Show
  beaches_body  Hide
  terug Show
  vooruit Show
    iBox Show
  beaches_close Hide
 beaches_ibiza Hide
beaches_sanjose Hide
beaches_sanantonio Hide
beaches_sanjuan Hide
beaches_santaeularia Hide
hotels_body Hide
hotels_ibiza Hide
hotels_playa Hide
hotels_sanjose Hide
hotels_sanantonio Hide
hotels_sanmiguel Hide
hotels_santaeularia Hide
EndEvent
EndObject



##########################
#beaches #
##########################



EndObject

Object Button
  Type       Graphical
  Name       open
  Bitmap     "ibiza_beaches2_off.gif"
  OverBitmap "ibiza_beaches2_on.gif"
  Top        60
  Left       115
 


Event Click
  mainBrowser.Location "http://www.ibiza4all.org/beaches"
  MainForm.bitmap "beaches_body.gif"
  MainForm.SetShapeBMP
  open  Hide
  iBox Hide

  sluit Show
  ibiza_body Hide
beaches_body Show
  url_body Show
  terug Hide
  vooruit Hide
  beaches_close Show
 beaches_ibiza Show
beaches_sanjose Show
beaches_sanantonio Show
beaches_sanjuan Show
beaches_santaeularia Show
hotels_body Hide
hotels_ibiza Hide
hotels_playa Hide
hotels_sanjose Hide
hotels_sanantonio Hide
hotels_sanmiguel Hide
hotels_santaeularia Hide
EndEvent
EndObject


##########################
# hotels #
##########################

EndObject

Object Button
  Type       Graphical
  Name       hotel
  Bitmap     "ibiza_hotels2_off.gif"
  OverBitmap "ibiza_hotels2_on.gif"
Top        60
  Left       189


Event Click
  mainBrowser.Location "http://www.ibiza4all.org/links/index.php?PHPSESSID=5afd299e923736c2b1e0252a4f28f00b&PID=38" 
  MainForm.bitmap "ibiza_body.gif"
  MainForm.SetShapeBMP
 beaches_ibiza Hide
  beaches_close Hide
 beaches_ibiza Hide
beaches_sanjose Hide
beaches_sanantonio Hide
beaches_sanjuan Hide
beaches_santaeularia Hide
hotels_ibiza Hide
hotels_body Hide
hotels_ibiza Hide
hotels_playa Hide
hotels_sanjose Hide
hotels_sanantonio Hide
hotels_sanmiguel Hide
hotels_santaeularia Hide
EndEvent
EndObject



##########################
# holiday rentals #
##########################

Object Button
  Name       holiday
  Type       Graphical
  Bitmap     "ibiza_rentals_off.gif"
  OverBitmap "ibiza_rentals_on.gif"
  Top        60
  Left       250

Event Click
  mainBrowser.Location "http://www.ibiza4all.org/links/index.php?PHPSESSID=19dc9725b29e34a6bee0b72d5135be94&PID=40"  
  MainForm.bitmap "ibiza_body.gif"
  MainForm.SetShapeBMP
 beaches_ibiza Hide
  beaches_close Hide
 beaches_ibiza Hide
beaches_sanjose Hide
beaches_sanantonio Hide
beaches_sanjuan Hide
beaches_santaeularia Hide
hotels_ibiza Hide
hotels_body Hide
hotels_ibiza Hide
hotels_playa Hide
hotels_sanjose Hide
hotels_sanantonio Hide
hotels_sanmiguel Hide
hotels_santaeularia Hide
EndEvent
EndObject



##########################
# restaurants #
##########################

Object Button
  Name       restaurants
  Type       Graphical
  Bitmap     "ibiza_restaurants_off.gif"
  OverBitmap "ibiza_restaurants_on.gif"
  Top        60
  Left       377

Event Click
  mainBrowser.Location "http://www.ibiza4all.org/links/index.php?PHPSESSID=19dc9725b29e34a6bee0b72d5135be94&PID=46"
  MainForm.bitmap "ibiza_body.gif"
  MainForm.SetShapeBMP

  open  Hide
  sluit Show
  ibiza_body Hide
  url_body Show
  beaches_body  Hide
  terug Show
  vooruit Show
    iBox Show  
  beaches_close Hide
 beaches_ibiza Hide
beaches_sanjose Hide
beaches_sanantonio Hide
beaches_sanjuan Hide
beaches_santaeularia Hide
hotels_body Hide
hotels_ibiza Hide
hotels_playa Hide
hotels_sanjose Hide
hotels_sanantonio Hide
hotels_sanmiguel Hide
hotels_santaeularia Hide
EndEvent
EndObject



##########################
# bars                   #
##########################

Object Button
  Name       bars
  Type       Graphical
  Bitmap     "ibiza_bars_off.gif"
  OverBitmap "ibiza_bars_on.gif"
  Top        60
  Left       479

Event Click
  mainBrowser.Location "http://www.ibiza4all.org/links/index.php?PHPSESSID=19dc9725b29e34a6bee0b72d5135be94&PID=42"
  MainForm.bitmap "ibiza_body.gif"
  MainForm.SetShapeBMP
  open  Hide

  sluit Show
  ibiza_body Hide
  url_body Show
  beaches_body  Hide
  terug Show
  vooruit Show
    iBox Show  
  beaches_close Hide
 beaches_ibiza Hide
beaches_sanjose Hide
beaches_sanantonio Hide
beaches_sanjuan Hide
beaches_santaeularia Hide
hotels_body Hide
hotels_ibiza Hide
hotels_playa Hide
hotels_sanjose Hide
hotels_sanantonio Hide
hotels_sanmiguel Hide
hotels_santaeularia Hide
EndEvent
EndObject



##########################
# nightlife             #
##########################

Object Button
  Name       nightlife
  Type       Graphical
  Bitmap     "ibiza_nightlife_off.gif"
  OverBitmap "ibiza_nightlife_on.gif"
  Top        60
  Left       530

Event Click
  mainBrowser.Location "http://www.ibiza4all.org/links/index.php?PHPSESSID=19dc9725b29e34a6bee0b72d5135be94&PID=43"
    MainForm.bitmap "ibiza_body.gif"
  MainForm.SetShapeBMP
  open  Hide

  sluit Show
  ibiza_body Hide
  url_body Show
  beaches_body  Hide
  terug Show
  vooruit Show
    iBox Show
  beaches_close Hide
 beaches_ibiza Hide
beaches_sanjose Hide
beaches_sanantonio Hide
beaches_sanjuan Hide
beaches_santaeularia Hide
hotels_body Hide
hotels_ibiza Hide
hotels_playa Hide
hotels_sanjose Hide
hotels_sanantonio Hide
hotels_sanmiguel Hide
hotels_santaeularia Hide
EndEvent
EndObject




##########################
# sports                 #
##########################

Object Button
  Name       sports
  Type       Graphical
  Bitmap     "ibiza_sports_off.gif"
  OverBitmap "ibiza_sports_on.gif"
  Top        60
  Left       609

Event Click
  mainBrowser.Location "http://www.ibiza4all.org/links/index.php?PHPSESSID=19dc9725b29e34a6bee0b72d5135be94&PID=45"
  MainForm.bitmap "ibiza_body.gif"
  MainForm.SetShapeBMP
  open  Hide

  sluit Show
  ibiza_body Hide
  url_body Show
  beaches_body  Hide
  terug Show
  vooruit Show
    iBox Show  
  beaches_close Hide
 beaches_ibiza Hide
beaches_sanjose Hide
beaches_sanantonio Hide
beaches_sanjuan Hide
beaches_santaeularia Hide
hotels_body Hide
hotels_ibiza Hide
hotels_playa Hide
hotels_sanjose Hide
hotels_sanantonio Hide
hotels_sanmiguel Hide
hotels_santaeularia Hide
EndEvent
EndObject






##########################
# exit                  #
##########################

Object Button
  Name       sluit
  Type       Graphical
  Bitmap     "ibiza_exit_off.gif"
  OverBitmap "ibiza_exit_on.gif"
  Top        40
  Left       857

Event Click
 exit
  EndEvent
EndObject




##########################
#minimize #
##########################

Object Button
  Name       uit
  Type       Graphical
  Bitmap     "ibiza_min_off.gif"
  OverBitmap "ibiza_min_on.gif"
  Top        60
  Left       838
Event Click
   minimize
  EndEvent
EndObject


#######################
# navigate back button#
#######################

Object Button
  Type       Graphical
  Name       terug
  Bitmap     "http://www.ibiza4all.org/bac.gif"
  OverBitmap "http://www.ibiza4all.org/bac2.gif"
  Top        13
  Left       552

Event Click
    mainBrowser.Back
  EndEvent
EndObject



#######################
# navigate back button2#
#######################

Object Button
  Type       Graphical
  Name       urlterug
  Bitmap     "ibiza_back.gif"
  OverBitmap "ibiza_back2.gif"
  Top        57
  Left       817

Event Click
    mainBrowser.Back
  EndEvent
EndObject



###################
# browser screen  #
###################

Object     Browser
  Name     mainBrowser
  JSErrors  True
  Top       93
  Left      20
  Width    862
  Height   594
  Location "http://www.ibiza4all.org/ibz.htm"
EndObject 




#######################
# navigate Forward button#
#######################

Object Button
  Type       Graphical
  Name       vooruit
  Bitmap     "http://www.ibiza4all.org/fwd.gif"
  OverBitmap "http://www.ibiza4all.org/fwd1.gif"
  Top        14
  Left       814


Event Click
    mainBrowser.Forward
  EndEvent
EndObject

###########################################################################


##########################
# beaches Ibiza          #
##########################

Object Button
  Name       beaches_ibiza
  Type       Graphical
  Bitmap     "beaches_ibiza.gif"
  OverBitmap "beaches_ibiza2.gif"
  Top        20
  Left       121
visible  False
Event Click
  mainBrowser.Location "http://www.ibiza4all.org/beaches/ibiza/images.htm"
  MainForm.bitmap "beaches_body.gif"
  MainForm.SetShapeBMP
  open  Hide
  sluit Show
  ibiza_body Hide
  url_body Hide
  beaches_body  Show
  terug Hide
  vooruit Hide
    iBox Hide
  beaches_close Show
 beaches_ibiza Show
beaches_sanjose Show
beaches_sanantonio Show
beaches_sanjuan Show
beaches_santaeularia Show
EndEvent
EndObject

##########################
# beaches San Jose          #
##########################

Object Button
  Name       beaches_sanjose
  Type       Graphical
  Bitmap     "beaches_sanjose.gif"
  OverBitmap "beaches_sanjose2.gif"
  Top        20
  Left       207
visible  False
Event Click
  mainBrowser.Location "http://www.ibiza4all.org/beaches/san-jose/images.htm"
  MainForm.bitmap "beaches_body.gif"
  MainForm.SetShapeBMP
  open  Hide
  sluit Show
  ibiza_body Hide
  url_body Hide
  beaches_body  Show
  terug Hide
  vooruit Hide
    iBox Hide
  beaches_close Show
 beaches_ibiza Show
beaches_sanjose Show
beaches_sanantonio Show
beaches_sanjuan Show
beaches_santaeularia Show
EndEvent
EndObject

##########################
# beaches San Antonio  #
##########################

Object Button
  Name       beaches_sanantonio
  Type       Graphical
  Bitmap     "beaches_sanantonio.gif"
  OverBitmap "beaches_sanantonio2.gif"
  Top        20
  Left       335
visible  False
Event Click
  mainBrowser.Location "http://www.ibiza4all.org/beaches/sant-antonio/images.htm"
  MainForm.bitmap "beaches_body.gif"
  MainForm.SetShapeBMP
  open  Hide
  sluit Show
  ibiza_body Hide
  url_body Hide
  beaches_body  Show
  terug Hide
  vooruit Hide
    iBox Hide
  beaches_close Show
 beaches_ibiza Show
beaches_sanjose Show
beaches_sanantonio Show
beaches_sanjuan Show
beaches_santaeularia Show
EndEvent
EndObject

##########################
# beaches San Juan  #
##########################

Object Button
  Name       beaches_sanjuan
  Type       Graphical
  Bitmap     "beaches_sanjuan.gif"
  OverBitmap "beaches_sanjuan2.gif"
  Top        20
  Left       481
visible  False
Event Click
  mainBrowser.Location "http://www.ibiza4all.org/beaches/sant-juan/images.htm"
  MainForm.bitmap "beaches_body.gif"
  MainForm.SetShapeBMP
  open  Hide
  sluit Show
  ibiza_body Hide
  url_body Hide
  beaches_body  Show
  terug Hide
  vooruit Hide
    iBox Hide
  beaches_close Show
 beaches_ibiza Show
beaches_sanjose Show
beaches_sanantonio Show
beaches_sanjuan Show
beaches_santaeularia Show
EndEvent
EndObject

##########################
# beaches Santaeularia  #
##########################

Object Button
  Name       beaches_santaeularia
  Type       Graphical
  Bitmap     "beaches_santaeularia.gif"
  OverBitmap "beaches_santaeularia2.gif"
  Top        20
  Left       602
visible  False
Event Click
  mainBrowser.Location "http://www.ibiza4all.org/beaches/santa-eulalia/images.htm"
  MainForm.bitmap "beaches_body.gif"
  MainForm.SetShapeBMP
  open  Hide
  sluit Show
  ibiza_body Hide
  url_body Hide
  beaches_body  Show
  terug Hide
  vooruit Hide
    iBox Hide
  beaches_close Show
 beaches_ibiza Show
beaches_sanjose Show
beaches_sanantonio Show
beaches_sanjuan Show
beaches_santaeularia Show
EndEvent
EndObject

###########################################################################


##########################
# hotels Ibiza          #
##########################

Object Button
  Name       hotels_ibiza
  Type       Graphical
  Bitmap     "hotels_ibiza.gif"
  OverBitmap "hotels_ibiza2.gif"
  Top        18
  Left       60
visible  False
Event Click
new "http://www.ibiza-hotelbrowser.com/ibizahotelbooking.bob" 
EndEvent
EndObject