From a99c3ef40c9d063eca91a6f08d78aacacf0c2a41 Mon Sep 17 00:00:00 2001 From: Rob van Son Date: Mon, 12 Jan 2015 09:07:43 +0100 Subject: [PATCH] Added a check on the extension of tsv files in SavePerf --- Config.praat | 5 +++++ Data/Config_DE.Table | 2 +- Data/Config_EN.Table | 2 +- Data/Config_NL.Table | 2 +- 4 files changed, 8 insertions(+), 3 deletions(-) diff --git a/Config.praat b/Config.praat index efa76cc..f925e91 100644 --- a/Config.praat +++ b/Config.praat @@ -741,6 +741,11 @@ procedure processConfigSavePerf .clickX .clickY .pressed$ .defaultName$= sgc.savePerf$ endif .performance_Name$ = chooseWriteFile$ (.openDialogue$, .defaultName$) + # Ensure the right extension: ".tsv" + while .performance_Name$ <> "" and not endsWith(.performance_Name$, ".tsv") + .performance_Name$ = .performance_Name$ + ".tsv" + .performance_Name$ = chooseWriteFile$ (.openDialogue$, .performance_Name$) + endwhile if .performance_Name$ <> "" select Table 'initialiseSGC2.toneevaluation_table$' Write to table file... '.performance_Name$' diff --git a/Data/Config_DE.Table b/Data/Config_DE.Table index 46650b0..7a27ccd 100644 --- a/Data/Config_DE.Table +++ b/Data/Config_DE.Table @@ -45,7 +45,7 @@ $Statistics \U"bersicht Gebe einen \U"berblick der Ergebnisse ClearSummary Neuer* *8 Starten Sie einen neuen Bericht mit den Ergebnissen dieser Sitzung !ClearSummary Sicher? j/N j Alle Ergebnisse dieser Sitzung werden gel\o"scht. Best\a"tigen Sie diese Aktion mit der taste 'j' ListPerf Ergebnisse &7 Ergebnisse dieser Sitzung zeigen -SavePerf Bewahre 9 Ergebnisse der \U"bungen aufbewahren +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 diff --git a/Data/Config_EN.Table b/Data/Config_EN.Table index e71ac74..49ed8f3 100644 --- a/Data/Config_EN.Table +++ b/Data/Config_EN.Table @@ -44,6 +44,6 @@ $Statistics Overview Give overview of performance measures ClearSummary Clear* *8 Clear report and start a new performance report for this session !ClearSummary Realy y/N y All results for this session will be cleared. Confirm this action by typing 'y' ListPerf Performance &7 Show performance during this session -SavePerf Save 9 Save performance report to file +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 diff --git a/Data/Config_NL.Table b/Data/Config_NL.Table index 1c3ba47..2e95fb1 100644 --- a/Data/Config_NL.Table +++ b/Data/Config_NL.Table @@ -44,6 +44,6 @@ $Statistics Overzicht Geef een overzicht van de resultaten ClearSummary Initialiseer* *8 Wis verslag en start nieuwe resultatenverslag voor deze sessie !ClearSummary Heel zeker j/N j Alle resultaten van deze sessie worden gewist. Bevestig deze actie door een 'j' te typen ListPerf Resultaten &7 Toon de resultaten van deze sessie -SavePerf Bewaar 9 Schrijf een verslag van de resultaten naar een bestand +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 -- 2.11.4.GIT