//Marcus Daniels Sept. 22, 1999 swarm-support list #import #import #import @interface Target: CreateDrop @end @implementation Target @end int main (int argc, const char **argv) { id aCanvas; id agentNode; id target; initSwarm (argc, argv); aCanvas = [Canvas create: globalZone]; [aCanvas setWidth: 400 Height: 400]; [aCanvas setWindowTitle: "Canvas"]; [aCanvas pack]; target = [Target create: globalZone]; { char aName[10]; int agentID = 5; sprintf(aName,"C%d", agentID); agentNode = [OvalNodeItem createBegin: globalZone]; [agentNode setCanvas: aCanvas]; [agentNode setX: 100 Y: 100]; [agentNode setString: aName]; [agentNode setFont: "{Arial 6}"]; [agentNode setTargetId: target]; agentNode=[agentNode createEnd]; [agentNode setColor: "tan"]; [agentNode setBorderColor: "pink"]; [agentNode setBorderWidth: 1]; } while (1) { while (GUI_EVENT_ASYNC ()) {} } } /* Local Variables: compile-command: "gcc -o canvas3 -g -Wno-import -L//D/Swarm-1.4.1/lib -I//D/Swarm-1.4.1/include canvas3.m -lanalysis -lsimtools -lsimtoolsgui -lactivity -ltkobjc -lrandom -lobjectbase -ldefobj -lcollections -lmisc -ltclobjc -lBLT8.0 -ltk80 -ltcl80 -luser32 -lgdi32 -lpng -lz -lavcall -lm -lobjc" End: */