Code: Select all
global scrollLock
on mouseDown
put true into scrollLock
end mouseDown
on selectionChanged
wait until the mouse is up
put the selectedChunk into tChunk
if word 2 of tChunk < word 4 of tChunk
then
answer "Choose color" with "Red" or "Blue" or "Yellow" or "Clear" as sheet
if it = "Clear" then get the effective backgroundColor of me
set the backgroundcolor of tChunk to it
select empty
end if
put false into scrollLock
end selectionChanged
on scrollerDidScroll hOffset, vOffset
if scrollLock then exit scrollerDidScroll
fwmobScroll hOffset, vOffset, mobileControlTarget()
pass scrollerDidScroll
end scrollerDidScroll