home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / Main / 306.0 < prev    next >
Text File  |  2002-08-17  |  305b  |  17 lines
  1. /* Menu events - + */
  2. Arg window self
  3.  
  4. /* Get item value 1017 Spin Button */
  5. zoompercent = VpGetItemValue(window,1017)
  6.  
  7. select
  8.   when zoompercent <= 75 then
  9.     zoompercent=zoompercent+25
  10.   when zoompercent = 100 then
  11.     zoompercent=150
  12.   otherwise
  13.     zoompercent=25
  14. end
  15.  
  16. call zoomimage
  17.