# TEST.BISL - a simple demo of what BISL can do 
# 
# Simon Levy                 University of Tennessee                  1996

# create four buttons 

g1 < giff(gifbtn.gif)
p1 < place(g1, 20, 20) 
image(p1) 

g2 < giff(urlbtn.gif) 
p2 < place(g2, 20, 120) 
image(p2) 

g3 < giff(sndbtn.gif) 
p3 < place(g3, 240, 20) 
image(p3) 

g4 < giff(hlpbtn.gif) 
p4 < place(g4, 240, 120) 
image(p4) 

# associate some text with each button via rollover

s1 < string('Click down to toggle image', TimesRoman, BOLD, 12, white) 
ps1 < place(s1, 20, 70) 
r1 = roll(p1) 
text(ps1, r1) 

s2 < string('Click & release to move to new page', TimesRoman, BOLD, 12, white) 
ps2 < place(s2, 20, 170) 
r2 = roll(p2) 
text(ps2, r2) 

s3 < string('Click down to play sound', TimesRoman, BOLD, 12, white) 
ps3 < place(s3, 240, 70) 
r3 = roll(p3) 
text(ps3, r3) 

s4 < string('Click & release to toggle help', TimesRoman, BOLD, 12, white) 
ps4 < place(s4, 240, 170) 
r4 = roll(p4) 
text(ps4, r4) 

# associate some behavior with each button 

c1 = dclick(p1)
t1 = tog(c1) 
g5 < giff(picture.gif) 
p5 < place(g5, 200, 20) 
image(p5, t1) 

t2 = click(p2) 
url(http://www.cs.utk.edu/~beck, t2) 

t3 = dclick(p3) 
sound(doh.au, t3) 

g3a < giff(btn2.gif) 
p3a < place(g3a, 20, 20) 
image(p3a, t1) 

c4 = click(p4)
t4 = tog(c4) 
s5 < string('Help is on the way!!', TimesRoman, ITALIC, 24, blue) 
p5 < place(s5, 100, 100) 
text(p5, t4) 

p4a < place(g3a, 240, 120) 
image(p4a, t4) 

# put up a nice background 

g6 < giff(yy.gif) 
back(g6)