

' NOT WORKING
' ThereminoEditor can not edit a generic text file


Button 1 Text EditGenericFile

Button 5 Text ApplicationPath
Button 6 Text FilePath
Button 7 Text FileName


Controls OpenTextBox
Controls ClearTextBox

Stop																'


' =====================================================================
'  SEQUENCES
' =====================================================================
Label InitPaths
	Variable String EditorFolder
	Variable String EditorApp
	'
	EditorFolder = ".\Theremino_HAL\Theremino_Editor\"
	'
	EditorApp = EditorFolder + "Theremino_Editor.exe"
Return


Variable String FileToEdit = GenericTextFile.txt

Label EditGenericFile
	Gosub InitPaths
	If FileExists(FileToEdit)
		Load EditorApp + " " + "C:\Livio\Sistema_Theremino\Theremino_Automation\Theremino_Automation\Theremino_Automation\Files\GenericTextFile.txt"
		'".\Files\" + FileToEdit
	EndIf
Return


' =====================================================================
'  GetApplicationPath   GetFilePath   GetFileNameWithoutPath
' =====================================================================
Label ApplicationPath
	s1 = GetApplicationPath()
	Print s1 + CRLF
Return

Label FilePath
	Gosub InitSequencePaths
	s1 = GetFilePath(SequencePathAndName)
	Print s1 + CRLF
Return

Label FileName
	Gosub InitSequencePaths
	s1 = GetFileNameWithoutPath(SequencePathAndName)
	Print s1 + CRLF
Return


'EXEC Sin2 = Sin(33)
