#--------------------------------------------------------------------------
    # Iconbar:
    #--------------------------------------------------------------------------
    my $fr = $mw->Frame(
    )->pack(
        -side   => 'right',
        -expand => 0,
        -fill   => 'y',
    );
    my $fff = $fr->Frame()->pack(-side => 'top');
    my $c = 0;
    for my $icon (@Icon) {
        if ($c % 3 == 0) {
            $fff = $fr->Frame()->pack(-side => 'top');
        }
        ++$c;

        #my $ph = $mw->Animation(
        #    -format => 'gif',
        #    -file   => "$FindBin::RealBin/icons/" . $icon->{file},
        #);

        my $ph = $mw->Photo(
            -file   => "$FindBin::RealBin/icons/" . $icon->{file},
            -width  => 40,
            -height => 30,
        );

        $fff->Button(
            -command => sub {
                print "Button zum Bild ", $icon->{file}, " -> '", $icon->{short},"'\n";
                $Config{text_widget}->Insert(' ' . $icon->{short} . ' ');
                $Config{changed}      = 1;
                $Config{changed_save} = 1;
            },
            -image   => $ph,
            -relief  => 'flat',
        )->pack(
            -side    => 'left',
        );
    }