ShowUI

1.5

ShowUI.psm1

param(
[ValidateSet('CleanCore','Clean','Normal','DoNothing','OnlyLoadCommonCommands', 'CleanAndDoNothing', 'ResetStyles')]
[string]
$LoadBehavior = 'Normal'
)

$verPath = "" + $PSVersionTable.CLRVersion.Major + "." + $PSVersionTable.CLRVersion.Minor
$CommandsPath = "$psScriptRoot\GeneratedAssemblies\ShowUI.CLR$verPath.dll"
$CoreOutputPath = "$psScriptRoot\GeneratedAssemblies\ShowUICore.CLR$verPath.dll"
#region Cleanup Parameter Handling

if ($LoadBehavior -eq 'DoNothing') { return } 

# turn off strict mode for the module context
Set-StrictMode -Off
if ('Clean', 'CleanCore', 'CleanAndDoNothing', 'ResetStyles' -contains $LoadBehavior) {
    Remove-Item $psScriptRoot\Styles -Recurse -Force -ErrorAction SilentlyContinue
}
# If they said CleanCore not CleanAll, then leave the Commands in place
if('CleanCore' -eq $LoadBehavior) {
    $exclude = "ShowUI.CLR$($psVersionTable.clrVersion)*"
}
if ('Clean', 'CleanCore', 'CleanAndDoNothing' -contains $LoadBehavior) {
    Get-ChildItem $psScriptRoot\GeneratedAssemblies -Force -Recurse -Exclude $exclude -ErrorAction SilentlyContinue |
        Remove-Item -Force -ErrorAction SilentlyContinue
    Get-ChildItem $psScriptRoot\GeneratedCode  -Recurse -Force -Exclude $exclude -ErrorAction SilentlyContinue |
        Remove-Item -Force -ErrorAction SilentlyContinue
    if ($LoadBehavior -eq 'CleanAndDoNothing') { return } 
}

#endregion


#region Assembly Loading
$Assemblies = 
[Reflection.Assembly]::Load("WindowsBase, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"),
[Reflection.Assembly]::Load("PresentationFramework, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"),
[Reflection.Assembly]::Load("PresentationCore, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"),
[Reflection.Assembly]::Load("WindowsFormsIntegration, Version=3.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35")

if ($PSVersionTable.ClrVersion.Major -ge 4) {
    $Assemblies += [Reflection.Assembly]::Load("System.Xaml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089")
}
#endregion

#region Code Generator Functions
. $psScriptRoot\CodeGenerator\Add-CodeGenerationRule.ps1
. $psScriptRoot\CodeGenerator\Add-UiModule.ps1
. $psScriptRoot\CodeGenerator\Select-UiType.ps1
. $psScriptRoot\CodeGenerator\Get-AssemblyName.ps1
. $psScriptRoot\CodeGenerator\ConvertFrom-TypeToCmdlet.ps1
. $psScriptRoot\CodeGenerator\ConvertTo-ParameterMetaData.ps1
#endregion Code Generator Functions

