Shoot - can't figure out layout issue. Minimal example of why Whatsnew's flexible guipatch widget doesn't work. WF response from wxhaskell mailing list

module Main where 
import Graphics.UI.WX

main = start $
  do f <- frame [text := "Layout testing"]
     st <- staticText f [ text := "no" ]
     set st [ on click := \_ -> set st [ text := "yes\nyes" ] ]
     set f [ layout := widget st ]

Shoot - can't figure out layout issue. Minimal example of why Whatsnew's flexible guipatch widget doesn't work. WF response from wxhaskell mailing list

module Main where 
import Graphics.UI.WX

main = start $
  do f <- frame [text := "Layout testing"]
     st <- staticText f [ text := "no" ]
     set st [ on click := \_ -> set st [ text := "yes\nyes" ] ]
     set f [ layout := widget st ]