[COMMIT LOGREPORT] service/all/lib/Lire/UI Prefs.pm,1.18,1.19

[Wolfgang Sourdeau]

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

Modified Files:
	Prefs.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: Prefs.pm
===================================================================
RCS file: /cvsroot/logreport/service/all/lib/Lire/UI/Prefs.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- Prefs.pm	27 May 2004 18:01:09 -0000	1.18
+++ Prefs.pm	29 Apr 2005 00:36:31 -0000	1.19
@@ -176,6 +176,10 @@
     my $option = $widget->get();
     my $opt_summary = $widget->parent()->getobj( 'option_summary' );
     my $opt_help = $widget->parent()->getobj( 'option_help' );
+
+    $opt_help->cursor_up( undef, $opt_help->{'-yscrpos'} )
+      if ( $opt_help->{'-yscrpos'} > 1 );
+
     if ( !defined $option ) {
         $widget->{'-ypos'} = 0;
         $widget->{'-selected'} = undef;
@@ -183,7 +187,7 @@
         $opt_help->text( '' );
     } else {
         $widget->parent()->delete( 'option_widget' )
-            if $widget->parent()->getobj( 'option_widget' );
+          if $widget->parent()->getobj( 'option_widget' );
         $widget->parent()->add( 'option_widget', 'Lire::UI::Widget',
                                 '-x' => $opt_summary->{'-x'},
                                 '-y' => $opt_summary->{'-y'} + 2,

-- 
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