//Marcus Daniels, swarm-support, October 11, 2000

#import <simtools.h> // initSwarm
#import <gui.h> // Frame, Form, GUI_EVENT_ASYNC

int
main (int argc, const char **argv)
{
  initSwarm (argc, argv);

  {
    id <Frame> frame = [Frame create: globalZone];
    id <Form> formSeg = [Form createParent: frame];
    int ageSegFlag, socialClassSegFlag, opinionLeaderSegFlag;
    int ageSegMin = 0, ageSegMax = 100, socialClassSeg = 9;

    [frame setWindowTitle: " Population segments"];

    [formSeg addLineName: "Age segmentation" Boolean: &ageSegFlag];
    [formSeg addLineName: "age min" Int: &ageSegMin];

    [formSeg addLineName: "age max" Int: &ageSegMax];

    [formSeg addLineName: "Social class segmentation" Boolean: &socialClassSegFlag];
     
    socialClassSeg = 0;
    [formSeg addLineName: "social class" Int: &socialClassSeg];

    opinionLeaderSegFlag = 0;
    [formSeg addLineName: "Opinion Leaders" Boolean: &opinionLeaderSegFlag];

    while (1) { while (GUI_EVENT_ASYNC ()) {} }
  }
}

/*
Local VariablesX:
compile-command: "$SWARMHOME/bin/libtool-swarm --mode=link gcc -DDLL -o TestForm -g
-Wno-import -I$SWARMHOME/include -L$SWARMHOME/lib TestForm.m -lswarmdll -lobjcdll"
End:
*/

/*
Local Variables:
compile-command: "$SWARMHOME/bin/libtool-swarm --mode=link gcc -D_GNU_SOURCE -o
TestForm -g -Wno-import -I$SWARMHOME/include -I$SWARMHOME/include/swarm
-L/$SWARMHOME/lib/swarm -L$SWARMHOME/lib TestForm.m -lobjc -lswarm"
End:
*/