HyperTalk: Drawing Multiple Horizontal or Vertical Lines (7/92)

The first handler below is a quick way to get multiple horizontal lines
drawn on your cards. The second handler does the same thing with vertical
lines.

on mouseup
put 0 into vert
choose line tool
repeat with n=1 to 68
drag from 0,vert to 512,vert
put vert+5 into vert
end repeat
choose browse tool
end mouseup

on mouseup
put 0 into horiz
choose line tool
repeat with n=1 to 102
drag from horiz, 5 to horiz, 160
put horiz+5 into horiz
end repeat
choose browse tool
end mouseup

This article is adapted from the Claris Tech Info database.
Support Information Services
Published Date: Feb 19, 2012