#!/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();