variable ref

[Sylvain Thibault]

This is probably trivial... :-)
How do you retrieve a value from a -variable ref ?

$fr->new_ttk__radiobutton(-text => 'Clipboard Space', -variable => 
\$clip_format, -value => 'SP' )...
(...)
my $rb = shift @c;
my $w = Tkx::widget->new($rb);
my $label = $w->cget(-text);
my $var_ref = $w->cget(-variable);

$var_ref is now: ::perl::SCALAR(0x69b8274)

How do I get the value of $clip_format ?

Thanks