[COMMIT LOGREPORT] service/all/lib/Lire/UI CompoundWidget.pm,1.13,1.14

[Wolfgang Sourdeau]

Update of /cvsroot/logreport/service/all/lib/Lire/UI
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17075/Lire/UI

Modified Files:
	CompoundWidget.pm 
Log Message:
- make sure that the cursor in the help window is reset to its highest
  position everytime a new option is selected;


Index: CompoundWidget.pm
===================================================================
RCS file: /cvsroot/logreport/service/all/lib/Lire/UI/CompoundWidget.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- CompoundWidget.pm	10 Jul 2004 20:19:38 -0000	1.13
+++ CompoundWidget.pm	7 May 2005 05:57:57 -0000	1.14
@@ -223,8 +223,12 @@
     my $value = $widget->{'value'};
 
     $self->getobj( 'help_summary' )->text( $value->summary() );
-    $self->getobj( 'help_viewer' )->text( $value->text_description()
-                                          || __( 'No help available.' ) );
+
+    my $help_viewer = $self->getobj( 'help_viewer' );
+    $help_viewer->cursor_up( undef, $help_viewer->{'-yscrpos'} )
+      if ( $help_viewer->{'-yscrpos'} > 1 );
+    $help_viewer->text( $value->text_description()
+                        || __( 'No help available.' ) );
 
     return;
 }

-- 
To UNSUBSCRIBE, email to commit-request at logreport.org with a subject of 
"unsubscribe". Trouble? Send an email with subject "help" to 
commit-request at logreport.org