tMainLabelText :: Label -> String -> IO ()
setMainLabelText label str = do
    let len = length str
    labelSetText label str
    labelSetAttributes label [AttrWeight 0 len WeightBold, AttrSize 0 len 12]

setMainLabelText :: Label -> String -> IO ()
setMainLabelText label str = do
    let len = length str
    labelSetText label str
    labelSetAttributes label [AttrWeight 0 len WeightBold, AttrSize 0 len 12]
setMainLabelText label str = do
    let len = length str
    labelSetText label str
    labelSetAttributes label [AttrWeight 0 len WeightBold, AttrSize 0 len 12]