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_140_Example Windows.txt < prev    next >
Encoding:
Text File  |  1992-04-29  |  1.7 KB  |  37 lines
  1. # (decoded with TMPL 129)
  2. ItemType: WIND
  3. Rect: 207,104,432,233
  4. Style: 16
  5. Logic: Windoid
  6. HasTitleBar: FALSE
  7. HasZoomBox: FALSE
  8. HasCloseBox: TRUE
  9. HasGrowBox: FALSE
  10. MinSize: 100,50
  11. MaxSize: 865,597
  12. Name: Example Windows
  13. WhiteColor: -21846,-21846,-21846
  14. Script: -- Example by Alan Pabst, Heizer Software¬¨--on windowEvent  wdID,wdName,objNo,objName,objValue¬¨¬¨if objValue="Open" then ¬¨  wsSet wdID,"0","HasGrowBox", "FALSE"¬¨  get resourceList("",LENS,NAME)¬¨  put it into tempList¬¨  repeat with i=1 to the number of lines in tempList¬¨    if line i of tempList=wdName then¬¨      delete line i of tempList¬¨      exit repeat¬¨    end if¬¨  end repeat¬¨  put tempList into theList¬¨  wsSet wdID,"3","Text", theList¬¨  wsSet wdID,"1","Disabled", "TRUE"¬¨  ¬¨else if objValue="Close" then ¬¨  ¬¨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
  15.  
  16. ItemType: PUSH
  17. Rect: 142,100,214,120
  18. AutoSize: FALSE
  19. Disabled: TRUE
  20. Name: Open
  21. DefaultItem: TRUE
  22. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨get wsGet(wdID,"3","SelectionText")¬¨put it into showExample¬¨get windowScript(showExample)¬¨--end mouseUp
  23.  
  24. ItemType: PUSH
  25. Rect: 8,100,88,120
  26. Name: Cancel
  27. CancelItem: TRUE
  28. AutoClose: TRUE
  29.  
  30. ItemType: LIST
  31. Rect: 8,8,218,90
  32. AutoSize: FALSE
  33. Text: Finder Icons!¬¨DragDemo¬¨LinkTo¬¨GroupText¬¨Disabler¬¨Validator¬¨Studio¬¨Caution¬¨ObjectMaster¬¨Distribution Splash¬¨SimpleText¬¨ProgressBox¬¨Find¬¨Alert¬¨Password¬¨WindowSwitcher¬¨Search&Replace¬¨Resource Display
  34. Logic: Single
  35. DoubleClickItem: 1
  36. KeyScroll: TRUE
  37. Script: wsSet wdID,"1","Disabled", (objValue="")¬¨