#region WPF functions
. $psScriptRoot\WPF\Add-ChildControl.ps1
. $psScriptRoot\WPF\Add-EventHandler.ps1
. $psScriptRoot\WPF\Add-GridRow.ps1
. $psScriptRoot\WPF\Add-GridColumn.ps1
. $psScriptRoot\WPF\ConvertTo-DataTemplate.ps1
. $psScriptRoot\WPF\ConvertTo-GridLength.ps1
. $psScriptRoot\WPF\ConvertTo-Xaml.ps1
. $psScriptRoot\WPF\Copy-DependencyProperty.ps1
. $psScriptRoot\WPF\Close-Control.ps1
. $psScriptRoot\WPF\Enable-Multitouch.ps1
. $psScriptRoot\WPF\Get-ChildControl.ps1
. $psScriptRoot\WPF\Get-ParentControl.ps1
. $psScriptRoot\WPF\Get-CommonParentControl.ps1
. $psScriptRoot\WPF\Get-ControlPosition.ps1
. $psScriptRoot\WPF\Get-DependencyProperty.ps1   
. $psScriptRoot\WPF\Get-Resource.ps1
. $psScriptRoot\WPF\Hide-UIElement.ps1
. $psScriptRoot\WPF\Initialize-EventHandler.ps1
. $psScriptRoot\WPF\Move-Control.ps1
. $psScriptRoot\WPF\Remove-ChildControl.ps1
. $psScriptRoot\WPF\Set-DependencyProperty.ps1
. $psScriptRoot\WPF\Set-Property.ps1
. $psScriptRoot\WPF\Set-Resource.ps1
. $psScriptRoot\WPF\Show-UIElement.ps1
. $psScriptRoot\WPF\Show-Window.ps1
. $psScriptRoot\WPF\Start-Animation.ps1
. $psScriptRoot\WPF\Test-Ancestor.ps1
. $psScriptRoot\WPF\Test-Descendent.ps1
. $psScriptRoot\WPF\Write-WPFError.ps1
. $psScriptRoot\WPF\Out-Xaml.ps1

#endregion WPF functions

$script:UIStyles = @{}
. $psScriptRoot\Export-Application.ps1
. $psScriptRoot\Register-PowerShellCommand.ps1

. $psScriptRoot\New-UIWidget.ps1
. $psScriptRoot\Get-UIValue.ps1
. $psScriptRoot\Start-PowerShellCommand.ps1
. $psScriptRoot\Start-WPFJob.ps1
. $psScriptRoot\Stop-PowerShellCommand.ps1
. $psScriptRoot\Unregister-PowerShellCommand.ps1
. $psScriptRoot\Update-WPFJob.ps1
. $psScriptRoot\Set-UIValue.ps1
. $psScriptRoot\Write-Program.ps1

. $psScriptRoot\Get-PowerShellDataSource.ps1
. $psScriptRoot\Get-PowerShellOutput.ps1
. $psScriptRoot\Get-PowerShellCommand.ps1
. $psScriptRoot\Invoke-Background.ps1

. $psScriptRoot\ConvertTo-ISEAddOn.ps1

if ($LoadBehavior -eq 'OnlyLoadCommonCommands') { return }

if ((Test-Path $CommandsPath, $CoreOutputPath) -notcontains $False) {
    $importedModule  = Import-Module $CommandsPath, $CoreOutputPath -PassThru
} else {
    # Pass Parameters so we don't have to calculate them twice
    . $psScriptRoot\CodeGenerator\InstallShowUIAssembly.ps1 `
        -OutputPathBase "$psScriptRoot\GeneratedAssemblies\" `
        -CommandPath $CommandsPath `
        -CoreOutputPath $CoreOutputPath `
        -Assemblies $Assemblies `
        -Force:$($LoadBehavior -eq 'CleanAll') `
        -FileRoot:"$psScriptRoot"

    if ($CoreOutputPath -like "\\*" -or $commandsPath -like "\\*") {
        $tempOutputPath = Join-Path $env:Temp (Split-Path -Leaf $CoreOutputPath)
        $tempCommandsPath= Join-Path $env:Temp (Split-Path -Leaf $commandsPath)
        Copy-Item -LiteralPath $CoreOutputPath -Destination $tempOutputPath -Force
        Copy-Item -LiteralPath $commandsPath -Destination $tempCommandsPath -Force
        $importedModule  = Import-Module $tempOutputPath, $tempCommandsPath -PassThru
    } else {
        $importedModule  = Import-Module $CommandsPath, $CoreOutputPath -PassThru
    }

    #Get-Item "$psScriptRoot\GeneratedAssemblies" -Filter *.pdb -Force
        
    
    attrib "$psScriptRoot\GeneratedAssemblies" +h /d /s
    attrib "$psScriptRoot\GeneratedCode" +h /d /s
    attrib "$psScriptRoot\Styles" +h /d /s
}
## Fix xaml Serialization
[ShowUI.XamlTricks]::FixSerialization()

