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

[<m97...@us...>]

Revision: 8191
          http://openmsx.svn.sourceforge.net/openmsx/?rev=8191&view=rev
Author:   m9710797
Date:     2008-09-01 18:17:37 +0000 (Mon, 01 Sep 2008)

Log Message:
-----------
made autoplug script more robust

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

Modified: openmsx/trunk/share/scripts/autoplug.tcl
===================================================================
--- openmsx/trunk/share/scripts/autoplug.tcl	2008-09-01 18:17:17 UTC (rev 8190)
+++ openmsx/trunk/share/scripts/autoplug.tcl	2008-09-01 18:17:37 UTC (rev 8191)
@@ -3,7 +3,10 @@
 
 proc do_autoplug {} {
 	if { [lsearch [machine_info connector] "cassetteport"] != -1 } {
-		plug cassetteport cassetteplayer
+		if {[string first "--empty--" [plug cassetteport]] != -1} {
+			# only when nothing already plugged
+			plug cassetteport cassetteplayer
+		}
 	}
 	after machine_switch do_autoplug
 }


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