[xiph-cvs] cvs commit: snatch snatch.pl

[Monty]

xiphmont    01/11/11 14:56:39

  Modified:    .        snatch.pl
  Log:
  testing for 'no more timer events' on timer, not sorted timer array.  fixed

Revision  Changes    Path
1.30      +4 -2      snatch/snatch.pl

Index: snatch.pl
===================================================================
RCS file: /usr/local/cvsroot/snatch/snatch.pl,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- snatch.pl	2001/11/11 22:43:28	1.29
+++ snatch.pl	2001/11/11 22:56:38	1.30
@@ -674,9 +674,10 @@
     if($mode=~/timer/){
         my$now=time();
 
-	if($TIMER_ENDTIMES[$#TIMER]<$now){
+	if($TIMER_ENDTIMES[$TIMER_SORTED[$#TIMER]]<$now){
             Robot_Stop();
             Robot_Inactive();
+	    ButtonPressConfig();
         }else{
             
             if($now>=$next_timer_event){
@@ -1091,7 +1092,8 @@
 
 sub ButtonConfig{
     my$now=time();
-    if ($#TIMER<0 || $TIMER_ENDTIMES[$#TIMER]<$now || !$comm_ready){
+    if ($#TIMER<0 || $TIMER_ENDTIMES[$TIMER_SORTED[$#TIMER]]<$now || 
+	!$comm_ready){
         $window_timer->configure(state=>disabled);
     }else{ 
         $window_timer->configure(state=>normal);

--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.