ED4_terminal.cxx

Go to the documentation of this file.

// =============================================================== //
//                                                                 //
//   File      : ED4_terminal.cxx                                  //
//   Purpose   :                                                   //
//                                                                 //
//   Institute of Microbiology (Technical University Munich)       //
//   http://www.arb-home.de/                                       //
//                                                                 //
// =============================================================== //

#include <ed4_extern.hxx>
#include "ed4_class.hxx"
#include "ed4_awars.hxx"
#include "ed4_edit_string.hxx"
#include "ed4_block.hxx"
#include "ed4_nds.hxx"
#include "ed4_ProteinViewer.hxx"
#include "ed4_seq_colors.hxx"
#include "ed4_flags.hxx"

#include <arbdbt.h>
#include <items.h>

#include <aw_preset.hxx>
#include <aw_awar.hxx>
#include <aw_awar_defs.hxx>
#include <aw_msg.hxx>
#include <aw_root.hxx>
#include <aw_question.hxx>

#include <st_window.hxx>

// -----------------------------------
//      static terminal properties

static ED4_objspec tree_terminal_spec(
    PROP_IS_TERMINAL,  // static props
    LEV_TREE,           // level
    LEV_NONE,           // allowed children level
    LEV_NONE,           // handled object
    LEV_NONE            // restriction level
    );

static ED4_objspec bracket_terminal_spec(
    PROP_IS_TERMINAL,  // static props
    LEV_BRACKET,        // level
    LEV_NONE,           // allowed children level
    LEV_NONE,           // handled object
    LEV_NONE            // restriction level
    );

static ED4_objspec species_name_terminal_spec(
    ED4_properties(PROP_IS_TERMINAL | PROP_DYNA_RESIZE),  // static props
    LEV_SPECIES_NAME,   // level
    LEV_NONE,           // allowed children level
    LEV_SPECIES,        // handled object
    LEV_NONE            // restriction level
    );

static ED4_objspec flag_header_spec(
    ED4_properties(PROP_IS_TERMINAL | PROP_DYNA_RESIZE),  // static props
    LEV_FLAG_HEADER,    // level
    LEV_NONE,           // allowed children level
    LEV_NONE,           // handled object
    LEV_NONE            // restriction level
    );

static ED4_objspec flag_spec(
    ED4_properties(PROP_IS_TERMINAL | PROP_DYNA_RESIZE), // static props
    LEV_FLAG,           // level
    LEV_NONE,           // allowed children level
    LEV_NONE,           // handled object
    LEV_NONE            // restriction level
    );

static ED4_objspec sequence_info_terminal_spec(
    ED4_properties(PROP_IS_TERMINAL | PROP_DYNA_RESIZE),  // static props
    LEV_SEQUENCE_INFO,  // level
    LEV_NONE,           // allowed children level
    LEV_SEQUENCE,       // handled object
    LEV_NONE            // restriction level
    );

static ED4_objspec sequence_terminal_spec(
    PROP_IS_TERMINAL,     // static props
    LEV_SEQUENCE_STRING,   // level
    LEV_NONE,              // allowed children level
    LEV_NONE,              // handled object
    LEV_NONE               // restriction level
    );

static ED4_objspec orf_terminal_spec(
    PROP_IS_TERMINAL,     // static props
    LEV_ORF,               // level
    LEV_NONE,              // allowed children level
    LEV_NONE,              // handled object
    LEV_NONE               // restriction level
    );

static ED4_objspec pure_text_terminal_spec(
    PROP_IS_TERMINAL,     // static props
    LEV_PURE_TEXT,         // level
    LEV_NONE,              // allowed children level
    LEV_NONE,              // handled object
    LEV_NONE               // restriction level
    );

static ED4_objspec spacer_terminal_spec(
    ED4_properties(PROP_IS_TERMINAL | PROP_DYNA_RESIZE), // static props
    LEV_SPACER,            // level
    LEV_NONE,              // allowed children level
    LEV_NONE,              // handled object
    LEV_NONE               // restriction level
    );

static ED4_objspec line_terminal_spec(
    ED4_properties(PROP_IS_TERMINAL | PROP_DYNA_RESIZE), // static props
    LEV_LINE,              // level
    LEV_NONE,              // allowed children level
    LEV_NONE,              // handled object
    LEV_NONE               // restriction level
    );

static ED4_objspec column_stat_terminal_spec(
    PROP_IS_TERMINAL,     // static props
    LEV_COL_STAT,          // level
    LEV_NONE,              // allowed children level
    LEV_NONE,              // handled object
    LEV_NONE               // restriction level
    );


char *ED4_terminal::resolve_pointer_to_string_copy(int *str_len) const {
    int         len;
    const char *s = resolve_pointer_to_char_pntr(&len);
    char       *t = ARB_strduplen(s, len); // space for zero byte is allocated by ARB_strduplen

    if (str_len) *str_len = len;
    return t;
}

const char *ED4_terminal::resolve_pointer_to_char_pntr(int *str_len) const {
    const char *result     = NULp;
    GBDATA     *gbd        = get_species_pointer();
    bool        detect_len = true;

    if (!gbd) {
        result = id; // if we don't have a link to the database we (have to) use our id
    }
    else {
        GB_transaction ta(ED4_ROOT->get_gb_main());

        switch (GB_read_type(gbd)) {
            case GB_STRING:
                result = GB_read_char_pntr(gbd);
                if (str_len) {
                    *str_len   = GB_read_string_count(gbd);
                    detect_len = false;
                }
                break;
            case GB_BITS:
                result = GB_read_bits_pntr(gbd, '.', '+');
                if (str_len) {
                    *str_len = GB_read_bits_count(gbd);
                    detect_len = false;
                }
                break;
            case GB_BYTES:
                result = GB_read_bytes_pntr(gbd);
                if (str_len) {
                    *str_len = GB_read_bytes_count(gbd);
                    detect_len = false;
                }
                break;

            case GB_DB:     result = "GB_DB";     break;
            case GB_INT:    result = "GB_INT";    break;
            case GB_INTS:   result = "GB_INTS";   break;
            case GB_FLOAT:  result = "GB_FLOAT";  break;
            case GB_FLOATS: result = "GB_FLOATS"; break;

            default:
                result = "Unknown data type\n";
                e4_assert(0);
                break;
        }
    }

    if (str_len) {
        if (detect_len) {
            *str_len = result ? strlen(result) : 0;
        }
        else {
            e4_assert(*str_len == (int)strlen(result));
        }
    }

    return result;
}

