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

#I @"C:\Program Files (x86)\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.0"
#r @"WindowsBase.dll"
#r @"PresentationCore.dll"
#r @"PresentationFramework.dll"
#r @"System.Xaml.dll"
namespace Microsoft.TryFSharp
 open System
open System.Windows
open System.Windows.Controls
open System.Windows.Media
 
type CanvasPosition = Alone | Right | Hidden
 
type Console() = 
 
    let canvas = new Canvas()   
    let w = new Window()
    do
        w.Title <- "Try F# Like Environment for F# Interactive in Visual Studio"
        w.Content 
<- canvas
    
    member v.Canvas with get() = canvas
    member v.Show() = 
        if (w.IsVisible=false) then w.Show()
        w.Activate() |> ignore
    member v.ClearCanvas() = canvas.Children.Clear()
    member v.CanvasPosition with get() = Alone and set value = ()
 
type App() =
    static let console = new Console()   
    static member Show() = console.Show()
    static member Console with get() = console
    static member Canvas with get() = console.Canvas
    static member Dispatch f = console.Show(); f()

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

open System
open System.Windows
open System.Windows.Controls
open System.Windows.Media
open Microsoft.TryFSharp
 
let clock1() =
    let canvas = App.Console.Canvas
    let label = new TextBlock(FontSize = 20.0)
    canvas.Children.Add label |> ignore
    Canvas.SetTop(label, 20.0)
    Canvas.SetLeft(label, 20.0)
 
    let updateLabel() =
        label.Text <- string System.DateTime.Now 
    updateLabel()
 
    let b = new Button(Content="Show current time")
    b.Click.Add(fun args -> updateLabel())
    canvas.Children.Add b |> ignore
    Canvas.SetTop(b, 60.0)
    Canvas.SetLeft(b, 20.0)
 
App.Dispatch(fun () ->
    clock1()
    App.Console.CanvasPosition <- CanvasPosition.Right
)