home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / U-Z / WindowScript™.Demo / WindowScript™ 1.0 Working Model / WindowScript™ 1.0 Working Model.rsrc / LENS_16413_Alert.txt < prev    next >
Encoding:
Text File  |  1992-04-29  |  1.6 KB  |  28 lines
  1. # (decoded with TMPL 129)
  2. ItemType: WIND
  3. Rect: 187,128,452,266
  4. Style: Dialog
  5. HasTitleBar: FALSE
  6. HasZoomBox: FALSE
  7. Name: Alert
  8. Script: -- Example by Alan Pabst, Heizer Software¬¨--on windowEvent  wdID,wdName,objNo,objName,objValue¬¨¬¨if objValue="Open" then ¬¨  wsSet wdID,"3","Text", "Warning!  If you continue you risk becoming a WindowScript addict.  There is no known cure...Do you want to continue?"¬¨  wsSet wdID,"4","ID", "0"¬¨  wsSet wdID,"Yes","Visible", "TRUE"¬¨  wsSet wdID,"Cancel","Visible", "TRUE"¬¨  ¬¨  ¬¨else if objValue="Close" then ¬¨  wsSet wdID,"Yes","Visible", "TRUE"¬¨  wsSet wdID,"Cancel","Visible", "TRUE"¬¨  ¬¨else if objValue="Suspend" then ¬¨  ¬¨else if objValue="Resume" then ¬¨  ¬¨else if objValue="CloseBox" then ¬¨  ¬¨else if objValue="ZoomBox" then ¬¨  ¬¨else if objValue="GrowBox" then ¬¨  ¬¨else if objValue="TitleBar" then ¬¨  ¬¨end if¬¨¬¨--end windowEvent
  9.  
  10. ItemType: PUSH
  11. Rect: 179,103,251,123
  12. Name: Yes
  13. DefaultItem: TRUE
  14. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨wsSet wdID,"4","ID", "4648"¬¨wsSet wdID,"3","Text", "Congratulations!  You have taken the first step to becoming a HyperCard guru."¬¨wsSet wdID,"Yes","Visible", "false"¬¨wsSet wdID,"Cancel","Visible", "false"¬¨wsSend wdID,"Alert","DoUpdate"¬¨wait 150¬¨wsSend "Alert",0,"close"¬¨--end mouseUp¬¨¬¨
  15.  
  16. ItemType: PUSH
  17. Rect: 9,103,89,123
  18. Name: Cancel
  19. CancelItem: TRUE
  20. AutoClose: TRUE
  21.  
  22. ItemType: TEXT
  23. Rect: 57,8,254,88
  24. Text: Warning!  If you continue you risk becoming a WindowScript addict.  There is no known cure...Do you want to continue?
  25.  
  26. ItemType: ICON
  27. Rect: 9,8,41,40
  28. Name: Stop