!7

cmodule SayWithLanguageDetect {
  S typingText, detectedLanguage;
  
  visualize {
     ret northAndCenterWithMargins(dm_bigInputAndSubmit('typingText, "Say / Sag", rThread sayIt),
      fontSizePlus(5, dm_centeredLabel('detectedLanguage)));
  }
  
  void sayIt enter {
    S s = typingText;
    S lang = dm_detectGermanVsEnglish(s);
    if (eq("de", lang)) {
      setField(detectedLanguage := "german");
      dm_sayInGerman(s);
      ret;
    }
    if (eq("en", lang))
      setField(detectedLanguage := "english");
    else
      setField(detectedLanguage := "unknown language");
    dm_sayInEnglish(s);
  }
}