SF.net SVN: net-policy: [4662] trunk/net-policy/perl/QWizard/Generator/Tk. pm

[<har...@us...>]

Revision: 4662
          http://net-policy.svn.sourceforge.net/net-policy/?rev=4662&view=rev
Author:   hardaker
Date:     2007-10-12 07:32:25 -0700 (Fri, 12 Oct 2007)

Log Message:
-----------
make the help text on the screen be word wrapped

Modified Paths:
--------------
    trunk/net-policy/perl/QWizard/Generator/Tk.pm

Modified: trunk/net-policy/perl/QWizard/Generator/Tk.pm
===================================================================
--- trunk/net-policy/perl/QWizard/Generator/Tk.pm	2007-10-10 04:02:54 UTC (rev 4661)
+++ trunk/net-policy/perl/QWizard/Generator/Tk.pm	2007-10-12 14:32:25 UTC (rev 4662)
@@ -361,11 +361,17 @@
     $text = "    $text" if ($q->{'indent'});
     if ($helptext && !$self->qwpref('usehelpballons')) {
 	my $f = $top->Frame();
+	$f->Label(-text => $text, -anchor => 'nw')->pack(-anchor => 'w');
 	$helptext = "    $helptext" if ($q->{'indent'});
-	$f->Label(-text => $text, -anchor => 'nw')->pack(-anchor => 'w');
-	$f->Label(-text => $helptext, -anchor => 'nw',
-		  -font => 'Helvetica 12 italic')
+	$helptext = " $helptext";
+	my $height = int(length($helptext)/40)+1;
+	my $t = $f->Text(-width => 40,
+			 -height => $height,
+			 -relief => 'flat',
+			 -wrap => 'word',
+			 -font => 'Helvetica 12 italic')
 	  ->pack(-anchor => 'w');
+	$t->insert('end', $helptext);
 	$self->put_it($f, undef, 1);
     } else {
 	my $l = $top->Label(-text => $text, -anchor => 'nw');


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.