/[iselect]/bin/iselect.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/iselect.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4 by dpavlin, Thu Oct 25 12:45:18 2007 UTC revision 5 by dpavlin, Thu Oct 25 13:04:52 2007 UTC
# Line 120  sub selected { Line 120  sub selected {
120          if ( $d < 0 && $screen_line == 0 ) {          if ( $d < 0 && $screen_line == 0 ) {
121                  if ( $pos > 0 ) {                  if ( $pos > 0 ) {
122                          $o--;                          $o--;
123                            $pos--;
124                  } else {                  } else {
125                          $error_text = "Already at Begin.";                          $error_text = "Already at Begin.";
126                  }                  }
# Line 127  sub selected { Line 128  sub selected {
128          } elsif ( $d > 0 && $screen_line == $last_screen_line ) {          } elsif ( $d > 0 && $screen_line == $last_screen_line ) {
129                  if ( $pos <= $#lines ) {                  if ( $pos <= $#lines ) {
130                          $o++;                          $o++;
131                            $pos++;
132                  } else {                  } else {
133                          $error_text = "Already at End.";                          $error_text = "Already at End.";
134                  }                  }

Legend:
Removed from v.4  
changed lines
  Added in v.5

  ViewVC Help
Powered by ViewVC 1.1.26