PARAM(
   $presentationTitle = "PowerShell Presentation"
,  $background = "C:\Users\Joel\Pictures\flow\Flow_2560.jpg"
)

Import-Module PowerBoots
$name = [System.Windows.Navigation.JournalEntry]::NameProperty



function global:Add-Slide {
[CmdletBinding()]
PARAM(
   [Parameter(Position=0)]
   $Title   = "This is the title"
,  [Parameter(Position=1, ValueFromPipeline=$true)]
   [string[]]$Content = @("Several bullet points", "Which are equally important")
,   [Parameter()]
   $Window = $presentationTitle
)
BEGIN   { [string[]]$Points = @() }
PROCESS { [string[]]$Points += $Content }
END {
   Invoke-BootsWindow $Window {
      $global:container[0].Content = `
      StackPanel -Margin 10 {
         TextBlock $Title  -FontSize 42 -FontWeight Bold -Foreground "#FF0088" 
         $Points | % { TextBlock -FontSize 24 -Foreground "White" $_ }
      } | Set-AttachedProperty $Name $Title
   }
}
}

function global:Set-Slide {
PARAM([int]$index) 
   Invoke-BootsWindow $presentationTitle {
      $count = @($global:container[0].BackStack.GetEnumerator()).Count
      for($i=$count;$i -lt $index;$i++) {
         $global:container[0].GoForward()
      }
      for($i=$count;$i -gt $index;$i--) {
         $global:container[0].GoBack()
      }
   }
}

## Finally, make the slide window
Boots -Title $presentationTitle        { 
   Frame -Ov global:container          `
         -MinWidth 800 -MinHeight 600  `
         -Content { 
            StackPanel {
               TextBlock -FontSize 42 $presentationTitle -Foreground "White"
            } -ov global:WelcomePage |
            Set-AttachedProperty $Name "Welcome" 
         }
} -Async -Popup -On_SourceInitialized { 
   $this.Background = ImageBrush -ImageSource $background
} -WindowState Maximized



"Point 1 is cool","Point 2 is also"         | Add-Slide "Slide 1"
"This is one point", "And this is another"  | Add-Slide "Slide 2"

Add-Slide "Slide 3"  "Point 5 is cool","Point 6 is also"
Add-Slide "Slide 4"  "This is one point", "And this is the last"

Set-Slide 0