////////////////////////////////////////////////////////////////
//
//     GoldenGateParkDemo.q
//
////////////////////////////////////////////////////////////////

(Def (GoldenGateParkDemo)
  (Local stackpanel image window)
  (Setq window (New Window))
  (Setq window.Left 100)
  (Setq window.Top 100)
  (Setq window.Width 600)
  (Setq window.Height 400)
  (Setq window.Title "GoldenGateParkDemo")
  (Setq stackpanel (New StackPanel))
  (Setq stackpanel.Margin (New Thickness 4.0))
  (Setq stackpanel.HorizontalAlignment HorizontalAlignment.Center)
  (Setq stackpanel.VerticalAlignment VerticalAlignment.Center)
  (Setq stackpanel.Orientation Orientation.Vertical)
  (Setq window.Content stackpanel)
  (Setq image (New Image))
  (Setq image.Source (New BitmapImage (New Uri (FullPath "~/Media/GoldenGatePark1.bmp"))))
  (Setq image.HorizontalAlignment HorizontalAlignment.Center)
  (Setq image.VerticalAlignment VerticalAlignment.Center)
  (stackpanel.Children.Add image)
  (Setq window.Icon (BitmapFrame.Create (New Uri (FullPath "~/Res/Quantum.ico"))))
  (window.Show)
  (Return window)
)