Ruby Shoes and the start of a PowerShell version

Chris Sells wrote about the book Nobody Knows Shoes. Shoes is a tiny toolkit. For making windowy Ruby programs that run on Mac, Windows, Linux and so on. Download it HERE

Trivial Shoes App

Shoes.app {
  button("Press Me") { alert("You pressed me") }
}

PowerShell Version

. .\Shoes
Shoes app {
   button "Press Me" { alert "You pressed me" }
}

PowerShell Shoes Toolkit

[void] [Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")

$frm
$tlp

function Shoes ($target, [scriptblock]$block) {
  switch ($target) {
    "app" {
      $frm = New-Object Windows.Forms.Form
      $tlp = New-Object System.Windows.Forms.TableLayoutPanel
      [void] $frm.Controls.Add($tlp)

      & $block

      $frm.Add_Shown( { $frm.Activate() } )
      $frm.ShowDialog()
    }
  }
}

function button($text,[scriptblock]$block) {
  $ctl = New-Object Windows.Forms.Button
  $ctl.Text = $Text
  [void] $tlp.Controls.Add($ctl)

  $ctl.add_click($block)
}

function alert($what) {
  [System.Windows.Forms.MessageBox]::Show($what)
}