in reply to Object Oriented reference in -textvariable

Are you certain that $mockOb->search returns a variable and not a value? Usually, Tk objects require a real variable and not a value to watch. A value never changes.

Depending on whether you have control over $mockOb, either have ->search return the reference to the variable to watch directly, or alternatively, pass the reference to the variable within $mockOb yourself. Having two things that access internals of $mockOb (Tk and $mockOb itself) certainly is bad design.

Replies are listed 'Best First'.
Re^2: Object Oriented reference in -textvariable
by JOption (Novice) on Aug 21, 2017 at 12:57 UTC
    I have complete control over $mockOb. It is a custom class created by me.

    I was trying to create a Form and a custom object to hold the values.

    I am more used to Java an the Object-Oriented design. Maybe my design is flawed.

[reply]
[d/l]

      It depends on who actually is supposed to change the text. If only the user should change the text, instead of referencing the variable directly I would use the events on the<FocusOut> event to update the value in $mockOb manually:

       
my $mockOb = SomeClass->new;

my $search = $contentFrame->new_ttk__entry(-takefocus => 1, -font => '
+Arial 11', -width => 40, -validate => 'focusout',  -textvariable =>\$
+mockOb->search, -validatecommand  => [\&searchValidation, Tkx::Ev('%P
+')]
);

# Write information back to our $mockOb
$search->bind('<FocusOut>', sub { $mockOb->search( $search->value )});

sub searchValidation{
....do crazy stuff
}

SomeClass
sub new {
    my $class = shift;
    my $self = {    
            search = ""
    };
        
    bless $self, $class;
    return $self;
}

sub search{
    my $self = shift();
    if(@_) {
        $self->{search} = shift();
    }
    return $self->{search};
}

      [download]

      But I haven't done Tk for a long time, so I don't know how applicable my idea of handling the focus event is, and if it is actually done the way that I wrote above untested code.

[reply]
[d/l]
[select]

        I found a solution!

        Before

        -textvariable =>$mockOb->search

sub search{
    my $self = shift();
    if(@_) {
        $self->{search} = shift();
        $self->{search} =~ s/^\s+|\s+$//g;
    }
    return $self->{search};
}

        [download]

        After 

        -textvariable =>$mockOb->searchRef

sub searchRef{
    my $self = shift();
    
    if(@_) {
        $self->{search} = shift();
        $self->{search} =~ s/^\s+|\s+$//g;
    }
    
    return \$self->{handelspartnerSuche};
}

        [download]

        I do not understand the solution completely, but it seems to work just fine.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom