home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boot Disc 1
/
boot-disc-1996-08.iso
/
bootcd.dir
/
00553_Script_553
< prev
next >
Wrap
Text File
|
1996-07-02
|
2KB
|
35 lines
on mouseDown
set membername=the name of member the membernum of sprite the clickon
set pos=offset("Text",membername)
delete char pos to length(membername) of membername
SelectWorkBench membername
global treeobj
set the activebase of treeobj to "WorkBench"
set the activemid of treeobj to membername
puppetsprite 10,true
set the membernum of sprite 10 to the number of member "justdoit"
if the mouseline<1 then
put "You must click on the name of a game or application to select it." into field "DemoInfo"
set the activeleaf of treeobj to 0
else
repeat with fieldname in ["UtilitiesText","ResourcesText","SharewareText"]
set the textstyle of field fieldname to "plain"
end repeat
set the textstyle of line the mouseline of field (the membernum of sprite the clickon) to "bold"
set curline=the mouseline
if curline>0 then
set leaf=line the mouseline of field (the membernum of sprite the clickon)
put the activemid of treeobj&return&leaf into field "DemoInfo"
set the textstyle of member "DemoInfo" to "plain"
set the textstyle of line 1 of field "DemoInfo" to "bold"
-- put the text of member ("de_"&leaf) into field "DemoInfo"
set the activeleaf of treeobj to leaf
puppetsprite 10,true
set the membernum of sprite 10 to the number of member "justdoithi"
else
put "Please select an application from one of the categories above." into field "DemoInfo"
set the textstyle of field "DemoInfo" to "plain"
end if
end if
updateStage
end