FsInteractive/wpfmacros.fs at master · ImaginaryDevelopment/FsInteractive · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
namespace wpf

// usage:
//  #r "tfsmacros";open tfsmacros;let tfs=getTfs();;#r "wpfmacros";;
//  getTfsChangesByUserAndFile tfs None "$/Development/" |> fun (name,items) -> wpf.wpfmacros.display ("tfs changes" + (match name with |None -> "" | Some x -> sprintf " for user %s" x) ) items;;
//  getTfsChangesWithoutWorkItems tfs None "$/Development/" (Some 10) |> wpf.wpfmacros.display "tfs changes";;

// http://stackoverflow.com/questions/5723823/fsi-wpf-event-loop
module WpfEventLoop =
  open System
  open System.Windows
  open System.Windows.Threading
  open Microsoft.FSharp.Compiler.Interactive
  open Microsoft.FSharp.Compiler.Interactive.Settings

  type RunDelegate<'b> = delegate of unit -> 'b
  let Create() =
      let app  =
          try
              // Ensure the current application exists. This may fail, if it already does.
              let app = new Application() in
              // Create a dummy window to act as the main window for the application.
              // Because we're in FSI we never want to clean this up.
              new Window() |> ignore;
              app
          with :? InvalidOperationException -> Application.Current
      let disp = app.Dispatcher
      let restart = ref false
      { new IEventLoop with
          member x.Run() =
              app.Run() |> ignore
              !restart

          member x.Invoke(f) =
              try
                  disp.Invoke(DispatcherPriority.Send,new RunDelegate<_>(fun () -> box(f ()))) |> unbox
              with e -> eprintf "\n\n ERROR: %O\n" e; reraise()

          member x.ScheduleRestart() =   ()
          //restart := true;
          //app.Shutdown()
       }

  let Install() = fsi.EventLoop <-  Create()

[<AutoOpen>]
module wpfMacros =
  open System
  open System.IO
  open System.Linq
  open System.Xml
  open System.Windows
  open System.Windows.Controls
  open System.Windows.Data
  open System.Windows.Markup
  WpfEventLoop.Install()

  let HelloWpfWindow () =
    let window = new Window(Title="Simple Test",Width = 800., Height = 600.)
    window.Show()
  (* let createDataTemplate value = // http://stackoverflow.com/a/17106767/57883
    let xmlFormat = sprintf """<DataTemplate DataType="DataGrid"><TextBlock Text="Hello"/></DataTemplate>"""
    let xml = xmlFormat // typeof<TextBlock>.Name // value
    let context = ParserContext()
    context.XamlTypeMapper <- new XamlTypeMapper(Array.empty)
    // context.XamlTypeMapper.AddMappingProcessingInstruction(System.String.empty, "http://schemas.microsoft.com/winfx/2006/xaml/presentation")
    // context.XamlTypeMapper.AddMappingProcessingInstruction("x", "http://schemas.microsoft.com/winfx/2006/xaml")
    context.XmlnsDictionary.Add(System.String.Empty,"http://schemas.microsoft.com/winfx/2006/xaml/presentation")
    context.XmlnsDictionary.Add("x","http://schemas.microsoft.com/winfx/2006/xaml")
    context.XmlnsDictionary.Add("System","clr-namespace:System;assembly=mscorlib")
    printfn "xml: %s" xml
    let xaml = XamlReader.Parse(xml,context)
    printfn "%A" xaml
    let template = DataTemplate(xaml)
    printfn "%A" template
    template
  *)
  (* let createTemplate =
    let templ = """<DataTemplate xmlns='http://schemas.microsoft.com/winfx/2006/xaml/presentation' xmlns:x='http://schemas.microsoft.com/winfx/2006/xaml'><Grid><TextBlock Text="Hello"/></Grid></DataTemplate>"""
    printfn "templ: %s" templ
    use xmlReader = XmlReader.Create(new StringReader(templ))
    let xaml = XamlReader.Load(xmlReader)
    printfn "Xamlreader finished %A" xaml
    DataGridTemplateColumn(xaml)
  *)
  let createTemplate name = // http://stackoverflow.com/questions/8779893/create-datagridtemplatecolumn-through-c-sharp-code
    let binding = Binding(name, Mode=BindingMode.OneWay)
    // let textFactory = new FrameworkElementFactory(typeof<TextBlock>)
    let listFactory = new FrameworkElementFactory(typeof<ItemsControl>)

    listFactory.SetBinding(ItemsControl.ItemsSourceProperty,binding)
    // panelFactory.AppendChild(textFactory)
    let textTemplate = DataTemplate(VisualTree=listFactory)
    textTemplate
  let createDataColumn name header =
    let col = DataGridTemplateColumn(Header=header)
    let template = createTemplate name
    // printfn "about to set dataDataGridTemplateColumn's cell template %A" template
    col.CellTemplate <- template
    col
  let display<'a> title (source:'a seq) =
    let window = new Window(Title = title, Width = 800., Height = 600.)
    let grid = new DataGrid()
    // interesting: (DataTemplate)System.Windows.Markup.XamlReader.Parse(dt);
    // http://msdn.microsoft.com/en-us/library/cc903950(v=vs.95).aspx

    grid.AutoGeneratingColumn.Add (fun e->
      if e.PropertyType <> typeof<String> && typeof<System.Collections.IEnumerable>.IsAssignableFrom(e.PropertyType) then
        e.Column <- createDataColumn e.PropertyName (e.PropertyName + "(g)")
      )
    grid.ItemsSource <- source
    window.Content <- grid
    window.Show()