Your problem is here: -listcmd => $self->LoadDS, What this does is assign the result of calling $self->LoadDS() to the key -listcmd. To create a callback, you need to pass -listcmd a sub reference, something like: -listcmd => sub { $self->LoadDS }
Comment on Re: OO Perl & Tk - problem with callbacks.