checkable :: GroupBox -> UIVar' Bool
checkable gb = uivar set_it get_it
  where
    set_it s = liftIO $
        withManagedQObject gb $ \gb_ptr ->
            set_groupbox_checkable gb_ptr (if s then 1 else 0)

    get_it = liftIO $
        withManagedQObject gb $ \gb_ptr -> do
            r <- get_groupbox_checkable gb_ptr
            return $ if r /= 0 then True else False
checkable :: GroupBox -> UIVar' Bool
checkable gb = uivar set_it get_it
  where
    set_it s = liftIO $
        withManagedQObject gb $ \gb_ptr ->
            set_groupbox_checkable gb_ptr (if s then 1 else 0)

    get_it = liftIO $
        withManagedQObject gb $ \gb_ptr -> do
            r <- get_groupbox_checkable gb_ptr
            return $ if r /= 0 then True else False
checkable gb = uivar set_it get_it
  where
    set_it s = liftIO $
        withManagedQObject gb $ \gb_ptr ->
            set_groupbox_checkable gb_ptr (if s then 1 else 0)

    get_it = liftIO $
        withManagedQObject gb $ \gb_ptr -> do
            r <- get_groupbox_checkable gb_ptr
            return $ if r /= 0 then True else False