FIJISettingsCanvas.pm

#-------------------------------------------------------------------------------
#  University of Applied Sciences Technikum Wien
#
#  Department of Embedded Systems
#  http://embsys.technikum-wien.at
#
#  Josef Ressel Center for Verification of Embedded Computing Systems
#  http://vecs.technikum-wien.at
#
#-------------------------------------------------------------------------------
#  Description:
#  FIJI Settings Graphical View
#-------------------------------------------------------------------------------

## @file FIJISettingsCanvas.pm
# @brief Contains class \ref Tk::FIJISettingsCanvas

## @class Tk::FIJISettingsCanvas
# @brief FIJI Settings Graphical View
package Tk::FIJISettingsCanvas;

use strict;
use warnings;

use Log::Log4perl qw(get_logger);
use Scalar::Util 'blessed';
use Tk;
use Tk::Balloon;
use Tie::Watch;

use Tk::widgets qw(Canvas);
use base qw(Tk::Derived Tk::Canvas);

Construct Tk::Widget 'FIJISettingsCanvas';

#
# Constant coordinates
#
use constant {
    DIAG_BASE_X => 20,
    DIAG_BASE_Y => 20,
    DIAG_PAD_X  => 30,
    DIAG_PAD_Y  => 30,
    FIC_WIDTH   => 80,
    FIC_HEIGHT  => 80,
    DUT_WIDTH   => 120,
    DUT_HEIGHT  => 80,
    FIU_WIDTH   => 20,
    FIU_HEIGHT  => 20,
};
use constant {
    FIC_BASE_X   => 5.3 * DIAG_BASE_X,
    FIC_BASE_Y   => DIAG_BASE_Y,
    FIC_DUT_PADX => FIC_WIDTH / 2,
    FIC_DUT_PADY => FIC_HEIGHT / 4,
    FIU_SPACE_X  => (DUT_WIDTH / 3),
};
use constant {
    DUT_BASE_X => FIC_BASE_X + FIC_WIDTH + FIC_DUT_PADX,
    DUT_BASE_Y => FIC_BASE_Y + FIC_HEIGHT + FIC_DUT_PADY,
};
use constant {
    FIU0_BASE_X => DUT_BASE_X + FIU_WIDTH / 2,
    FIU0_BASE_Y => FIC_BASE_Y + 0.75 * FIC_HEIGHT - FIU_HEIGHT / 2,
};
use constant {
    FIU1_BASE_X     => FIU0_BASE_X + FIU_SPACE_X,
    FIU1_BASE_Y     => FIU0_BASE_Y,
    FIU2_BASE_X     => FIU0_BASE_X + 2 * FIU_SPACE_X,
    FIU2_BASE_Y     => FIU0_BASE_Y,
    FIU_DV_BASE_Y   => FIU0_BASE_Y - 0.8 * FIU_HEIGHT,
    FIU_LFSR_BASE_Y => FIU0_BASE_Y - 1.2 * FIU_HEIGHT,
};

sub Populate {
    my $logger = get_logger("");
    my ($self, $args) = @_;
    my $settings_ref = delete $args->{'-settings_ref'};

    $self->SUPER::Populate($args);
    $self->SUPER::configure(-width  => DUT_BASE_X + DUT_WIDTH + DIAG_PAD_X);
    $self->SUPER::configure(-height => DUT_BASE_Y + DUT_HEIGHT + DIAG_PAD_Y);
    $self->SUPER::configure(-scrollregion => [ 0,0,DUT_BASE_X + DUT_WIDTH + DIAG_PAD_X,DUT_BASE_Y + DUT_HEIGHT + DIAG_PAD_Y]);

    $self->{'balloon'} = $self->Balloon();
    $self->_draw;

    $self->ConfigSpecs(-settings_ref => [qw/METHOD settings_ref   settings_ref/, undef],);

    if (ref($$settings_ref) eq "FIJI::Settings") {
        $self->{'settings_ref'} = $settings_ref;
        $self->update();
    } else {
        my $msg = "Option -settings_ref must be a reference to FIJI Settings";
        $logger->error($msg);
        return $msg;
    }
    return $self;
}

sub settings_ref {
    my $logger = get_logger("");
    my ($self, $settings_ref) = @_;

    if (defined $settings_ref) {
        if (ref($$settings_ref) eq "FIJI::Settings") {
            $self->{'settings_ref'} = $settings_ref;
            $self->update();
        } else {
            my $msg = "Option -settings_ref must be a reference to FIJI Settings";
            $logger->error($msg);
            return $msg;
        }
    }
    return $self->{'settings_ref'};
}

