WPF Textbox ввод во все Caps

<Style TargetType="{x:Type TextBox}">
    <Setter Property="CharacterCasing" Value="Upper" />
</Style>
Annoying Albatross