From e0ba8ca5e1e77f3bd78cf59a123d0b4a2eaef776 Mon Sep 17 00:00:00 2001 From: Rob van Son Date: Mon, 12 Jan 2015 09:21:40 +0100 Subject: [PATCH] Added a check on the extension of tsv files in OpenPerf --- Config.praat | 6 +++--- Data/Config_DE.Table | 2 +- Data/Config_EN.Table | 2 +- Data/Config_NL.Table | 2 +- 4 files changed, 6 insertions(+), 6 deletions(-) diff --git a/Config.praat b/Config.praat index f925e91..6565bcd 100644 --- a/Config.praat +++ b/Config.praat @@ -703,9 +703,9 @@ procedure processConfigOpenPerf .clickX .clickY .pressed$ .defaultName$= sgc.savePerf$ endif .performance_Name$ = chooseReadFile$ (.openDialogue$) - if index_regex(.performance_Name$, "\.(tsv|TSV)$") <= 0 - .performance_Name$ = "" - endif + while .performance_Name$ <> "" and index_regex(.performance_Name$, "\.(tsv|TSV)$") <= 0 + .performance_Name$ = chooseReadFile$ (.openDialogue$) + endwhile if .performance_Name$ <> "" and fileReadable(.performance_Name$) sgc.savePerf$ = .performance_Name$ call initialize_toneevaluation_tables diff --git a/Data/Config_DE.Table b/Data/Config_DE.Table index 7a27ccd..ae0e926 100644 --- a/Data/Config_DE.Table +++ b/Data/Config_DE.Table @@ -47,5 +47,5 @@ ClearSummary Neuer* *8 Starten Sie einen neuen Bericht mit den Ergebnissen diese ListPerf Ergebnisse &7 Ergebnisse dieser Sitzung zeigen SavePerf Bewahre 9 Ergebnisse der \U"bungen aufbewahren in eine Datei (mit .tsv Dateierweiterung) OpenPerf Lese 7 L\o"sche Ergebnisse und lese aufbewahrte Ergebnisse von \U"bungen aus einer Datei -!OpenPerf Lese ! W\a"hle Datei mit aufbewahrte Ergebnisse von \U"bungen +!OpenPerf Lese ! W\a"hle Datei mit aufbewahrte Ergebnisse von \U"bungen (mit .tsv Dateierweiterung) diff --git a/Data/Config_EN.Table b/Data/Config_EN.Table index 49ed8f3..66dec76 100644 --- a/Data/Config_EN.Table +++ b/Data/Config_EN.Table @@ -46,4 +46,4 @@ ClearSummary Clear* *8 Clear report and start a new performance report for this ListPerf Performance &7 Show performance during this session SavePerf Save 9 Save performance report to file (with a .tsv extension) OpenPerf Read 7 Clear report and read stored performance report from file -!OpenPerf Read ! Select file with stored results of practising +!OpenPerf Read ! Select file with stored results of practising (file with a .tsv extension) diff --git a/Data/Config_NL.Table b/Data/Config_NL.Table index 2e95fb1..c8f4a42 100644 --- a/Data/Config_NL.Table +++ b/Data/Config_NL.Table @@ -46,4 +46,4 @@ ClearSummary Initialiseer* *8 Wis verslag en start nieuwe resultatenverslag voor ListPerf Resultaten &7 Toon de resultaten van deze sessie SavePerf Bewaar 9 Schrijf een verslag van de resultaten naar een bestand (met .tsv extensie) OpenPerf Lees 7 Wis verslag en lees resultaten van gedane oefeningen uit een bestand -!OpenPerf Lees ! Kies bestand met bewaarde resultaten van gedane oefeningen +!OpenPerf Lees ! Kies bestand met bewaarde resultaten van gedane oefeningen (bestand met .tsv extensie) -- 2.11.4.GIT