I solved the problem as follows, though I haven't understood why, in this case, automatic conversion of function to delegates did not work.

1
2
3
4
5
6
type my_delegate_void = delegate of unit -> unit

let print_to_log_dispatcher str  = 
        let my_delegate () = 
                g_txt_log.Text <- (DateTime.Now.ToLongTimeString ()) ^ ": " ^ str ^ Environment.NewLine ^ g_txt_log.Text
        g_txt_log.Dispatcher.BeginInvoke(System.Windows.Threading.DispatcherPriority.Normal,  new my_delegate_void ( my_delegate)) |> ignore
By on 1/23/2009 2:25 AM ()
IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy
Built with WebSharper