anchor.diff:              | Some exe when File.Exists(exe) -> Some(Directory.GetParent(exe).ToString())
               | Some exe -> None
   
  -        ViewModelUtil.pushSelectFileDialog (initialDir,"Executable files (*.exe)|*.exe")
  +        ViewModelUtil.pushSelectFileDialog (initialDir,LocStrings.Misc.ExeFilesFilter + "|*.exe")
   
       let private getDirLocator (profile:ProfileModel) =
           let lp = ProcessUtil.getLoaderPath()
  -        if lp = "" then failwithf "Unable to find loader path; check that %s is built for this configuration" ProcessUtil.LoaderName
  +        if lp = "" then failwithf LocStrings.Errors.CantFindLoader ProcessUtil.LoaderName
           let root = Directory.GetParent(lp).FullName
           let root = Path.Combine(root, "..")
           let dl = State.DirLocator(root, profile.Config)
  
positive.code:         with get () =
              let inputText = 
                  match (ProfileText.Input.Descriptions |> Map.tryFind x.SelectedProfile.InputProfile) with 
                  | None -> "No Input description available"
                  | Some (text) ->
                      LocStrings.Input.Header + "\n" + LocStrings.Input.Desc1 + "\n" + LocStrings.Input.Desc2 + "\n" + text
              let snapshotText = 
  
negative.code: 
  type MainView = XAML<"MainWindow.xaml", true>
  
  // Helper module for using parameterized loc strings with failwith, etc 
  // (since we can't pass them directly as an argument):
  // http://stackoverflow.com/questions/18551851/why-does-fs-printfn-work-with-literal-strings-but-not-values-of-type-string
  module Formatters =
      type String = Printf.StringFormat<string -> unit>
      type StringRetString = Printf.StringFormat<string -> string>
      type StringAnyRetString<'a> = Printf.StringFormat<string -> 'a -> string>
      type AnyRetString<'a> = Printf.StringFormat<'a -> string>
  
  module LocStrings = 
      // Ideally these strings would actually be localized someday using whatever method.
      module Input =
          let Header = "Input:"
          let Desc1 = "Press CONTROL followed by the following keys."
  