<Style TargetType="TextBlock">
  <Setter Property="HorizontalAlignment" Value="Center" />
  <Setter Property="FontSize" Value="24"/>
</Style>

<Style Selector="TextBlock">
  <Setter Property="HorizontalAlignment" Value="Center" />
  <Setter Property="FontSize" Value="24"/>
</Style>

<Styles>
  <Style Selector="TextBlock.h1">
    <Setter Property="FontSize" Value="24"/>
  </Style>
</Styles>
<TextBlock Classes="h1">Header</TextBlock>

<Styles>
  <Style Selector="Button:pointerover">
    <Setter Property="Button.Foreground" Value="Red"/>
  </Style>
</Styles>
<Button>I will have red text when hovered.</Button>

.block > Button[IsDefault=true]

<Grid>
  <Grid.RowDefinitions>
    <RowDefinition Height="*"></RowDefinition>
    <RowDefinition Height="Auto"></RowDefinition>
    <RowDefinition Height="32"></RowDefinition>
  </Grid.RowDefinitions>
</Grid>

<Grid RowDefinitions="*,Auto,32,"/>

<UserControl xmlns:viewmodels="clr-namespace:MyApp.ViewModels;assembly=MyApp">
  <UserControl.DataTemplates>
    <DataTemplate DataType="viewmodels:FooViewModel">
      <Border Background="Red" CornerRadius="8">
        <TextBox Text="{Binding Name}"/>
      </Border>
    </DataTemplate>
  </UserControl.DataTemplates>
  <UserControl.Styles>
    <Style Selector="ContentControl.Red">
      <Setter Property="Background" Value="Red"/>
    </Style>
  </UserControl.Styles>
<UserControl>

<TextBox Name="source"/>
<!-- Binds to the Text property of the "source" control -->
<TextBlock Name=”other” Text="{Binding #source.Text}"/>

<Border Tag="Hello World!">
  <TextBlock Text="{Binding $parent.Tag}"/>
</Border>

<Border Tag="Hello World!">
  <Border>
    <Decorator>
      <TextBlock Text="{Binding $parent[Border;1].Tag}"/>
    </Decorator>
  </Border>
</Border>

<StackPanel>
  <TextBox Name="input" IsEnabled="{Binding AllowInput}"/>
  <TextBlock IsVisible="{Binding !AllowInput}">Sorry, no can do!</TextBlock>
</StackPanel>

<Panel>
  <ListBox Items="{Binding Items}"/>
  <TextBlock IsVisible="{Binding !Items.Count}">No results found</TextBlock>
</Panel>

<Panel>
  <ListBox Items="{Binding Items}" IsVisible="{Binding !!Items.Count}"/>
</Panel>

<TextBlock Text="{Binding MyText}" IsVisible="{Binding MyText, Converter={x:Static StringConverters.IsNotNullOrEmpty}}"/>

<Application>
  <NativeMenu.Menu>
    <NativeMenu>
      <NativeMenuItem Header="About MyApp" Command="{Binding AboutCommand}" />
    </NativeMenu>
  </NativeMenu.Menu>
</Application>

module Counter =
  type CounterState = {
    count : int
  }
  let init = {
    count = 0
  }
  type Msg =
  | Increment
  | Decrement
  let update (msg: Msg) (state: CounterState) : CounterState =
    match msg with
    | Increment -> { state with count =  state.count + 1 }
    | Decrement -> { state with count =  state.count - 1 }
  let view (state: CounterState) (dispatch): IView =
    DockPanel.create [
      DockPanel.children [
        Button.create [
          Button.onClick (fun _ -> dispatch Increment)
          Button.content "click to increment"
        ]
        Button.create [
          Button.onClick (fun _ -> dispatch Decrement)
          Button.content "click to decrement"
        ]
        TextBlock.create [
          TextBlock.dock Dock.Top
          TextBlock.text (sprintf "the count is %i" state.count)
        ]
      ]
    ]