[openMSX-commits] SF.net SVN: openmsx:[13194] openmsx/trunk/share/scripts/mode.tcl

[<man...@us...>]

Revision: 13194
          http://openmsx.svn.sourceforge.net/openmsx/?rev=13194&view=rev
Author:   manuelbi
Date:     2013-03-09 21:21:53 +0000 (Sat, 09 Mar 2013)
Log Message:
-----------
Set inputdelay to 0 in TAS mode.

Modified Paths:
--------------
    openmsx/trunk/share/scripts/mode.tcl

Modified: openmsx/trunk/share/scripts/mode.tcl
===================================================================
--- openmsx/trunk/share/scripts/mode.tcl	2013-03-09 20:58:30 UTC (rev 13193)
+++ openmsx/trunk/share/scripts/mode.tcl	2013-03-09 21:21:53 UTC (rev 13194)
@@ -50,7 +50,16 @@
 
 ## Define tas mode
 
+variable old_inputdelay
+
 proc enter_tas_mode {} {
+
+	variable old_inputdelay
+
+	# in tas mode, set inputdelay to 0
+	set old_inputdelay $::inputdelay
+	set ::inputdelay 0
+
 	if {![osd exists framecount]} {
 		toggle_frame_counter
 	}
@@ -76,6 +85,12 @@
 }
 
 proc leave_tas_mode {} {
+
+	variable old_inputdelay
+
+	# restore inputdelay
+	set ::inputdelay $old_inputdelay
+
 	if {[osd exists lag_counter]} {
 		toggle_lag_counter
 	}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.