Entry 755

module Morse where

import Graphics.UI.WX
import MorseCode

main = start gui

gui = do f <- frame [text := "Codificador para morse"]
         book <- textCtrl f [clientSize := sz 400 250]
         p <- panel f [] 
         c <- panel f []
         e <- textCtrl p [clientSize := sz 400 100, on command ::= convert morse book, 
                          tooltip := "Digite o texto a ser convertodo aqui" ]
         btGo <- button c [text := "Codificar", on command := convert morse book e,
                           tooltip := "Clique para codificar uma mensagem"]
         btClear <- button c [text := "Limpar", on command := set e [text := ""],
                              tooltip := "Clique aqui para limpar o texto digitado"]
         btBack <- button c [text := "Decodificar", on command := convert unmorse book e,
                             tooltip := "Clique para decodificar uma mensagen"] 
         set c [layout := row 2 [widget btGo,widget btClear,widget btBack]]
         set p [layout := widget e]
         set f [layout := margin 5 (column 2 [widget c, widget p, widget book])]
 
 where
  convert coder book e = do s <- get e text
                            set book [text := ""]
                            addToBook book (crypt coder s)
                            set e [text := ""]
                            focusOn e     
      
  crypt coder = (map coder).lines       
  addToBook _ [] = return ()
  addToBook book (x:xs) = do appendText book (x ++ "\n")
                             addToBook book xs