home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / demos.dxr / 00132.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  1.1 KB  |  33 lines
  1. global hydrolijst, entert, Revoltlijst
  2.  
  3. on exitFrame
  4.   if entert = "<1" then
  5.     maakDeRevoltActief("ho0")
  6.     entert = ">1"
  7.     put "mike"
  8.     setcurrentSW(getAt(hydrolijst, 1), "b1 id")
  9.     setcurrentSW(getAt(hydrolijst, 2), "b2 md")
  10.     setcurrentSW(getAt(hydrolijst, 3), "b3 id")
  11.     setcurrentSW(getAt(hydrolijst, 4), "b4 id")
  12.     setcurrentSz(getAt(Revoltlijst, 1), "Revolt1 id")
  13.     setcurrentSz(getAt(Revoltlijst, 2), "Revolt2 id")
  14.     setcurrentSz(getAt(Revoltlijst, 3), "Revolt3 id")
  15.     setcurrentSz(getAt(Revoltlijst, 4), "Revolt4 id")
  16.     setcurrentSz(getAt(Revoltlijst, 5), "Revolt5 id")
  17.     setcurrentSz(getAt(Revoltlijst, 6), "Revolt6 id")
  18.     setcurrentSz(getAt(Revoltlijst, 7), "Revolt7 md")
  19.   end if
  20.   back = new(script("cb"), 10, "back id", "back hi", "back md", "bck")
  21.   cbbtn2(getAt(Revoltlijst, 1))
  22.   cbbtn2(getAt(Revoltlijst, 2))
  23.   cbbtn2(getAt(Revoltlijst, 3))
  24.   cbbtn2(getAt(Revoltlijst, 4))
  25.   cbbtn2(getAt(Revoltlijst, 5))
  26.   cbbtn2(getAt(Revoltlijst, 6))
  27.   cbbtn(getAt(hydrolijst, 1))
  28.   cbbtn(getAt(hydrolijst, 3))
  29.   cbbtn(getAt(hydrolijst, 4))
  30.   cbbtn(back)
  31.   go(the frame)
  32. end
  33.