stringFromPtr :: Ptr (TQString a) -> IO String
stringFromPtr qptr
  = do s <- withQtWStringResult (qtc_QString_GetString qptr)
       qtc_QString_Delete qptr
       return s
stringFromPtr :: Ptr (TQString a) -> IO String
stringFromPtr qptr
  = do s <- withQtWStringResult (qtc_QString_GetString qptr)
       qtc_QString_Delete qptr
       return s
stringFromPtr qptr
  = do s <- withQtWStringResult (qtc_QString_GetString qptr)
       qtc_QString_Delete qptr
       return s