Skip to content

Instantly share code, notes, and snippets.

module ExtJs =
open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.ExtJs
open IntelliFactory.WebSharper.Html
[<JavaScript>]
let viewport() =
let panelConfig = Ext.panel.PanelConfiguration()
panelConfig.Title <- "Hello Ext"
module CanvasPattern =
open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.Html
open IntelliFactory.WebSharper.Html5
[<JavaScript>]
let main() =
let elt = HTML5.Tags.Canvas []
let canvas = As<CanvasElement> elt.Dom
module SaveRestore =
open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.Html
open IntelliFactory.WebSharper.Html5
[<JavaScript>]
let main() =
let element = HTML5.Tags.Canvas [Text "Fallback content goes here."]
let canvas = As<CanvasElement> element.Dom
module ExtJs =
open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.ExtJs
open IntelliFactory.WebSharper.Html
[<JavaScript>]
let config() =
let config = Ext.panel.PanelConfiguration()
config.Title <- "Container Panel"
module ExtJs =
open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.ExtJs
open IntelliFactory.WebSharper.Html
[<JavaScript>]
let config() =
let config = Ext.panel.PanelConfiguration()
config.Title <- "Container Panel"
module Console =
open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.Html
/// Creates a div and logs its text content to the browser console.
[<JavaScript>]
let main() =
Div [Text "Hello"]
|>! OnAfterRender (fun elt -> JavaScript.Log elt.Text)
module DragDrop =
open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.Html
// the image to drag
[<JavaScript>]
let img = Img [Src "/image.png"; HTML5.Attr.Draggable "true"]
// source div
module JQueryCssSelectors =
open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.Html
open IntelliFactory.WebSharper.JQuery
[<JavaScript>]
let select _ =
JQuery.Of("p").Text() |> JavaScript.Log
JQuery.Of("#par").Text() |> JavaScript.Log
module JQueryAdd =
open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.Html
open IntelliFactory.WebSharper.JQuery
[<JavaScript>]
let main() =
Div [
P [Text "Hello"]
module JQueryAddClass =
open IntelliFactory.WebSharper
open IntelliFactory.WebSharper.Html
open IntelliFactory.WebSharper.JQuery
[<JavaScript>]
let main() =
Div [Text "Hello"; Id "main"]
|>! OnAfterRender (fun _ ->