title: Display a full image with wxHaskell
body: <p>I am using wxHaskell to display a full image in a window. My code is:</p>
  
  <pre><code>import Graphics.UI.WX
  import Graphics.UI.WXCore
  
  main :: IO ()
  main = start testimg
  
  testimg :: IO ()
  testimg = do
    f &lt;- frame [text := "Test Image"]
    p &lt;- panel f []
  
    image &lt;- bitmapCreateFromFile "landscape.png"
    imagep &lt;- panel p [ on paint := onPaint image ]
  
    set f [ layout:= fill $ container p $ widget imagep ]
  
    where
      onPaint image dc rect = drawBitmap dc image pointZero True []
  </code></pre>
  
  <p>Anyway when the app runs nothing is displayed (not even the window's borders). How can I make it work?</p>