# This subroutine creates all canvas objects
# The update subroutine hides/shows the individual objects according to the
# current FIJI Settings
sub _draw() {
    my ($self) = @_;

    my $canvas_elements = {

        FIC => {
            box => $self->createRectangle(FIC_BASE_X, FIC_BASE_Y,
                FIC_BASE_X + FIC_WIDTH, FIC_BASE_Y + FIC_HEIGHT, -fill => "grey"
            ),
            text => $self->createText(FIC_BASE_X + FIC_WIDTH / 2, FIC_BASE_Y + FIC_HEIGHT / 2, -text => "Fault\nInjection\nController\n(FIC)", -justify => "center"),
        },

        DUT => {
            box => $self->createRectangle(DUT_BASE_X, DUT_BASE_Y,
                DUT_BASE_X + DUT_WIDTH, DUT_BASE_Y + DUT_HEIGHT, -fill => "grey"
            ),

            text => $self->createText(DUT_BASE_X + DUT_WIDTH / 2, DUT_BASE_Y + DUT_HEIGHT / 2, -text => "Instrumented\nNetlist of DUT", -justify => "center"),

            input => $self->createLine(
                DUT_BASE_X + 0.5 * DUT_WIDTH - 5, DUT_BASE_Y + DUT_HEIGHT,
                DUT_BASE_X + 0.5 * DUT_WIDTH - 5, DUT_BASE_Y + DUT_HEIGHT + 20, -arrow => "first", -width => 2
            ),

            output => $self->createLine(
                DUT_BASE_X + 0.5 * DUT_WIDTH + 5, DUT_BASE_Y + DUT_HEIGHT,
                DUT_BASE_X + 0.5 * DUT_WIDTH + 5, DUT_BASE_Y + DUT_HEIGHT + 20, -arrow => "last", -width => 2
            ),
        },

        clock => {
            line => $self->createLine(
                FIC_BASE_X + 0.80 * FIC_WIDTH, FIC_BASE_Y + FIC_HEIGHT,
                FIC_BASE_X + 0.80 * FIC_WIDTH, DUT_BASE_Y + DUT_HEIGHT * 0.20,
                DUT_BASE_X, DUT_BASE_Y + DUT_HEIGHT * 0.20, -arrow => "first"
            ),

            text => $self->createText(FIC_BASE_X + 0.80 * FIC_WIDTH * 1.05, DUT_BASE_Y + DUT_HEIGHT * 0.20, -text => "Clock", -anchor => "sw"),
        },

        host_interface => {
            tx_line => $self->createLine(DIAG_BASE_X, FIC_BASE_Y + FIC_HEIGHT * 0.7,
                FIC_BASE_X, FIC_BASE_Y + FIC_HEIGHT * 0.7, -arrow => "first"
            ),

            rx_line => $self->createLine(DIAG_BASE_X, FIC_BASE_Y + FIC_HEIGHT * 0.95,
                FIC_BASE_X, FIC_BASE_Y + FIC_HEIGHT * 0.95, -arrow => "last"
            ),

            tx_text => $self->createText(DIAG_BASE_X * 1.05, FIC_BASE_Y + FIC_HEIGHT * 0.7, -text => "TX", -anchor => "sw"),
            rx_text => $self->createText(DIAG_BASE_X * 1.05, FIC_BASE_Y + FIC_HEIGHT * 0.95, -text => "RX", -anchor => "sw"),
        },

        FIU => {
            '0' => {
                lfsrtxt => $self->createText(FIC_BASE_X + FIC_WIDTH * 1.05, FIU_LFSR_BASE_Y, -anchor => "sw"),
                main    => $self->createRectangle(FIU0_BASE_X,              FIU0_BASE_Y,
                    FIU0_BASE_X + FIU_WIDTH, FIU0_BASE_Y + FIU_HEIGHT, -fill => "grey"
                ),
                txt => $self->createText(FIU0_BASE_X + FIU_WIDTH / 2, FIU0_BASE_Y + FIU_HEIGHT / 2, -text => "0"),

                d => $self->createLine(
                    FIC_BASE_X + FIC_WIDTH, FIU0_BASE_Y + FIU_HEIGHT / 2,
                    FIU0_BASE_X, FIU0_BASE_Y + FIU_HEIGHT / 2, -arrow => "last"
                ),

                dv => $self->createLine(
                    FIC_BASE_X + FIC_WIDTH,      FIU_DV_BASE_Y,
                    FIU0_BASE_X + FIU_WIDTH / 3, FIU_DV_BASE_Y,
                    FIU0_BASE_X + FIU_WIDTH / 3, FIU0_BASE_Y, -arrow => "last"
                ),

                lfsr => $self->createLine(
                    FIC_BASE_X + FIC_WIDTH,          FIU_LFSR_BASE_Y,
                    FIU0_BASE_X + 2 * FIU_WIDTH / 3, FIU_LFSR_BASE_Y,
                    FIU0_BASE_X + 2 * FIU_WIDTH / 3, FIU0_BASE_Y, -width => 2, -arrow => "last"
                ),

                con_i => $self->createLine(
                    FIU0_BASE_X + FIU_WIDTH / 3, FIU0_BASE_Y + FIU_HEIGHT,
                    FIU0_BASE_X + FIU_WIDTH / 3, DUT_BASE_Y,
                    -arrow => "first"
                ),
                con_o => $self->createLine(
                    FIU0_BASE_X + 2 * FIU_WIDTH / 3, FIU0_BASE_Y + FIU_HEIGHT,
                    FIU0_BASE_X + 2 * FIU_WIDTH / 3, DUT_BASE_Y,
                    -arrow => "last"
                ),
            },
            '1' => {
                main => $self->createRectangle(
                    FIU1_BASE_X, FIU1_BASE_Y,

                    FIU1_BASE_X + FIU_WIDTH, FIU1_BASE_Y + FIU_HEIGHT,
                    -fill => "grey",
                    -dash => [2, 4]
                ),
                txt => $self->createText(FIU1_BASE_X + FIU_WIDTH / 2, FIU1_BASE_Y + FIU_HEIGHT / 2, -text => "1"),
                d   => $self->createLine(
                    FIU0_BASE_X + FIU_WIDTH,
                    FIU1_BASE_Y + FIU_HEIGHT / 2,
                    FIU1_BASE_X, FIU1_BASE_Y + FIU_HEIGHT / 2, -arrow => "last"
                ),
                dv => $self->createLine(
                    FIU0_BASE_X + FIU_WIDTH / 3, FIU_DV_BASE_Y,
                    FIU1_BASE_X + FIU_WIDTH / 3, FIU_DV_BASE_Y,
                    FIU1_BASE_X + FIU_WIDTH / 3, FIU1_BASE_Y,
                    -arrow => "last"
                ),
                lfsr => $self->createLine(
                    FIU0_BASE_X + 2 * FIU_WIDTH / 3, FIU_LFSR_BASE_Y,
                    FIU1_BASE_X + 2 * FIU_WIDTH / 3, FIU_LFSR_BASE_Y,
                    FIU1_BASE_X + 2 * FIU_WIDTH / 3, FIU1_BASE_Y,

                    -width => 2,
                    -arrow => "last"
                ),
                con_i => $self->createLine(
                    FIU1_BASE_X + FIU_WIDTH / 3, FIU1_BASE_Y + FIU_HEIGHT,
                    FIU1_BASE_X + FIU_WIDTH / 3, DUT_BASE_Y,
                    -arrow => "first"
                ),
                con_o => $self->createLine(
                    FIU1_BASE_X + 2 * FIU_WIDTH / 3, FIU1_BASE_Y + FIU_HEIGHT,
                    FIU1_BASE_X + 2 * FIU_WIDTH / 3, DUT_BASE_Y,
                    -arrow => "last"
                ),
            },
            '2' => {
                main => $self->createRectangle(FIU2_BASE_X, FIU2_BASE_Y,
                    FIU2_BASE_X + FIU_WIDTH, FIU2_BASE_Y + FIU_HEIGHT,
                    -fill => "grey"
                ),
                txt => $self->createText(FIU2_BASE_X + FIU_WIDTH / 2, FIU2_BASE_Y + FIU_HEIGHT / 2),
                d   => $self->createLine(
                    FIU1_BASE_X + FIU_WIDTH, FIU1_BASE_Y + FIU_HEIGHT / 2,
                    FIU2_BASE_X, FIU2_BASE_Y + FIU_HEIGHT / 2, -arrow => "last"
                ),
                dv => $self->createLine(
                    FIU0_BASE_X + FIU_WIDTH / 3, FIU_DV_BASE_Y,
                    FIU2_BASE_X + FIU_WIDTH / 3, FIU_DV_BASE_Y,
                    FIU2_BASE_X + FIU_WIDTH / 3, FIU2_BASE_Y,
                    -arrow => "last"
                ),
                lfsr => $self->createLine(
                    FIU0_BASE_X + 2 * FIU_WIDTH / 3, FIU_LFSR_BASE_Y,
                    FIU2_BASE_X + 2 * FIU_WIDTH / 3, FIU_LFSR_BASE_Y,
                    FIU2_BASE_X + 2 * FIU_WIDTH / 3, FIU2_BASE_Y,
                    -width => 2,
                    -arrow => "last"
                ),
                con_i => $self->createLine(
                    FIU2_BASE_X + FIU_WIDTH / 3, FIU2_BASE_Y + FIU_HEIGHT,
                    FIU2_BASE_X + FIU_WIDTH / 3, DUT_BASE_Y,
                    -arrow => "first"
                ),
                con_o => $self->createLine(
                    FIU2_BASE_X + 2 * FIU_WIDTH / 3, FIU2_BASE_Y + FIU_HEIGHT,
                    FIU2_BASE_X + 2 * FIU_WIDTH / 3, DUT_BASE_Y,
                    -arrow => "last"
                ),
            },
        },

        fiu_frame => {
            '0' => {
                txt => $self->createText(FIU0_BASE_X + FIU_WIDTH + 10, FIU0_BASE_Y + FIU_HEIGHT / 2, -text => "FIU", -anchor => "w"),
                frm => $self->createRectangle(
                    FIU0_BASE_X - 5,             FIU0_BASE_Y - 5,
                    FIU0_BASE_X + FIU_WIDTH + 5, FIU0_BASE_Y + FIU_HEIGHT + 5,
                    -dash => [4, 2]
                ),
            },
            '1' => {
                txt => $self->createText(FIU1_BASE_X + FIU_WIDTH + 10, FIU1_BASE_Y + FIU_HEIGHT / 2, -text => "FIUs", -anchor => "w"),
                frm => $self->createRectangle(
                    FIU0_BASE_X - 5,             FIU1_BASE_Y - 5,
                    FIU1_BASE_X + FIU_WIDTH + 5, FIU1_BASE_Y + FIU_HEIGHT + 5,
                    -dash => [4, 2]
                ),
            },
            '2',
            => {
                txt => $self->createText(FIU2_BASE_X + FIU_WIDTH + 10, FIU2_BASE_Y + FIU_HEIGHT / 2, -text => "FIUs", -anchor => "w"),
                frm => $self->createRectangle(
                    FIU0_BASE_X - 5,             FIU0_BASE_Y - 5,
                    FIU2_BASE_X + FIU_WIDTH + 5, FIU2_BASE_Y + FIU_HEIGHT + 5,
                    -dash => [4, 2]
                ),
               }
        },

        internal_reset => {
            line => $self->createLine(
                FIC_BASE_X + 0.60 * FIC_WIDTH, FIC_BASE_Y + FIC_HEIGHT + 5,
                FIC_BASE_X + 0.60 * FIC_WIDTH, DUT_BASE_Y + DUT_HEIGHT * 0.40,
                DUT_BASE_X - 5,                DUT_BASE_Y + DUT_HEIGHT * 0.40
            ),

            FIC2DUT_final_line => $self->createLine(
                DUT_BASE_X - 5, DUT_BASE_Y + DUT_HEIGHT * 0.40,
                DUT_BASE_X, DUT_BASE_Y + DUT_HEIGHT * 0.40, -arrow => "last"
            ),

            DUT2FIC_final_line => $self->createLine(
                FIC_BASE_X + 0.60 * FIC_WIDTH, FIC_BASE_Y + FIC_HEIGHT + 5,
                FIC_BASE_X + 0.60 * FIC_WIDTH, FIC_BASE_Y + FIC_HEIGHT, -arrow => "last"
            ),

            text => $self->createText(FIC_BASE_X + 0.60 * FIC_WIDTH * 1.05, DUT_BASE_Y + DUT_HEIGHT * 0.40, -text => "Int. Reset", -anchor => "sw"),

            FIC2DUT_inverter_symbol => $self->createOval(
                DUT_BASE_X - 5, DUT_BASE_Y + DUT_HEIGHT * 0.40 - 2.5,
                DUT_BASE_X, DUT_BASE_Y + DUT_HEIGHT * 0.40 + 2.5, -fill => "white"
            ),
            DUT2FIC_inverter_symbol => $self->createOval(
                FIC_BASE_X + 0.60 * FIC_WIDTH - 2.5, FIC_BASE_Y + FIC_HEIGHT + 5,
                FIC_BASE_X + 0.60 * FIC_WIDTH + 2.5, FIC_BASE_Y + FIC_HEIGHT, -fill => "white"
            ),
        },

        internal_trigger => {
            line => $self->createLine(
                FIC_BASE_X + 0.40 * FIC_WIDTH, FIC_BASE_Y + FIC_HEIGHT + 5,
                FIC_BASE_X + 0.40 * FIC_WIDTH, DUT_BASE_Y + DUT_HEIGHT * 0.60,
                DUT_BASE_X, DUT_BASE_Y + DUT_HEIGHT * 0.60, -arrow => "first"
            ),

            final_line => $self->createLine(
                FIC_BASE_X + 0.40 * FIC_WIDTH, FIC_BASE_Y + FIC_HEIGHT,
                FIC_BASE_X + 0.40 * FIC_WIDTH, FIC_BASE_Y + FIC_HEIGHT + 5, -arrow => "first"
            ),

            text            => $self->createText(FIC_BASE_X + 0.40 * FIC_WIDTH * 1.05, DUT_BASE_Y + DUT_HEIGHT * 0.60, -text => "Int. Trigger", -anchor => "sw"),
            inverter_symbol => $self->createOval(
                FIC_BASE_X + 0.40 * FIC_WIDTH - 2.5, FIC_BASE_Y + FIC_HEIGHT,
                FIC_BASE_X + 0.40 * FIC_WIDTH + 2.5, FIC_BASE_Y + FIC_HEIGHT + 5, -fill => "white"
            ),
        },

        fault_detect => {
            line => $self->createLine(
                FIC_BASE_X + 0.20 * FIC_WIDTH, FIC_BASE_Y + FIC_HEIGHT,
                FIC_BASE_X + 0.20 * FIC_WIDTH, DUT_BASE_Y + DUT_HEIGHT * 0.80,
                DUT_BASE_X - 7.5, DUT_BASE_Y + DUT_HEIGHT * 0.80, -arrow => "first"
            ),
            final_line_1 => $self->createLine(
                DUT_BASE_X - 7.5, DUT_BASE_Y + DUT_HEIGHT * 0.80,
                DUT_BASE_X,       DUT_BASE_Y + DUT_HEIGHT * 0.80
            ),
            inverter_symbol_1 => $self->createOval(
                DUT_BASE_X - 5, DUT_BASE_Y + DUT_HEIGHT * 0.80 - 2.5,
                DUT_BASE_X, DUT_BASE_Y + DUT_HEIGHT * 0.80 + 2.5, -fill => "white"
            ),
            final_line_2 => $self->createLine(
                DUT_BASE_X - 7.5, DUT_BASE_Y + DUT_HEIGHT * 0.80,
                DUT_BASE_X - 7.5, DUT_BASE_Y + DUT_HEIGHT * 0.80 + 10, DUT_BASE_X, DUT_BASE_Y + DUT_HEIGHT * 0.80 + 10
            ),
            inverter_symbol_2 => $self->createOval(
                DUT_BASE_X - 5, DUT_BASE_Y + DUT_HEIGHT * 0.80 + 7.5,
                DUT_BASE_X, DUT_BASE_Y + DUT_HEIGHT * 0.80 + 12.5, -fill => "white"
            ),
            text => $self->createText(FIC_BASE_X + 0.20 * FIC_WIDTH * 1.05, DUT_BASE_Y + DUT_HEIGHT * 0.80, -anchor => "sw"),
        },

        external_reset => {
            line => $self->createLine(DIAG_BASE_X, FIC_BASE_Y + FIC_HEIGHT * 0.2,
                FIC_BASE_X - 5, FIC_BASE_Y + FIC_HEIGHT * 0.2, -arrow => "last"
            ),

            final_line => $self->createLine(
                FIC_BASE_X - 5, FIC_BASE_Y + FIC_HEIGHT * 0.2,
                FIC_BASE_X, FIC_BASE_Y + FIC_HEIGHT * 0.2, -arrow => "last"
            ),

            text => $self->createText(DIAG_BASE_X * 1.05, FIC_BASE_Y + FIC_HEIGHT * 0.2, -text => "External reset", -anchor => "sw"),

            inverter_symbol => $self->createOval(
                FIC_BASE_X - 5, FIC_BASE_Y + FIC_HEIGHT * 0.2 - 2.5,
                FIC_BASE_X, FIC_BASE_Y + FIC_HEIGHT * 0.2 + 2.5, -fill => "white"
            ),
        },
        external_trigger => {
            line => $self->createLine(DIAG_BASE_X, FIC_BASE_Y + FIC_HEIGHT * 0.45,
                FIC_BASE_X - 5, FIC_BASE_Y + FIC_HEIGHT * 0.45, -arrow => "last"
            ),

            final_line => $self->createLine(
                FIC_BASE_X - 5, FIC_BASE_Y + FIC_HEIGHT * 0.45,
                FIC_BASE_X, FIC_BASE_Y + FIC_HEIGHT * 0.45, -arrow => "last"
            ),

            text => $self->createText(DIAG_BASE_X * 1.05, FIC_BASE_Y + FIC_HEIGHT * 0.45, -text => "External trigger", -anchor => "sw"),

            inverter_symbol => $self->createOval(
                FIC_BASE_X - 5, FIC_BASE_Y + FIC_HEIGHT * 0.45 - 2.5,
                FIC_BASE_X, FIC_BASE_Y + FIC_HEIGHT * 0.45 + 2.5, -fill => "white"
            ),
        }
    };

    $self->{'canvas_elements'} = $canvas_elements;

}

