Changeset 1911

Show
Ignore:
Timestamp:
08/11/06 18:50:32
Author:
miyagawa
Message:

update Exit_Click to play off sound.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • thinkpad-saber/trunk/thinkpad-saber.pl

    r1860 r1911  
    1313use Getopt::Long; 
    1414 
    15 our $VERSION = "0.22"; 
     15our $VERSION = "0.23"; 
    1616 
    1717GetOptions('--debug', \my $debug, '--threshold=s' => \my $threshold, "--help" => \my $help); 
     
    6868 
    6969sub Exit_Click { 
     70    Win32::Sound::Play('sound/off0.wav'); 
    7071    exit; 
    71 }  
     72} 
    7273 
    7374sub get_pos {