I have no Tablet, but just shooting the breeze, how about manually changing the button's state in the -command callback?

For a simple example:

#!/usr/bin/perl
use strict;
use Tk;

my $mw = MainWindow->new;

my $but; # declare before so you can use it in the callback

$but = $mw->Button(-text => "Hello World",

## This callback works (text is changed) under Win95, Win98 (5.6.1)
#
#  -command => [sub { my $b = $_[0],  #notice comma
#      $b->configure(-text => "Hello Stranger");
#   }, $b]);

#This callback works under Win95, Win98 (5.6.1) and Linux (5.6.0)
-command=>[\&change, $but]);

$but->pack;
MainLoop;


sub change {
my $but = $_[0], #notice comma
$but->configure(-text=>"Hello Stranger", -bg => 'pink');
}
[download]

Thank a lot Zentara . i'll try your suggestion tomorrow at work , where i have the touchpad, and a i'll let you know. Only one doubt. How to force the button update to show the state change? .Could be sufficient call tk::button->update?

HI all , I workaround this problem doing a change of the background of the button at the begining and the ending of the -command action. As the -command action is relatively long this work in an acceptable way. From a logic point of view:

-command => sub {

my $caller_ = $Tk::widget;
$caller_->configure(-bg ='red');
$caller_->update; 
........................
.....long operation on db

$caller_->configure(-bg ='grey');
$caller_->update; 
}
[download]

This work quite well for my needs . Thank a lot