Bug#270994: perl-tk: proposed solution and patch

[Colin Tuckley]

Package: perl-tk
Version: 1:804.027-3
Followup-For: Bug #270994

It seems that gedi is actually an example perl-tk application and the
version in the package doesn't work. I've had a play and it looks like
either there are some typos, or more likely, that things have tightened
up in the library since it was written in 1999!

I've worked up a simple patch for it that makes it work. However, it
doesn't really belong in /usr/bin since it's only an example. So, rather than
spend time writing a man page for it I suggest we move it to an "examples"
directory somewhere, perhaps in the doc tree if there isn't already
somewhere appropriate.


-- System Information:
Debian Release: testing/unstable
  APT prefers testing
  APT policy: (990, 'testing'), (500, 'unstable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.12-1-386
Locale: LANG=en_GB.UTF-8, LC_CTYPE=en_GB.UTF-8 (charmap=UTF-8)

Versions of packages perl-tk depends on:
ii  libc6                    2.3.5-8         GNU C Library: Shared libraries an
ii  libjpeg62                6b-11           The Independent JPEG Group's JPEG 
ii  libpng12-0               1.2.8rel-5      PNG library - runtime
ii  libx11-6                 6.8.2.dfsg.1-11 X Window System protocol client li
ii  perl                     5.8.7-10        Larry Wall's Practical Extraction 
ii  perl-base [perlapi-5.8.7 5.8.7-10        The Pathologically Eclectic Rubbis
ii  zlib1g                   1:1.2.3-9       compression library - runtime

perl-tk recommends no packages.

-- no debconf information

--- /usr/bin/gedi       2006-01-20 02:58:06.000000000 +0000
+++ gedi        2006-02-07 17:28:51.316549256 +0000
@@ -74,7 +74,7 @@
 
 # my $menu_frame = $top->Frame->pack(-anchor=>'nw');
 my $text_frame = $top->Frame->pack
-       (-anchor=>'nw', expand=>'yes', -fill => 'both'); # autosizing
+       (-anchor=>'nw', -expand=>'yes', -fill => 'both'); # autosizing
 my $counter_frame = $top->Frame->pack(-anchor=>'nw');
 
 ##############################################
@@ -117,36 +117,36 @@
 ##############################################
 ##############################################
 my $current_line_label = $counter_frame
-       -> Label(text=>'line: 1')
+       -> Label(-text=>'line: 1')
        -> grid(-row=>1,-column=>1, -sticky=>'nw' );
 
 my $total_line_label = $counter_frame
-       -> Label(text=>'total lines: 1')
+       -> Label(-text=>'total lines: 1')
        -> grid(-row=>2,-column=>1, -sticky=>'nw' );
 
 my $current_column_label = $counter_frame
-       -> Label(text=>'column: 0')
+       -> Label(-text=>'column: 0')
        -> grid(-row=>3,-column=>1, -sticky=>'nw' );
 
 my $insert_overstrike_mode_label = $counter_frame
-       -> Label(text=>' ')
+       -> Label(-text=>' ')
        -> grid(-row=>5,-column=>1, -sticky=>'nw' );
 
 sub update_indicators
 {
        my ($line,$column)= split(/\./,$textwindow->index('insert'));
-       $current_line_label->configure (text=> "line: $line");
-       $current_column_label->configure (text=> "column: $column");
+       $current_line_label->configure (-text=> "line: $line");
+       $current_column_label->configure (-text=> "column: $column");
 
        my ($last_line,$last_col) = split(/\./,$textwindow->index('end'));
-       $total_line_label->configure (text=> "total lines: $last_line");
+       $total_line_label->configure (-text=> "total lines: $last_line");
 
        my $mode = $textwindow->OverstrikeMode;
        my $overstrke_insert='Insert Mode';
        if ($mode)
                {$overstrke_insert='Overstrike Mode';}
        $insert_overstrike_mode_label->configure
-               (text=> "$overstrke_insert");
+               (-text=> "$overstrke_insert");
 
        my $filename = $textwindow->FileName;
        $filename = 'NoName' unless(defined($filename));