home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / alert.dxr / 00009_button.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.0 KB  |  51 lines
  1. property pSprite, pButton
  2. global gWindowAlertResult
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #pButton, [#default: "Yes", #format: #string, #comment: "nome bottone"])
  7.   return description
  8. end
  9.  
  10. on beginSprite me
  11.   pSprite = me.spriteNum
  12.   case pButton of
  13.     "yes":
  14.       pDisabled = "No_disabled"
  15.     "no":
  16.       pDisabled = "Yes_disabled"
  17.   end case
  18. end
  19.  
  20. on mouseDown me
  21.   vPressed = pButton & "_pressed"
  22.   vEnabled = pButton & "_enabled"
  23.   sprite(pSprite).member = vPressed
  24.   case pButton of
  25.     "yes":
  26.       sprite(3).member = "No_disabled"
  27.     "no":
  28.       sprite(2).member = "Yes_disabled"
  29.   end case
  30.   updateStage()
  31.   repeat while the stillDown
  32.     if rollOver() = pSprite then
  33.       sprite(pSprite).member = vPressed
  34.       updateStage()
  35.       next repeat
  36.     end if
  37.     sprite(pSprite).member = vEnabled
  38.     updateStage()
  39.   end repeat
  40.   if rollOver() = pSprite then
  41.     case pButton of
  42.       "yes":
  43.         gWindowAlertResult = 1
  44.       "no":
  45.         gWindowAlertResult = 0
  46.     end case
  47.     close()
  48.   else
  49.   end if
  50. end
  51.