[Slimp3-checkins] CVS: slimp3/server/lib/SliMP3 Animation.pm,1.30,1.31 VFD.pm,1.31,1.32

[dean b. <bla...@us...>]

Update of /cvsroot/slimp3/slimp3/server/lib/SliMP3
In directory usw-pr-cvs1:/tmp/cvs-serv5442/server/lib/SliMP3

Modified Files:
	Animation.pm VFD.pm 
Log Message:
Putting copies of the released versions of the SliMP3 firmware in CVS

Added SliMP3::Animation::bumpUp and bumpDown to give some indication that
there's nothing to scroll to in the list.

Fixed a bug in the makerelease.pl script that didn't get all the new files
when building nightly.

Removed an old comment from the VFD code.


Index: Animation.pm
===================================================================
RCS file: /cvsroot/slimp3/slimp3/server/lib/SliMP3/Animation.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** Animation.pm	26 Jul 2002 01:00:42 -0000	1.30
--- Animation.pm	30 Jul 2002 23:26:02 -0000	1.31
***************
*** 205,208 ****
--- 205,237 ----
  }
  
+ sub bumpUp {
+ 	my $client = shift;
+ 
+ 	if (SliMP3::Prefs::get('animationLevel') < 2) {
+ 		SliMP3::Display::update($client);
+ 		return;
+ 	}
+ 
+ 	my ($end1, $end2) = SliMP3::Display::curLines($client);
+ 	my @newqueue = ();
+ 	push @newqueue, [.125,$end2,' '];
+ 	push @newqueue, [.125,$end1,$end2];
+ 	startAnimate($client,\&animateFrames,\@newqueue);
+ }
+ 
+ sub bumpDown {
+ 	my $client = shift;
+ 
+ 	if (SliMP3::Prefs::get('animationLevel') < 2) {
+ 		SliMP3::Display::update($client);
+ 		return;
+ 	}
+ 
+ 	my ($end1, $end2) = SliMP3::Display::curLines($client);
+ 	my @newqueue = ();
+ 	push @newqueue, [.125,' ',$end1];
+ 	push @newqueue, [.125,$end1,$end2];
+ 	startAnimate($client,\&animateFrames,\@newqueue);
+ }
  
  sub bumpRight {

Index: VFD.pm
===================================================================
RCS file: /cvsroot/slimp3/slimp3/server/lib/SliMP3/VFD.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** VFD.pm	29 Jul 2002 16:10:30 -0000	1.31
--- VFD.pm	30 Jul 2002 23:26:02 -0000	1.32
***************
*** 298,302 ****
  			}
  			
- 			# todo - replace this with a regexp
  			$line =~ s/(.)/$prefix$1/go;
  			$vfddata .= $line;
--- 298,301 ----