MASPC 1/MASPC_1.iso/CursoWordI/AFICHAS.DXR/00036.ls

Text File | 1998-07-20 | 776 b | 35 lines

on exitFrame
  go(the frame)
end

on idle
  global MyCur, y_linum, y_textlines
  jdoscUP(12, 21)
  jdoscDOWN(13, 21)
  jDoRollover(5, 10, 11, 12)
end

on jdoscUP p_ilup, p_sprt
  global y_textlines, y_linum
  set txcastname to the name of cast the castNum of sprite p_sprt
  if the scrollTop of member txcastname <> 0 then
    jdocursor(p_ilup)
    jDoRollover(p_ilup)
  else
    set y_linum to y_textlines
    jdocursor(p_ilup * -1)
  end if
end

on jdoscDOWN p_ilup, p_sprt
  global y_textlines, y_linum
  set txcastname to the name of cast the castNum of sprite p_sprt
  if y_linum < the lineCount of member txcastname then
    jdocursor(p_ilup)
    jDoRollover(p_ilup)
  else
    set y_linum to the lineCount of member "txbodymask"
    jdocursor(p_ilup * -1)
  end if
end