I haven't checked this, but...
(B
(Bon mouseUp
(Bput empty into field "morsetext"
(Bput empty into field "standardtext"
(Bask "What would you like to translate?? Was h$BgU(Bten Sie gern $B!&(Bersetzt ??"
(Bif it is not empty then
(Bset the cursor to watch
(Bput it into field "standardtext"
(Bput it into filecontent
(Bput empty into tTranslatedText
(Brepeat for each char w in filecontent
(Bif w = "a" then
(Bput ".- /" after tTranslatedText
(Bnext repeat
(Bif w = "b" then
(B put "-... /" after tTranslatedText
(Bnext repeat
(Bend if
(B-- and so on...
(Bend repeat
(Bput tTranslatedText into field "morsetext"
(Banswer "There you go! Bitte Sch$B�O(B!"
(Bend if
(Bend mouseUp
(B
(BCheers,
(B
(BNicolas Cueto
(B_______________________________________________
(Bmetacard mailing list
(B[EMAIL PROTECTED]
(Bhttp://lists.runrev.com/mailman/listinfo/metacard