GB_ERROR ED4_terminal::write_sequence(const char *seq, int seq_len) {
    GB_ERROR  err = NULp;
    GBDATA   *gbd = get_species_pointer();
    e4_assert(gbd); // we must have a link to the database!

    GBDATA *gb_main = ED4_ROOT->get_gb_main();
    GB_push_transaction(gb_main);

    int   old_seq_len;
    char *old_seq = resolve_pointer_to_string_copy(&old_seq_len);

    bool allow_write_data = true;
    if (ED4_ROOT->aw_root->awar(ED4_AWAR_ANNOUNCE_CHECKSUM_CHANGES)->read_int()) {
        long old_checksum = GBS_checksum(old_seq, 1, "-.");
        long new_checksum = GBS_checksum(seq, 1, "-.");

        if (old_checksum != new_checksum) {
            if (aw_question(NULp, "Checksum changed!", "Allow, Reject") == 1) {
                allow_write_data = false;
            }

        }
    }

    if (allow_write_data) {
        GB_TYPES gb_type = GB_read_type(gbd);
        switch (gb_type) {
            case GB_STRING: {
                err = GB_write_string(gbd, seq);
                break;
            }
            case GB_BITS: {
                err = GB_write_bits(gbd, seq, seq_len, ".-");
                break;
            }
            default: {
                e4_assert(0);
                break;
            }
        }
    }

    GB_pop_transaction(gb_main);

    if (!err && has_property(PROP_CONSENSUS_RELEVANT)) {
        if (old_seq) {
            curr_timestamp = GB_read_clock(gb_main);

            get_parent(LEV_MULTI_SPECIES)->to_multi_species_manager()
                ->update_bases_and_rebuild_consensi(old_seq, old_seq_len, get_parent(LEV_SPECIES)->to_species_manager(), ED4_U_UP); // bases_check
        }
        else {
            aw_message("Couldn't read old sequence data");
        }

        request_refresh();
    }

    if (old_seq) free(old_seq);

    return err;
}


void ED4_terminal::remove_callbacks() {
    if (get_species_pointer()) {
        set_species_pointer(NULp);
        tflag.deleted = 1; // @@@ why ?
        clr_property(PROP_CURSOR_ALLOWED);
        request_refresh();
    }
}

#if 0
static ARB_ERROR ed4_remove_species_manager_callbacks(ED4_base *base) { // @@@ unused since [8286]
    if (base->is_species_manager()) {
        base->to_species_manager()->remove_all_callbacks();
    }
    return NULp;
}
#endif

inline void remove_from_consensus(ED4_manager *group_or_species_man) {
    GB_transaction ta(ED4_ROOT->get_gb_main());
    ED4_manager *parent_manager = group_or_species_man->parent;
    parent_manager->update_consensus(parent_manager, NULp, group_or_species_man);
    parent_manager->rebuild_consensi(parent_manager, ED4_U_UP);
}

ED4_returncode ED4_terminal::kill_object() {
    ED4_species_manager *species_manager = get_parent(LEV_SPECIES)->to_species_manager();

    if (species_manager->is_consensus_manager()) { // kill whole group
        if (ED4_find_MoreSequences_manager()==species_manager->parent) {
            aw_message("This group has to exist - deleting it isn't allowed");
            return ED4_R_IMPOSSIBLE;
        }

        ED4_manager *group_manager = species_manager->get_parent(LEV_GROUP)->to_group_manager();
        remove_from_consensus(group_manager);
        group_manager->Delete();
    }
    else { // kill single species/SAI
        remove_from_consensus(species_manager);
        species_manager->Delete();
    }

    return ED4_R_OK;
}

ED4_returncode ED4_terminal::draw_drag_box(AW_pos x, AW_pos y, GB_CSTR text, int cursor_y) {
    // draws drag box of object at location abs_x, abs_y

    if (cursor_y!=-1) {
        ED4_base *drag_target = NULp;
        {
            ED4_extension location;
            location.position[X_POS] = 0;
            location.position[Y_POS] = (AW_pos)cursor_y;           // cursor_y is already in world coordinates

            ED4_ROOT->get_device_manager()->search_target_species(&location, PROP_HORIZONTAL, &drag_target, LEV_NONE);
        }

        if (drag_target) {
            AW_pos target_x, target_y;

            drag_target->calc_world_coords (&target_x, &target_y);
            current_ed4w()->world_to_win_coords(&target_x, &target_y);

#define ARROW_LENGTH 3
            AW_pos drag_line_x0[3], drag_line_y0[3];
            AW_pos drag_line_x1[3], drag_line_y1[3];

            drag_line_x0[0] = target_x + 5;                                                 // horizontal
            drag_line_y0[0] = target_y + drag_target->extension.size[HEIGHT];
            drag_line_x1[0] = drag_line_x0[0] + 50;
            drag_line_y1[0] = target_y + drag_target->extension.size[HEIGHT];

            drag_line_x0[1] = drag_line_x0[0] -ARROW_LENGTH;                                // arrow
            drag_line_y0[1] = drag_line_y0[0] -ARROW_LENGTH;
            drag_line_x1[1] = drag_line_x0[0];
            drag_line_y1[1] = drag_line_y0[0];

            drag_line_x0[2] = drag_line_x0[0] -ARROW_LENGTH;                                // arrow
            drag_line_y0[2] = drag_line_y0[0] + ARROW_LENGTH;
            drag_line_x1[2] = drag_line_x0[0];
            drag_line_y1[2] = drag_line_y0[0];
#undef ARROW_LENGTH

            for (ED4_index i = 0; i <= 2; i++) {
                current_device()->line(ED4_G_DRAG, drag_line_x0[i], drag_line_y0[i], drag_line_x1[i], drag_line_y1[i], AW_SCREEN);
            }
        }
    }

    if (text) {
        current_device()->text(ED4_G_DRAG, text, (x + 20), (y + INFO_TERM_TEXT_YOFFSET), 0, AW_SCREEN);
    }

    return ED4_R_OK;
}

