Re: Object Oriented reference in -textvariable

[Corion]

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.

[JOption]

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.

[Corion]

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};
}

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.

[JOption]

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};
}

After

-textvariable =>$mockOb->searchRef

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

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