anchor.diff:              | "LinearLayout" when reader.NodeType = XmlNodeType.EndElement -> 
                   appendXaml <| "\n" + depthTab + "</StackPanel>"
               | "TextView" -> 
  -                let textSize = reader.GetAttribute("textSize")
  -                let numberTextSize = textSize.Substring(0, textSize.Length - 2)
  -                appendXaml <| "\n" + depthTab + "<TextBlock Text=\"" + reader.GetAttribute("text") + "\" HorizontalAlignment=\"Center\" FontSize=\"" + numberTextSize + "\"/>"
  +                let textSize = getNumber(reader.GetAttribute("textSize"))
  +                appendXaml <| "\n" + depthTab + "<TextBlock Text=\"" + reader.GetAttribute("text") + "\" HorizontalAlignment=\"Center\" FontSize=\"" + textSize + "\"/>"
  +            | "EditText" ->
  +                let textSize = getNumber(reader.GetAttribute("textSize"))
  +                appendXaml <| "\n" + depthTab + "<TextBox x:Name=\"" + getName (reader.GetAttribute("id")) + "\" IsReadOnly=\"False\" HorizontalAlignment=\"Center\" FontSize=\"" + textSize + "\"/>"
               | "Button" -> 
  -                let id = reader.GetAttribute("id")
  -                let name = id.Substring(5, id.Length - 5)
  +                let name = getName (reader.GetAttribute("id"))
                   if actions.Contains(name) then
                       let click = name + "Click"
  -                    appendXaml <| "\n" + depthTab + "<Button Name=\"" + name + "1\" HorizontalAlignment=\"Center\" Click=\"" + click + "\" Content=\"" + reader.GetAttribute("text") + "\"> </Button>"
  +                    appendXaml <| "\n" + depthTab + "<Button Name=\"" + name + "\" HorizontalAlignment=\"Center\" Click=\"" + click + "\" Content=\"" + reader.GetAttribute("text") + "\"> </Button>"
                       appendAdditions <| "\nprivate void " + click + "(object sender, RoutedEventArgs e)\n{"
                       appendAdditions <| (actions.Item(name) :?> string)
                       appendAdditions <| "\n}"
                   else 
  -                    appendXaml <| "\n" + depthTab + "<Button Name=\"" + name + "1\" HorizontalAlignment=\"Center\" Content=\"" + reader.GetAttribute("text") + "\"> </Button>"
  +                    appendXaml <| "\n" + depthTab + "<Button Name=\"" + name + "\" HorizontalAlignment=\"Center\" Content=\"" + reader.GetAttribute("text") + "\"> </Button>"
               | "ImageView" -> 
                   let url = reader.GetAttribute("src")
                   let fileName = "image" + string imageCounter + url.Substring(url.Length - 4, 4)
  
positive.code:                 // ключ - имя формы, занчение - пара, в которой 1 элемент - событие, 2 элемент - код, который нужно выполнить
                  triggers.Add(tempStack.Pop() :?> string, (tempStack.Pop() :?> string, currentBuilder.ToString()))
                  currentBuilder.Clear() |> ignore
              | "seq" -> ()
              | "first-operator" -> ()
              | "second-operator" -> ()
              | "if" when reader.NodeType <> XmlNodeType.EndElement -> builderAppend <| "\nif (" + reader.GetAttribute("condition") + ")"
              | "then" when reader.NodeType <> XmlNodeType.EndElement -> builderAppend <| "\n{"
              | "then" when reader.NodeType = XmlNodeType.EndElement -> builderAppend <| "\n}"
              | "else" when reader.NodeType <> XmlNodeType.EndElement -> builderAppend <| "\nelse\n{"
              | "else" when reader.NodeType = XmlNodeType.EndElement -> builderAppend <| "\n}"
              | "transition" -> builderAppend <| "\nNavigationService.Navigate(new Uri(\"/" + reader.GetAttribute("form-id") + ".xaml\", UriKind.Relative));"
              | "login-request" -> ()
              | "save-session" -> ()
              | "bus-request" -> ()
              | "showmap" -> ()
  
negative.code:     let currentBuilder = new StringBuilder()
      let builderAppend = append currentBuilder
      let tempStack = new Stack()
      let getName (id : string) = id.Substring(5, id.Length - 5)
      let getNumber (sizeAttr : string) = sizeAttr.Substring(0, sizeAttr.Length - 2)
      try
          while reader.Read() do
              let name = reader.Name
  