home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / demos.dxr / 00142.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  491 b   |  19 lines
  1. global hydrolijst, entert
  2.  
  3. on exitFrame
  4.   put "pipo"
  5.   if entert = "<1" then
  6.     entert = ">1"
  7.     setcurrentSW(getAt(hydrolijst, 1), "b1 id")
  8.     setcurrentSW(getAt(hydrolijst, 2), "b2 id")
  9.     setcurrentSW(getAt(hydrolijst, 3), "b3 md")
  10.     setcurrentSW(getAt(hydrolijst, 4), "b4 id")
  11.   end if
  12.   back = new(script("cb"), 10, "back id", "back hi", "back md", "bck")
  13.   cbbtn(getAt(hydrolijst, 1))
  14.   cbbtn(getAt(hydrolijst, 2))
  15.   cbbtn(getAt(hydrolijst, 4))
  16.   cbbtn(back)
  17.   go(the frame)
  18. end
  19.