#!/usr/bin/perl -w

use strict;
use warnings;

use Tk;
use Tk::Spinbox;

my $win=Tk::MainWindow->new();
$win->Spinbox(
                -from=>0,
                -to=>10,
                -justify=>'left',
                # funktioniert auch bei 'right' und 'center'
                )->pack();
my $text=$win->Text(
                -height=>5,
                -width=>40,
                )->pack();
$text->Insert("Das ist ein schlauer Text");
$text->tagAdd("Test",'1.0', '1.10');
$text->tagConfigure("Test", 'justify','left','underline',1);
$win->MainLoop();