home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 2 / boot-disc-1996-10.iso / bootcd.dir / 00286_Script_286 < prev    next >
Text File  |  1996-08-09  |  2KB  |  36 lines
  1. on mouseDown
  2.   set membername=the name of member the membernum of sprite the clickon
  3.   set pos=offset("Text",membername)
  4.   delete char pos to length(membername) of membername
  5.   SelectWorkBench membername
  6.   global treeobj
  7.   set the activebase of treeobj to "WorkBench"
  8.   set the activemid of treeobj to membername
  9.   puppetsprite 10,true
  10.   set the membernum of sprite 10 to the number of member "justdoit"
  11.   if the mouseline<1 then
  12.     put "You must click on the name of a game or application to select it." into field "DemoInfo"
  13.     set the activeleaf of treeobj to 0
  14.   else
  15.     repeat with fieldname in ["UtilitiesText","ResourcesText","SharewareText"]
  16.       set the textstyle of field fieldname to "plain"
  17.     end repeat
  18.     set the textstyle of line the mouseline of field (the membernum of sprite the clickon) to "bold"
  19.     set curline=the mouseline
  20.     if curline>0 then
  21.       set leaf=line the mouseline of field (the membernum of sprite the clickon) 
  22.       put the activemid of treeobj&return&leaf into field "DemoInfo"
  23.       set the forecolor of member "DemoInfo" to 212
  24.       set the textstyle of member "DemoInfo" to "plain"
  25.       set the textstyle of line 1 of field "DemoInfo" to "bold"
  26.       -- put the text of member ("de_"&leaf) into field "DemoInfo"
  27.       set the activeleaf of treeobj to leaf
  28.       puppetsprite 10,true
  29.       set the membernum of sprite 10 to the number of member "justdoithi"
  30.     else
  31.       put "Please select an application from one of the categories above." into field "DemoInfo"
  32.       set the textstyle of field "DemoInfo" to "plain"
  33.     end if
  34.   end if
  35.   updateStage
  36. end