module Graphics.UI.Gtk.Entry.Entry (
Entry,
EntryClass,
castToEntry, gTypeEntry,
toEntry,
entryNew,
entrySetText,
entryGetText,
entryAppendText,
entryPrependText,
entrySetVisibility,
entryGetVisibility,
entrySetInvisibleChar,
entryGetInvisibleChar,
entrySetMaxLength,
entryGetMaxLength,
entryGetActivatesDefault,
entrySetActivatesDefault,
entryGetHasFrame,
entrySetHasFrame,
entryGetWidthChars,
entrySetWidthChars,
entrySetAlignment,
entryGetAlignment,
entrySetCompletion,
entryGetCompletion,
entryCursorPosition,
entrySelectionBound,
entryEditable,
entryMaxLength,
entryVisibility,
entryHasFrame,
entryInvisibleChar,
entryActivatesDefault,
entryWidthChars,
entryScrollOffset,
entryText,
entryXalign,
entryAlignment,
entryCompletion,
onEntryActivate,
afterEntryActivate,
onCopyClipboard,
afterCopyClipboard,
onCutClipboard,
afterCutClipboard,
onPasteClipboard,
afterPasteClipboard,
onToggleOverwrite,
afterToggleOverwrite,
) where
import Control.Monad (liftM)
import Data.Char (ord, chr)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Attributes
import System.Glib.Properties
import System.Glib.GObject (makeNewGObject)
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
import Graphics.UI.Gtk.Signals
instance EditableClass Entry
entryNew :: IO Entry
entryNew =
makeNewObject mkEntry $
liftM (castPtr :: Ptr Widget -> Ptr Entry) $
gtk_entry_new
entrySetText :: EntryClass self => self -> String -> IO ()
entrySetText self text =
withUTFString text $ \textPtr ->
(\(Entry arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_set_text argPtr1 arg2)
(toEntry self)
textPtr
entryGetText :: EntryClass self => self -> IO String
entryGetText self =
(\(Entry arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_get_text argPtr1)
(toEntry self)
>>= peekUTFString
entryAppendText :: EntryClass self => self -> String -> IO ()
entryAppendText self text =
withUTFString text $ \textPtr ->
(\(Entry arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_append_text argPtr1 arg2)
(toEntry self)
textPtr
entryPrependText :: EntryClass self => self -> String -> IO ()
entryPrependText self text =
withUTFString text $ \textPtr ->
(\(Entry arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_prepend_text argPtr1 arg2)
(toEntry self)
textPtr
entrySetVisibility :: EntryClass self => self
-> Bool
-> IO ()
entrySetVisibility self visible =
(\(Entry arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_set_visibility argPtr1 arg2)
(toEntry self)
(fromBool visible)
entryGetVisibility :: EntryClass self => self
-> IO Bool
entryGetVisibility self =
liftM toBool $
(\(Entry arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_get_visibility argPtr1)
(toEntry self)
entrySetInvisibleChar :: EntryClass self => self -> Char -> IO ()
entrySetInvisibleChar self ch =
(\(Entry arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_set_invisible_char argPtr1 arg2)
(toEntry self)
((fromIntegral . ord) ch)
entryGetInvisibleChar :: EntryClass self => self
-> IO Char
entryGetInvisibleChar self =
liftM (chr . fromIntegral) $
(\(Entry arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_get_invisible_char argPtr1)
(toEntry self)
entrySetMaxLength :: EntryClass self => self
-> Int
-> IO ()
entrySetMaxLength self max =
(\(Entry arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_set_max_length argPtr1 arg2)
(toEntry self)
(fromIntegral max)
entryGetMaxLength :: EntryClass self => self
-> IO Int
entryGetMaxLength self =
liftM fromIntegral $
(\(Entry arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_get_max_length argPtr1)
(toEntry self)
entryGetActivatesDefault :: EntryClass self => self
-> IO Bool
entryGetActivatesDefault self =
liftM toBool $
(\(Entry arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_get_activates_default argPtr1)
(toEntry self)
entrySetActivatesDefault :: EntryClass self => self
-> Bool
-> IO ()
entrySetActivatesDefault self setting =
(\(Entry arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_set_activates_default argPtr1 arg2)
(toEntry self)
(fromBool setting)
entryGetHasFrame :: EntryClass self => self
-> IO Bool
entryGetHasFrame self =
liftM toBool $
(\(Entry arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_get_has_frame argPtr1)
(toEntry self)
entrySetHasFrame :: EntryClass self => self -> Bool -> IO ()
entrySetHasFrame self setting =
(\(Entry arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_set_has_frame argPtr1 arg2)
(toEntry self)
(fromBool setting)
entryGetWidthChars :: EntryClass self => self
-> IO Int
entryGetWidthChars self =
liftM fromIntegral $
(\(Entry arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_get_width_chars argPtr1)
(toEntry self)
entrySetWidthChars :: EntryClass self => self
-> Int
-> IO ()
entrySetWidthChars self nChars =
(\(Entry arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_set_width_chars argPtr1 arg2)
(toEntry self)
(fromIntegral nChars)
entrySetAlignment :: EntryClass self => self
-> Float
-> IO ()
entrySetAlignment self xalign =
(\(Entry arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_set_alignment argPtr1 arg2)
(toEntry self)
(realToFrac xalign)
entryGetAlignment :: EntryClass self => self
-> IO Float
entryGetAlignment self =
liftM realToFrac $
(\(Entry arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_get_alignment argPtr1)
(toEntry self)
entrySetCompletion :: EntryClass self => self -> EntryCompletion -> IO ()
entrySetCompletion self completion =
(\(Entry arg1) (EntryCompletion arg2) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->gtk_entry_set_completion argPtr1 argPtr2)
(toEntry self)
completion
entryGetCompletion :: EntryClass self => self
-> IO EntryCompletion
entryGetCompletion self =
makeNewGObject mkEntryCompletion $
(\(Entry arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_entry_get_completion argPtr1)
(toEntry self)
entryCursorPosition :: EntryClass self => ReadAttr self Int
entryCursorPosition = readAttrFromIntProperty "cursor-position"
entrySelectionBound :: EntryClass self => ReadAttr self Int
entrySelectionBound = readAttrFromIntProperty "selection-bound"
entryEditable :: EntryClass self => Attr self Bool
entryEditable = newAttrFromBoolProperty "editable"
entryMaxLength :: EntryClass self => Attr self Int
entryMaxLength = newAttr
entryGetMaxLength
entrySetMaxLength
entryVisibility :: EntryClass self => Attr self Bool
entryVisibility = newAttr
entryGetVisibility
entrySetVisibility
entryHasFrame :: EntryClass self => Attr self Bool
entryHasFrame = newAttr
entryGetHasFrame
entrySetHasFrame
entryInvisibleChar :: EntryClass self => Attr self Char
entryInvisibleChar = newAttr
entryGetInvisibleChar
entrySetInvisibleChar
entryActivatesDefault :: EntryClass self => Attr self Bool
entryActivatesDefault = newAttr
entryGetActivatesDefault
entrySetActivatesDefault
entryWidthChars :: EntryClass self => Attr self Int
entryWidthChars = newAttr
entryGetWidthChars
entrySetWidthChars
entryScrollOffset :: EntryClass self => ReadAttr self Int
entryScrollOffset = readAttrFromIntProperty "scroll-offset"
entryText :: EntryClass self => Attr self String
entryText = newAttr
entryGetText
entrySetText
entryXalign :: EntryClass self => Attr self Float
entryXalign = newAttrFromFloatProperty "xalign"
entryAlignment :: EntryClass self => Attr self Float
entryAlignment = newAttr
entryGetAlignment
entrySetAlignment
entryCompletion :: EntryClass self => Attr self EntryCompletion
entryCompletion = newAttr
entryGetCompletion
entrySetCompletion
onEntryActivate, afterEntryActivate :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onEntryActivate = connect_NONE__NONE "activate" False
afterEntryActivate = connect_NONE__NONE "activate" True
onEntryChanged, afterEntryChanged :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onEntryChanged = connect_NONE__NONE "changed" False
afterEntryChanged = connect_NONE__NONE "changed" True
onCopyClipboard, afterCopyClipboard :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onCopyClipboard = connect_NONE__NONE "copy_clipboard" False
afterCopyClipboard = connect_NONE__NONE "copy_clipboard" True
onCutClipboard, afterCutClipboard :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onCutClipboard = connect_NONE__NONE "cut_clipboard" False
afterCutClipboard = connect_NONE__NONE "cut_clipboard" True
onPasteClipboard, afterPasteClipboard :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onPasteClipboard = connect_NONE__NONE "paste_clipboard" False
afterPasteClipboard = connect_NONE__NONE "paste_clipboard" True
onDeleteText, afterDeleteText :: EntryClass ec => ec ->
(Int -> Int -> IO ()) -> IO (ConnectId ec)
onDeleteText = connect_INT_INT__NONE "delete_text" False
afterDeleteText = connect_INT_INT__NONE "delete_text" True
onToggleOverwrite, afterToggleOverwrite :: EntryClass ec => ec -> IO () ->
IO (ConnectId ec)
onToggleOverwrite = connect_NONE__NONE "toggle_overwrite" False
afterToggleOverwrite = connect_NONE__NONE "toggle_overwrite" True
foreign import ccall unsafe "gtk_entry_new"
gtk_entry_new :: (IO (Ptr Widget))
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)))