home *** CD-ROM | disk | FTP | other *** search
/ Passport / passport.iso / pc / passport / dialog.dxr / Internal_14_Risposte.ls < prev    next >
Encoding:
Text File  |  1998-01-27  |  521 b   |  18 lines
  1. on mouseDown
  2.   global DlgCurr, Topic, Language
  3.   set i to integer((the mouseLine + 1) / 2)
  4.   if i > 3 then
  5.     set i to 3
  6.   end if
  7.   if i > 0 then
  8.     if string(the windowList) contains "Record" then
  9.       set the foreColor of line (i * 2) - 1 of field "Risposte" to GetColor("Red")
  10.       doSound("T" & Topic & "D" & GetValue(Son(GetParent(DlgCurr), i)) & Language, "Wait")
  11.       set the foreColor of line (i * 2) - 1 of field "Risposte" to GetColor("Black")
  12.     else
  13.       ContDialog(i)
  14.     end if
  15.   end if
  16.   pass()
  17. end
  18.