void ED4_multi_species_manager::toggle_selected_species() {
    if (all_are_selected()) deselect_all_species_and_SAI();
    else select_all(false); // species and SAI

    ED4_correctBlocktypeAfterModification();
}

#if defined(DEBUG) && 1
static inline void dumpEvent(const char *where, AW_event *event) {
    printf("%s: x=%i y=%i\n", where, event->x, event->y);
}
#else
#define dumpEvent(w, e)
#endif

struct ED4_dragNdrop_info {
    // contains data set by drag and used by drop.
    AW_pos off_x, off_y;
    AW_pos old_x, old_y;
    int    old_event_y;
};

ED4_returncode ED4_terminal::event_sent_by_parent(AW_event *event, AW_window *aww) {
    // handles an input event coming from parent

    // static data to move terminal:
    static ED4_species_name_terminal *dragged_name_terminal = NULp;

    static bool pressed_left_button  = false;
    static int  other_x, other_y;                                    // coordinates of last event
    static bool dragged_was_selected = false;                        // the dragged terminal is temp. added to selected

    static ED4_dragNdrop_info drag; // sole instance (there is only one move at a time)

    // ----------------------------
    //      drag/drop terminal
    if (dragged_name_terminal) {
        if (event->button == AW_BUTTON_LEFT) {
            switch (event->type) {
                case AW_Mouse_Drag: {
                    if (pressed_left_button) {
                        AW_pos world_x, world_y;

                        dragged_name_terminal->calc_world_coords(&world_x, &world_y);
                        current_ed4w()->world_to_win_coords(&world_x, &world_y);

                        drag.old_x = world_x;
                        drag.old_y = world_y;
                        drag.off_x = world_x-other_x;
                        drag.off_y = world_y-other_y;
                        drag.old_event_y = -1;

                        pressed_left_button = false;
                    }

                    GB_CSTR text = dragged_name_terminal->get_displayed_text();

                    if (dragged_name_terminal->dragged) {
                        dragged_name_terminal->draw_drag_box(drag.old_x, drag.old_y, text, drag.old_event_y);
                    }

                    AW_pos new_x = drag.off_x + event->x;
                    AW_pos new_y = drag.off_y + event->y;

                    dragged_name_terminal->draw_drag_box(new_x, new_y, text, event->y); // @@@ event->y ist falsch, falls vertikal gescrollt ist!

                    drag.old_x = new_x;
                    drag.old_y = new_y;
                    drag.old_event_y = event->y;

                    dragged_name_terminal->dragged = true;
                    break;
                }
                case AW_Mouse_Release: {
                    if (dragged_name_terminal->dragged) {
                        {
                            char *db_pointer = dragged_name_terminal->resolve_pointer_to_string_copy();

                            dragged_name_terminal->draw_drag_box(drag.old_x, drag.old_y, db_pointer, drag.old_event_y);
                            dragged_name_terminal->dragged = false;

                            free(db_pointer);
                        }
                        {
                            ED4_move_info mi;

                            mi.object = dragged_name_terminal;
                            mi.end_x = event->x;
                            mi.end_y = event->y;
                            mi.mode = ED4_M_FREE;
                            mi.preferred_parent = LEV_NONE;

                            dragged_name_terminal->parent->move_requested_by_child(&mi);
                        }
                        {
                            ED4_device_manager *device_manager = ED4_ROOT->get_device_manager();

                            for (int i=0; i<device_manager->members(); i++) { // when moving species numbers have to be recalculated
                                ED4_base *member = device_manager->member(i);

                                if (member->is_area_manager()) {
                                    member->to_area_manager()->get_multi_species_manager()->update_requested_by_child();
                                }
                            }
                        }
                    }
                    if (!dragged_was_selected) {
                        ED4_ROOT->remove_from_highlighted(dragged_name_terminal);
                    }

                    pressed_left_button   = false;
                    dragged_name_terminal = NULp;
                    break;
                }
                default:
                    break;
            }
        }
    }
    else {
        switch (event->button) {
            case AW_BUTTON_LEFT: {
                if (is_species_name_terminal()) {
                    switch (ED4_ROOT->species_mode) {
                        case ED4_SM_KILL: {
                            if (event->type == AW_Mouse_Press) {
                                if (containing_species_manager()->is_highlighted()) ED4_ROOT->remove_from_highlighted(this->to_species_name_terminal());
                                kill_object();
                                return ED4_R_BREAK;
                            }
                            break;
                        }
                        case ED4_SM_MOVE: {
                            if (event->type == AW_Mouse_Press) {
                                dragged_name_terminal = to_species_name_terminal();
                                pressed_left_button   = true;

                                other_x = event->x;
                                other_y = event->y;

                                dragged_was_selected = containing_species_manager()->is_highlighted();
                                if (!dragged_was_selected) {
                                    ED4_ROOT->add_to_highlighted(dragged_name_terminal);
                                    ED4_trigger_instant_refresh();
                                }
                            }
                            break;
                        }
                        case ED4_SM_INFO:
                        case ED4_SM_MARK: {
                            static ED4_species_manager *prev_clicked_species_man = NULp;
                            ED4_species_manager        *species_man              = get_parent(LEV_SPECIES)->to_species_manager();

                            GBDATA *gbd = species_man->get_species_pointer();
                            if (gbd) {
                                bool       acceptClick = false;
                                static int markHow     = -1;  // -1=invert, 0=unmark, 1=mark
                                {
                                    switch (event->type) {
                                        case AW_Mouse_Press:
                                            acceptClick = true;
                                            markHow     = -1;
                                            break;

                                        case AW_Mouse_Drag:
                                            acceptClick = prev_clicked_species_man != species_man;
                                            break;

                                        case AW_Mouse_Release:
                                            acceptClick              = prev_clicked_species_man != species_man;
                                            prev_clicked_species_man = NULp;
                                            break;

                                        case AW_Keyboard_Press:
                                        case AW_Keyboard_Release:
                                            e4_assert(0); // impossible
                                            break;
                                    }
                                }

                                if (acceptClick) {
                                    if (ED4_ROOT->species_mode == ED4_SM_MARK) {
                                        if (markHow<0) markHow = !GB_read_flag(gbd);
                                        GB_write_flag(gbd, markHow);
                                        request_refresh();
                                        if (ED4_ROOT->alignment_type ==  GB_AT_DNA) PV_RefreshWindow(aww->get_root()); // ProtView: Refreshing orf terminals (@@@ weird place to perform refresh)
                                    }
                                    else {
                                        e4_assert(ED4_ROOT->species_mode == ED4_SM_INFO);

                                        const char *name = GBT_get_name(gbd);
                                        if (name) {
                                            const char *awar_select = species_man->inside_SAI_manager() ? AWAR_SAI_NAME : AWAR_SPECIES_NAME;
                                            ED4_ROOT->aw_root->awar(awar_select)->write_string(name);
                                        }
                                    }
                                    prev_clicked_species_man = species_man;
                                }
                            }
                            else {
                                prev_clicked_species_man = NULp;
                            }
                            break;
                        }
                    }
                }
                else if (is_bracket_terminal()) { // fold/unfold group
                    if (event->type == AW_Mouse_Press) {
                        to_bracket_terminal()->toggle_folding();
                    }
                }
                else if (is_sequence_terminal()) {
                    if (has_property(PROP_CURSOR_ALLOWED)) {
                        ED4_no_dangerous_modes();
                        current_cursor().show_clicked_cursor(event->x, this);
                    }
                }
                else if (is_flag_terminal()) {
                    if (event->type == AW_Mouse_Press) {
                        to_flag_terminal()->handle_left_click(current_ed4w()->world_to_win_coords(AW::Position(event->x, event->y)));
                    }
                }

                break;
            }
            case AW_BUTTON_RIGHT: {
                // static data for block-selection:
                static bool select_started_on_seqterm = false;

                switch (event->type) {
                    case AW_Mouse_Press: {
                        select_started_on_seqterm = false;
                        if (is_species_name_terminal()) {
                            ED4_species_manager *species_man = get_parent(LEV_SPECIES)->to_species_manager();

                            if (species_man->is_consensus_manager()) { // click on consensus-name
                                ED4_multi_species_manager *multi_man = species_man->get_parent(LEV_MULTI_SPECIES)->to_multi_species_manager();
                                multi_man->toggle_selected_species();
                            }
                            else { // click on species or SAI name
                                if (!species_man->is_highlighted()) { // select if not selected
                                    if (ED4_ROOT->add_to_highlighted(this->to_species_name_terminal()) == ED4_R_OK) ED4_correctBlocktypeAfterModification();
                                }
                                else { // deselect if already selected
                                    ED4_ROOT->remove_from_highlighted(this->to_species_name_terminal());
                                    ED4_correctBlocktypeAfterModification();
                                }
                            }
                        }
                        else if (is_bracket_terminal()) {
                            ED4_base *group = get_parent(LEV_GROUP);
                            if (group) {
                                group->to_group_manager()->get_multi_species_manager()->toggle_selected_species();
                            }
                        }
                        else if (is_sequence_terminal()) {
                            ED4_no_dangerous_modes();
                            ED4_setColumnblockCorner(event, to_sequence_terminal()); // mark columnblock
                            select_started_on_seqterm = true;
                        }
                        break;
                    }

                    case AW_Mouse_Drag:
                    case AW_Mouse_Release:
                        if (select_started_on_seqterm && is_sequence_terminal()) {
                            ED4_no_dangerous_modes();
                            ED4_setColumnblockCorner(event, to_sequence_terminal()); // mark columnblock
                        }
                        break;

                    default:
                        break;
                }
                break;
            }

            default: break;
        }
    }

    return ED4_R_OK;
}

