home *** CD-ROM | disk | FTP | other *** search
/ Better Homes & Gardens: …oking for Today - Chicken / Image.iso / pc / utility.dxr / 00107_UNUTRIFB.PIC.ls < prev    next >
Encoding:
Text File  |  1995-11-20  |  178 b   |  13 lines
  1. on mouseDown
  2.   global gNutritionButton
  3.   down(gNutritionButton)
  4. end
  5.  
  6. on mouseUp
  7.   global gNutritionButton
  8.   helpOff()
  9.   if up(gNutritionButton) then
  10.     nutrition()
  11.   end if
  12. end
  13.