F# + WPF

[isource]

Напишу, пока не забыл. Забавно будет, когда за комментариями к коду я полезу именно сюда, а не в сам код. А это обязательно случится. Мне уже забавно.
В общем, раз уж у нас .NET, то грех было бы не использовать WPF. Хотя WPF is all about reflection and automation, а у нас F# и автоматом ничего делаться не будет (во всяком случае, не делается сейчас, в будущем, возможно, Microsoft что нибудь и придумает в своём желании нажиться и сдесь). Так что придётся написать загрузку-автоматизацию ручками, но тут что-нибудь придумаем. Да и не соображаю что-там и как по-хорошему в WPF (и таю наивную надежду, что это даже плюс).

#light

module Frame

open System.IO
open System.Windows
open System.Windows.Markup
open System.Xml

let load path =
  use stream = new FileStream(path, FileMode.Open)
  XamlReader.Load(stream) :?> FrameworkElement

собственно, загрузка из .xaml документа. Запуск самого окошка происходит практически так же, как и с WinForms

[<STAThread()>]
try
  let app = new Application()
  let window = Frame.load "main.xaml" :?> Window  
  app.Run(window) |> ignore
with
| exc -> 
  MessageBox.Show(exc.ToString()) |> ignore

Правда окошко пока не отзывается, да и не может отзываться, потому что у кнопочек никакого автоматически при привязанного кода нету. Но против лома нет приёма:

let button = frame.FindName("Exit") :?> Button
button.Click.Add(fun ea -> application.Shutdown())

Осталось придумать какую-нибудь фигню, которая будет автоматически "оживлять" и переключать страницы:

let page list (window : #Window) =
  let dic = new SortedDictionary<_,_>()
  List.iter (fun (name, bind) -> dic.[name] <- bind) list
  let rec page name =
    let frame = load name
    dic.[name] page (fun prop -> frame.FindName(prop))
    window.Content <- frame
  page

Вот, каждому названию странички сопоставили функцию, которая будет её заполнять и возвратили функцию, которая будет эти страницы переключать.
Функции заполнения будут выглядеть так:

let menu (application : #Application) (page : string -> unit) (prop : string -> obj) =
  let ng = prop "NewGame" :?> Button
  ng.Click.Add(fun ea -> page "map")
  let ex = prop "Exit" :?> Button
  ex.Click.Add(fun ea -> application.Shutdown())

А запуск нашей супер-системы так:

Frame.page [("menu.xaml", menu app)] window "menu.xaml"

непосредственно перед app.Run(window) |> ignore

Вот и всё. F# WPF FTW