Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!brutus.cs.uiuc.edu!psuvax1!psuvm!gfx
From: GFX@psuvm.psu.edu
Newsgroups: comp.sys.mac.hypercard
Subject: Re: Scripting Polygons & New Buttons
Message-ID: <90050.104401GFX@psuvm.psu.edu>
Date: 19 Feb 90 15:44:01 GMT
References: <46@exodus.Eng.Sun.COM>
Distribution: usa
Organization: Penn State University
Lines: 36

In article <46@exodus.Eng.Sun.COM>, woodard@troll.sun.com (Mike &) says:
>
>Hypercard and Supercard do something unexpected when I try
>to make a polygon from a script.

Right!  I've recently been through what you describe (actually a very nice
feature to have users define new shapes while still in control of a script).
Try the following.  Note that >coordinates< is a container holding the
coordinates of all points used to defined the boundaries of your new button.
Hope this helps.  Stephane

on itemSelect
  set lockScreen to true
.
.
.
    choose button tool
    drag from 10,10 to 20,20 with commandkey
    put the number of buttons of this card into NewArea
    set the style of button NewArea to polygon
.
.
.
    set the autohilite of button NewArea to true
    set the fillback of button NewArea to 37
    set the fillpat of button NewArea to 1
.
.
.
    set the points of button NewArea to coordinates
.
.
.
  choose browse tool
  set lockScreen to false
end itemSelect