home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- global LineStart, LineEnd
- repeat while the stillDown
- set LineStart to LineStart - 1
- set LineEnd to LineEnd - 1
- if LineStart < 1 then
- set LineStart to 1
- set LineEnd to 27
- end if
- put line LineStart to LineEnd of field "credits.source" into field "credits.destination"
- end repeat
- end
-