void ED4_terminal::update_requested_children() {}

bool ED4_terminal::calc_bounding_box() {
    // calculates the smallest rectangle containing the object.
    // requests refresh and returns true if bounding box has changed.

    bool bb_changed = false;

    if (width_link) {
        bb_changed = extension.set_size_does_change(WIDTH, width_link->extension.size[WIDTH]) || bb_changed;
    }

    if (height_link) {
        bb_changed = extension.set_size_does_change(HEIGHT, height_link->extension.size[HEIGHT]) || bb_changed;
    }


    if (bb_changed) {
        request_resize_of_linked();
        request_refresh();
    }
    return bb_changed;
}

void ED4_terminal::resize_requested_children() {
    if (update_info.resize) { // likes to resize?
        if (calc_bounding_box()) request_resize();
    }
}


void ED4_terminal::request_refresh(int clear) {
    update_info.set_refresh(1);
    update_info.set_clear_at_refresh(clear);
    if (parent) parent->refresh_requested_by_child();
}


ED4_base* ED4_terminal::search_ID(const char *temp_id) {
    if (id && strcmp(temp_id, id) == 0) return this;
    return NULp;
}

void ED4_terminal::Show(bool IF_ASSERTION_USED(refresh_all), bool is_cleared) {
    e4_assert(update_info.refresh || refresh_all);
    current_device()->push_clip_scale();
    if (adjust_clipping_rectangle()) {
        if (update_info.clear_at_refresh && !is_cleared) {
            clear_background();
        }
        draw();
    }
    current_device()->pop_clip_scale();
}

ED4_terminal::ED4_terminal(const ED4_objspec& spec_, GB_CSTR temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent) :
    ED4_base(spec_, temp_id, width, height, temp_parent)
{
    memset((char*)&tflag, 0, sizeof(tflag));
    curr_timestamp = 0;
}


ED4_terminal::~ED4_terminal() {
    for (ED4_window *window = ED4_ROOT->first_window; window; window=window->next) {
        ED4_cursor& cursor = window->cursor;
        if (this == cursor.owner_of_cursor) {
            cursor.init();
        }
    }
}