## Generate aliases for all the New-* cmdlets
## Ideally, with the module name on it: ShowUI\New-Whatever
[String]$ModulePath = $ExecutionContext.SessionState.Module.Name + "\"
if($ModulePath.Length -le 1) { $ModulePath = "" }
$importedCommands = @()
foreach($m in @($importedModule)) {
    $importedCommands += $m.ExportedCommands.Values
    foreach($ta in $importedCommands | Where-Object { $_.Verb -eq 'New' }) {
        Set-Alias -Name $ta.Noun -Value "$ModulePath$ta"
    }
}

#region Styles
. $psScriptRoot\StyleSystem\Get-UIStyle.ps1
. $psScriptRoot\StyleSystem\Set-UIStyle.ps1
. $psScriptRoot\StyleSystem\Import-UIStyle.ps1

if (-not (Test-Path $psScriptRoot\Styles)) {
    Set-UIStyle -StyleName "Hyperlink" -Style @{
        Resource = @{
                AllowedSchemes = 'http','https'
            }
            Foreground = 'DarkBlue'
            TextDecorations = { 
                 [Windows.TextDecorations]::Underline
            }
            On_PreviewMouseDown = {
                if ($this.Resources.Url) {
                    $realUrl = [Uri]$this.Resources.Url
                    $allowedSchemes = $this.Resources.AllowedSchemes
                    if (-not $allowedSchemes) { $allowedSchemes = 'http', 'https' }
                    if ($allowSchemes -contains $realUrl.Scheme) {
                        Start-Process -FilePath $realUrl 
                    }
                }
            }
    } -ErrorAction SilentlyContinue

    Set-UIStyle -StyleName Bold -Style @{
        FontWeight = 'Bold'
    } -ErrorAction SilentlyContinue

    Set-UIStyle -StyleName BoldItalic -Style @{
        FontWeight = 'Bold'
        FontStyle = 'Italic'
    } -ErrorAction SilentlyContinue

    Set-UIStyle -StyleName SmallText -Style @{
        FontSize = 9
    } -ErrorAction SilentlyContinue

    Set-UIStyle -StyleName MediumText -Style @{
        FontSize = 14
    } -ErrorAction SilentlyContinue

    Set-UIStyle -StyleName LargeText -Style @{
        FontSize = 18
    } -ErrorAction SilentlyContinue

    Set-UIStyle -StyleName HugeText -Style @{
        FontSize = 32
    } -ErrorAction SilentlyContinue

    Set-UIStyle -StyleName ErrorStyle -Style @{
        Foreground = 'DarkRed'
        TextDecorations = { [Windows.TextDecorations]::Underline }
    } -ErrorAction SilentlyContinue

    Set-UIStyle -StyleName "CueText" -Style @{
        On_Loaded = {
            $this.Resources.OriginalText =  $this.Text
        }
        FontStyle = "Italic"
        On_GotFocus = {
            if ($this.Text -eq $OriginalText) {
                $this.Text = ""
                $this.ClearValue([Windows.Controls.Control]::FontStyleProperty)
            }
        }
    } -ErrorAction SilentlyContinue
    
    Set-UIStyle -StyleName "Widget" -Style @{
        AllowsTransparency = $true
        WindowStyle = "None"
        Background = "Transparent"
        SizeToContent = "WidthAndHeight"
        ResizeMode = "NoResize"
    } -ErrorAction SilentlyContinue
    
} else {
    Use-UiStyle "Current"
}


#endregion Styles


#region Common Controls
. $psScriptRoot\CommonControls\Select-Date.ps1
. $psScriptRoot\CommonControls\Edit-StringList.ps1
. $psScriptRoot\CommonControls\Get-Input.ps1
. $psScriptRoot\CommonControls\Show-Clock.ps1
#endregion Common Controls

Export-ModuleMember -Cmdlet * -Function * -Alias *