home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / Main / 307.0 < prev    next >
Text File  |  2002-08-17  |  330b  |  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 <= 100) & (zoompercent > 25) then
  9.     zoompercent=zoompercent-25
  10.   when zoompercent = 150 then
  11.     zoompercent=100
  12.   otherwise
  13.     zoompercent=150
  14. end
  15.  
  16. call zoomimage
  17.