ED4_tree_terminal::ED4_tree_terminal(const char *temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent)
    : ED4_terminal(tree_terminal_spec, temp_id, width, height, temp_parent)
{}

void ED4_tree_terminal::draw() {
    AW_pos  x, y;
    AW_pos  text_x, text_y;
    char   *db_pointer;

    calc_world_coords(&x, &y);
    current_ed4w()->world_to_win_coords(&x, &y);

    text_x = x + CHARACTEROFFSET;                           // don't change
    text_y = y + SEQ_TERM_TEXT_YOFFSET;

    db_pointer = resolve_pointer_to_string_copy();
    current_device()->text(ED4_G_STANDARD, db_pointer, text_x, text_y, 0, AW_SCREEN);
    free(db_pointer);
}

ED4_bracket_terminal::ED4_bracket_terminal(const char *temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent)
    : ED4_terminal(bracket_terminal_spec, temp_id, width, height, temp_parent)
{}

void ED4_bracket_terminal::draw() {
    using namespace AW;

    Rectangle  term_area = get_win_area(current_ed4w());
    AW_device *device    = current_device();

    ED4_multi_species_manager *multi_man = get_parent(LEV_GROUP)->to_group_manager()->get_multi_species_manager();
    if (multi_man->get_no_of_selected_species()) {  // if multi_species_manager contains selected species
#if defined(DEBUG) && 0
        static bool toggle = false;
        toggle             = !toggle;
        device->box(toggle ? ED4_G_SELECTED : ED4_G_SELECTED+1, AW::FillStyle::SOLID, term_area);
#else // !defined(DEBUG)
        device->box(ED4_G_SELECTED, AW::FillStyle::SOLID, term_area);
#endif
    }

    e4_assert(parent->is_group_manager());
    if (parent->has_property(PROP_IS_FOLDED)) { // for folded group, paint triangle pointing rightwards
        Position t = term_area.upper_left_corner()+Vector(4,4);
        Position b = t+Vector(0,12);

        for (int i = 0; i<6; ++i) {
            device->line(ED4_G_STANDARD, t, b, AW_SCREEN);
            t += Vector(1,  1);
            b += Vector(1, -1);
        }
        e4_assert(nearlyEqual(t, b));
        device->line(ED4_G_STANDARD, t, b, AW_SCREEN); // arrowhead
    }
    else { // for unfolded group, paint triangle pointing downwards
        Position l = term_area.upper_left_corner()+Vector(4,5);
        Position r = l+Vector(6,0);

        for (int i = 0; i<3; ++i) {
            device->line(ED4_G_STANDARD, l, r, AW_SCREEN);
            l += Vector( 0, 1);
            r += Vector( 0, 1);
            device->line(ED4_G_STANDARD, l, r, AW_SCREEN);
            l += Vector( 1, 1);
            r += Vector(-1, 1);
        }
        e4_assert(nearlyEqual(l, r));
        device->line(ED4_G_STANDARD, l, r+Vector(0,1), AW_SCREEN); // arrowhead
    }

    {
        Rectangle bracket(term_area.upper_left_corner()+Vector(2,2), term_area.diagonal()+Vector(-2,-4));

        device->line(ED4_G_STANDARD, bracket.upper_edge(), AW_SCREEN);
        device->line(ED4_G_STANDARD, bracket.lower_edge(), AW_SCREEN);
        device->line(ED4_G_STANDARD, bracket.left_edge(), AW_SCREEN);
    }
}

ED4_species_name_terminal::ED4_species_name_terminal(GB_CSTR temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent) :
    ED4_text_terminal(species_name_terminal_spec, temp_id, width, height, temp_parent),
    highlight_info(NULp),
    dragged(false)
{}

#define MAXNAMELEN MAXNAME_WIDTH // @@@ seems wrong (MAXNAME_WIDTH contains pixel)
#define BUFFERSIZE (MAXNAMELEN<<1)
GB_CSTR ED4_species_name_terminal::get_displayed_text() const {
    static char *real_name;
    static int allocatedSize;

    if (!real_name || allocatedSize<(BUFFERSIZE+1)) {
        free(real_name);
        allocatedSize = BUFFERSIZE+1;
        ARB_alloc(real_name, allocatedSize);
    }
    memset(real_name, 0, allocatedSize);

    ED4_species_manager *spec_man = get_parent(LEV_SPECIES)->to_species_manager();

    if (spec_man->is_consensus_manager()) {
        char *db_pointer = resolve_pointer_to_string_copy();
        char *bracket = strchr(db_pointer, '(');

        if (bracket) {
            int bracket_len = strlen(bracket);
            int name_len = bracket-db_pointer;

            if (bracket[-1]==' ') {
                name_len--;
            }

            if ((name_len+1+bracket_len)<=MAXNAMELEN) {
                strcpy(real_name, db_pointer);
            }
            else {
                int short_name_len = MAXNAMELEN-bracket_len-1;

                memcpy(real_name, db_pointer, short_name_len);
                real_name[short_name_len] = ' ';
                strcpy(real_name+short_name_len+1, bracket);
            }
        }
        else {
            strncpy(real_name, db_pointer, BUFFERSIZE);
        }

        free(db_pointer);
    }
    else if (spec_man->is_SAI_manager()) {
        char *db_pointer = resolve_pointer_to_string_copy();

        strcpy(real_name, "SAI: ");
        if (strcmp(db_pointer, "ECOLI")==0) {
            const char *name_for_ecoli = ED4_ROOT->aw_root->awar(ED4_AWAR_NDS_ECOLI_NAME)->read_char_pntr();
            if (name_for_ecoli[0]==0) name_for_ecoli = db_pointer;
            strncpy(real_name+5, name_for_ecoli, BUFFERSIZE-5);
        }
        else {
            strncpy(real_name+5, db_pointer, BUFFERSIZE-5);
        }
        free(db_pointer);
    }
    else { // normal species
        char *result = ED4_get_NDS_text(spec_man);
        strncpy(real_name, result, BUFFERSIZE);
        free(result);
    }

    return real_name;
}
#undef MAXNAMELEN
#undef BUFFERSIZE


