-----------------------------------

yeyavailability

Tue May 27, 2008 7:39 pm


Nothing comes up after cls?

-----------------------------------

I have some procedures which generates a checkmark when you click a box (a manual, picture way of making a checkbox). I can't use real checkboxes for teacherly reasons, but here is the code:



var check_pic : int

%Checkmark for checkbox

procedure checkmark (x, y : int)
    check_pic := Pic.FileNew ("yes_check.bmp")
    Pic.Draw (check_pic, x, y, picMerge)
    Pic.Free (check_pic)
end checkmark

%Activates checkmark to go to selected page

procedure click (x1,x2,y1,y2,button,chk1,chk2 : int)
var mx, my, mb : int
loop
Mouse.Where (mx , my , mb)
if mx >= x1 and mx = x2 and my