Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

23 lines (19 sloc) 0.826 kb
import Graphics.UI.WX
bugtext = unlines
[ "Bug: the text in all these entry fields should be coloured,"
, "coloured according to the text." ]
main = start $
do f <- frame []
e1 <- entry f [textColor := red, text := "should be red"]
t1 <- textCtrlRich f [textColor := red, text := "should be red"]
t2 <- textCtrlRich f [textColor := red]
set t2 [text := "should be red"]
t3 <- textCtrlRich f []
set t3 [textColor := red, text := "should be red"]
t4 <- textCtrlRich f [text := "should be black!", textColor := red]
set f [ layout := column 4 [ label bugtext
, widget e1
, widget t1
, widget t2
, widget t3
, widget t4 ]]
Jump to Line
Something went wrong with that request. Please try again.