ED4_sequence_info_terminal::ED4_sequence_info_terminal(const char *temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent)
    : ED4_text_terminal(sequence_info_terminal_spec, temp_id, width, height, temp_parent)
{}

ED4_consensus_sequence_terminal::ED4_consensus_sequence_terminal(const char *temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent)
    : ED4_sequence_terminal(temp_id, width, height, temp_parent, false),
      temp_cons_seq(NULp)
{
    species_name = NULp;
}

int ED4_consensus_sequence_terminal::get_length() const {
    return get_char_table().size();
}


ED4_abstract_sequence_terminal::ED4_abstract_sequence_terminal(const ED4_objspec& spec_, const char *temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent)
    : ED4_text_terminal(spec_, temp_id, width, height, temp_parent)
{
    species_name = NULp;
}

ED4_abstract_sequence_terminal::~ED4_abstract_sequence_terminal() {
    free(species_name);
}

ED4_orf_terminal::ED4_orf_terminal(const char *temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent)
    : ED4_abstract_sequence_terminal(orf_terminal_spec, temp_id, width, height, temp_parent)
{
    aaSequence   = NULp;
    aaSeqLen     = 0;
    aaColor      = NULp;
    aaStartPos   = 0;
    aaStrandType = 0;
}

ED4_orf_terminal::~ED4_orf_terminal() {
    free(aaSequence);
    free(aaColor);
}

ED4_sequence_terminal::ED4_sequence_terminal(const char *temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent, bool shall_display_secstruct_info_)
    : ED4_abstract_sequence_terminal(sequence_terminal_spec, temp_id, width, height, temp_parent),
      shall_display_secstruct_info(shall_display_secstruct_info_)
{
    st_ml_node = NULp;
}

ED4_pure_text_terminal::ED4_pure_text_terminal(const char *temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent)
    : ED4_text_terminal(pure_text_terminal_spec, temp_id, width, height, temp_parent)
{}

#if defined(DEVEL_RALF) && 0
// # define DEBUG_SPACER_TERMINALS 0 // show placeholder-spacers (normally not drawn)
// # define DEBUG_SPACER_TERMINALS 1 // show erasing spacers (normally area gets erased)
# define DEBUG_SPACER_TERMINALS 2 // show all spacers
#endif

void ED4_spacer_terminal::Show(bool /*refresh_all*/, bool is_cleared) {
#if defined(DEBUG_SPACER_TERMINALS)
    if (DEBUG_SPACER_TERMINALS == 1) {
        if (shallDraw) {
            draw();
        }
        else if (update_info.clear_at_refresh && !is_cleared) {
            clear_background(0);
        }
    }
    else {
        draw();
    }
#else // !DEBUG_SPACER_TERMINALS
    if (shallDraw || (update_info.clear_at_refresh && !is_cleared)) {
        draw();
    }
#endif
}


void ED4_spacer_terminal::draw() {
    int gc = 0;
#if defined(DEBUG_SPACER_TERMINALS)
    const int GC_COUNT = ED4_G_LAST_COLOR_GROUP - ED4_G_FIRST_COLOR_GROUP + 1;
    gc                 = ((long(this)/32)%GC_COUNT)+ED4_G_FIRST_COLOR_GROUP; // draw colored spacers to make them visible

    if (DEBUG_SPACER_TERMINALS != 2) {
        bool highlight     = bool(DEBUG_SPACER_TERMINALS) == shallDraw;
        if (!highlight) gc = 0;
    }
#endif // DEBUG_SPACER_TERMINALS
    clear_background(gc);
}

ED4_spacer_terminal::ED4_spacer_terminal(const char *temp_id, bool shallDraw_, AW_pos width, AW_pos height, ED4_manager *temp_parent)
    : ED4_terminal(spacer_terminal_spec, temp_id, width, height, temp_parent),
      shallDraw(shallDraw_)
{
    // 'shallDraw_'==true is only needed in very special cases,
    // eg. for 'Top_Middle_Spacer' (to remove overlapping relicts from half-displayed species below)
}

void ED4_line_terminal::draw() {
    AW_pos x1, y1;
    calc_world_coords(&x1, &y1);
    current_ed4w()->world_to_win_coords(&x1, &y1);

    AW_pos x2 = x1+extension.size[WIDTH]-1;
    AW_pos y2 = y1+extension.size[HEIGHT]-1;

    AW_device *device = current_device();

    device->line(ED4_G_STANDARD, x1, y1, x2, y1);
#if defined(DEBUG)
    device->box(ED4_G_MARKED, AW::FillStyle::SOLID, x1, y1+1, x2-x1+1, y2-y1-1);
#else
    device->clear_part(x1, y1+1, x2-x1+1, y2-y1-1, AW_ALL_DEVICES);
#endif // DEBUG
    device->line(ED4_G_STANDARD, x1, y2, x2, y2);
}

ED4_line_terminal::ED4_line_terminal(const char *temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent)
    : ED4_terminal(line_terminal_spec, temp_id, width, height, temp_parent)
{}

// ---------------------------------
//      ED4_columnStat_terminal

inline char stat2display(int val, bool is_upper_digit) {
    if (val<0) {
        e4_assert(val==-1); // -1 indicates that no statistic is existing for that column
        return '?';
    }
    if (val==20) return ' '; // value if ACGT and - are distributed equally
    if (val==100) return '^'; // we have only 2 characters to display likelihood (100 cannot be displayed)

    e4_assert(val>=0 && val<100);

    return '0' + (is_upper_digit ? (val/10) : (val%10));
}

