#-------------------------------------------------------------------------- # Fortschrittsbalken: #-------------------------------------------------------------------------- my $fb_f = $mw->LabFrame(-label => 'Fortschrittsanzeige', -labelside => 'acrosstop', ); my $fsb = $fb_f->ProgressBar( -length => 200, -width => 13, -anchor => 'w', -from => 0, -to => 100, -blocks => 10, -gap => 0, -colors => [ 00 => '#0000FF', 10 => '#1C00FF', 20 => '#3800FF', 30 => '#5500FF', 40 => '#7100FF', 50 => '#8D00FF', 60 => '#AA00FF', 70 => '#C600FF', 80 => '#E200FF', 90 => '#FF00FF', ], -value => 0, ) ->pack(-side => 'top', -expand => 1, -fill => 'x', ); $Konfig{fsb} = $fsb;