Re: Label Widget


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: Label Widget

by crouchingpenguin (Priest)

on Jun 17, 2003 at 19:39 UTC ( [id://266618]=note: print w/replies, xml )

Need Help??

in reply to Label Widget

Depends on if you mean the text of a hash key or not. You could maybe want to Dump the hash with Data::Dumper. The following shows both:

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Tk 800;
                                                                      
+                                                       
my %hash = (
  key1 => 'value1',
  key2 => 'value2',
);
                                                                      
+                                                       
my $mw = Tk::MainWindow->new();
my $label_with_hash_key = $mw->Label(
  -text => $hash{key1},
)->pack();
my $label_with_hash_dump = $mw->Label(
  -text => Dumper(\%hash),
)->pack();
my $button = $mw->Button(
  -text => 'Quit',
  -command => sub { exit; },
)->pack();
$mw->geometry('=320x240+120+1');
$mw->MainLoop();
[download]

cp
----
"Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."