home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / image.dir / 00034.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  929 b   |  29 lines
  1. on mouseUp
  2.   global theImageList, recentPage, ImageWindow, whWindow
  3.   set whWindow to "small"
  4.   if the frame > 5 then
  5.     set photoRect to rect(26, 40, 474, 396)
  6.     set the rect of ImageWindow to photoRect
  7.   end if
  8.   if (the number of lines in theImageList - 1) <= 15 then
  9.     set recentPage to 1
  10.     go("recent1")
  11.   end if
  12.   if ((the number of lines in theImageList - 1) > 15) and ((the number of lines in theImageList - 1) <= 30) then
  13.     set recentPage to 2
  14.     go("recent2")
  15.   end if
  16.   if ((the number of lines in theImageList - 1) > 30) and ((the number of lines in theImageList - 1) <= 45) then
  17.     set recentPage to 3
  18.     go("recent3")
  19.   end if
  20.   if ((the number of lines in theImageList - 1) > 45) and ((the number of lines in theImageList - 1) <= 60) then
  21.     set recentPage to 4
  22.     go("recent4")
  23.   end if
  24.   if (the number of lines in theImageList - 1) > 60 then
  25.     set recentPage to 5
  26.     go("recent5")
  27.   end if
  28. end
  29.