inline int find_significant_positions(int sig, int like_A, int like_C, int like_G, int like_TU, int *sumPtr) {
    // result == 0      -> no base-char has a significant likelihood (>=sig)
    // result == 1, 2, 4, 8     -> A, C, G, T/U has a significant likelihood
    // else             -> the sum two of the likelihoods >= sig (bit-or-ed as in line above)

    int like[4];
    like[0] = like_A;
    like[1] = like_C;
    like[2] = like_G;
    like[3] = like_TU;

    int bestSum = 0;
    int bestResult = 0;

    int b, c;
    for (b=0; b<4; b++) {
        int sum = like[b];
        if (sum>=sig && sum>=bestSum) {
            bestSum = sum;
            bestResult = 1<<b;
        }
    }

    if (!bestResult) {
        for (b=0; b<4; b++) {
            for (c=b+1; c<4; c++) {
                int sum = like[b]+like[c];
                if (sum>=sig && sum>=bestSum) {
                    bestSum = sum;
                    bestResult = (1<<b)|(1<<c);
                }
            }
        }
    }

    if (bestResult) {
        if (sumPtr) *sumPtr = bestSum;
        return bestResult;
    }

    return 0;
}

void ED4_columnStat_terminal::draw() {
    AW_pos x, y;
    calc_world_coords(&x, &y);
    current_ed4w()->world_to_win_coords(&x, &y);

    AW_pos term_height = extension.size[HEIGHT];
    AW_pos font_height = ED4_ROOT->font_group.get_height(ED4_G_SEQUENCES);
    AW_pos font_width  = ED4_ROOT->font_group.get_width(ED4_G_SEQUENCES);

    AW_pos text_x = x + CHARACTEROFFSET;
    AW_pos text_y = y + term_height - font_height;

    AW_device *device = current_device();

    if (!update_likelihood()) {
        const char *warning = "Failed to calculate likelihood";

        device->text(ED4_G_STANDARD, warning, text_x, text_y, 0, AW_SCREEN);
        return;
    }

    ED4_sequence_terminal *seq_term = corresponding_sequence_terminal();
    const ED4_remap       *rm       = ED4_ROOT->root_group_man->remap();

    PosRange index_range = rm->clip_screen_range(seq_term->calc_update_interval());
    {
        int max_seq_len = seq_term->get_length();
        int max_seq_pos = rm->sequence_to_screen(max_seq_len);

        index_range = ExplicitRange(index_range, max_seq_pos);
        if (index_range.is_empty()) return; // nothing to draw
    }

    const int left  = index_range.start();
    const int right = index_range.end();

    char *sbuffer = new char[right+2];  // used to build displayed terminal content  (values = '0'-'9')
    memset(sbuffer, ' ', right+1);
    sbuffer[right+1] = 0; // eos

    AW_pos y2;
    int r;

    // Set background:
    {
        int significance = int(get_threshold());
        // normal columns are colored in ED4_G_STANDARD
        // all columns with one (or sum of two) probability above 'significance' are back-colored in ED4_G_CBACK_0
        // the responsible probabilities (one or two) are back-colored in ED4_G_CBACK_1..ED4_G_CBACK_9

        int old_color = ED4_G_STANDARD;

        AW_pos x2     = text_x + font_width*left + 1;
        AW_pos old_x2 = x2;

        PosRange selection;
        bool     is_selected = ED4_get_highlighted_range(seq_term, selection);

        for (int i=left; i<=right; i++, x2+=font_width) { // colorize significant columns in ALL rows
            int p     = rm->screen_to_sequence(i);
            int found = find_significant_positions(significance, likelihood[0][p], likelihood[1][p], likelihood[2][p], likelihood[3][p], NULp);

            int color;
            if (is_selected && selection.contains(p)) {
                color = ED4_G_SELECTED;
            }
            else {
                color = found ? ED4_G_CBACK_0 : ED4_G_STANDARD;
            }

            if (color!=old_color) {
                if (x2>old_x2 && old_color!=ED4_G_STANDARD) {
                    device->box(old_color, AW::FillStyle::SOLID, old_x2, y, x2-old_x2, term_height);
                }
                old_color = color;
                old_x2 = x2;
            }
        }
        if (x2>old_x2 && old_color!=ED4_G_STANDARD) {
            device->box(old_color, AW::FillStyle::SOLID, old_x2, y, x2-old_x2, term_height);
        }

        x2 = text_x + font_width*left + 1;

        for (int i=left; i<=right; i++, x2+=font_width) { // colorize significant columns in SINGLE rows
            int p = rm->screen_to_sequence(i);
            int sum;
            int found = find_significant_positions(significance, likelihood[0][p], likelihood[1][p], likelihood[2][p], likelihood[3][p], &sum);

            if (found && significance<100) {
                e4_assert(sum>=significance && sum<=100);
                int color = ED4_G_CBACK_1+((sum-significance)*(ED4_G_CBACK_9-ED4_G_CBACK_1))/(100-significance);
                e4_assert(color>=ED4_G_CBACK_1 && color<=ED4_G_CBACK_9);

                if (color!=ED4_G_STANDARD) {
                    int bit;

                    for (r=3, y2=text_y+1, bit=1<<3;
                         r>=0;
                         r--, y2-=COLUMN_STAT_ROW_HEIGHT(font_height), bit>>=1)
                    {
                        if (found&bit) {
                            device->box(color, AW::FillStyle::SOLID, x2, y2-2*font_height+1, font_width, 2*font_height);
                        }
                    }
                }
            }
        }
    }

    // Draw text:
    for (r=3, y2=text_y;
         r>=0;
         r--, y2-=COLUMN_STAT_ROW_HEIGHT(font_height)) { // 4 rows (one for T/U, G, C and A)

        int gc = ED4_ROOT->sequence_colors->char_2_gc[(unsigned char)"ACGU"[r]];
        int i;
        for (i=left; i<=right; i++) {
            int p = rm->screen_to_sequence(i);
            int val = likelihood[r][p];
            sbuffer[i] = stat2display(val, 0); // calc lower digit
        }

        device->text(gc, SizedCstr(sbuffer, right), text_x+font_width*0.2, y2, 0, AW_SCREEN); // draw lower-significant digit (shifted a bit to the right)

        for (i=left; i<=right; i++) {
            int p = rm->screen_to_sequence(i);
            int val = likelihood[r][p];
            sbuffer[i] = stat2display(val, 1); // calc upper digit
        }
        device->text(gc, SizedCstr(sbuffer, right), text_x, y2-font_height, 0, AW_SCREEN); // draw higher-significant digit
    }

    delete [] sbuffer;
}

