You could cheat (I'll call it that in case someone has a better method).

$object->widget( ... ,
                 command => sub{ About( 'program' ); },
                 ...
                );
[download]