home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cocktail Hour
/
image.iso
/
COCKTAIL.DIR
/
00027_Script_27
< prev
next >
Wrap
Text File
|
1997-03-05
|
2KB
|
64 lines
on mouseDown
global ScrollVec
set hlArrow=(the clickOn)+20
set the visible of sprite hlArrow=1
updateStage
set QueryFieldVec=["alco","non-alco","other","total"]
set x=(the clickOn)/2-4
set currField=getAt(QueryFieldVec,x)
set currScroll=getAt(ScrollVec,x)
if currField="total" then
repeat with i=18 to 25
set the visible of sprite i=0
end repeat
global current,numHits
repeat while the mouseDown
if current=0 then
if currScroll>1 then
set currScroll=currScroll-1
set the text of field ("query-"&currField)=line currScroll to currScroll+8 of field "abc"
end if
else
set MaxLines=count(Current)
if currScroll>1 then
set currScroll=currScroll-1
repeat with i=1 to 9
set totalLine=getat(Current,currscroll+i-1)
put line totalLine of field "names" into line i of field "total"
end repeat
set the text of field ("query-"&currField)=the text of field currField
end if
end if
end repeat
set hitChannels=numHits-currScroll+1
if hitChannels>8 then set hitChannels=8
repeat with i=1 to hitChannels
set the visible of sprite i+17=1
end repeat
setAt ScrollVec, x, currScroll
else
global compVec
repeat while the mouseDown
if currScroll>1 then
set currScroll=currScroll-1
set the text of field ("query-"&currField)=line currScroll to currScroll+4 of field currField
repeat with i=1 to 5
set lineChecked=currField&(currScroll+i-1)
global compvec
if getPos(compVec,lineChecked)=0 then
set the forecolor of line i of field ("query-"&currField)=204
else
set the forecolor of line i of field ("query-"&currField)=35
end if
end repeat
--updatestage
end if
setAt ScrollVec, x, currScroll
end repeat
end if
set the visible of sprite hlArrow=0
end