bless({
    __CMATE__      => 15985916,
    alignment      => 1,
    atDrawX        => 0,
    atDrawY        => 0,
    autoHeight     => 1,
    autoSelect     => 1,
    autoTab        => 0,
    borderWidth    => 1,
    charOffset     => 3,
    defcw          => 1,
    firstChar      => 0,
    font_height    => 13,
    font_width     => 5,
    grouped_undo   => 2,
    insertMode     => 1,
    line           => ("*" x 31),
    lineWidth      => 124,
    maxLen         => 200,
    passwordChar   => "*",
    readOnly       => 0,
    redo           => [],
    resetDisabled  => 0,
    resetLevel     => 0,
    selChunks      => [],
    selEnd         => 0,
    selStart       => 0,
    textDirection  => 0,
    undo           => [
                        [["selection", 0, 0], ["selection", 0, 0], ["s
+election", 0, 0]],
                        [["charOffset", 0]],
                        [["firstChar", 0], ["selection", 0, 0]],
                        [
                          ["selection", 0, 0],
                          ["edit_text", "Menu and input line example"]
+,
                          ["selection", 0, 0],
                          ["charOffset", 1],
                        ],
                        [
                          ["selection", 0, 0],
                          ["edit_text", "aMenu and input line example"
+],
                          ["selection", 0, 0],
                          ["charOffset", 2],
                        ],
                        [
                          ["selection", 0, 0],
                          ["edit_text", "asMenu and input line example
+"],
                          ["selection", 0, 0],
                          ["charOffset", 3],
                        ],
                        [
                          ["selection", 0, 0],
                          ["edit_text", "asdMenu and input line exampl
+e"],
                          ["selection", 0, 0],
                        ],
                      ],
    undoLimit      => 10,
    wholeLine      => ("*" x 31),
    wordDelimiters => ".()\"',#!%^&*{}[]?/|;:<>-= \xFF\t",
    writeOnly      => 1,
  }, "Prima::InputLine"),
[download]

$w-> insert( "InputLine",
    pack      => { pady => 20, padx => 20, fill => 'x', side => 'botto
+m'},
    text      => $w-> text,
    maxLen    => 200,
    onChange  => sub {
#~         warn "@_";
#~         use Data::Dump;dd(\@_);
#~         use Data::Dump;dd( $inputine->{undo}->[-1][1][1] );
        use Data::Dump;dd( $_[0]->{undo}[-1][1][1] , $_[0]->text );
        $_[0]-> owner-> text( $_[0]-> text);
        $_[0]-> owner-> Label1-> text( $_[0]-> text);
        $_[0]-> owner-> menu-> coexistentor-> text( $_[0]-> text)
            if $_[0]-> owner-> menu-> has_item( 'coexistentor');
    },
);
[download]