qtah-qt5-0.8.0: src/Graphics/UI/Qtah/Generated/Widgets/QTextEdit.hs

{-# LANGUAGE FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, MonoLocalBinds, MultiParamTypeClasses, ScopedTypeVariables, TypeSynonymInstances, UndecidableInstances #-}
---------- GENERATED FILE, EDITS WILL BE LOST ----------

module Graphics.UI.Qtah.Generated.Widgets.QTextEdit (
  castQTextEditToQAbstractScrollArea,
  castQAbstractScrollAreaToQTextEdit,
  castQTextEditToQFrame,
  castQFrameToQTextEdit,
  castQTextEditToQWidget,
  castQWidgetToQTextEdit,
  castQTextEditToQObject,
  castQObjectToQTextEdit,
  QTextEditValue (..),
  QTextEditConstPtr (..),
  acceptRichText,
  alignment,
  anchorAt,
  autoFormatting,
  canPaste,
  currentFont,
  cursorRect,
  cursorWidth,
  documentTitle,
  fontFamily,
  fontItalic,
  fontPointSize,
  fontUnderline,
  fontWeight,
  lineWrapColumnOrWidth,
  lineWrapMode,
  overwriteMode,
  isReadOnly,
  tabChangesFocus,
  tabStopWidth,
  textBackgroundColor,
  textColor,
  toHtml,
  toPlainText,
  isUndoRedoEnabled,
  QTextEditPtr (..),
  setAcceptRichText,
  setAlignment,
  append,
  setAutoFormatting,
  clear,
  copy,
  createStandardContextMenu,
  createStandardContextMenuAt,
  setCurrentFont,
  setCursorWidth,
  cut,
  setDocumentTitle,
  ensureCursorVisible,
  find,
  setFontFamily,
  setFontItalic,
  setFontPointSize,
  setFontUnderline,
  setFontWeight,
  insertHtml,
  insertPlainText,
  setLineWrapColumnOrWidth,
  setLineWrapMode,
  setOverwriteMode,
  paste,
  setReadOnly,
  redo,
  scrollToAnchor,
  selectAll,
  setHtml,
  setPlainText,
  setText,
  setTabChangesFocus,
  setTabStopWidth,
  setTextBackgroundColor,
  setTextColor,
  undo,
  setUndoRedoEnabled,
  zoomIn,
  zoomInPoints,
  zoomOut,
  zoomOutPoints,
  emitCopyAvailable,
  emitCursorPositionChanged,
  emitRedoAvailable,
  emitSelectionChanged,
  emitTextChanged,
  emitUndoAvailable,
  QTextEditConst (..),
  castQTextEditToConst,
  QTextEdit (..),
  castQTextEditToNonconst,
  new,
  newWithParent,
  newWithText,
  newWithTextAndParent,
  QTextEditSuper (..),
  QTextEditSuperConst (..),
  QTextEditAutoFormatting,
  IsQTextEditAutoFormatting (..),
  autoAll,
  autoBulletList,
  autoNone,
  QTextEditAutoFormattingFlag (..),
  QTextEditLineWrapMode (..),
  ) where

import Data.Bits ((.&.), (.|.))
import qualified Data.Bits as QtahDB
import qualified Foreign as HoppyF
import qualified Foreign.C as HoppyFC
import qualified Foreign.Hoppy.Runtime as HoppyFHR
import qualified Foreign.Hoppy.Runtime as QtahFHR
import qualified Graphics.UI.Qtah.Core.HRect as HRect
import qualified Graphics.UI.Qtah.Flags as QtahFlags
import qualified Graphics.UI.Qtah.Generated.Core.QObject as M94
import qualified Graphics.UI.Qtah.Generated.Core.QPoint as M114
import qualified Graphics.UI.Qtah.Generated.Core.QRect as M122
import qualified Graphics.UI.Qtah.Generated.Core.QString as M142
import qualified Graphics.UI.Qtah.Generated.Core.Types as M190
import qualified Graphics.UI.Qtah.Generated.Gui.QColor as M252
import qualified Graphics.UI.Qtah.Generated.Gui.QFont as M276
import qualified Graphics.UI.Qtah.Generated.Widgets.QAbstractScrollArea as M362
import qualified Graphics.UI.Qtah.Generated.Widgets.QFrame as M400
import qualified Graphics.UI.Qtah.Generated.Widgets.QMenu as M448
import qualified Graphics.UI.Qtah.Generated.Widgets.QWidget as M506
import qualified Graphics.UI.Qtah.Gui.HColor as HColor
import Prelude (($), (.), (/=), (=<<), (==), (>>=))
import qualified Prelude as HoppyP
import qualified Prelude as QtahP

foreign import ccall "genpop__QTextEdit_new" new' ::  HoppyP.IO (HoppyF.Ptr QTextEdit)
foreign import ccall "genpop__QTextEdit_newWithParent" newWithParent' ::  HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QTextEdit)
foreign import ccall "genpop__QTextEdit_newWithText" newWithText' ::  HoppyF.Ptr M142.QStringConst -> HoppyP.IO (HoppyF.Ptr QTextEdit)
foreign import ccall "genpop__QTextEdit_newWithTextAndParent" newWithTextAndParent' ::  HoppyF.Ptr M142.QStringConst -> HoppyF.Ptr M506.QWidget -> HoppyP.IO (HoppyF.Ptr QTextEdit)
foreign import ccall "genpop__QTextEdit_acceptRichText" acceptRichText' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QTextEdit_setAcceptRichText" setAcceptRichText' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_alignment" alignment' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QTextEdit_setAlignment" setAlignment' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_anchorAt" anchorAt' ::  HoppyF.Ptr QTextEditConst -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)
foreign import ccall "genpop__QTextEdit_append" append' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_autoFormatting" autoFormatting' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CUInt
foreign import ccall "genpop__QTextEdit_setAutoFormatting" setAutoFormatting' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CUInt -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_canPaste" canPaste' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QTextEdit_clear" clear' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_copy" copy' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_createStandardContextMenu" createStandardContextMenu' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO (HoppyF.Ptr M448.QMenu)
foreign import ccall "genpop__QTextEdit_createStandardContextMenuAt" createStandardContextMenuAt' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M114.QPointConst -> HoppyP.IO (HoppyF.Ptr M448.QMenu)
foreign import ccall "genpop__QTextEdit_currentFont" currentFont' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO (HoppyF.Ptr M276.QFontConst)
foreign import ccall "genpop__QTextEdit_setCurrentFont" setCurrentFont' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M276.QFontConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_cursorRect" cursorRect' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO (HoppyF.Ptr M122.QRectConst)
foreign import ccall "genpop__QTextEdit_cursorWidth" cursorWidth' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QTextEdit_setCursorWidth" setCursorWidth' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_cut" cut' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_documentTitle" documentTitle' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)
foreign import ccall "genpop__QTextEdit_setDocumentTitle" setDocumentTitle' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_ensureCursorVisible" ensureCursorVisible' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_find" find' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QTextEdit_fontFamily" fontFamily' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)
foreign import ccall "genpop__QTextEdit_setFontFamily" setFontFamily' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_fontItalic" fontItalic' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QTextEdit_setFontItalic" setFontItalic' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_fontPointSize" fontPointSize' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CDouble
foreign import ccall "genpop__QTextEdit_setFontPointSize" setFontPointSize' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CDouble -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_fontUnderline" fontUnderline' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QTextEdit_setFontUnderline" setFontUnderline' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_fontWeight" fontWeight' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QTextEdit_setFontWeight" setFontWeight' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_insertHtml" insertHtml' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_insertPlainText" insertPlainText' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_lineWrapColumnOrWidth" lineWrapColumnOrWidth' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QTextEdit_setLineWrapColumnOrWidth" setLineWrapColumnOrWidth' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_lineWrapMode" lineWrapMode' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QTextEdit_setLineWrapMode" setLineWrapMode' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_overwriteMode" overwriteMode' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QTextEdit_setOverwriteMode" setOverwriteMode' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_paste" paste' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_isReadOnly" isReadOnly' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QTextEdit_setReadOnly" setReadOnly' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_redo" redo' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_scrollToAnchor" scrollToAnchor' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_selectAll" selectAll' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_setHtml" setHtml' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_setPlainText" setPlainText' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_setText" setText' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M142.QStringConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_tabChangesFocus" tabChangesFocus' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QTextEdit_setTabChangesFocus" setTabChangesFocus' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_tabStopWidth" tabStopWidth' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CInt
foreign import ccall "genpop__QTextEdit_setTabStopWidth" setTabStopWidth' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_textBackgroundColor" textBackgroundColor' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO (HoppyF.Ptr M252.QColorConst)
foreign import ccall "genpop__QTextEdit_setTextBackgroundColor" setTextBackgroundColor' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_textColor" textColor' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO (HoppyF.Ptr M252.QColorConst)
foreign import ccall "genpop__QTextEdit_setTextColor" setTextColor' ::  HoppyF.Ptr QTextEdit -> HoppyF.Ptr M252.QColorConst -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_toHtml" toHtml' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)
foreign import ccall "genpop__QTextEdit_toPlainText" toPlainText' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO (HoppyF.Ptr M142.QStringConst)
foreign import ccall "genpop__QTextEdit_undo" undo' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_isUndoRedoEnabled" isUndoRedoEnabled' ::  HoppyF.Ptr QTextEditConst -> HoppyP.IO HoppyFC.CBool
foreign import ccall "genpop__QTextEdit_setUndoRedoEnabled" setUndoRedoEnabled' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_zoomIn" zoomIn' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_zoomInPoints" zoomInPoints' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_zoomOut" zoomOut' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_zoomOutPoints" zoomOutPoints' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CInt -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_emitCopyAvailable" emitCopyAvailable' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_emitCursorPositionChanged" emitCursorPositionChanged' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_emitRedoAvailable" emitRedoAvailable' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_emitSelectionChanged" emitSelectionChanged' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_emitTextChanged" emitTextChanged' ::  HoppyF.Ptr QTextEdit -> HoppyP.IO ()
foreign import ccall "genpop__QTextEdit_emitUndoAvailable" emitUndoAvailable' ::  HoppyF.Ptr QTextEdit -> HoppyFC.CBool -> HoppyP.IO ()
foreign import ccall "gencast__QTextEdit__QAbstractScrollArea" castQTextEditToQAbstractScrollArea :: HoppyF.Ptr QTextEditConst -> HoppyF.Ptr M362.QAbstractScrollAreaConst
foreign import ccall "gencast__QAbstractScrollArea__QTextEdit" castQAbstractScrollAreaToQTextEdit :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr QTextEditConst
foreign import ccall "gencast__QTextEdit__QFrame" castQTextEditToQFrame :: HoppyF.Ptr QTextEditConst -> HoppyF.Ptr M400.QFrameConst
foreign import ccall "gencast__QFrame__QTextEdit" castQFrameToQTextEdit :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr QTextEditConst
foreign import ccall "gencast__QTextEdit__QWidget" castQTextEditToQWidget :: HoppyF.Ptr QTextEditConst -> HoppyF.Ptr M506.QWidgetConst
foreign import ccall "gencast__QWidget__QTextEdit" castQWidgetToQTextEdit :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr QTextEditConst
foreign import ccall "gencast__QTextEdit__QObject" castQTextEditToQObject :: HoppyF.Ptr QTextEditConst -> HoppyF.Ptr M94.QObjectConst
foreign import ccall "gencast__QObject__QTextEdit" castQObjectToQTextEdit :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr QTextEditConst
foreign import ccall "gendel__QTextEdit" delete'QTextEdit :: HoppyF.Ptr QTextEditConst -> HoppyP.IO ()
foreign import ccall "&gendel__QTextEdit" deletePtr'QTextEdit :: HoppyF.FunPtr (HoppyF.Ptr QTextEditConst -> HoppyP.IO ())

