*** smack.pl.orig	Wed May 24 16:37:54 2006
--- smack-save.pl	Thu Jun  1 18:35:01 2006
***************
*** 1,3 ****
--- 1,5 ----
+ #!/usr/bin/perl
+ 
  use strict;
  
  my $stable;
***************
*** 8,15 ****
      print, next if @a != 3;
  
      # we get a signed short written as two unsigned bytes
!     $a[0] += 256 if $a[0] < 0;
!     my $x = $a[1]*256 + $a[0];
  
      if(abs($x) < 20) { 
  	$stable++; 
--- 10,16 ----
      print, next if @a != 3;
  
      # we get a signed short written as two unsigned bytes
!     my $x = $a[0];
  
      if(abs($x) < 20) { 
  	$stable++; 
***************
*** 18,23 ****
      if(abs($x) > 30 && $stable > 30) {
  	$stable = 0;
  	my $foo = $x < 0 ? 'Prev' : 'Next';
! 	system "./notify SwitchTo${foo}Workspace\n";
      }
  }
--- 19,24 ----
      if(abs($x) > 30 && $stable > 30) {
  	$stable = 0;
  	my $foo = $x < 0 ? 'Prev' : 'Next';
! 	system "/System/Library/Frameworks/ScreenSaver.framework/Versions/A/Resources/ScreenSaverEngine.app/Contents/MacOS/ScreenSaverEngine\n";
      }
  }