sub update {
    my $self = shift;

    my $fiu_num    = @{${$self->{'settings_ref'}}->{'fius'}};
    my $design_ref = ${$self->{'settings_ref'}}->{'design'};

    # This is the hash used by the Balloon widget for showing Tooltips
    # The keys will be the returned ID when creating Canvas objects
    my $tooltips = {};

    my $canvas_elements           = $self->{'canvas_elements'};
    my $fiu_elements              = $canvas_elements->{'FIU'};
    my $fiu_frame_elements        = $canvas_elements->{'fiu_frame'};
    my $internal_reset_elements   = $canvas_elements->{'internal_reset'};
    my $internal_trigger_elements = $canvas_elements->{'internal_trigger'};
    my $fault_detect_elements     = $canvas_elements->{'fault_detect'};
    my $external_reset_elements   = $canvas_elements->{'external_reset'};
    my $external_trigger_elements = $canvas_elements->{'external_trigger'};
    my $fic_elements              = $canvas_elements->{'FIC'};
    my $clock_elements            = $canvas_elements->{'clock'};
    my $host_interface_elements   = $canvas_elements->{'host_interface'};

    #---------------------------------------------------------------------------
    # FIUS
    #---------------------------------------------------------------------------

    $self->itemconfigure($fiu_elements->{'0'}->{'lfsrtxt'}, -text => "LFSR [" . ($design_ref->{'LFSR_WIDTH'} - 1) . ":0]");

    # Make all FIU-related elements invisible
    for my $i (keys(%{$fiu_elements})) {
        $tooltips->{$fiu_elements->{$i}->{'main'}} = undef;
        for my $k (keys(%{$fiu_elements->{$i}})) {
            $self->itemconfigure($fiu_elements->{$i}->{$k}, -state => "hidden");
        }
        for my $k (keys(%{$fiu_frame_elements->{$i}})) {
            $self->itemconfigure($fiu_frame_elements->{$i}->{$k}, -state => "hidden");
        }
    }

    # Show leftmost FIU box, configure net name
    if ($fiu_num > 0) {
        for my $k (keys(%{$fiu_elements->{'0'}})) {
            $self->itemconfigure($fiu_elements->{'0'}->{$k}, -state => "normal");
            if (defined @{${$self->{'settings_ref'}}->{'fius'}}[0]->{'FIU_NET_NAME'}) {
                $tooltips->{$fiu_elements->{'0'}->{$k}} = "Net: " . @{${$self->{'settings_ref'}}->{'fius'}}[0]->{'FIU_NET_NAME'};
            } else {
                $tooltips->{$fiu_elements->{'0'}->{$k}} = "Net: Undefined";
            }
        }
    }

    # Show middle FIU box
    if ($fiu_num > 1) {
        for my $k (keys(%{$fiu_elements->{'1'}})) {
            $self->itemconfigure($fiu_elements->{'1'}->{$k}, -state => "normal");
        }

        if ($fiu_num > 3) {

            # Middle FIU Box = placeholder for inbetween FIUs
            my $helptxt = "FIUs 1 ... " . ($fiu_num - 2);
            for (my $fi = 1 ; $fi < $fiu_num - 1 ; $fi++) {
                if (defined @{${$self->{'settings_ref'}}->{'fius'}}[$fi]->{'FIU_NET_NAME'}) {
                    $helptxt .= "\n    $fi: Net: " . @{${$self->{'settings_ref'}}->{'fius'}}[$fi]->{'FIU_NET_NAME'};
                } else {
                    $helptxt .= "\n    $fi: Net: Undefined";
                }
            }

            # add tooltip, dash all elements which can be dashed
            for my $k (keys(%{$fiu_elements->{'1'}})) {
                $tooltips->{$fiu_elements->{'1'}->{$k}} = $helptxt;
                eval { $self->itemconfigure($fiu_elements->{'1'}->{$k}, -dash => [1, 2]); };
            }
            $self->itemconfigure($fiu_elements->{'1'}->{'txt'}, -text => "");
        } else {

            # Middle FIU Box = FIU with index '1'
            for my $k (keys(%{$fiu_elements->{'1'}})) {
                if (defined @{${$self->{'settings_ref'}}->{'fius'}}[1]->{'FIU_NET_NAME'}) {
                    $tooltips->{$fiu_elements->{'1'}->{$k}} = "Net: " . @{${$self->{'settings_ref'}}->{'fius'}}[1]->{'FIU_NET_NAME'};
                } else {
                    $tooltips->{$fiu_elements->{'1'}->{$k}} = "Net: Undefined";
                }

                # undash all elements which could be dashed
                eval { $self->itemconfigure($fiu_elements->{'1'}->{$k}, -dash => []); };
            }
            $self->itemconfigure($fiu_elements->{'1'}->{'txt'}, -text => "1");
        }
    }

    # Show rightmost FIU box
    if ($fiu_num > 2) {
        for my $k (keys(%{$fiu_elements->{'2'}})) {
            if (defined @{${$self->{'settings_ref'}}->{'fius'}}[$fiu_num - 1]->{'FIU_NET_NAME'}) {
                $tooltips->{$fiu_elements->{'2'}->{$k}} = "Net: " . @{${$self->{'settings_ref'}}->{'fius'}}[$fiu_num - 1]->{'FIU_NET_NAME'};
            } else {
                $tooltips->{$fiu_elements->{'2'}->{$k}} = "Net: Undefined";
            }
            $self->itemconfigure($fiu_elements->{'2'}->{$k}, -state => "normal");
        }
        $self->itemconfigure($fiu_elements->{'2'}->{'txt'}, -text => ($fiu_num - 1));
    }

    # Show dashed frame around all enabled FIUs & text "FIUs"
    if ($fiu_num > 0) {
        my $i = ($fiu_num < 3) ? $fiu_num - 1 : 2;

        for my $k (keys(%{$fiu_frame_elements->{$i}})) {
            $self->itemconfigure($fiu_frame_elements->{$i}->{$k}, -state => "normal");
        }
    }

    #---------------------------------------------------------------------------
    # FIC <-> DUT
    #---------------------------------------------------------------------------

    #
    # Internal reset
    #

    # show line & text if enabled
    $self->itemconfigure($internal_reset_elements->{'line'}, -state => ($design_ref->{'RST_DUT_OUT_EN'} == 1 || $design_ref->{'RST_DUT_IN_EN'} == 1) ? "normal" : "hidden");

    $self->itemconfigure($internal_reset_elements->{'text'}, -state => ($design_ref->{'RST_DUT_OUT_EN'} == 1 || $design_ref->{'RST_DUT_IN_EN'} == 1) ? "normal" : "hidden");

    # decide arrow direction if inverting
    $self->itemconfigure(
          $internal_reset_elements->{'line'}, -arrow => ($design_ref->{'RST_DUT_OUT_EN'} && $design_ref->{'RST_DUT_OUT_ACT'} == 0) ? "first"
        : ($design_ref->{'RST_DUT_IN_EN'} && $design_ref->{'RST_DUT_IN_ACT'} == 0) ? "last"
        :                                                                                   "none"
    );

    # if not inverting or direction DUT->FIC, show line segment next to DUT
    $self->itemconfigure($internal_reset_elements->{'FIC2DUT_final_line'}, -state => (($design_ref->{'RST_DUT_IN_EN'} == 1 && $design_ref->{'RST_DUT_IN_ACT'} == 1) || $design_ref->{'RST_DUT_OUT_EN'} == 1) ? "normal" : "hidden");

    # show arrow accordingly
    $self->itemconfigure($internal_reset_elements->{'FIC2DUT_final_line'}, -arrow => ($design_ref->{'RST_DUT_IN_EN'} == 1 && $design_ref->{'RST_DUT_IN_ACT'} == 1) ? "last" : "none");

    # if inverting and direction FIC->DUT, show inverter symbol
    $self->itemconfigure($internal_reset_elements->{'FIC2DUT_inverter_symbol'}, -state => ($design_ref->{'RST_DUT_IN_EN'} == 1 && $design_ref->{'RST_DUT_IN_ACT'} == 0) ? "normal" : "hidden");

    # if not inverting or direction FIC->DUT, show line segment next to FIC
    $self->itemconfigure($internal_reset_elements->{'DUT2FIC_final_line'}, -arrow => ($design_ref->{'RST_DUT_OUT_EN'} == 1 && $design_ref->{'RST_DUT_OUT_ACT'} == 1) ? "last" : "none");

    # show arrow accordingly
    $self->itemconfigure($internal_reset_elements->{'DUT2FIC_final_line'}, -state => (($design_ref->{'RST_DUT_OUT_EN'} == 1 && $design_ref->{'RST_DUT_OUT_ACT'} == 1) || $design_ref->{'RST_DUT_IN_EN'} == 1) ? "normal" : "hidden");

    # if inverting and direction DUT->FIC, show inverter symbol
    $self->itemconfigure($internal_reset_elements->{'DUT2FIC_inverter_symbol'}, -state => ($design_ref->{'RST_DUT_OUT_EN'} == 1 && $design_ref->{'RST_DUT_OUT_ACT'} == 0) ? "normal" : "hidden");

    my $internal_reset_tooltip;

    if ($design_ref->{'RST_DUT_IN_EN'} == 1) {
        $internal_reset_tooltip .= "Port: \t" . ((defined $design_ref->{'RST_DUT_IN_NAME'}) ? $design_ref->{'RST_DUT_IN_NAME'} : "Undefined") . "\n";
        $internal_reset_tooltip .= "Duration: \t" . $design_ref->{'RST_DUT_IN_DUR'} . " cycles";
    } elsif ($design_ref->{'RST_DUT_OUT_EN'} == 1) {
        $internal_reset_tooltip .= "Net: \t" . ((defined $design_ref->{'RST_DUT_OUT_NAME'}) ? $design_ref->{'RST_DUT_OUT_NAME'} : "Undefined");
    }

    $tooltips->{$internal_reset_elements->{'line'}} = $tooltips->{$internal_reset_elements->{'text'}} = $internal_reset_tooltip;

    #
    # Internal trigger
    #

    my $internal_trigger_tooltip;
    if ($design_ref->{'TRIG_DUT_EN'} == 1) {
        $internal_trigger_tooltip = "Net: ";
        if (defined $design_ref->{'TRIG_DUT_NAME'}) {
            $internal_trigger_tooltip .= $design_ref->{'TRIG_DUT_NAME'};
        } else {
            $internal_trigger_tooltip .= "Undefined";
        }
    }

    # show line and text if enabled
    $self->itemconfigure($internal_trigger_elements->{'line'}, -state => ($design_ref->{'TRIG_DUT_EN'} == 1) ? "normal" : "hidden");
    $self->itemconfigure($internal_trigger_elements->{'text'}, -state => ($design_ref->{'TRIG_DUT_EN'} == 1) ? "normal" : "hidden");

    # if not inverting, show line segment next to FIC
    $self->itemconfigure($internal_trigger_elements->{'final_line'}, -state => ($design_ref->{'TRIG_DUT_ACT'} == 1 && $design_ref->{'TRIG_DUT_EN'} == 1) ? "normal" : "hidden");

    # if inverting, set arrow
    $self->itemconfigure($internal_trigger_elements->{'line'}, -arrow => ($design_ref->{'TRIG_DUT_ACT'} == 0 && $design_ref->{'TRIG_DUT_EN'} == 1) ? "first" : "none");

    # if inverting, show inverter symbol
    $self->itemconfigure($internal_trigger_elements->{'inverter_symbol'}, -state => ($design_ref->{'TRIG_DUT_ACT'} == 0 && $design_ref->{'TRIG_DUT_EN'} == 1) ? "normal" : "hidden");

    $tooltips->{$internal_trigger_elements->{'line'}} = $tooltips->{$internal_trigger_elements->{'text'}} = $internal_trigger_tooltip;

    #
    # Fault detection
    #

    # set text for width, show line and text if enabled
    $self->itemconfigure($fault_detect_elements->{'line'}, -state => ($design_ref->{'FD_1_EN'} == 1 || $design_ref->{'FD_2_EN'} == 1) ? "normal" : "hidden");
    $self->itemconfigure($fault_detect_elements->{'text'}, -text => ($design_ref->{'FD_1_EN'} == 1 && $design_ref->{'FD_2_EN'} == 1) ? "Fault Detect [1:0]" : "Fault Detect");
    $self->itemconfigure($fault_detect_elements->{'text'}, -state => ($design_ref->{'FD_1_EN'} == 1 || $design_ref->{'FD_2_EN'} == 1) ? "normal" : "hidden");

    # make line thicker if both FD channels are enabled
    $self->itemconfigure($fault_detect_elements->{'line'}, -width => ($design_ref->{'FD_1_EN'} == 1 && $design_ref->{'FD_2_EN'} == 1) ? "2" : "1");

    # show line segments for channel 1 & 2
    $self->itemconfigure($fault_detect_elements->{'final_line_1'}, -state => ($design_ref->{'FD_1_EN'} == 1) ? "normal" : "hidden");
    $self->itemconfigure($fault_detect_elements->{'final_line_2'}, -state => ($design_ref->{'FD_2_EN'} == 1) ? "normal" : "hidden");

    # show inverter symbols for channel 1 & 2
    $self->itemconfigure($fault_detect_elements->{'inverter_symbol_1'}, -state => ($design_ref->{'FD_1_EN'} == 1 && $design_ref->{'FD_1_INVERT'} == 1) ? "normal" : "hidden");
    $self->itemconfigure($fault_detect_elements->{'inverter_symbol_2'}, -state => ($design_ref->{'FD_2_EN'} == 1 && $design_ref->{'FD_2_INVERT'} == 1) ? "normal" : "hidden");

    #
    # Generate help text to be shown in Tooltip
    # This text contains the net each channel (if enabled) is connected to
    #
    my $fd_helptxt = "";
    if ($design_ref->{'FD_1_EN'} == 1) {
        $fd_helptxt .= "Net 1: ";
        $fd_helptxt .= (defined $design_ref->{'FD_1_NAME'}) ? $design_ref->{'FD_1_NAME'} : "Undefined";
    }
    if ($design_ref->{'FD_1_EN'} == 1 && $design_ref->{'FD_2_EN'} == 1) {
        $fd_helptxt .= "\n";
    }
    if ($design_ref->{'FD_2_EN'} == 1) {
        $fd_helptxt .= "Net 2: ";
        $fd_helptxt .= (defined $design_ref->{'FD_2_NAME'}) ? $design_ref->{'FD_2_NAME'} : "Undefined";
    }

    $tooltips->{$fault_detect_elements->{'line'}} = $tooltips->{$fault_detect_elements->{'text'}} = $fd_helptxt;

    #
    # RX & TX
    #

    # set text for RX and TX to the respectively selected port names
    $tooltips->{$host_interface_elements->{'rx_line'}} = $tooltips->{$host_interface_elements->{'rx_text'}} = $design_ref->{'RX_IN_NAME'};
    $tooltips->{$host_interface_elements->{'tx_line'}} = $tooltips->{$host_interface_elements->{'tx_text'}} = $design_ref->{'TX_OUT_NAME'};

    #
    # External Trigger
    #

    # show external trigger line & text if enabled
    $self->itemconfigure($external_trigger_elements->{'line'}, -state => ($design_ref->{'TRIG_EXT_EN'} == 1) ? "normal" : "hidden");
    $self->itemconfigure($external_trigger_elements->{'text'}, -state => ($design_ref->{'TRIG_EXT_EN'} == 1) ? "normal" : "hidden");

    # set arrow of line/end segment/inverter symbol
    $self->itemconfigure($external_trigger_elements->{'line'},            -arrow => ($design_ref->{'TRIG_EXT_ACT'} == 0 && $design_ref->{'TRIG_EXT_EN'} == 1) ? "last"   : "none");
    $self->itemconfigure($external_trigger_elements->{'final_line'},      -state => ($design_ref->{'TRIG_EXT_ACT'} == 1 && $design_ref->{'TRIG_EXT_EN'} == 1) ? "normal" : "hidden");
    $self->itemconfigure($external_trigger_elements->{'inverter_symbol'}, -state => ($design_ref->{'TRIG_EXT_ACT'} == 0 && $design_ref->{'TRIG_EXT_EN'} == 1) ? "normal" : "hidden");

    # make full trigger port name as will be done in FIJI::VHDL for Tooltip text
    my $exttriggername = $design_ref->{'TRIG_EXT_IN_NAME'};
    $tooltips->{$external_trigger_elements->{'line'}} = $tooltips->{$external_trigger_elements->{'text'}} = $exttriggername;

    #
    # External Reset
    #

    # show external trigger line & text if enabled
    $self->itemconfigure($external_reset_elements->{'line'}, -state => ($design_ref->{'RST_EXT_EN'} == 1) ? "normal" : "hidden");
    $self->itemconfigure($external_reset_elements->{'text'}, -state => ($design_ref->{'RST_EXT_EN'} == 1) ? "normal" : "hidden");

    # set arrow of line/end segment/inverter symbol
    $self->itemconfigure($external_reset_elements->{'final_line'},      -state => ($design_ref->{'RST_EXT_ACT'} == 1 && $design_ref->{'RST_EXT_EN'} == 1) ? "normal" : "hidden");
    $self->itemconfigure($external_reset_elements->{'line'},            -arrow => ($design_ref->{'RST_EXT_ACT'} == 0 && $design_ref->{'RST_EXT_EN'} == 1) ? "last"   : "none");
    $self->itemconfigure($external_reset_elements->{'inverter_symbol'}, -state => ($design_ref->{'RST_EXT_ACT'} == 0 && $design_ref->{'RST_EXT_EN'} == 1) ? "normal" : "hidden");

    # make full reset port name as will be done in FIJI::VHDL for Tooltip text
    my $extrstname = $design_ref->{'RST_EXT_IN_NAME'};
    $tooltips->{$external_reset_elements->{'line'}} = $tooltips->{$external_reset_elements->{'text'}} = $extrstname;

    # set Tooltip text for clock signal and text
    my $clock_tooltip = "Clock frequency: \t" . $design_ref->{'FREQUENCY'} . " Hz\n";
    $clock_tooltip .= "Net: \t" . ((defined $design_ref->{'CLOCK_NET'}) ? $design_ref->{'CLOCK_NET'} : "Undefined");
    $tooltips->{$clock_elements->{'line'}} = $tooltips->{$clock_elements->{'text'}} = $clock_tooltip;

    # set Tooltip text for Fault Injection Controller Box & text
    $tooltips->{$fic_elements->{'box'}} = $tooltips->{$fic_elements->{'text'}} = "Clock frequency: \t" . $design_ref->{'FREQUENCY'} . " Hz\n" . "Baud rate: \t" . $design_ref->{'BAUDRATE'} . " bps\n" . "Timer width: \t" . $design_ref->{'TIMER_WIDTH'} . " bytes";

    $self->{'balloon'}->attach(
        $self,
        -balloonposition => 'mouse',
        -msg             => $tooltips
    );
}