class QTextEditValue a where
  withQTextEditPtr :: a -> (QTextEditConst -> HoppyP.IO b) -> HoppyP.IO b

instance {-# OVERLAPPABLE #-} QTextEditConstPtr a => QTextEditValue a where
  withQTextEditPtr = HoppyP.flip ($) . toQTextEditConst

class (M362.QAbstractScrollAreaConstPtr this) => QTextEditConstPtr this where
  toQTextEditConst :: this -> QTextEditConst

acceptRichText :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
acceptRichText arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (acceptRichText' arg'1')

alignment :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO M190.QtAlignment)
alignment arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    QtahP.return . QtahFlags.numToFlags
  ) =<<
  (alignment' arg'1')

anchorAt :: (QTextEditValue this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO QtahP.String)
anchorAt arg'1 arg'2 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<
  (anchorAt' arg'1' arg'2')

autoFormatting :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QTextEditAutoFormatting)
autoFormatting arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    QtahP.return . QtahFlags.numToFlags
  ) =<<
  (autoFormatting' arg'1')

canPaste :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
canPaste arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (canPaste' arg'1')

currentFont :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO M276.QFont)
currentFont arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (HoppyFHR.decodeAndDelete . M276.QFontConst) =<<
  (currentFont' arg'1')

cursorRect :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HRect.HRect)
cursorRect arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (HoppyFHR.decodeAndDelete . M122.QRectConst) =<<
  (cursorRect' arg'1')

cursorWidth :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
cursorWidth arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (cursorWidth' arg'1')

documentTitle :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)
documentTitle arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<
  (documentTitle' arg'1')

fontFamily :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)
fontFamily arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<
  (fontFamily' arg'1')

fontItalic :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
fontItalic arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (fontItalic' arg'1')

fontPointSize :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Double)
fontPointSize arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyP.realToFrac
  ) =<<
  (fontPointSize' arg'1')

fontUnderline :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
fontUnderline arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (fontUnderline' arg'1')

fontWeight :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
fontWeight arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (fontWeight' arg'1')

lineWrapColumnOrWidth :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
lineWrapColumnOrWidth arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (lineWrapColumnOrWidth' arg'1')

lineWrapMode :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QTextEditLineWrapMode)
lineWrapMode arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.toCppEnum
  ) =<<
  (lineWrapMode' arg'1')

overwriteMode :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
overwriteMode arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (overwriteMode' arg'1')

isReadOnly :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
isReadOnly arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (isReadOnly' arg'1')

tabChangesFocus :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
tabChangesFocus arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (tabChangesFocus' arg'1')

tabStopWidth :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Int)
tabStopWidth arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) =<<
  (tabStopWidth' arg'1')

textBackgroundColor :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HColor.HColor)
textBackgroundColor arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (HoppyFHR.decodeAndDelete . M252.QColorConst) =<<
  (textBackgroundColor' arg'1')

textColor :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HColor.HColor)
textColor arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (HoppyFHR.decodeAndDelete . M252.QColorConst) =<<
  (textColor' arg'1')

toHtml :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)
toHtml arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<
  (toHtml' arg'1')

toPlainText :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO QtahP.String)
toPlainText arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (HoppyFHR.decodeAndDelete . M142.QStringConst) =<<
  (toPlainText' arg'1')

isUndoRedoEnabled :: (QTextEditValue this) => (this) {- ^ this -} -> (HoppyP.IO HoppyP.Bool)
isUndoRedoEnabled arg'1 =
  withQTextEditPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (isUndoRedoEnabled' arg'1')

class (QTextEditConstPtr this, M362.QAbstractScrollAreaPtr this) => QTextEditPtr this where
  toQTextEdit :: this -> QTextEdit

setAcceptRichText :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
setAcceptRichText arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (setAcceptRichText' arg'1' arg'2')

setAlignment :: (QTextEditPtr this, M190.IsQtAlignment arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setAlignment arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    QtahP.return . QtahFlags.flagsToNum . M190.toQtAlignment
  ) arg'2 >>= \arg'2' ->
  (setAlignment' arg'1' arg'2')

append :: (QTextEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
append arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (append' arg'1' arg'2')

setAutoFormatting :: (QTextEditPtr this, IsQTextEditAutoFormatting arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setAutoFormatting arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    QtahP.return . QtahFlags.flagsToNum . toQTextEditAutoFormatting
  ) arg'2 >>= \arg'2' ->
  (setAutoFormatting' arg'1' arg'2')

clear :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
clear arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (clear' arg'1')

copy :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
copy arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (copy' arg'1')

createStandardContextMenu :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO M448.QMenu)
createStandardContextMenu arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  HoppyP.fmap M448.QMenu
  (createStandardContextMenu' arg'1')

createStandardContextMenuAt :: (QTextEditPtr this, M114.QPointValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO M448.QMenu)
createStandardContextMenuAt arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M114.withQPointPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  HoppyP.fmap M448.QMenu
  (createStandardContextMenuAt' arg'1' arg'2')

setCurrentFont :: (QTextEditPtr this, M276.QFontValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setCurrentFont arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M276.withQFontPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (setCurrentFont' arg'1' arg'2')

setCursorWidth :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())
setCursorWidth arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  (setCursorWidth' arg'1' arg'2')

cut :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
cut arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (cut' arg'1')

setDocumentTitle :: (QTextEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setDocumentTitle arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (setDocumentTitle' arg'1' arg'2')

ensureCursorVisible :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
ensureCursorVisible arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (ensureCursorVisible' arg'1')

find :: (QTextEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO HoppyP.Bool)
find arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (
    (HoppyP.return . (/= 0))
  ) =<<
  (find' arg'1' arg'2')

setFontFamily :: (QTextEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setFontFamily arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (setFontFamily' arg'1' arg'2')

setFontItalic :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
setFontItalic arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (setFontItalic' arg'1' arg'2')

setFontPointSize :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Double) -> (HoppyP.IO ())
setFontPointSize arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyP.realToFrac
  ) arg'2 >>= \arg'2' ->
  (setFontPointSize' arg'1' arg'2')

setFontUnderline :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
setFontUnderline arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (setFontUnderline' arg'1' arg'2')

setFontWeight :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())
setFontWeight arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  (setFontWeight' arg'1' arg'2')

insertHtml :: (QTextEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
insertHtml arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (insertHtml' arg'1' arg'2')

insertPlainText :: (QTextEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
insertPlainText arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (insertPlainText' arg'1' arg'2')

setLineWrapColumnOrWidth :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())
setLineWrapColumnOrWidth arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  (setLineWrapColumnOrWidth' arg'1' arg'2')

setLineWrapMode :: (QTextEditPtr this) => (this) {- ^ this -} -> (QTextEditLineWrapMode) -> (HoppyP.IO ())
setLineWrapMode arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.fromCppEnum
  ) arg'2 >>= \arg'2' ->
  (setLineWrapMode' arg'1' arg'2')

setOverwriteMode :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
setOverwriteMode arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (setOverwriteMode' arg'1' arg'2')

paste :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
paste arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (paste' arg'1')

setReadOnly :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
setReadOnly arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (setReadOnly' arg'1' arg'2')

redo :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
redo arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (redo' arg'1')

scrollToAnchor :: (QTextEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
scrollToAnchor arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (scrollToAnchor' arg'1' arg'2')

selectAll :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
selectAll arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (selectAll' arg'1')

setHtml :: (QTextEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setHtml arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (setHtml' arg'1' arg'2')

setPlainText :: (QTextEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setPlainText arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (setPlainText' arg'1' arg'2')

setText :: (QTextEditPtr this, M142.QStringValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setText arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M142.withQStringPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (setText' arg'1' arg'2')

setTabChangesFocus :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
setTabChangesFocus arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (setTabChangesFocus' arg'1' arg'2')

setTabStopWidth :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())
setTabStopWidth arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  (setTabStopWidth' arg'1' arg'2')

setTextBackgroundColor :: (QTextEditPtr this, M252.QColorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setTextBackgroundColor arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M252.withQColorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (setTextBackgroundColor' arg'1' arg'2')

setTextColor :: (QTextEditPtr this, M252.QColorValue arg'2) => (this) {- ^ this -} -> (arg'2) -> (HoppyP.IO ())
setTextColor arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  M252.withQColorPtr arg'2 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'2' ->
  (setTextColor' arg'1' arg'2')

undo :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
undo arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (undo' arg'1')

setUndoRedoEnabled :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
setUndoRedoEnabled arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (setUndoRedoEnabled' arg'1' arg'2')

zoomIn :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
zoomIn arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (zoomIn' arg'1')

zoomInPoints :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())
zoomInPoints arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  (zoomInPoints' arg'1' arg'2')

zoomOut :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
zoomOut arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (zoomOut' arg'1')

zoomOutPoints :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Int) -> (HoppyP.IO ())
zoomOutPoints arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    HoppyP.return . HoppyFHR.coerceIntegral
  ) arg'2 >>= \arg'2' ->
  (zoomOutPoints' arg'1' arg'2')

emitCopyAvailable :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
emitCopyAvailable arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (emitCopyAvailable' arg'1' arg'2')

emitCursorPositionChanged :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
emitCursorPositionChanged arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (emitCursorPositionChanged' arg'1')

emitRedoAvailable :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
emitRedoAvailable arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (emitRedoAvailable' arg'1' arg'2')

emitSelectionChanged :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
emitSelectionChanged arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (emitSelectionChanged' arg'1')

emitTextChanged :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.IO ())
emitTextChanged arg'1 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (emitTextChanged' arg'1')

emitUndoAvailable :: (QTextEditPtr this) => (this) {- ^ this -} -> (HoppyP.Bool) -> (HoppyP.IO ())
emitUndoAvailable arg'1 arg'2 =
  HoppyFHR.withCppPtr (toQTextEdit arg'1) $ \arg'1' ->
  (
    \x -> HoppyP.return $ if x then 1 else 0
  ) arg'2 >>= \arg'2' ->
  (emitUndoAvailable' arg'1' arg'2')

data QTextEditConst =
    QTextEditConst (HoppyF.Ptr QTextEditConst)
  | QTextEditConstGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTextEditConst)
  deriving (HoppyP.Show)

instance HoppyP.Eq QTextEditConst where
  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y

instance HoppyP.Ord QTextEditConst where
  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)

castQTextEditToConst :: QTextEdit -> QTextEditConst
castQTextEditToConst (QTextEdit ptr') = QTextEditConst $ HoppyF.castPtr ptr'
castQTextEditToConst (QTextEditGc fptr' ptr') = QTextEditConstGc fptr' $ HoppyF.castPtr ptr'

instance HoppyFHR.CppPtr QTextEditConst where
  nullptr = QTextEditConst HoppyF.nullPtr
  
  withCppPtr (QTextEditConst ptr') f' = f' ptr'
  withCppPtr (QTextEditConstGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
  
  toPtr (QTextEditConst ptr') = ptr'
  toPtr (QTextEditConstGc _ ptr') = ptr'
  
  touchCppPtr (QTextEditConst _) = HoppyP.return ()
  touchCppPtr (QTextEditConstGc fptr' _) = HoppyF.touchForeignPtr fptr'

instance HoppyFHR.Deletable QTextEditConst where
  delete (QTextEditConst ptr') = delete'QTextEdit ptr'
  delete (QTextEditConstGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTextEditConst", " object."]
  
  toGc this'@(QTextEditConst ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTextEditConstGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTextEdit :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
  toGc this'@(QTextEditConstGc {}) = HoppyP.return this'

instance QTextEditConstPtr QTextEditConst where
  toQTextEditConst = HoppyP.id

instance M362.QAbstractScrollAreaConstPtr QTextEditConst where
  toQAbstractScrollAreaConst (QTextEditConst ptr') = M362.QAbstractScrollAreaConst $ castQTextEditToQAbstractScrollArea ptr'
  toQAbstractScrollAreaConst (QTextEditConstGc fptr' ptr') = M362.QAbstractScrollAreaConstGc fptr' $ castQTextEditToQAbstractScrollArea ptr'

instance M400.QFrameConstPtr QTextEditConst where
  toQFrameConst (QTextEditConst ptr') = M400.QFrameConst $ castQTextEditToQFrame ptr'
  toQFrameConst (QTextEditConstGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQTextEditToQFrame ptr'

instance M506.QWidgetConstPtr QTextEditConst where
  toQWidgetConst (QTextEditConst ptr') = M506.QWidgetConst $ castQTextEditToQWidget ptr'
  toQWidgetConst (QTextEditConstGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQTextEditToQWidget ptr'

instance M94.QObjectConstPtr QTextEditConst where
  toQObjectConst (QTextEditConst ptr') = M94.QObjectConst $ castQTextEditToQObject ptr'
  toQObjectConst (QTextEditConstGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQTextEditToQObject ptr'

data QTextEdit =
    QTextEdit (HoppyF.Ptr QTextEdit)
  | QTextEditGc (HoppyF.ForeignPtr ()) (HoppyF.Ptr QTextEdit)
  deriving (HoppyP.Show)

instance HoppyP.Eq QTextEdit where
  x == y = HoppyFHR.toPtr x == HoppyFHR.toPtr y

instance HoppyP.Ord QTextEdit where
  compare x y = HoppyP.compare (HoppyFHR.toPtr x) (HoppyFHR.toPtr y)

castQTextEditToNonconst :: QTextEditConst -> QTextEdit
castQTextEditToNonconst (QTextEditConst ptr') = QTextEdit $ HoppyF.castPtr ptr'
castQTextEditToNonconst (QTextEditConstGc fptr' ptr') = QTextEditGc fptr' $ HoppyF.castPtr ptr'

instance HoppyFHR.CppPtr QTextEdit where
  nullptr = QTextEdit HoppyF.nullPtr
  
  withCppPtr (QTextEdit ptr') f' = f' ptr'
  withCppPtr (QTextEditGc fptr' ptr') f' = HoppyF.withForeignPtr fptr' $ \_ -> f' ptr'
  
  toPtr (QTextEdit ptr') = ptr'
  toPtr (QTextEditGc _ ptr') = ptr'
  
  touchCppPtr (QTextEdit _) = HoppyP.return ()
  touchCppPtr (QTextEditGc fptr' _) = HoppyF.touchForeignPtr fptr'

instance HoppyFHR.Deletable QTextEdit where
  delete (QTextEdit ptr') = delete'QTextEdit $ (HoppyF.castPtr ptr' :: HoppyF.Ptr QTextEditConst)
  delete (QTextEditGc _ _) = HoppyP.fail $ HoppyP.concat ["Deletable.delete: Asked to delete a GC-managed ", "QTextEdit", " object."]
  
  toGc this'@(QTextEdit ptr') = if ptr' == HoppyF.nullPtr then HoppyP.return this' else HoppyP.fmap (HoppyP.flip QTextEditGc ptr') $ HoppyF.newForeignPtr (HoppyF.castFunPtr deletePtr'QTextEdit :: HoppyF.FunPtr (HoppyF.Ptr () -> HoppyP.IO ())) (HoppyF.castPtr ptr' :: HoppyF.Ptr ())
  toGc this'@(QTextEditGc {}) = HoppyP.return this'

instance QTextEditConstPtr QTextEdit where
  toQTextEditConst (QTextEdit ptr') = QTextEditConst $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'
  toQTextEditConst (QTextEditGc fptr' ptr') = QTextEditConstGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'

instance QTextEditPtr QTextEdit where
  toQTextEdit = HoppyP.id

instance M362.QAbstractScrollAreaConstPtr QTextEdit where
  toQAbstractScrollAreaConst (QTextEdit ptr') = M362.QAbstractScrollAreaConst $ castQTextEditToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'
  toQAbstractScrollAreaConst (QTextEditGc fptr' ptr') = M362.QAbstractScrollAreaConstGc fptr' $ castQTextEditToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'

instance M362.QAbstractScrollAreaPtr QTextEdit where
  toQAbstractScrollArea (QTextEdit ptr') = M362.QAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollArea) $ castQTextEditToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'
  toQAbstractScrollArea (QTextEditGc fptr' ptr') = M362.QAbstractScrollAreaGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M362.QAbstractScrollAreaConst -> HoppyF.Ptr M362.QAbstractScrollArea) $ castQTextEditToQAbstractScrollArea $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'

instance M400.QFrameConstPtr QTextEdit where
  toQFrameConst (QTextEdit ptr') = M400.QFrameConst $ castQTextEditToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'
  toQFrameConst (QTextEditGc fptr' ptr') = M400.QFrameConstGc fptr' $ castQTextEditToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'

instance M400.QFramePtr QTextEdit where
  toQFrame (QTextEdit ptr') = M400.QFrame $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQTextEditToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'
  toQFrame (QTextEditGc fptr' ptr') = M400.QFrameGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M400.QFrameConst -> HoppyF.Ptr M400.QFrame) $ castQTextEditToQFrame $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'

instance M506.QWidgetConstPtr QTextEdit where
  toQWidgetConst (QTextEdit ptr') = M506.QWidgetConst $ castQTextEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'
  toQWidgetConst (QTextEditGc fptr' ptr') = M506.QWidgetConstGc fptr' $ castQTextEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'

instance M506.QWidgetPtr QTextEdit where
  toQWidget (QTextEdit ptr') = M506.QWidget $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQTextEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'
  toQWidget (QTextEditGc fptr' ptr') = M506.QWidgetGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M506.QWidgetConst -> HoppyF.Ptr M506.QWidget) $ castQTextEditToQWidget $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'

instance M94.QObjectConstPtr QTextEdit where
  toQObjectConst (QTextEdit ptr') = M94.QObjectConst $ castQTextEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'
  toQObjectConst (QTextEditGc fptr' ptr') = M94.QObjectConstGc fptr' $ castQTextEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'

instance M94.QObjectPtr QTextEdit where
  toQObject (QTextEdit ptr') = M94.QObject $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQTextEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'
  toQObject (QTextEditGc fptr' ptr') = M94.QObjectGc fptr' $ (HoppyF.castPtr :: HoppyF.Ptr M94.QObjectConst -> HoppyF.Ptr M94.QObject) $ castQTextEditToQObject $ (HoppyF.castPtr :: HoppyF.Ptr QTextEdit -> HoppyF.Ptr QTextEditConst) ptr'

new :: (HoppyP.IO QTextEdit)
new =
  HoppyP.fmap QTextEdit
  (new')

newWithParent :: (M506.QWidgetPtr arg'1) => (arg'1) -> (HoppyP.IO QTextEdit)
newWithParent arg'1 =
  HoppyFHR.withCppPtr (M506.toQWidget arg'1) $ \arg'1' ->
  HoppyP.fmap QTextEdit
  (newWithParent' arg'1')

newWithText :: (M142.QStringValue arg'1) => (arg'1) -> (HoppyP.IO QTextEdit)
newWithText arg'1 =
  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  HoppyP.fmap QTextEdit
  (newWithText' arg'1')

newWithTextAndParent :: (M142.QStringValue arg'1, M506.QWidgetPtr arg'2) => (arg'1) -> (arg'2) -> (HoppyP.IO QTextEdit)
newWithTextAndParent arg'1 arg'2 =
  M142.withQStringPtr arg'1 $ HoppyP.flip HoppyFHR.withCppPtr $ \arg'1' ->
  HoppyFHR.withCppPtr (M506.toQWidget arg'2) $ \arg'2' ->
  HoppyP.fmap QTextEdit
  (newWithTextAndParent' arg'1' arg'2')

class QTextEditSuper a where
  downToQTextEdit :: a -> QTextEdit

instance QTextEditSuper M362.QAbstractScrollArea where
  downToQTextEdit = castQTextEditToNonconst . cast' . M362.castQAbstractScrollAreaToConst
    where
      cast' (M362.QAbstractScrollAreaConst ptr') = QTextEditConst $ castQAbstractScrollAreaToQTextEdit ptr'
      cast' (M362.QAbstractScrollAreaConstGc fptr' ptr') = QTextEditConstGc fptr' $ castQAbstractScrollAreaToQTextEdit ptr'
instance QTextEditSuper M400.QFrame where
  downToQTextEdit = castQTextEditToNonconst . cast' . M400.castQFrameToConst
    where
      cast' (M400.QFrameConst ptr') = QTextEditConst $ castQFrameToQTextEdit ptr'
      cast' (M400.QFrameConstGc fptr' ptr') = QTextEditConstGc fptr' $ castQFrameToQTextEdit ptr'
instance QTextEditSuper M506.QWidget where
  downToQTextEdit = castQTextEditToNonconst . cast' . M506.castQWidgetToConst
    where
      cast' (M506.QWidgetConst ptr') = QTextEditConst $ castQWidgetToQTextEdit ptr'
      cast' (M506.QWidgetConstGc fptr' ptr') = QTextEditConstGc fptr' $ castQWidgetToQTextEdit ptr'
instance QTextEditSuper M94.QObject where
  downToQTextEdit = castQTextEditToNonconst . cast' . M94.castQObjectToConst
    where
      cast' (M94.QObjectConst ptr') = QTextEditConst $ castQObjectToQTextEdit ptr'
      cast' (M94.QObjectConstGc fptr' ptr') = QTextEditConstGc fptr' $ castQObjectToQTextEdit ptr'

class QTextEditSuperConst a where
  downToQTextEditConst :: a -> QTextEditConst

instance QTextEditSuperConst M362.QAbstractScrollAreaConst where
  downToQTextEditConst = cast'
    where
      cast' (M362.QAbstractScrollAreaConst ptr') = QTextEditConst $ castQAbstractScrollAreaToQTextEdit ptr'
      cast' (M362.QAbstractScrollAreaConstGc fptr' ptr') = QTextEditConstGc fptr' $ castQAbstractScrollAreaToQTextEdit ptr'
instance QTextEditSuperConst M400.QFrameConst where
  downToQTextEditConst = cast'
    where
      cast' (M400.QFrameConst ptr') = QTextEditConst $ castQFrameToQTextEdit ptr'
      cast' (M400.QFrameConstGc fptr' ptr') = QTextEditConstGc fptr' $ castQFrameToQTextEdit ptr'
instance QTextEditSuperConst M506.QWidgetConst where
  downToQTextEditConst = cast'
    where
      cast' (M506.QWidgetConst ptr') = QTextEditConst $ castQWidgetToQTextEdit ptr'
      cast' (M506.QWidgetConstGc fptr' ptr') = QTextEditConstGc fptr' $ castQWidgetToQTextEdit ptr'
instance QTextEditSuperConst M94.QObjectConst where
  downToQTextEditConst = cast'
    where
      cast' (M94.QObjectConst ptr') = QTextEditConst $ castQObjectToQTextEdit ptr'
      cast' (M94.QObjectConstGc fptr' ptr') = QTextEditConstGc fptr' $ castQObjectToQTextEdit ptr'

instance HoppyFHR.Assignable (HoppyF.Ptr (HoppyF.Ptr QTextEdit)) QTextEdit where
  assign ptr' value' = HoppyF.poke ptr' $ HoppyFHR.toPtr value'

instance HoppyFHR.Decodable (HoppyF.Ptr (HoppyF.Ptr QTextEdit)) QTextEdit where
  decode = HoppyP.fmap QTextEdit . HoppyF.peek

newtype QTextEditAutoFormatting = QTextEditAutoFormatting (HoppyFC.CUInt) deriving (QtahP.Eq, QtahP.Ord, QtahP.Show)

instance QtahFlags.Flags (HoppyFC.CUInt) QTextEditAutoFormattingFlag QTextEditAutoFormatting where
  enumToFlags = QTextEditAutoFormatting . QtahFHR.fromCppEnum
  flagsToEnum (QTextEditAutoFormatting x') = QtahFHR.toCppEnum x'

class IsQTextEditAutoFormatting a where
  toQTextEditAutoFormatting :: a -> QTextEditAutoFormatting

instance IsQTextEditAutoFormatting QTextEditAutoFormatting where toQTextEditAutoFormatting = QtahP.id
instance IsQTextEditAutoFormatting QTextEditAutoFormattingFlag where toQTextEditAutoFormatting = QtahFlags.enumToFlags
instance IsQTextEditAutoFormatting (HoppyFC.CUInt) where toQTextEditAutoFormatting = QtahFlags.numToFlags

autoAll :: QTextEditAutoFormatting
autoAll = QTextEditAutoFormatting (4294967295)

autoBulletList :: QTextEditAutoFormatting
autoBulletList = QTextEditAutoFormatting (1)

autoNone :: QTextEditAutoFormatting
autoNone = QTextEditAutoFormatting (0)

instance QtahDB.Bits QTextEditAutoFormatting where
  x .&. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .&. QtahFlags.flagsToNum y)
  x .|. y = QtahFlags.numToFlags (QtahFlags.flagsToNum x .|. QtahFlags.flagsToNum y)
  xor x y = QtahFlags.numToFlags $ QtahDB.xor (QtahFlags.flagsToNum x) (QtahFlags.flagsToNum y)
  complement x = QtahFlags.numToFlags $ QtahDB.complement $ QtahFlags.flagsToNum x
  shift x i = QtahFlags.numToFlags $ QtahDB.shift (QtahFlags.flagsToNum x) i
  rotate x i = QtahFlags.numToFlags $ QtahDB.rotate (QtahFlags.flagsToNum x) i
  bitSize x = case QtahDB.bitSizeMaybe x of
      QtahP.Just n -> n
      QtahP.Nothing -> QtahP.error "bitSize is undefined"
  bitSizeMaybe = QtahDB.bitSizeMaybe . QtahFlags.flagsToNum
  isSigned = QtahDB.isSigned . QtahFlags.flagsToNum
  testBit x i = QtahDB.testBit (QtahFlags.flagsToNum x) i
  bit = QtahFlags.numToFlags . QtahDB.bit
  popCount = QtahDB.popCount . QtahFlags.flagsToNum

data QTextEditAutoFormattingFlag =
  AutoNone
  | AutoBulletList
  | AutoAll
  | UnknownQTextEditAutoFormattingFlag (HoppyFC.CUInt)
  deriving (HoppyP.Show)

instance HoppyFHR.CppEnum (HoppyFC.CUInt) QTextEditAutoFormattingFlag where
  fromCppEnum AutoNone = 0
  fromCppEnum AutoBulletList = 1
  fromCppEnum AutoAll = 4294967295
  fromCppEnum (UnknownQTextEditAutoFormattingFlag n) = n
  
  toCppEnum (0) = AutoNone
  toCppEnum (1) = AutoBulletList
  toCppEnum (4294967295) = AutoAll
  toCppEnum n = UnknownQTextEditAutoFormattingFlag n

instance HoppyP.Eq QTextEditAutoFormattingFlag where
  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y

instance HoppyP.Ord QTextEditAutoFormattingFlag where
  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)

data QTextEditLineWrapMode =
  NoWrap
  | WidgetWidth
  | FixedPixelWidth
  | FixedColumnWidth
  | UnknownQTextEditLineWrapMode (HoppyFC.CInt)
  deriving (HoppyP.Show)

instance HoppyFHR.CppEnum (HoppyFC.CInt) QTextEditLineWrapMode where
  fromCppEnum NoWrap = 0
  fromCppEnum WidgetWidth = 1
  fromCppEnum FixedPixelWidth = 2
  fromCppEnum FixedColumnWidth = 3
  fromCppEnum (UnknownQTextEditLineWrapMode n) = n
  
  toCppEnum (0) = NoWrap
  toCppEnum (1) = WidgetWidth
  toCppEnum (2) = FixedPixelWidth
  toCppEnum (3) = FixedColumnWidth
  toCppEnum n = UnknownQTextEditLineWrapMode n

instance HoppyP.Eq QTextEditLineWrapMode where
  x == y = HoppyFHR.fromCppEnum x == HoppyFHR.fromCppEnum y

instance HoppyP.Ord QTextEditLineWrapMode where
  compare x y = HoppyP.compare (HoppyFHR.fromCppEnum x) (HoppyFHR.fromCppEnum y)