sub gewicht {
	my ($self, $event) = @_;

      my @wert = wiegen(1);
      $self->{kg}->SetLabel($wert[2]);
      
}