home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / softcd / intro / examples.dir / 00020.ls < prev    next >
Encoding:
Text File  |  1999-10-22  |  483 b   |  21 lines
  1. on mouseUp
  2.   set the soundKeepDevice to 0
  3.   appPath = baFindApp("orl")
  4.   if appPath = EMPTY then
  5.     go(marker("install"))
  6.   else
  7.     primaryMonitor = getAt(the deskTopRectList, 1)
  8.     width = primaryMonitor.right - primaryMonitor.left
  9.     height = primaryMonitor.bottom - primaryMonitor.top
  10.     if width < 800 then
  11.       go(the frame + 1)
  12.     else
  13.       if height < 600 then
  14.         go(the frame + 1)
  15.       else
  16.         go(marker("multimedia"))
  17.       end if
  18.     end if
  19.   end if
  20. end
  21.