home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 2 / boot-disc-1996-10.iso / bootcd.dir / 00274_Script_274 < prev    next >
Text File  |  1996-08-09  |  1KB  |  26 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,"Demos","Games") into field "GamesText"
  8.   set the forecolor of member "GamesText" to 212
  9.   put GetLeafText(treeobj,"Demos","Leisure") into field "LeisureText"
  10.   set the forecolor of member "LeisureText" to 212
  11.   put GetLeafText(treeobj,"Demos","Apps") into field "AppsText"
  12.   set the forecolor of member "AppsText" to 212
  13.   set the fontstyle of member "GamesText" to "plain"
  14.   set the fontstyle of member "LeisureText" to "plain"
  15.   set the fontstyle of member "AppsText" to "plain"
  16.   preLoadMember member "AppsHi"
  17.   preLoadMember member "GamesHi"
  18.   preLoadMember member "LeisureHi"
  19.   preLoadMember member "JustDoItDown",member "JustDoItHi"
  20.   preLoadMember member "getbackdown"
  21.   setpuppets 2,4,true
  22.   put "" into field "DemoInfo"
  23.   global robj,gStatus
  24.   set robj=new(script "RolloverClass","l_")
  25.   setbtnText gStatus,"default","Click on any application to select it."
  26. end