Help for this page

Select Code to Download


  1. or download this
    my $screen = $top -> Label(
    -textvariable => "$number",
...
    -borderwidth => 2,
    -relief => 'sunken',
) -> pack(-pady => 5);
  2. or download this
    my $screen = $top -> Label(
    -text => \$number,
...
    -borderwidth => 2,
    -relief => 'sunken',
) -> pack(-pady => 5);