anchor.diff:              Visibility.Hidden
   
       member x.BrowseExe = alwaysExecutable (fun action ->
  -        match MainViewUtils.selectExecutableDialog() with
  +        match MainViewUtils.selectExecutableDialog(Some(x.SelectedProfile.ExePath)) with
           | None -> ()
           | Some (exePath) -> 
               // verify that the chosen path is not already claimed by another profile
  
positive.code: open ModelMod
  
  module MainViewUtils = 
      let selectExecutableDialog() = 
          let dlg = new OpenFileDialog()
  
          //dlg.InitialDirectory <- state.Value.SnapshotRoot
  
  
negative.code: 
      member x.Name 
          with get() = config.ProfileName
          and set (value:string) = 
              let value = value.Trim()
              if value = "" then
                  MainViewUtils.failValidation "Profile name may not be empty"
              else
                  config <- {config with ProfileName = value } 
                  save()
  
      member x.ExePath 
          with get() = config.ExePath
  