home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / digi.dxr / 00040.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  1.2 KB  |  39 lines
  1. global chapterlijst, pijl, entert, pijl2
  2.  
  3. on exitFrame
  4.   if entert = "<1" then
  5.     pijl2 = 0
  6.     entert = ">1"
  7.     setcurrentCH(getAt(chapterlijst, 1), "l1 id")
  8.     setcurrentCH(getAt(chapterlijst, 2), "l2 id")
  9.     setcurrentCH(getAt(chapterlijst, 3), "l3 id")
  10.     setcurrentCH(getAt(chapterlijst, 4), "l4 id")
  11.     setcurrentCH(getAt(chapterlijst, 5), "l5 id")
  12.     setcurrentCH(getAt(chapterlijst, 6), "l6 id")
  13.     setcurrentCH(getAt(chapterlijst, 7), "l7 md")
  14.     setcurrentCH(getAt(chapterlijst, 8), "l8 id")
  15.     setcurrentCH(getAt(chapterlijst, 9), "l9 id")
  16.     setcurrentCH(getAt(chapterlijst, 10), "l10 id")
  17.     maakScrollpijl("right", 650, 0, 150, "nee")
  18.   end if
  19.   if chapterlijst = [] then
  20.     maakchaptersActief()
  21.   end if
  22.   back = new(script("cb"), 11, "back id", "back hi", "back md", "bck")
  23.   focus = new(script("cb"), 10, "focus id", "focus hi", "focus md", "focus")
  24.   cbbtn(back)
  25.   cbbtn(focus)
  26.   cbbtn(pijl)
  27.   slid(getAt(chapterlijst, 1))
  28.   slid(getAt(chapterlijst, 2))
  29.   slid(getAt(chapterlijst, 3))
  30.   slid(getAt(chapterlijst, 4))
  31.   slid(getAt(chapterlijst, 5))
  32.   slid(getAt(chapterlijst, 6))
  33.   slid(getAt(chapterlijst, 7))
  34.   slid(getAt(chapterlijst, 8))
  35.   slid(getAt(chapterlijst, 9))
  36.   slid(getAt(chapterlijst, 10))
  37.   go(the frame)
  38. end
  39.