colourToGdk :: MBColour -> G.Color
colourToGdk col = let (RGB a b c) = toSRGB24 col
                  in G.Color (fromIntegral a * 256) (fromIntegral b * 256) (fromIntegral c * 256)
colourToGdk :: MBColour -> G.Color
colourToGdk col = let (RGB a b c) = toSRGB24 col
                  in G.Color (fromIntegral a * 256) (fromIntegral b * 256) (fromIntegral c * 256)
colourToGdk col = let (RGB a b c) = toSRGB24 col
                  in G.Color (fromIntegral a * 256) (fromIntegral b * 256) (fromIntegral c * 256)