int ED4_columnStat_terminal::update_likelihood() {
    ED4_sequence_terminal *seq_term = corresponding_sequence_terminal();

    return STAT_update_ml_likelihood(ED4_ROOT->st_ml, likelihood, latest_update, NULp, seq_term->st_ml_node);
}

ED4_columnStat_terminal::ED4_columnStat_terminal(GB_CSTR temp_id, AW_pos width, AW_pos height, ED4_manager *temp_parent) :
    ED4_text_terminal(column_stat_terminal_spec, temp_id, width, height, temp_parent)
{
    for (int i=0; i<4; i++) likelihood[i] = NULp;
    latest_update = 0;
}

ED4_columnStat_terminal::~ED4_columnStat_terminal() {
    for (int i=0; i<4; i++) free(likelihood[i]);
}

// ------------------------
//      flag terminals

ED4_flag_header_terminal::ED4_flag_header_terminal(GB_CSTR id_, AW_pos width, AW_pos height, ED4_manager *parent_) :
    ED4_text_terminal(flag_header_spec, id_, width, height, parent_)
{}

GB_CSTR ED4_flag_header_terminal::get_displayed_text() const {
    return SpeciesFlags::instance().get_header_text();
}
int ED4_flag_header_terminal::get_length() const {
    return SpeciesFlags::instance().get_header_length();
}

ED4_flag_terminal::ED4_flag_terminal(const char *id_, AW_pos width, AW_pos height, ED4_manager *parent_) :
    ED4_terminal(flag_spec, id_, width, height, parent_)
{}

using namespace AW;

class FlagLayout {
    double    flag_centerx; // flag x-position relative to terminal
    Rectangle box;          // box at flag_centerx

public:
    FlagLayout(const Rectangle& area, const SpeciesFlags& flags) {
        double boxsize = std::max(1.0, std::min(double(flags.get_min_flag_distance()), area.height()*0.95));
        Vector box_diag(boxsize, -boxsize);

        SpeciesFlagCiter curr_flag  = flags.begin();
        flag_centerx                = curr_flag->center_xpos();
        Position         box_center = area.left_edge().centroid() + Vector(flag_centerx, 0);
        box                         = Rectangle(box_center-box_diag/2, box_diag);
    }

    void move_box(double new_flag_centerx) {
        box.move(Vector(new_flag_centerx - flag_centerx, 0));
        flag_centerx = new_flag_centerx;
    }

    const Rectangle& get_box() const { return box; }
};

void ED4_flag_terminal::draw() {
    const SpeciesFlags& flags = SpeciesFlags::instance();

    int boxes = flags.size();
    if (boxes>0) {
        FlagLayout layout(get_win_area(current_ed4w()), flags);

        SpeciesFlagCiter curr_flag = flags.begin();
        SpeciesFlagCiter end       = flags.end();

        AW_device *device = current_device();

        GBDATA   *gb_species = get_species();
        GB_ERROR  error      = NULp;

        for (int b = 0; b<boxes && !error; ++b) {
            bool filled = false;
            {
                GBDATA *gb_field = GB_entry(gb_species, curr_flag->get_fieldname().c_str());
                if (gb_field) {
                    uint8_t as_byte  = GB_read_lossless_byte(gb_field, error);
                    if (error) error = GBS_global_string("Failed to read flag value (Reason: %s)", error);
                    else    filled   = as_byte;
                }
            }

            if (filled) device->box(ED4_G_FLAG_FILL,  FillStyle::SOLID, layout.get_box(), AW_SCREEN); // filled?
            device->box(            ED4_G_FLAG_FRAME, FillStyle::EMPTY, layout.get_box(), AW_SCREEN); // frame

            ++curr_flag;
            if (curr_flag != end) layout.move_box(curr_flag->center_xpos());
        }

        aw_message_if(error);
    }
}

void ED4_flag_terminal::handle_left_click(const Position& click) {
    const SpeciesFlags& flags = SpeciesFlags::instance();

    int boxes = flags.size();
    if (boxes>0) {
        FlagLayout layout(get_win_area(current_ed4w()), flags);

        SpeciesFlagCiter curr_flag = flags.begin();
        SpeciesFlagCiter end       = flags.end();

        for (int b = 0; b<boxes; ++b) {
            if (layout.get_box().contains(click)) break;
            ++curr_flag;
            if (curr_flag != end) layout.move_box(curr_flag->center_xpos());
        }

        if (curr_flag != end) {
            GBDATA   *gb_species = get_species();
            GBDATA   *gb_field   = GB_entry(gb_species, curr_flag->get_fieldname().c_str());
            GB_ERROR  error      = GB_incur_error_if(!gb_field);

            if (!error && !gb_field) {
                const char *key   = curr_flag->prepare_itemfield(); // impl using prepare_and_get_selected_itemfield
                if (key) gb_field = GBT_searchOrCreate_itemfield_according_to_changekey(gb_species, key, SPECIES_get_selector().change_key_path);
                error             = GB_incur_error_if(!gb_field);
            }

            if (gb_field) {
                uint8_t val       = GB_read_lossless_byte(gb_field, error);
                if (!error) error = GB_write_lossless_byte(gb_field, !val);
            }

            aw_message_if(error);
            if (!error) request_refresh();
        }
    }
}

// ---------------------------------
//      ED4_reference_terminals

void ED4_reference_terminals::clear() {
    delete ref_sequence_info;
    delete ref_sequence;
    delete ref_column_stat;
    delete ref_column_stat_info;
    null();
}

void ED4_reference_terminals::init(ED4_sequence_info_terminal *ref_sequence_info_,
                                   ED4_sequence_terminal *ref_sequence_,
                                   ED4_sequence_info_terminal *ref_column_stat_info_,
                                   ED4_columnStat_terminal *ref_column_stat_)
{
    clear();
    ref_sequence_info    = ref_sequence_info_;
    ref_sequence     = ref_sequence_;
    ref_column_stat_info = ref_column_stat_info_;
    ref_column_stat      = ref_column_stat_;
}