#LoadingImage "http://www.ibiza4all.es/browser/pinguinbar/loading.gif"#

CacheLevel 2

Preload Images
  "pinguing_body.gif"
  "masks.gif"
  "pinguing_x.gif"
  "pinguing_x2.gif"
  "pinguing_min.gif"
  "pinguing_min2.gif"
  "pinguing_home.gif"
  "pinguing_home2.gif"
  "pinguing_gallery.gif"
  "pinguing_gallery2.gif"
  "pinguing_links.gif"
  "pinguing_links2.gif"
  "pinguing_gast.gif"
  "pinguing_gast2.gif"
  "pinguing_loc.gif"
  "pinguing_loc2.gif"
  "pinguing_ibz.gif"
  "pinguing_ibz2.gif"
  "pinguing_fw.gif"
  "pinguing_fw2.gif"
  "pinguing_bw.gif"
  "pinguing_bw2.gif"

EndPreload

Title "PinguinBar"


##########
# body   #
##########

Object Form
  Bitmap      "pinguing_body.gif"
  setShapeBMP

EndObject




#################
# screen       #
#################

Object Browser
  Name    mask
  Mask	   "masks.gif"
  JSErrors True
Top 119
Left 7
  Width    783
  Height   470
  Location "http://www.pinguinbar-ibiza.com"
visible True
EndObject









################
# pinguing exit#
################

 
Object Button
  Name       pinguingexit
  Type       Graphical
  Bitmap     "pinguing_x.gif"
  OverBitmap "pinguing_x2.gif"
  Top         13
  Left        767
  visible    True

Event Click
    Exit       
  EndEvent
EndObject


#######################
# pinguing minimize #
#######################

Object Button
  name       pinguingmin
  Type       Graphical
  Bitmap     "pinguing_min.gif"
  OverBitmap "pinguing_min2.gif"
  Top       13
  Left       742
  visible    True

Event Click
    Minimize
  EndEvent
EndObject

##########################
# pinguing Home#
##########################

Object Button
  Name       pinguinghome
  Type       Graphical
  Bitmap     "pinguing_home.gif"
  OverBitmap "pinguing_home2.gif"
  Top        94
  Left       20
  visible    True



Event Click

      mask.Location "http://www.pinguinbar-ibiza.com/"
  EndEvent
EndObject


#######################
# pinguing Gallery #
#######################

Object Button
  name       pinguinggallery
  Type       Graphical
  Bitmap     "pinguing_gallery.gif"
  OverBitmap "pinguing_gallery2.gif"
  Top       94
  Left       84
  visible    True

Event Click
    mask.Location "http://www.pinguinbar-ibiza.com/gal.html"
  EndEvent
EndObject


#######################
# pinguing Links #
#######################

Object Button
  name       pinguinglinks
  Type       Graphical
  Bitmap     "pinguing_links.gif"
  OverBitmap "pinguing_links2.gif"
  Top       94
  Left       164
  visible    True

Event Click
    mask.Location "http://www.pinguinbar-ibiza.com/link.html"
  EndEvent
EndObject

#######################
# pinguing Guestbook #
#######################

Object Button
  name       pinguinggast
  Type       Graphical
  Bitmap     "pinguing_gast.gif"
  OverBitmap "pinguing_gast2.gif"
  Top       94
  Left       229
  visible    True

Event Click
    mask.Location "http://www.pinguinbar-ibiza.com/cgi-bin/pinguin/guestbook/guest_i.cgi"
  EndEvent
EndObject

#######################
# pinguing Location #
#######################

Object Button
  name       pinguinggast
  Type       Graphical
  Bitmap     "pinguing_loc.gif"
  OverBitmap "pinguing_loc2.gif"
  Top       94
  Left       337
  visible    True

Event Click
    mask.Location "http://www.pinguinbar-ibiza.com/map.html"
  EndEvent
EndObject

#######################
# Ibiza4all #
#######################

Object Button
  name       ibiza4all
  Type       Graphical
  Bitmap     "pinguing_ibz.gif"
  OverBitmap "pinguing_ibz2.gif"
  Top       94
  Left       431
  visible    True

Event Click
    new "http://www.ibiza4all.es/ibiza/ibiza4all.bob" 
  EndEvent
EndObject

#######################
# Forward #
#######################

Object Button
  name       fw
  Type       Graphical
  Bitmap     "pinguing_fw.gif"
  OverBitmap "pinguing_fw2.gif"
  Top       94
  Left       762
  visible    True

Event Click
   mask.Forward
  EndEvent
EndObject

#######################
# Backward #
#######################

Object Button
  name       bw
  Type       Graphical
  Bitmap     "pinguing_bw.gif"
  OverBitmap "pinguing_bw2.gif"
  Top       94
  Left       549
  visible    True

Event Click
    mask.Back
  EndEvent
EndObject

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

Object InputBox
  Name   iBox
  Top    99
  Left   582
  Height 18
  Width  172
  Text "http://"
  visible    True
   
  Event Changed
    mask.Location iBox.Text
  Endevent
EndObject