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_137_WindowSwitcher.txt < prev    next >
Encoding:
Text File  |  1992-04-29  |  1.4 KB  |  23 lines
  1. # (decoded with TMPL 129)
  2. ItemType: WIND
  3. Rect: 189,288,347,310
  4. Style: Windoid
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. HasCloseBox: TRUE
  8. HasGrowBox: FALSE
  9. MinSize: 100,16
  10. MaxSize: 865,597
  11. Name: WindowSwitcher
  12. TextFont: Geneva
  13. TextSize: 9
  14. WhiteColor: -1,-1,-13108
  15. Script: --Example by Brian Molyneaux, Heizer Software¬¨--on windowEvent  wdID,wdName,objNo,objName,objValue¬¨¬¨if objValue="Open" then ¬¨  wsSet wdID,"1","Text",the windows¬¨  ¬¨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¬¨
  16.  
  17. ItemType: POP
  18. Rect: 2,2,156,20
  19. TextSize: 12
  20. AutoSize: FALSE
  21. WhiteColor: -8739,-8739,-8739
  22. Text: BigMessage¬¨Property Picker¬¨Message¬¨wsToolsBW¬¨Message Watcher¬¨Variable Watcher¬¨Scroll¬¨FatBits¬¨Patterns¬¨Tools¬¨WindowSwitcher¬¨WindowScript GM
  23. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¨if there is a window objValue then¬¨  if objValue‚â†wdName then¬¨    put the visible of window objValue into vis  ¬¨    set the visible of window objValue to not vis¬¨  end if¬¨else¬¨  answer "This window is no longer available‚Ķ Popup has been updated to reflect new windows."¬¨  wsSet wdID,1,TEXT, the windows¬¨end if¬¨wsSet wdID,1,"SELECTION",0¬¨--end mouseUp¬¨