package SR::Dtest;                              
use strict;
use warnings;
use Tk;
use Tk::widgets;
use base qw(Tk::Frame);                        
Construct Tk::Widget 'Dtest';                    

sub Populate {
  my($self, $args) = @_;             
  $self->SUPER::Populate($args);

  $self->ConfigSpecs(-target => ['PASSIVE','target','Target',4]);
my $optnum = $self->optionGet('Target','Dtest');

  $self->Label(-text=>"var= $optnum")->grid();
  $self->pack;

}