$gui{'QualitaetEntry'} = $gui{'QualitatFrame'}->NumEntry( 
            -minvalue         => 0,
            -maxvalue         => 100,
            -readonly         => 1,
            -textvariable     => \$thumbnailQuality,
            -width             => 3,
        );
        $gui{'QualitaetEntry'}->configure(
            -browsecmd =>  sub{ 
               
 $self->__setScale(
               
     -scale => $gui{'QualitaetSkala'},
               
     -quality => $thumbnailQuality,
               
 ); 
            },
        );
        
        $gui{'QualitaetSkala'} = $gui{'QualitatFrame'}->Scale(
            -from         => 0,
            -to  &nb
sp;          => 100,
            -variable &nb
sp;  => $thumbnailQuality,
            -sliderlength => 6,
            -orient     => 'horizontal',
            -length &nbsp
;      => 100,
            -showvalue     => 0,
            -bg => 'yellow',
            -activebackground => 'blue',
            -border => 0,
        );
        $gui{'QualitaetSkala'}->configure(
            -command => sub{ $thumbnailQuality = $gui{'QualitaetSkala'}->get(); },
        );