source: branches/port5/PARSIMONY/GA_window.cxx

#include <stdio.h>
#include <iostream.h>
#include <memory.h>
#include <string.h>
#include <arbdb.h>
#include <arbdbt.h>
#include <math.h>
#include <servercntrl.h>
#include <stdlib.h>
#include <aw_root.hxx>
#include <aw_device.hxx>
#include <aw_window.hxx>
#include <aw_display.hxx>
#include <awt.hxx>
// #include <malloc.h>
#include "AP_buffer.hxx"
#include "parsimony.hxx"
#include "ap_tree_nlen.hxx"
#include "GA_genetic.hxx"
#include "phwin.hxx"
#include <ntcanvas.hxx>

void start_genetic(GBDATA *);
void quit_genetic();
AP_ERR * make_start_population(GBDATA *gbmain,AP_tree *tree);
extern FILE *GAout;
extern GA_genetic *GAgenetic;

void start_genetic_cb(AW_window *aww,AW_CL cld1) {
    AWUSE(cld1);
    AW_root *aw_root = aww->get_root();
    //aw_root->awar("kh/costs")->write_string((long)ap_main->combineCount);
    start_genetic(ap_main->gb_main);
}

void savetree_genetic_cb(AW_window *aww,AW_CL cld1) {
    AWUSE(cld1);
    AW_root *aw_root = aww->get_root();

}

void test_genetic_cb(AW_window *aww,AW_CL cld1) {
    AWUSE(cld1);
    AW_root *aw_root = aww->get_root();
}

void save_genetic_cb(AW_window *aww,AW_CL cld1) {
    AWUSE(cld1);
    AW_root *aw_root = aww->get_root();
    int cluster = (int)aw_root->awar("genetic/presets/curCluster")->read_int();
    GAgenetic->put_start_tree(ap_main->tree_root,0,cluster);
    return;
}

void quit_genetic_cb(AW_window *aww,AW_CL cld1) {
    AWUSE(cld1);
    quit_genetic();
    AW_root *aw_root = aww->get_root();
}

void create_genetic_variables(AW_root *aw_root, AW_default def)
{

    aw_root->awar_int( "genetic/presets/max_jobs",50,def);
    aw_root->awar_int( "genetic/presets/max_cluster",4,def);
    aw_root->awar_int( "genetic/presets/jobOpt",2,def);
    aw_root->awar_int( "genetic/presets/jobCross",2,def);
    aw_root->awar_int( "genetic/presets/jobOther",2,def);
    aw_root->awar_int( "genetic/presets/curCluster",0,def);
    aw_root->awar_float( "genetic/presets/bestTree",0,def);
    aw_root->awar_int( "genetic/presets/jobCount",0,def);
    aw_root->awar_int( "genetic/presets/maxTree",100,def);
}

AW_window *create_genetic_window(AW_root *aw_root,AW_display *awd)
{

    AW_window_simple *aws = new AW_window_simple;
    aws->init( aw_root, "GENETIC_MAIN", "Kernighan", 10, 10 );
    aws->load_xfig("ph_gen.fig");
    aws->button_length( 10 );

    aws->at("close");
    aws->callback((AW_CB0)AW_POPDOWN);
    aws->create_button("CLOSE","CLOSE","C");


    aws->at("start");
    aws->callback((AW_CB1)start_genetic_cb,(AW_CL)awd);
    aws->create_button("START","START","S");

    aws->at("save");
    aws->callback((AW_CB1)save_genetic_cb,(AW_CL)aw_root);
    aws->create_button("SAVE","SAVE","S");

    aws->at("quit");
    aws->callback((AW_CB1)quit_genetic_cb,(AW_CL)aw_root);
    aws->create_button("QUIT","QUIT","Q");

    aws->at("savetree");
    aws->callback((AW_CB1)savetree_genetic_cb,(AW_CL)aw_root);
    aws->create_button("SAVETREE","SaveTree","Q");

    aws->at("jobs");
    aws->create_input_field("genetic/presets/max_jobs",8);
    aws->at("cluster");
    aws->create_input_field("genetic/presets/max_cluster",8);
    aws->at("jobOpt");
    aws->create_input_field("genetic/presets/jobOpt",8);
    aws->at("jobCross");
    aws->create_input_field("genetic/presets/jobCross",8);
    aws->at("jobOther");
    aws->create_input_field("genetic/presets/jobOther",8);
    aws->at("curCluster");
    aws->create_input_field("genetic/presets/curCluster",8);
    aws->at("maxTree");
    aws->create_input_field("genetic/presets/maxTree",8);

    //aws->at("bestTree");
    //aws->create_label("genetic/presets/bestTree",8);
    aws->at("jobCount");
    aws->create_label("genetic/presets/jobCount",8);

    return (AW_window *)aws;

}