home *** CD-ROM | disk | FTP | other *** search
/ MASPC 1 / MASPC_1.iso / CursoWordI / AFICHAS.DXR / 00010.ls < prev    next >
Encoding:
Text File  |  1998-07-20  |  2.2 KB  |  86 lines
  1. on mouscrollUP p_sprt
  2.   global y_mouwait, y_linum, y_textlines
  3.   set txcastname to the name of cast the castNum of sprite p_sprt
  4.   startTimer()
  5.   set l_mouroll to #PAGE
  6.   repeat while the mouseDown = 1
  7.     if the timer < y_mouwait then
  8.       nothing()
  9.       next repeat
  10.     end if
  11.     set l_mouroll to #line
  12.     exit repeat
  13.   end repeat
  14.   if l_mouroll = #line then
  15.     repeat while the mouseDown = 1
  16.       scrollByLine(member txcastname, -1)
  17.       set y_linum to y_linum - 1
  18.       jDoPause(5)
  19.       updateStage()
  20.     end repeat
  21.   else
  22.     set the visible of sprite the clickOn to 0
  23.     scrollByPage(member txcastname, -1)
  24.     set y_linum to y_linum - y_textlines
  25.   end if
  26. end
  27.  
  28. on mouscrolldown p_sprt
  29.   global y_mouwait, y_linum, y_textlines
  30.   set txcastname to the name of cast the castNum of sprite p_sprt
  31.   startTimer()
  32.   set l_mouroll to #PAGE
  33.   repeat while the mouseDown = 1
  34.     if the timer < y_mouwait then
  35.       nothing()
  36.       next repeat
  37.     end if
  38.     set l_mouroll to #line
  39.     exit repeat
  40.   end repeat
  41.   if l_mouroll = #line then
  42.     repeat while the mouseDown = 1
  43.       scrollByLine(member txcastname, 1)
  44.       set y_linum to y_linum + 1
  45.       jDoPause(5)
  46.       updateStage()
  47.       if y_linum >= the lineCount of member txcastname then
  48.         set y_linum to the lineCount of member txcastname
  49.         set the visible of sprite the clickOn to 0
  50.         exit repeat
  51.       end if
  52.     end repeat
  53.   else
  54.     set the visible of sprite the clickOn to 0
  55.     scrollByPage(member txcastname, 1)
  56.     set y_linum to y_linum + y_textlines
  57.     if y_linum > the lineCount of member txcastname then
  58.       set y_linum to the lineCount of member txcastname
  59.     end if
  60.   end if
  61. end
  62.  
  63. on jdoscUP p_ilup, p_sprt
  64.   global y_textlines, y_linum
  65.   set txcastname to the name of cast the castNum of sprite p_sprt
  66.   if the scrollTop of member txcastname <> 0 then
  67.     jdocursor(p_ilup)
  68.     jDoRollover(p_ilup)
  69.   else
  70.     set y_linum to y_textlines
  71.     jdocursor(p_ilup * -1)
  72.   end if
  73. end
  74.  
  75. on jdoscDOWN p_ilup, p_sprt
  76.   global y_textlines, y_linum
  77.   set txcastname to the name of cast the castNum of sprite p_sprt
  78.   if y_linum < the lineCount of member txcastname then
  79.     jdocursor(p_ilup)
  80.     jDoRollover(p_ilup)
  81.   else
  82.     set y_linum to the lineCount of member "TDMask"
  83.     jdocursor(p_ilup * -1)
  84.   end if
  85. end
  86.