home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Updates / Flash / writeflash / Examples / button-url < prev    next >
Encoding:
Text File  |  2000-04-14  |  1.1 KB  |  70 lines
  1. // header
  2. FileVersion 1
  3.  
  4. FrameArea {
  5.   width 4000
  6.   height 4000
  7. }
  8.  
  9. FrameRate 10.0
  10.  
  11. BackgroundColour 800000
  12.  
  13. // define the shapes
  14. DefineShape {
  15.   id 1
  16.   bbox {
  17.     -40 -40 2040 2040
  18.   }
  19.   fillstyle {     // fillstyle #1
  20.     solid 800000ff // RGBA (AABBGGRR)
  21.   }
  22.   selectfillstyle0 1
  23.   moveby { 0 1000 }
  24.   curveby { 0 1000 1000 0 }
  25.   curveby { 1000 0 0 -1000 }
  26.   curveby { 0 -1000 -1000 0 }
  27.   curveby { -1000 0 0 1000 }
  28. }
  29. DefineShape {
  30.   id 2
  31.   bbox {
  32.     -40 -40 2040 2040
  33.   }
  34.   fillstyle {     // fillstyle #1
  35.     solid ffffffff // RGBA (AABBGGRR)
  36.   }
  37.   selectfillstyle0 1
  38.   moveby { 0 1000 }
  39.   curveby { 0 1000 1000 0 }
  40.   curveby { 1000 0 0 -1000 }
  41.   curveby { 0 -1000 -1000 0 }
  42.   curveby { -1000 0 0 1000 }
  43. }
  44.  
  45. Button {
  46.   id 3
  47.   up    { id 1  depth 1 }
  48.   over  { id 2  depth 1 }
  49.   actions { geturl {
  50.               url "http://localhost/"
  51.               target "__new"
  52.             }
  53.            }
  54. }
  55.  
  56. // place the shape on the screen
  57. PlaceObject {
  58.   depth 1
  59.   id 3
  60.   matrix {
  61.     65536 65536     // scale
  62.     0 0             // rotate
  63.     0 500           // translate
  64.   }
  65. }
  66. DoAction {
  67.   stop
  68. }
  69. ShowFrame { }       // frame #0
  70.