SKIP - The Laundry Guide/LEVER_CD.iso/lever/ccmain.dir/00021_popuptext.ls

Text File | 1997-02-21 | 1.4 KB | 55 lines

on mouseUp
  global gOldLine, gFromFrame, gLowlightColor, languagechosen, colorcount
  case gOldLine of
    1, 2, 12, 13, 14, 18:
      set the foreColor of line gOldLine of member "popuptext" of castLib languagechosen to 0
    otherwise:
      set the foreColor of line gOldLine of member "popuptext" of castLib languagechosen to gLowlightColor
  end case
  cursor(4)
  case the mouseLine of
    1:
      go(colorcount, the pathName & "MAIN")
    2:
      go(colorcount, the pathName & "CCMAIN")
    3:
      go(colorcount, the pathName & "CCDD")
    4:
      go(colorcount, the pathName & "CCWD")
    5:
      go(colorcount, the pathName & "CCSF")
    6:
      go(colorcount, the pathName & "CCFCL")
    7:
      go(colorcount, the pathName & "CCSG")
    8:
      go(colorcount, the pathName & "CCBR")
    9:
      go(colorcount, the pathName & "CCWDIS")
    10:
      go(colorcount, the pathName & "CCIT")
    11:
      go(colorcount, the pathName & "CCHFS")
    12:
      go(colorcount, the pathName & "CCPFT")
    13:
      go(1, the pathName & "TVMAIN")
    14:
      go(1, the pathName & "ENVMAIN")
    15:
      go(1, the pathName & "SSMAIN")
    16:
      go(1, the pathName & "SSVG")
    17:
      go(1, the pathName & "SSWA")
    18:
      go(1, the pathName & "SSFF")
    19:
      go(1, the pathName & "GAME")
    20:
      cursor(0)
    21:
      go(1, the pathName & "STOP")
  end case
end