AppleWorks
AppleWorks
- Subject: AppleWorks
- From: Ian King <email@hidden>
- Date: Tue, 11 Mar 2003 01:47:37 +0000
fabrice,
>
2/ My last question for today is:
>
>
Can I move any selected rectangle or line ... inside a window of
>
Appleworks ( and how? )
from an object selected on the left of the page, try this.
tell app "AppleWorks 6"
activate -- to bring it to front, to watch it working
get properties of selection -- find out what we can change? see Log
copy bounds of selection as list to {x1, y1, x2, y2}
repeat
set x1 to x1 + 10 -- move to the right
set x2 to x2 + 10
set y1 to y1 + 5 -- move down
set y2 to y2 + 5
-- make sure 1 & 2 match, as "bounds"
-- is not the same as shape of object
-- this slows it down, so you can see it working, prefix with
-- , or remove later
say x1 & " " & y1 & " " & x2 & " " & y2 as text
set properties of selection to {bounds:{x1, y1, x2, y2}}
if x1 is greater than 200 then exit repeat
--don't want it to go on forever!
--or Apple full stop, to stop
end repeat
end
_____________
2/ here is my
3/ thinking
careful of breaks and odd characters!
tell app "AppleWorks 6"
make at drawing area of document 1 with properties ,
{start point:{100, 50}, point:{150, 100}, end point:{150, 50},
autosmooth:{true}, fill color:{65535, 0, 0}} new polygon
-- R,G,B, 0 (Black) to 65535 (Full strength, all 3=White)
make at drawing area of document 1 with properties
{bounds:{220, 338, 340, 394}} new line
make at drawing area of document 1 with properties
{start point:{220, 394}, end point:{340, 338}} new line
end tell
Hope That Helps, &B-) Ian
No Spam, Please reply to newsgroup!
_______________________________________________
applescript-users mailing list | email@hidden
Help/Unsubscribe/Archives:
http://www.lists.apple.com/mailman/listinfo/applescript-users
Do not post admin requests to the list. They will be ignored.