{-# LINE 2 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
module Graphics.UI.Gtk.Entry.Entry (
Entry,
EntryClass,
castToEntry, gTypeEntry,
toEntry,
entryNew,
entryNewWithBuffer,
entrySetText,
entryGetText,
entryAppendText,
entryPrependText,
entrySetVisibility,
entryGetVisibility,
entrySetInvisibleChar,
entryGetInvisibleChar,
entrySetMaxLength,
entryGetMaxLength,
entryGetActivatesDefault,
entrySetActivatesDefault,
entryGetHasFrame,
entrySetHasFrame,
entryGetWidthChars,
entrySetWidthChars,
entrySetAlignment,
entryGetAlignment,
entrySetCompletion,
entryGetCompletion,
entryGetBuffer,
entrySetBuffer,
entryGetIconWindow,
entryGetTextWindow,
entryImContextFilterKeypress,
entryResetImContext,
entryCursorPosition,
entrySelectionBound,
entryEditable,
entryMaxLength,
entryVisibility,
entryHasFrame,
entryInvisibleChar,
entryActivatesDefault,
entryWidthChars,
entryScrollOffset,
entryText,
entryXalign,
entryAlignment,
entryCompletion,
entryBuffer,
entryActivated,
entryActivate,
entryBackspace,
entryCopyClipboard,
entryCutClipboard,
entryPasteClipboard,
entryDeleteFromCursor,
entryInsertAtCursor,
entryMoveCursor,
entryPopulatePopup,
entryToggleOverwirte,
entryToggleOverwrite,
entryPreeditChanged,
entryIconPress,
entryIconRelease,
onEntryActivate,
afterEntryActivate,
onCopyClipboard,
afterCopyClipboard,
onCutClipboard,
afterCutClipboard,
onPasteClipboard,
afterPasteClipboard,
onToggleOverwrite,
afterToggleOverwrite,
) where
import Control.Monad (liftM)
import Control.Monad.Reader (runReaderT)
import Data.Char (ord, chr)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Attributes
import System.Glib.Properties
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.General.Enums (DeleteType (..), MovementStep (..)
, EntryIconPosition (..)
)
import Graphics.UI.Gtk.Gdk.EventM (EventM, EButton, EKey)
import Control.Monad.Reader ( ask )
import Control.Monad.Trans ( liftIO )
import Graphics.UI.Gtk.Entry.EntryBuffer
import Graphics.UI.Gtk.Types
{-# LINE 186 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 187 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
{-# LINE 189 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
instance EditableClass Entry
entryNew :: IO Entry
entryNew :: IO Entry
entryNew =
(ForeignPtr Entry -> Entry, FinalizerPtr Entry)
-> IO (Ptr Entry) -> IO Entry
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Entry -> Entry, FinalizerPtr Entry)
forall {a}. (ForeignPtr Entry -> Entry, FinalizerPtr a)
mkEntry (IO (Ptr Entry) -> IO Entry) -> IO (Ptr Entry) -> IO Entry
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr Entry) -> IO (Ptr Widget) -> IO (Ptr Entry)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr Entry
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr Entry) (IO (Ptr Widget) -> IO (Ptr Entry))
-> IO (Ptr Widget) -> IO (Ptr Entry)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_entry_new
{-# LINE 205 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
entryNewWithBuffer :: EntryBufferClass buffer => buffer -> IO Entry
entryNewWithBuffer :: forall buffer. EntryBufferClass buffer => buffer -> IO Entry
entryNewWithBuffer buffer
buffer =
(ForeignPtr Entry -> Entry, FinalizerPtr Entry)
-> IO (Ptr Entry) -> IO Entry
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Entry -> Entry, FinalizerPtr Entry)
forall {a}. (ForeignPtr Entry -> Entry, FinalizerPtr a)
mkEntry (IO (Ptr Entry) -> IO Entry) -> IO (Ptr Entry) -> IO Entry
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr Entry) -> IO (Ptr Widget) -> IO (Ptr Entry)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr Entry
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr Entry) (IO (Ptr Widget) -> IO (Ptr Entry))
-> IO (Ptr Widget) -> IO (Ptr Entry)
forall a b. (a -> b) -> a -> b
$
(\(EntryBuffer ForeignPtr EntryBuffer
arg1) -> ForeignPtr EntryBuffer
-> (Ptr EntryBuffer -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryBuffer
arg1 ((Ptr EntryBuffer -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr EntryBuffer -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr EntryBuffer
argPtr1 ->Ptr EntryBuffer -> IO (Ptr Widget)
gtk_entry_new_with_buffer Ptr EntryBuffer
argPtr1)
{-# LINE 215 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntryBuffer buffer)
entryGetBuffer :: EntryClass self => self
-> IO EntryBuffer
entryGetBuffer :: forall self. EntryClass self => self -> IO EntryBuffer
entryGetBuffer self
self =
(ForeignPtr EntryBuffer -> EntryBuffer, FinalizerPtr EntryBuffer)
-> IO (Ptr EntryBuffer) -> IO EntryBuffer
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr EntryBuffer -> EntryBuffer, FinalizerPtr EntryBuffer)
forall {a}. (ForeignPtr EntryBuffer -> EntryBuffer, FinalizerPtr a)
mkEntryBuffer (IO (Ptr EntryBuffer) -> IO EntryBuffer)
-> IO (Ptr EntryBuffer) -> IO EntryBuffer
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry
-> (Ptr Entry -> IO (Ptr EntryBuffer)) -> IO (Ptr EntryBuffer)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO (Ptr EntryBuffer)) -> IO (Ptr EntryBuffer))
-> (Ptr Entry -> IO (Ptr EntryBuffer)) -> IO (Ptr EntryBuffer)
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO (Ptr EntryBuffer)
gtk_entry_get_buffer Ptr Entry
argPtr1)
{-# LINE 231 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
entrySetBuffer :: (EntryClass self, EntryBufferClass buffer) => self
-> buffer -> IO ()
entrySetBuffer :: forall self buffer.
(EntryClass self, EntryBufferClass buffer) =>
self -> buffer -> IO ()
entrySetBuffer self
self =
(\(Entry ForeignPtr Entry
arg1) (EntryBuffer ForeignPtr EntryBuffer
arg2) -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->ForeignPtr EntryBuffer -> (Ptr EntryBuffer -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryBuffer
arg2 ((Ptr EntryBuffer -> IO ()) -> IO ())
-> (Ptr EntryBuffer -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryBuffer
argPtr2 ->Ptr Entry -> Ptr EntryBuffer -> IO ()
gtk_entry_set_buffer Ptr Entry
argPtr1 Ptr EntryBuffer
argPtr2)
{-# LINE 238 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self) (EntryBuffer -> IO ())
-> (buffer -> EntryBuffer) -> buffer -> IO ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. buffer -> EntryBuffer
forall o. EntryBufferClass o => o -> EntryBuffer
toEntryBuffer
entrySetText :: (EntryClass self, GlibString string) => self -> string -> IO ()
entrySetText :: forall self string.
(EntryClass self, GlibString string) =>
self -> string -> IO ()
entrySetText self
self string
text =
string -> (CString -> IO ()) -> IO ()
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
text ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
textPtr ->
(\(Entry ForeignPtr Entry
arg1) CString
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CString -> IO ()
gtk_entry_set_text Ptr Entry
argPtr1 CString
arg2)
{-# LINE 248 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
CString
textPtr
entryGetText :: (EntryClass self, GlibString string) => self -> IO string
entryGetText :: forall self string.
(EntryClass self, GlibString string) =>
self -> IO string
entryGetText self
self =
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry -> (Ptr Entry -> IO CString) -> IO CString
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO CString) -> IO CString)
-> (Ptr Entry -> IO CString) -> IO CString
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO CString
gtk_entry_get_text Ptr Entry
argPtr1)
{-# LINE 257 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
IO CString -> (CString -> IO string) -> IO string
forall a b. IO a -> (a -> IO b) -> IO b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= CString -> IO string
forall s. GlibString s => CString -> IO s
peekUTFString
entryAppendText :: (EntryClass self, GlibString string) => self -> string -> IO ()
entryAppendText :: forall self string.
(EntryClass self, GlibString string) =>
self -> string -> IO ()
entryAppendText self
self string
text =
string -> (CString -> IO ()) -> IO ()
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
text ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
textPtr ->
(\(Entry ForeignPtr Entry
arg1) CString
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CString -> IO ()
gtk_entry_append_text Ptr Entry
argPtr1 CString
arg2)
{-# LINE 271 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
CString
textPtr
entryPrependText :: (EntryClass self, GlibString string) => self -> string -> IO ()
entryPrependText :: forall self string.
(EntryClass self, GlibString string) =>
self -> string -> IO ()
entryPrependText self
self string
text =
string -> (CString -> IO ()) -> IO ()
forall a. string -> (CString -> IO a) -> IO a
forall s a. GlibString s => s -> (CString -> IO a) -> IO a
withUTFString string
text ((CString -> IO ()) -> IO ()) -> (CString -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \CString
textPtr ->
(\(Entry ForeignPtr Entry
arg1) CString
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CString -> IO ()
gtk_entry_prepend_text Ptr Entry
argPtr1 CString
arg2)
{-# LINE 284 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
CString
textPtr
entrySetVisibility :: EntryClass self => self
-> Bool
-> IO ()
entrySetVisibility :: forall self. EntryClass self => self -> Bool -> IO ()
entrySetVisibility self
self Bool
visible =
(\(Entry ForeignPtr Entry
arg1) CInt
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CInt -> IO ()
gtk_entry_set_visibility Ptr Entry
argPtr1 CInt
arg2)
{-# LINE 303 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
visible)
entryGetVisibility :: EntryClass self => self
-> IO Bool
entryGetVisibility :: forall self. EntryClass self => self -> IO Bool
entryGetVisibility self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry -> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO CInt) -> IO CInt)
-> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO CInt
gtk_entry_get_visibility Ptr Entry
argPtr1)
{-# LINE 314 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
entrySetInvisibleChar :: EntryClass self => self -> Char -> IO ()
entrySetInvisibleChar :: forall self. EntryClass self => self -> Char -> IO ()
entrySetInvisibleChar self
self Char
ch =
(\(Entry ForeignPtr Entry
arg1) CUInt
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CUInt -> IO ()
gtk_entry_set_invisible_char Ptr Entry
argPtr1 CUInt
arg2)
{-# LINE 326 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
((Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Char -> Int) -> Char -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> Int
ord) Char
ch)
entryGetInvisibleChar :: EntryClass self => self
-> IO Char
entryGetInvisibleChar :: forall self. EntryClass self => self -> IO Char
entryGetInvisibleChar self
self =
(CUInt -> Char) -> IO CUInt -> IO Char
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> Char
chr (Int -> Char) -> (CUInt -> Int) -> CUInt -> Char
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CUInt -> IO Char) -> IO CUInt -> IO Char
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry -> (Ptr Entry -> IO CUInt) -> IO CUInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO CUInt) -> IO CUInt)
-> (Ptr Entry -> IO CUInt) -> IO CUInt
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO CUInt
gtk_entry_get_invisible_char Ptr Entry
argPtr1)
{-# LINE 338 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
entrySetMaxLength :: EntryClass self => self
-> Int
-> IO ()
entrySetMaxLength :: forall self. EntryClass self => self -> Int -> IO ()
entrySetMaxLength self
self Int
max =
(\(Entry ForeignPtr Entry
arg1) CInt
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CInt -> IO ()
gtk_entry_set_max_length Ptr Entry
argPtr1 CInt
arg2)
{-# LINE 351 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
max)
entryGetMaxLength :: EntryClass self => self
-> IO Int
entryGetMaxLength :: forall self. EntryClass self => self -> IO Int
entryGetMaxLength self
self =
(CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry -> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO CInt) -> IO CInt)
-> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO CInt
gtk_entry_get_max_length Ptr Entry
argPtr1)
{-# LINE 363 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
entryGetActivatesDefault :: EntryClass self => self
-> IO Bool
entryGetActivatesDefault :: forall self. EntryClass self => self -> IO Bool
entryGetActivatesDefault self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry -> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO CInt) -> IO CInt)
-> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO CInt
gtk_entry_get_activates_default Ptr Entry
argPtr1)
{-# LINE 372 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
entrySetActivatesDefault :: EntryClass self => self
-> Bool
-> IO ()
entrySetActivatesDefault :: forall self. EntryClass self => self -> Bool -> IO ()
entrySetActivatesDefault self
self Bool
setting =
(\(Entry ForeignPtr Entry
arg1) CInt
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CInt -> IO ()
gtk_entry_set_activates_default Ptr Entry
argPtr1 CInt
arg2)
{-# LINE 393 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
setting)
entryGetHasFrame :: EntryClass self => self
-> IO Bool
entryGetHasFrame :: forall self. EntryClass self => self -> IO Bool
entryGetHasFrame self
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry -> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO CInt) -> IO CInt)
-> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO CInt
gtk_entry_get_has_frame Ptr Entry
argPtr1)
{-# LINE 403 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
entrySetHasFrame :: EntryClass self => self -> Bool -> IO ()
entrySetHasFrame :: forall self. EntryClass self => self -> Bool -> IO ()
entrySetHasFrame self
self Bool
setting =
(\(Entry ForeignPtr Entry
arg1) CInt
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CInt -> IO ()
gtk_entry_set_has_frame Ptr Entry
argPtr1 CInt
arg2)
{-# LINE 410 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
setting)
entryGetWidthChars :: EntryClass self => self
-> IO Int
entryGetWidthChars :: forall self. EntryClass self => self -> IO Int
entryGetWidthChars self
self =
(CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry -> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO CInt) -> IO CInt)
-> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO CInt
gtk_entry_get_width_chars Ptr Entry
argPtr1)
{-# LINE 421 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
entrySetWidthChars :: EntryClass self => self
-> Int
-> IO ()
entrySetWidthChars :: forall self. EntryClass self => self -> Int -> IO ()
entrySetWidthChars self
self Int
nChars =
(\(Entry ForeignPtr Entry
arg1) CInt
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CInt -> IO ()
gtk_entry_set_width_chars Ptr Entry
argPtr1 CInt
arg2)
{-# LINE 437 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
nChars)
{-# LINE 473 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
entrySetAlignment :: EntryClass self => self
-> Float
-> IO ()
entrySetAlignment :: forall self. EntryClass self => self -> Float -> IO ()
entrySetAlignment self
self Float
xalign =
(\(Entry ForeignPtr Entry
arg1) CFloat
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CFloat -> IO ()
gtk_entry_set_alignment Ptr Entry
argPtr1 CFloat
arg2)
{-# LINE 485 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
(Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xalign)
entryGetAlignment :: EntryClass self => self
-> IO Float
entryGetAlignment :: forall self. EntryClass self => self -> IO Float
entryGetAlignment self
self =
(CFloat -> Float) -> IO CFloat -> IO Float
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac (IO CFloat -> IO Float) -> IO CFloat -> IO Float
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry -> (Ptr Entry -> IO CFloat) -> IO CFloat
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO CFloat) -> IO CFloat)
-> (Ptr Entry -> IO CFloat) -> IO CFloat
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO CFloat
gtk_entry_get_alignment Ptr Entry
argPtr1)
{-# LINE 497 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
entrySetCompletion :: EntryClass self => self -> EntryCompletion -> IO ()
entrySetCompletion :: forall self. EntryClass self => self -> EntryCompletion -> IO ()
entrySetCompletion self
self EntryCompletion
completion =
(\(Entry ForeignPtr Entry
arg1) (EntryCompletion ForeignPtr EntryCompletion
arg2) -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg2 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr2 ->Ptr Entry -> Ptr EntryCompletion -> IO ()
gtk_entry_set_completion Ptr Entry
argPtr1 Ptr EntryCompletion
argPtr2)
{-# LINE 508 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
EntryCompletion
completion
entryGetCompletion :: EntryClass self => self
-> IO EntryCompletion
entryGetCompletion :: forall self. EntryClass self => self -> IO EntryCompletion
entryGetCompletion self
self =
(ForeignPtr EntryCompletion -> EntryCompletion,
FinalizerPtr EntryCompletion)
-> IO (Ptr EntryCompletion) -> IO EntryCompletion
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr EntryCompletion -> EntryCompletion,
FinalizerPtr EntryCompletion)
forall {a}.
(ForeignPtr EntryCompletion -> EntryCompletion, FinalizerPtr a)
mkEntryCompletion (IO (Ptr EntryCompletion) -> IO EntryCompletion)
-> IO (Ptr EntryCompletion) -> IO EntryCompletion
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry
-> (Ptr Entry -> IO (Ptr EntryCompletion))
-> IO (Ptr EntryCompletion)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO (Ptr EntryCompletion))
-> IO (Ptr EntryCompletion))
-> (Ptr Entry -> IO (Ptr EntryCompletion))
-> IO (Ptr EntryCompletion)
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO (Ptr EntryCompletion)
gtk_entry_get_completion Ptr Entry
argPtr1)
{-# LINE 521 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
entryGetIconWindow :: EntryClass self => self
-> EntryIconPosition
-> IO DrawWindow
entryGetIconWindow :: forall self.
EntryClass self =>
self -> EntryIconPosition -> IO DrawWindow
entryGetIconWindow self
entry EntryIconPosition
iconPos =
(ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
-> IO (Ptr DrawWindow) -> IO DrawWindow
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
forall {a}. (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr a)
mkDrawWindow (IO (Ptr DrawWindow) -> IO DrawWindow)
-> IO (Ptr DrawWindow) -> IO DrawWindow
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) CInt
arg2 -> ForeignPtr Entry
-> (Ptr Entry -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow))
-> (Ptr Entry -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> CInt -> IO (Ptr DrawWindow)
gtk_entry_get_icon_window Ptr Entry
argPtr1 CInt
arg2)
{-# LINE 538 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry entry)
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt)
-> (EntryIconPosition -> Int) -> EntryIconPosition -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EntryIconPosition -> Int
forall a. Enum a => a -> Int
fromEnum) EntryIconPosition
iconPos)
entryGetTextWindow :: EntryClass self => self
-> IO DrawWindow
entryGetTextWindow :: forall self. EntryClass self => self -> IO DrawWindow
entryGetTextWindow self
entry =
(ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
-> IO (Ptr DrawWindow) -> IO DrawWindow
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr DrawWindow)
forall {a}. (ForeignPtr DrawWindow -> DrawWindow, FinalizerPtr a)
mkDrawWindow (IO (Ptr DrawWindow) -> IO DrawWindow)
-> IO (Ptr DrawWindow) -> IO DrawWindow
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry
-> (Ptr Entry -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow))
-> (Ptr Entry -> IO (Ptr DrawWindow)) -> IO (Ptr DrawWindow)
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO (Ptr DrawWindow)
gtk_entry_get_text_window Ptr Entry
argPtr1)
{-# LINE 552 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry entry)
entryImContextFilterKeypress :: EntryClass self => self -> EventM EKey Bool
entryImContextFilterKeypress :: forall self. EntryClass self => self -> EventM EKey Bool
entryImContextFilterKeypress self
self = do
Ptr EKey
ptr <- ReaderT (Ptr EKey) IO (Ptr EKey)
forall r (m :: * -> *). MonadReader r m => m r
ask
IO Bool -> EventM EKey Bool
forall a. IO a -> ReaderT (Ptr EKey) IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> EventM EKey Bool) -> IO Bool -> EventM EKey Bool
forall a b. (a -> b) -> a -> b
$ (CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(Entry ForeignPtr Entry
arg1) Ptr ()
arg2 -> ForeignPtr Entry -> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO CInt) -> IO CInt)
-> (Ptr Entry -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> Ptr () -> IO CInt
gtk_entry_im_context_filter_keypress Ptr Entry
argPtr1 Ptr ()
arg2)
{-# LINE 573 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
(toEntry self)
(Ptr EKey -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr Ptr EKey
ptr)
entryResetImContext :: EntryClass self => self -> IO ()
entryResetImContext :: forall self. EntryClass self => self -> IO ()
entryResetImContext self
self =
(\(Entry ForeignPtr Entry
arg1) -> ForeignPtr Entry -> (Ptr Entry -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Entry
arg1 ((Ptr Entry -> IO ()) -> IO ()) -> (Ptr Entry -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Entry
argPtr1 ->Ptr Entry -> IO ()
gtk_entry_reset_im_context Ptr Entry
argPtr1) (self -> Entry
forall o. EntryClass o => o -> Entry
toEntry self
self)
entryCursorPosition :: EntryClass self => ReadAttr self Int
entryCursorPosition :: forall self. EntryClass self => ReadAttr self Int
entryCursorPosition = String -> ReadAttr self Int
forall gobj. GObjectClass gobj => String -> ReadAttr gobj Int
readAttrFromIntProperty String
"cursor-position"
entrySelectionBound :: EntryClass self => ReadAttr self Int
entrySelectionBound :: forall self. EntryClass self => ReadAttr self Int
entrySelectionBound = String -> ReadAttr self Int
forall gobj. GObjectClass gobj => String -> ReadAttr gobj Int
readAttrFromIntProperty String
"selection-bound"
entryEditable :: EntryClass self => Attr self Bool
entryEditable :: forall self. EntryClass self => Attr self Bool
entryEditable = String -> Attr self Bool
forall gobj. GObjectClass gobj => String -> Attr gobj Bool
newAttrFromBoolProperty String
"editable"
entryMaxLength :: EntryClass self => Attr self Int
entryMaxLength :: forall self. EntryClass self => Attr self Int
entryMaxLength = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Int
forall self. EntryClass self => self -> IO Int
entryGetMaxLength
self -> Int -> IO ()
forall self. EntryClass self => self -> Int -> IO ()
entrySetMaxLength
entryVisibility :: EntryClass self => Attr self Bool
entryVisibility :: forall self. EntryClass self => Attr self Bool
entryVisibility = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. EntryClass self => self -> IO Bool
entryGetVisibility
self -> Bool -> IO ()
forall self. EntryClass self => self -> Bool -> IO ()
entrySetVisibility
entryHasFrame :: EntryClass self => Attr self Bool
entryHasFrame :: forall self. EntryClass self => Attr self Bool
entryHasFrame = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. EntryClass self => self -> IO Bool
entryGetHasFrame
self -> Bool -> IO ()
forall self. EntryClass self => self -> Bool -> IO ()
entrySetHasFrame
entryInvisibleChar :: EntryClass self => Attr self Char
entryInvisibleChar :: forall self. EntryClass self => Attr self Char
entryInvisibleChar = (self -> IO Char)
-> (self -> Char -> IO ()) -> ReadWriteAttr self Char Char
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Char
forall self. EntryClass self => self -> IO Char
entryGetInvisibleChar
self -> Char -> IO ()
forall self. EntryClass self => self -> Char -> IO ()
entrySetInvisibleChar
entryActivatesDefault :: EntryClass self => Attr self Bool
entryActivatesDefault :: forall self. EntryClass self => Attr self Bool
entryActivatesDefault = (self -> IO Bool)
-> (self -> Bool -> IO ()) -> ReadWriteAttr self Bool Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Bool
forall self. EntryClass self => self -> IO Bool
entryGetActivatesDefault
self -> Bool -> IO ()
forall self. EntryClass self => self -> Bool -> IO ()
entrySetActivatesDefault
entryWidthChars :: EntryClass self => Attr self Int
entryWidthChars :: forall self. EntryClass self => Attr self Int
entryWidthChars = (self -> IO Int)
-> (self -> Int -> IO ()) -> ReadWriteAttr self Int Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Int
forall self. EntryClass self => self -> IO Int
entryGetWidthChars
self -> Int -> IO ()
forall self. EntryClass self => self -> Int -> IO ()
entrySetWidthChars
entryScrollOffset :: EntryClass self => ReadAttr self Int
entryScrollOffset :: forall self. EntryClass self => ReadAttr self Int
entryScrollOffset = String -> ReadAttr self Int
forall gobj. GObjectClass gobj => String -> ReadAttr gobj Int
readAttrFromIntProperty String
"scroll-offset"
entryText :: (EntryClass self, GlibString string) => Attr self string
entryText :: forall self string.
(EntryClass self, GlibString string) =>
Attr self string
entryText = (self -> IO string)
-> (self -> string -> IO ()) -> ReadWriteAttr self string string
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO string
forall self string.
(EntryClass self, GlibString string) =>
self -> IO string
entryGetText
self -> string -> IO ()
forall self string.
(EntryClass self, GlibString string) =>
self -> string -> IO ()
entrySetText
{-# LINE 707 "./Graphics/UI/Gtk/Entry/Entry.chs" #-}
entryXalign :: EntryClass self => Attr self Float
entryXalign :: forall self. EntryClass self => Attr self Float
entryXalign = String -> Attr self Float
forall gobj. GObjectClass gobj => String -> Attr gobj Float
newAttrFromFloatProperty String
"xalign"
entryAlignment :: EntryClass self => Attr self Float
entryAlignment :: forall self. EntryClass self => Attr self Float
entryAlignment = (self -> IO Float)
-> (self -> Float -> IO ()) -> ReadWriteAttr self Float Float
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO Float
forall self. EntryClass self => self -> IO Float
entryGetAlignment
self -> Float -> IO ()
forall self. EntryClass self => self -> Float -> IO ()
entrySetAlignment
entryCompletion :: EntryClass self => Attr self EntryCompletion
entryCompletion :: forall self. EntryClass self => Attr self EntryCompletion
entryCompletion = (self -> IO EntryCompletion)
-> (self -> EntryCompletion -> IO ())
-> ReadWriteAttr self EntryCompletion EntryCompletion
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO EntryCompletion
forall self. EntryClass self => self -> IO EntryCompletion
entryGetCompletion
self -> EntryCompletion -> IO ()
forall self. EntryClass self => self -> EntryCompletion -> IO ()
entrySetCompletion
entryBuffer :: (EntryClass self, EntryBufferClass buffer) =>
ReadWriteAttr self EntryBuffer buffer
entryBuffer :: forall self buffer.
(EntryClass self, EntryBufferClass buffer) =>
ReadWriteAttr self EntryBuffer buffer
entryBuffer = (self -> IO EntryBuffer)
-> (self -> buffer -> IO ())
-> ReadWriteAttr self EntryBuffer buffer
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
self -> IO EntryBuffer
forall self. EntryClass self => self -> IO EntryBuffer
entryGetBuffer
self -> buffer -> IO ()
forall self buffer.
(EntryClass self, EntryBufferClass buffer) =>
self -> buffer -> IO ()
entrySetBuffer
entryActivated :: EntryClass ec => Signal ec (IO ())
entryActivated :: forall ec. EntryClass ec => Signal ec (IO ())
entryActivated = (Bool -> ec -> IO () -> IO (ConnectId ec)) -> Signal ec (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"activate")
entryActivate :: EntryClass ec => Signal ec (IO ())
entryActivate :: forall ec. EntryClass ec => Signal ec (IO ())
entryActivate = Signal ec (IO ())
forall ec. EntryClass ec => Signal ec (IO ())
entryActivated
entryBackspace :: EntryClass ec => Signal ec (IO ())
entryBackspace :: forall ec. EntryClass ec => Signal ec (IO ())
entryBackspace = (Bool -> ec -> IO () -> IO (ConnectId ec)) -> Signal ec (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"backspace")
entryCopyClipboard :: EntryClass ec => Signal ec (IO ())
entryCopyClipboard :: forall ec. EntryClass ec => Signal ec (IO ())
entryCopyClipboard = (Bool -> ec -> IO () -> IO (ConnectId ec)) -> Signal ec (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"copy-clipboard")
entryCutClipboard :: EntryClass ec => Signal ec (IO ())
entryCutClipboard :: forall ec. EntryClass ec => Signal ec (IO ())
entryCutClipboard = (Bool -> ec -> IO () -> IO (ConnectId ec)) -> Signal ec (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"cut-clipboard")
entryDeleteFromCursor :: EntryClass ec => Signal ec (DeleteType -> Int -> IO ())
entryDeleteFromCursor :: forall ec. EntryClass ec => Signal ec (DeleteType -> Int -> IO ())
entryDeleteFromCursor = (Bool -> ec -> (DeleteType -> Int -> IO ()) -> IO (ConnectId ec))
-> Signal ec (DeleteType -> Int -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool -> ec -> (DeleteType -> Int -> IO ()) -> IO (ConnectId ec)
forall a obj.
(Enum a, GObjectClass obj) =>
String -> Bool -> obj -> (a -> Int -> IO ()) -> IO (ConnectId obj)
connect_ENUM_INT__NONE String
"delete-from-cursor")
entryInsertAtCursor :: (EntryClass ec, GlibString string) => Signal ec (string -> IO ())
entryInsertAtCursor :: forall ec string.
(EntryClass ec, GlibString string) =>
Signal ec (string -> IO ())
entryInsertAtCursor = (Bool -> ec -> (string -> IO ()) -> IO (ConnectId ec))
-> Signal ec (string -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> ec -> (string -> IO ()) -> IO (ConnectId ec)
forall a' obj.
(GlibString a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_GLIBSTRING__NONE String
"insert-at-cursor")
entryMoveCursor :: EntryClass ec => Signal ec (MovementStep -> Int -> Bool -> IO ())
entryMoveCursor :: forall ec.
EntryClass ec =>
Signal ec (MovementStep -> Int -> Bool -> IO ())
entryMoveCursor = (Bool
-> ec
-> (MovementStep -> Int -> Bool -> IO ())
-> IO (ConnectId ec))
-> Signal ec (MovementStep -> Int -> Bool -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String
-> Bool
-> ec
-> (MovementStep -> Int -> Bool -> IO ())
-> IO (ConnectId ec)
forall a obj.
(Enum a, GObjectClass obj) =>
String
-> Bool -> obj -> (a -> Int -> Bool -> IO ()) -> IO (ConnectId obj)
connect_ENUM_INT_BOOL__NONE String
"move-cursor")
entryPasteClipboard :: EntryClass ec => Signal ec (IO ())
entryPasteClipboard :: forall ec. EntryClass ec => Signal ec (IO ())
entryPasteClipboard = (Bool -> ec -> IO () -> IO (ConnectId ec)) -> Signal ec (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"paste-clipboard")
entryPopulatePopup :: EntryClass ec => Signal ec (Menu -> IO ())
= (Bool -> ec -> (Menu -> IO ()) -> IO (ConnectId ec))
-> Signal ec (Menu -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> ec -> (Menu -> IO ()) -> IO (ConnectId ec)
forall a' obj.
(GObjectClass a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_OBJECT__NONE String
"populate-popup")
entryPreeditChanged :: (EntryClass ec, GlibString string) => Signal ec (string -> IO ())
entryPreeditChanged :: forall ec string.
(EntryClass ec, GlibString string) =>
Signal ec (string -> IO ())
entryPreeditChanged = (Bool -> ec -> (string -> IO ()) -> IO (ConnectId ec))
-> Signal ec (string -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> ec -> (string -> IO ()) -> IO (ConnectId ec)
forall a' obj.
(GlibString a', GObjectClass obj) =>
String -> Bool -> obj -> (a' -> IO ()) -> IO (ConnectId obj)
connect_GLIBSTRING__NONE String
"preedit-changed")
entryIconPress :: EntryClass ec =>
Signal ec (EntryIconPosition -> EventM EButton ())
entryIconPress :: forall ec.
EntryClass ec =>
Signal ec (EntryIconPosition -> EventM EButton ())
entryIconPress = (Bool
-> ec
-> (EntryIconPosition -> EventM EButton ())
-> IO (ConnectId ec))
-> Signal ec (EntryIconPosition -> EventM EButton ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal ((Bool
-> ec
-> (EntryIconPosition -> EventM EButton ())
-> IO (ConnectId ec))
-> Signal ec (EntryIconPosition -> EventM EButton ()))
-> (Bool
-> ec
-> (EntryIconPosition -> EventM EButton ())
-> IO (ConnectId ec))
-> Signal ec (EntryIconPosition -> EventM EButton ())
forall a b. (a -> b) -> a -> b
$ \Bool
after ec
obj EntryIconPosition -> EventM EButton ()
f ->
String
-> Bool
-> ec
-> (EntryIconPosition -> Ptr EButton -> IO ())
-> IO (ConnectId ec)
forall a obj b.
(Enum a, GObjectClass obj) =>
String
-> Bool -> obj -> (a -> Ptr b -> IO ()) -> IO (ConnectId obj)
connect_ENUM_PTR__NONE String
"icon-press" Bool
after ec
obj (EventM EButton () -> Ptr EButton -> IO ()
forall r (m :: * -> *) a. ReaderT r m a -> r -> m a
runReaderT (EventM EButton () -> Ptr EButton -> IO ())
-> (EntryIconPosition -> EventM EButton ())
-> EntryIconPosition
-> Ptr EButton
-> IO ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EntryIconPosition -> EventM EButton ()
f)
entryIconRelease :: EntryClass ec =>
Signal ec (EntryIconPosition -> EventM EButton ())
entryIconRelease :: forall ec.
EntryClass ec =>
Signal ec (EntryIconPosition -> EventM EButton ())
entryIconRelease = (Bool
-> ec
-> (EntryIconPosition -> EventM EButton ())
-> IO (ConnectId ec))
-> Signal ec (EntryIconPosition -> EventM EButton ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal ((Bool
-> ec
-> (EntryIconPosition -> EventM EButton ())
-> IO (ConnectId ec))
-> Signal ec (EntryIconPosition -> EventM EButton ()))
-> (Bool
-> ec
-> (EntryIconPosition -> EventM EButton ())
-> IO (ConnectId ec))
-> Signal ec (EntryIconPosition -> EventM EButton ())
forall a b. (a -> b) -> a -> b
$ \Bool
after ec
obj EntryIconPosition -> EventM EButton ()
f ->
String
-> Bool
-> ec
-> (EntryIconPosition -> Ptr EButton -> IO ())
-> IO (ConnectId ec)
forall a obj b.
(Enum a, GObjectClass obj) =>
String
-> Bool -> obj -> (a -> Ptr b -> IO ()) -> IO (ConnectId obj)
connect_ENUM_PTR__NONE String
"icon-press" Bool
after ec
obj (EventM EButton () -> Ptr EButton -> IO ()
forall r (m :: * -> *) a. ReaderT r m a -> r -> m a
runReaderT (EventM EButton () -> Ptr EButton -> IO ())
-> (EntryIconPosition -> EventM EButton ())
-> EntryIconPosition
-> Ptr EButton
-> IO ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EntryIconPosition -> EventM EButton ()
f)
{-# DEPRECATED entryToggleOverwirte "Use entryToggleOverwrite" #-}
entryToggleOverwirte :: EntryClass ec => Signal ec (IO ())
entryToggleOverwirte :: forall ec. EntryClass ec => Signal ec (IO ())
entryToggleOverwirte = Signal ec (IO ())
forall ec. EntryClass ec => Signal ec (IO ())
entryToggleOverwrite
entryToggleOverwrite :: EntryClass ec => Signal ec (IO ())
entryToggleOverwrite :: forall ec. EntryClass ec => Signal ec (IO ())
entryToggleOverwrite = (Bool -> ec -> IO () -> IO (ConnectId ec)) -> Signal ec (IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"toggle-overwrite")
onEntryActivate, afterEntryActivate :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onEntryActivate :: forall ec. EntryClass ec => ec -> IO () -> IO (ConnectId ec)
onEntryActivate = String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"activate" Bool
False
afterEntryActivate :: forall ec. EntryClass ec => ec -> IO () -> IO (ConnectId ec)
afterEntryActivate = String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"activate" Bool
True
onCopyClipboard, afterCopyClipboard :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onCopyClipboard :: forall ec. EntryClass ec => ec -> IO () -> IO (ConnectId ec)
onCopyClipboard = String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"copy_clipboard" Bool
False
afterCopyClipboard :: forall ec. EntryClass ec => ec -> IO () -> IO (ConnectId ec)
afterCopyClipboard = String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"copy_clipboard" Bool
True
onCutClipboard, afterCutClipboard :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onCutClipboard :: forall ec. EntryClass ec => ec -> IO () -> IO (ConnectId ec)
onCutClipboard = String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"cut_clipboard" Bool
False
afterCutClipboard :: forall ec. EntryClass ec => ec -> IO () -> IO (ConnectId ec)
afterCutClipboard = String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"cut_clipboard" Bool
True
onPasteClipboard, afterPasteClipboard :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onPasteClipboard :: forall ec. EntryClass ec => ec -> IO () -> IO (ConnectId ec)
onPasteClipboard = String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"paste_clipboard" Bool
False
afterPasteClipboard :: forall ec. EntryClass ec => ec -> IO () -> IO (ConnectId ec)
afterPasteClipboard = String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"paste_clipboard" Bool
True
onToggleOverwrite, afterToggleOverwrite :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onToggleOverwrite :: forall ec. EntryClass ec => ec -> IO () -> IO (ConnectId ec)
onToggleOverwrite = String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"toggle_overwrite" Bool
False
afterToggleOverwrite :: forall ec. EntryClass ec => ec -> IO () -> IO (ConnectId ec)
afterToggleOverwrite = String -> Bool -> ec -> IO () -> IO (ConnectId ec)
forall obj.
GObjectClass obj =>
String -> Bool -> obj -> IO () -> IO (ConnectId obj)
connect_NONE__NONE String
"toggle_overwrite" Bool
True
foreign import ccall unsafe "gtk_entry_new"
gtk_entry_new :: (IO (Ptr Widget))
foreign import ccall unsafe "gtk_entry_new_with_buffer"
gtk_entry_new_with_buffer :: ((Ptr EntryBuffer) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_entry_get_buffer"
gtk_entry_get_buffer :: ((Ptr Entry) -> (IO (Ptr EntryBuffer)))
foreign import ccall safe "gtk_entry_set_buffer"
gtk_entry_set_buffer :: ((Ptr Entry) -> ((Ptr EntryBuffer) -> (IO ())))
foreign import ccall safe "gtk_entry_set_text"
gtk_entry_set_text :: ((Ptr Entry) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_entry_get_text"
gtk_entry_get_text :: ((Ptr Entry) -> (IO (Ptr CChar)))
foreign import ccall safe "gtk_entry_append_text"
gtk_entry_append_text :: ((Ptr Entry) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_entry_prepend_text"
gtk_entry_prepend_text :: ((Ptr Entry) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "gtk_entry_set_visibility"
gtk_entry_set_visibility :: ((Ptr Entry) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_entry_get_visibility"
gtk_entry_get_visibility :: ((Ptr Entry) -> (IO CInt))
foreign import ccall unsafe "gtk_entry_set_invisible_char"
gtk_entry_set_invisible_char :: ((Ptr Entry) -> (CUInt -> (IO ())))
foreign import ccall unsafe "gtk_entry_get_invisible_char"
gtk_entry_get_invisible_char :: ((Ptr Entry) -> (IO CUInt))
foreign import ccall safe "gtk_entry_set_max_length"
gtk_entry_set_max_length :: ((Ptr Entry) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_entry_get_max_length"
gtk_entry_get_max_length :: ((Ptr Entry) -> (IO CInt))
foreign import ccall unsafe "gtk_entry_get_activates_default"
gtk_entry_get_activates_default :: ((Ptr Entry) -> (IO CInt))
foreign import ccall safe "gtk_entry_set_activates_default"
gtk_entry_set_activates_default :: ((Ptr Entry) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_entry_get_has_frame"
gtk_entry_get_has_frame :: ((Ptr Entry) -> (IO CInt))
foreign import ccall safe "gtk_entry_set_has_frame"
gtk_entry_set_has_frame :: ((Ptr Entry) -> (CInt -> (IO ())))
foreign import ccall unsafe "gtk_entry_get_width_chars"
gtk_entry_get_width_chars :: ((Ptr Entry) -> (IO CInt))
foreign import ccall safe "gtk_entry_set_width_chars"
gtk_entry_set_width_chars :: ((Ptr Entry) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_entry_set_alignment"
gtk_entry_set_alignment :: ((Ptr Entry) -> (CFloat -> (IO ())))
foreign import ccall unsafe "gtk_entry_get_alignment"
gtk_entry_get_alignment :: ((Ptr Entry) -> (IO CFloat))
foreign import ccall safe "gtk_entry_set_completion"
gtk_entry_set_completion :: ((Ptr Entry) -> ((Ptr EntryCompletion) -> (IO ())))
foreign import ccall safe "gtk_entry_get_completion"
gtk_entry_get_completion :: ((Ptr Entry) -> (IO (Ptr EntryCompletion)))
foreign import ccall safe "gtk_entry_get_icon_window"
gtk_entry_get_icon_window :: ((Ptr Entry) -> (CInt -> (IO (Ptr DrawWindow))))
foreign import ccall safe "gtk_entry_get_text_window"
gtk_entry_get_text_window :: ((Ptr Entry) -> (IO (Ptr DrawWindow)))
foreign import ccall safe "gtk_entry_im_context_filter_keypress"
gtk_entry_im_context_filter_keypress :: ((Ptr Entry) -> ((Ptr ()) -> (IO CInt)))
foreign import ccall safe "gtk_entry_reset_im_context"
gtk_entry_reset_im_context :: ((Ptr Entry) -> (IO ()))