mirror of
https://github.com/thestk/stk
synced 2026-08-27 20:30:54 +00:00
Version 3.1
This commit is contained in:
committed by
Stephen Sinclair
parent
868787a5f9
commit
4b6500d3de
@@ -102,7 +102,7 @@ bind . <Destroy> +myExit
|
||||
|
||||
proc myExit {} {
|
||||
global outID
|
||||
puts $outID [format "NoteOff 0.0 1 64 127" ]
|
||||
puts $outID [format "NoteOff 0.0 1 64.0 127.0" ]
|
||||
flush $outID
|
||||
puts $outID [format "ExitProgram"]
|
||||
flush $outID
|
||||
|
||||
Reference in New Issue
Block a user