home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 1 / boot-disc-1996-08.iso / bootcd.dir / 00552_Script_552 < prev    next >
Text File  |  1996-07-02  |  1KB  |  23 lines

  1. on exitFrame
  2.   new(script "ZylonClass",7)
  3.   new(script "TVClass")
  4.   global treeobj
  5.   set treeobj=new(script "FileTreeClass")
  6.   loadtrees treeobj
  7.   put GetLeafText(treeobj,"WorkBench","Utilities") into field "UtilitiesText"
  8.   set the forecolor of member "UtilitiesText" to 112
  9.   put GetLeafText(treeobj,"WorkBench","Resources") into field "ResourcesText"
  10.   set the forecolor of member "ResourcesText" to 112
  11.   put GetLeafText(treeobj,"WorkBench","Shareware") into field "SharewareText"
  12.   set the forecolor of member "SharewareText" to 112
  13.   set the fontstyle of member "UtilitiesText" to "plain"
  14.   set the fontstyle of member "ResourcesText" to "plain"
  15.   set the fontstyle of member "SharewareText" to "plain"
  16.   preLoadMember member "SharewareHi"
  17.   preLoadMember member "UtilitiesHi"
  18.   preLoadMember member "ResourcesHi"
  19.   preLoadMember member "JustDoItDown",member "JustDoItHi"
  20.   preLoadMember member "getbackdown"
  21.   setpuppets 2,4,true
  22.   put "Click on any application to select it." into field "DemoInfo"
  23. end