home *** CD-ROM | disk | FTP | other *** search
/ GU 15 - Background Photo Collection - Hanabi / gu15.iso / pc / browser.exe / browser.DXR / 00024_sizehv.ls < prev    next >
Encoding:
Text File  |  1996-09-12  |  595 b   |  28 lines
  1. on mouseDown
  2.   pushfield()
  3. end
  4.  
  5. on mouseUp
  6.   global gextension
  7.   set cst to the castNum of sprite clickOn()
  8.   set v to field cst
  9.   if v = "120x90" then
  10.     put "240x180" into field cst
  11.   else
  12.     if v = "240x180" then
  13.       put "640x480" into field cst
  14.     else
  15.       if v = "640x480" then
  16.         put "3072x2048" into field cst
  17.         put "24bit" into field "colorDepth"
  18.       else
  19.         if v = "3072x2048" then
  20.           put "120x90" into field cst
  21.         end if
  22.       end if
  23.     end if
  24.   end if
  25.   initmachine()
  26.   put char 1 to 6 of field "FileName" & gextension into field "FileName"
  27. end
  28.