#!/usr/bin/perl -w

# 123ex1 - Combination of Entry and Label widgets.
# Another segmentation fault; that's interesting.
#
# Setting the Label width forces the widget to scroll,
# otherwise it will expand the window x-wise to
# accomodate the extra text. Try -wraplength also.

use Tk;
use strict;

my $message;

my $mw = MainWindow->new;
$mw->title("Label following Entry");

$mw->Label(-textvariable => \$message,
			-width => 40)
	->pack(-side => 'bottom', 
			-fill => 'x',);
my $e = $mw->Entry(-textvariable => \$message)
			->pack(-expand => 1, 
					-fill => 'x');

MainLoop;