XPlotCustomDisplay.fs

#r "PresentationCore.dll"
#r "PresentationFramework.dll"
#r "System.Xaml.dll"
#r "WindowsBase.dll"

#load "../packages/XPlot.GoogleCharts.1.0.1/XPlot.GoogleCharts.fsx"

open System.Windows
open System.Windows.Controls
open XPlot.GoogleCharts

let initWindow() =
    let wnd = Window()
    wnd.Height <- 700.
    wnd.Width <- 1000.
    wnd.Topmost <- true
    wnd.WindowStartupLocation <- WindowStartupLocation.CenterScreen 
    wnd

let showInWindow (chart:GoogleChart) =
    let wnd = initWindow()
    let browser = new WebBrowser()
    browser.NavigateToString chart.Html
    wnd.Content <- browser
    wnd.Show()
    "Google Chart"

fsi.AddPrinter showInWindow