Henk-Jan van Tuyl
-
2016-01-02
- Priority: 5 --> 3
After posting this on stackoverflow as a question, HJvT suggested it might be a bug and I best report it here.
OS: OSX 10.9.5
GHC version: 7.8.3
wxWidgets version: 3.0.2
wxHaskell version: wx-0.92.1.0
import Graphics.UI.WX
main :: IO ()
main = start gui
gui :: IO ()
gui = do
f <- frame []
nb <- notebook f []
page <- panel nb []
b <- button page [ text := "-"]
set f [ layout := tabs nb [imageTab "Foo" (bitmap "favicon.ico") (container page $ fill $ widget b)]] -- This works --set f [ layout := tabs nb [tab "Foo" (container page $ fill $ widget b)]]