{-# LANGUAGE CPP #-} #if (defined(__GHCJS__) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT) {-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.DOMSelection (ghcjs_dom_dom_selection_collapse, domSelectionCollapse, ghcjs_dom_dom_selection_collapse_to_end, domSelectionCollapseToEnd, ghcjs_dom_dom_selection_collapse_to_start, domSelectionCollapseToStart, ghcjs_dom_dom_selection_delete_from_document, domSelectionDeleteFromDocument, ghcjs_dom_dom_selection_contains_node, domSelectionContainsNode, ghcjs_dom_dom_selection_select_all_children, domSelectionSelectAllChildren, ghcjs_dom_dom_selection_extend, domSelectionExtend, ghcjs_dom_dom_selection_get_range_at, domSelectionGetRangeAt, ghcjs_dom_dom_selection_remove_all_ranges, domSelectionRemoveAllRanges, ghcjs_dom_dom_selection_add_range, domSelectionAddRange, ghcjs_dom_dom_selection_modify, domSelectionModify, ghcjs_dom_dom_selection_set_base_and_extent, domSelectionSetBaseAndExtent, ghcjs_dom_dom_selection_set_position, domSelectionSetPosition, ghcjs_dom_dom_selection_empty, domSelectionEmpty, ghcjs_dom_dom_selection_get_anchor_node, domSelectionGetAnchorNode, ghcjs_dom_dom_selection_get_anchor_offset, domSelectionGetAnchorOffset, ghcjs_dom_dom_selection_get_focus_node, domSelectionGetFocusNode, ghcjs_dom_dom_selection_get_focus_offset, domSelectionGetFocusOffset, ghcjs_dom_dom_selection_get_is_collapsed, domSelectionGetIsCollapsed, ghcjs_dom_dom_selection_get_range_count, domSelectionGetRangeCount, ghcjs_dom_dom_selection_get_base_node, domSelectionGetBaseNode, ghcjs_dom_dom_selection_get_base_offset, domSelectionGetBaseOffset, ghcjs_dom_dom_selection_get_extent_node, domSelectionGetExtentNode, ghcjs_dom_dom_selection_get_extent_offset, domSelectionGetExtentOffset) where import GHCJS.Types import GHCJS.Foreign import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM import GHCJS.Types import GHCJS.Foreign import Data.Word import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventM #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"collapse\"]($2, $3)" ghcjs_dom_dom_selection_collapse :: JSRef DOMSelection -> JSRef Node -> Int -> IO () #else ghcjs_dom_dom_selection_collapse :: JSRef DOMSelection -> JSRef Node -> Int -> IO () ghcjs_dom_dom_selection_collapse = undefined #endif domSelectionCollapse :: (IsDOMSelection self, IsNode node) => self -> Maybe node -> Int -> IO () domSelectionCollapse self node index = ghcjs_dom_dom_selection_collapse (unDOMSelection (toDOMSelection self)) (maybe jsNull (unNode . toNode) node) index #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"collapseToEnd\"]()" ghcjs_dom_dom_selection_collapse_to_end :: JSRef DOMSelection -> IO () #else ghcjs_dom_dom_selection_collapse_to_end :: JSRef DOMSelection -> IO () ghcjs_dom_dom_selection_collapse_to_end = undefined #endif domSelectionCollapseToEnd :: (IsDOMSelection self) => self -> IO () domSelectionCollapseToEnd self = ghcjs_dom_dom_selection_collapse_to_end (unDOMSelection (toDOMSelection self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"collapseToStart\"]()" ghcjs_dom_dom_selection_collapse_to_start :: JSRef DOMSelection -> IO () #else ghcjs_dom_dom_selection_collapse_to_start :: JSRef DOMSelection -> IO () ghcjs_dom_dom_selection_collapse_to_start = undefined #endif domSelectionCollapseToStart :: (IsDOMSelection self) => self -> IO () domSelectionCollapseToStart self = ghcjs_dom_dom_selection_collapse_to_start (unDOMSelection (toDOMSelection self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"deleteFromDocument\"]()" ghcjs_dom_dom_selection_delete_from_document :: JSRef DOMSelection -> IO () #else ghcjs_dom_dom_selection_delete_from_document :: JSRef DOMSelection -> IO () ghcjs_dom_dom_selection_delete_from_document = undefined #endif domSelectionDeleteFromDocument :: (IsDOMSelection self) => self -> IO () domSelectionDeleteFromDocument self = ghcjs_dom_dom_selection_delete_from_document (unDOMSelection (toDOMSelection self)) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"containsNode\"]($2,\n$3) ? 1 : 0)" ghcjs_dom_dom_selection_contains_node :: JSRef DOMSelection -> JSRef Node -> Bool -> IO Bool #else ghcjs_dom_dom_selection_contains_node :: JSRef DOMSelection -> JSRef Node -> Bool -> IO Bool ghcjs_dom_dom_selection_contains_node = undefined #endif domSelectionContainsNode :: (IsDOMSelection self, IsNode node) => self -> Maybe node -> Bool -> IO Bool domSelectionContainsNode self node allowPartial = ghcjs_dom_dom_selection_contains_node (unDOMSelection (toDOMSelection self)) (maybe jsNull (unNode . toNode) node) allowPartial #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"selectAllChildren\"]($2)" ghcjs_dom_dom_selection_select_all_children :: JSRef DOMSelection -> JSRef Node -> IO () #else ghcjs_dom_dom_selection_select_all_children :: JSRef DOMSelection -> JSRef Node -> IO () ghcjs_dom_dom_selection_select_all_children = undefined #endif domSelectionSelectAllChildren :: (IsDOMSelection self, IsNode node) => self -> Maybe node -> IO () domSelectionSelectAllChildren self node = ghcjs_dom_dom_selection_select_all_children (unDOMSelection (toDOMSelection self)) (maybe jsNull (unNode . toNode) node) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"extend\"]($2, $3)" ghcjs_dom_dom_selection_extend :: JSRef DOMSelection -> JSRef Node -> Int -> IO () #else ghcjs_dom_dom_selection_extend :: JSRef DOMSelection -> JSRef Node -> Int -> IO () ghcjs_dom_dom_selection_extend = undefined #endif domSelectionExtend :: (IsDOMSelection self, IsNode node) => self -> Maybe node -> Int -> IO () domSelectionExtend self node offset = ghcjs_dom_dom_selection_extend (unDOMSelection (toDOMSelection self)) (maybe jsNull (unNode . toNode) node) offset #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"getRangeAt\"]($2)" ghcjs_dom_dom_selection_get_range_at :: JSRef DOMSelection -> Int -> IO (JSRef DOMRange) #else ghcjs_dom_dom_selection_get_range_at :: JSRef DOMSelection -> Int -> IO (JSRef DOMRange) ghcjs_dom_dom_selection_get_range_at = undefined #endif domSelectionGetRangeAt :: (IsDOMSelection self) => self -> Int -> IO (Maybe DOMRange) domSelectionGetRangeAt self index = fmap DOMRange . maybeJSNull <$> (ghcjs_dom_dom_selection_get_range_at (unDOMSelection (toDOMSelection self)) index) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"removeAllRanges\"]()" ghcjs_dom_dom_selection_remove_all_ranges :: JSRef DOMSelection -> IO () #else ghcjs_dom_dom_selection_remove_all_ranges :: JSRef DOMSelection -> IO () ghcjs_dom_dom_selection_remove_all_ranges = undefined #endif domSelectionRemoveAllRanges :: (IsDOMSelection self) => self -> IO () domSelectionRemoveAllRanges self = ghcjs_dom_dom_selection_remove_all_ranges (unDOMSelection (toDOMSelection self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"addRange\"]($2)" ghcjs_dom_dom_selection_add_range :: JSRef DOMSelection -> JSRef DOMRange -> IO () #else ghcjs_dom_dom_selection_add_range :: JSRef DOMSelection -> JSRef DOMRange -> IO () ghcjs_dom_dom_selection_add_range = undefined #endif domSelectionAddRange :: (IsDOMSelection self, IsDOMRange range) => self -> Maybe range -> IO () domSelectionAddRange self range = ghcjs_dom_dom_selection_add_range (unDOMSelection (toDOMSelection self)) (maybe jsNull (unDOMRange . toDOMRange) range) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"modify\"]($2, $3, $4)" ghcjs_dom_dom_selection_modify :: JSRef DOMSelection -> JSString -> JSString -> JSString -> IO () #else ghcjs_dom_dom_selection_modify :: JSRef DOMSelection -> JSString -> JSString -> JSString -> IO () ghcjs_dom_dom_selection_modify = undefined #endif domSelectionModify :: (IsDOMSelection self, ToJSString alter, ToJSString direction, ToJSString granularity) => self -> alter -> direction -> granularity -> IO () domSelectionModify self alter direction granularity = ghcjs_dom_dom_selection_modify (unDOMSelection (toDOMSelection self)) (toJSString alter) (toJSString direction) (toJSString granularity) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"setBaseAndExtent\"]($2, $3,\n$4, $5)" ghcjs_dom_dom_selection_set_base_and_extent :: JSRef DOMSelection -> JSRef Node -> Int -> JSRef Node -> Int -> IO () #else ghcjs_dom_dom_selection_set_base_and_extent :: JSRef DOMSelection -> JSRef Node -> Int -> JSRef Node -> Int -> IO () ghcjs_dom_dom_selection_set_base_and_extent = undefined #endif domSelectionSetBaseAndExtent :: (IsDOMSelection self, IsNode baseNode, IsNode extentNode) => self -> Maybe baseNode -> Int -> Maybe extentNode -> Int -> IO () domSelectionSetBaseAndExtent self baseNode baseOffset extentNode extentOffset = ghcjs_dom_dom_selection_set_base_and_extent (unDOMSelection (toDOMSelection self)) (maybe jsNull (unNode . toNode) baseNode) baseOffset (maybe jsNull (unNode . toNode) extentNode) extentOffset #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"setPosition\"]($2, $3)" ghcjs_dom_dom_selection_set_position :: JSRef DOMSelection -> JSRef Node -> Int -> IO () #else ghcjs_dom_dom_selection_set_position :: JSRef DOMSelection -> JSRef Node -> Int -> IO () ghcjs_dom_dom_selection_set_position = undefined #endif domSelectionSetPosition :: (IsDOMSelection self, IsNode node) => self -> Maybe node -> Int -> IO () domSelectionSetPosition self node offset = ghcjs_dom_dom_selection_set_position (unDOMSelection (toDOMSelection self)) (maybe jsNull (unNode . toNode) node) offset #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"empty\"]()" ghcjs_dom_dom_selection_empty :: JSRef DOMSelection -> IO () #else ghcjs_dom_dom_selection_empty :: JSRef DOMSelection -> IO () ghcjs_dom_dom_selection_empty = undefined #endif domSelectionEmpty :: (IsDOMSelection self) => self -> IO () domSelectionEmpty self = ghcjs_dom_dom_selection_empty (unDOMSelection (toDOMSelection self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"anchorNode\"]" ghcjs_dom_dom_selection_get_anchor_node :: JSRef DOMSelection -> IO (JSRef Node) #else ghcjs_dom_dom_selection_get_anchor_node :: JSRef DOMSelection -> IO (JSRef Node) ghcjs_dom_dom_selection_get_anchor_node = undefined #endif domSelectionGetAnchorNode :: (IsDOMSelection self) => self -> IO (Maybe Node) domSelectionGetAnchorNode self = fmap Node . maybeJSNull <$> (ghcjs_dom_dom_selection_get_anchor_node (unDOMSelection (toDOMSelection self))) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"anchorOffset\"]" ghcjs_dom_dom_selection_get_anchor_offset :: JSRef DOMSelection -> IO Int #else ghcjs_dom_dom_selection_get_anchor_offset :: JSRef DOMSelection -> IO Int ghcjs_dom_dom_selection_get_anchor_offset = undefined #endif domSelectionGetAnchorOffset :: (IsDOMSelection self) => self -> IO Int domSelectionGetAnchorOffset self = ghcjs_dom_dom_selection_get_anchor_offset (unDOMSelection (toDOMSelection self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"focusNode\"]" ghcjs_dom_dom_selection_get_focus_node :: JSRef DOMSelection -> IO (JSRef Node) #else ghcjs_dom_dom_selection_get_focus_node :: JSRef DOMSelection -> IO (JSRef Node) ghcjs_dom_dom_selection_get_focus_node = undefined #endif domSelectionGetFocusNode :: (IsDOMSelection self) => self -> IO (Maybe Node) domSelectionGetFocusNode self = fmap Node . maybeJSNull <$> (ghcjs_dom_dom_selection_get_focus_node (unDOMSelection (toDOMSelection self))) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"focusOffset\"]" ghcjs_dom_dom_selection_get_focus_offset :: JSRef DOMSelection -> IO Int #else ghcjs_dom_dom_selection_get_focus_offset :: JSRef DOMSelection -> IO Int ghcjs_dom_dom_selection_get_focus_offset = undefined #endif domSelectionGetFocusOffset :: (IsDOMSelection self) => self -> IO Int domSelectionGetFocusOffset self = ghcjs_dom_dom_selection_get_focus_offset (unDOMSelection (toDOMSelection self)) #ifdef __GHCJS__ foreign import javascript unsafe "($1[\"isCollapsed\"] ? 1 : 0)" ghcjs_dom_dom_selection_get_is_collapsed :: JSRef DOMSelection -> IO Bool #else ghcjs_dom_dom_selection_get_is_collapsed :: JSRef DOMSelection -> IO Bool ghcjs_dom_dom_selection_get_is_collapsed = undefined #endif domSelectionGetIsCollapsed :: (IsDOMSelection self) => self -> IO Bool domSelectionGetIsCollapsed self = ghcjs_dom_dom_selection_get_is_collapsed (unDOMSelection (toDOMSelection self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"rangeCount\"]" ghcjs_dom_dom_selection_get_range_count :: JSRef DOMSelection -> IO Int #else ghcjs_dom_dom_selection_get_range_count :: JSRef DOMSelection -> IO Int ghcjs_dom_dom_selection_get_range_count = undefined #endif domSelectionGetRangeCount :: (IsDOMSelection self) => self -> IO Int domSelectionGetRangeCount self = ghcjs_dom_dom_selection_get_range_count (unDOMSelection (toDOMSelection self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"baseNode\"]" ghcjs_dom_dom_selection_get_base_node :: JSRef DOMSelection -> IO (JSRef Node) #else ghcjs_dom_dom_selection_get_base_node :: JSRef DOMSelection -> IO (JSRef Node) ghcjs_dom_dom_selection_get_base_node = undefined #endif domSelectionGetBaseNode :: (IsDOMSelection self) => self -> IO (Maybe Node) domSelectionGetBaseNode self = fmap Node . maybeJSNull <$> (ghcjs_dom_dom_selection_get_base_node (unDOMSelection (toDOMSelection self))) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"baseOffset\"]" ghcjs_dom_dom_selection_get_base_offset :: JSRef DOMSelection -> IO Int #else ghcjs_dom_dom_selection_get_base_offset :: JSRef DOMSelection -> IO Int ghcjs_dom_dom_selection_get_base_offset = undefined #endif domSelectionGetBaseOffset :: (IsDOMSelection self) => self -> IO Int domSelectionGetBaseOffset self = ghcjs_dom_dom_selection_get_base_offset (unDOMSelection (toDOMSelection self)) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"extentNode\"]" ghcjs_dom_dom_selection_get_extent_node :: JSRef DOMSelection -> IO (JSRef Node) #else ghcjs_dom_dom_selection_get_extent_node :: JSRef DOMSelection -> IO (JSRef Node) ghcjs_dom_dom_selection_get_extent_node = undefined #endif domSelectionGetExtentNode :: (IsDOMSelection self) => self -> IO (Maybe Node) domSelectionGetExtentNode self = fmap Node . maybeJSNull <$> (ghcjs_dom_dom_selection_get_extent_node (unDOMSelection (toDOMSelection self))) #ifdef __GHCJS__ foreign import javascript unsafe "$1[\"extentOffset\"]" ghcjs_dom_dom_selection_get_extent_offset :: JSRef DOMSelection -> IO Int #else ghcjs_dom_dom_selection_get_extent_offset :: JSRef DOMSelection -> IO Int ghcjs_dom_dom_selection_get_extent_offset = undefined #endif domSelectionGetExtentOffset :: (IsDOMSelection self) => self -> IO Int domSelectionGetExtentOffset self = ghcjs_dom_dom_selection_get_extent_offset (unDOMSelection (toDOMSelection self)) #else module GHCJS.DOM.DOMSelection ( module Graphics.UI.Gtk.WebKit.DOM.DOMSelection ) where import Graphics.UI.Gtk.WebKit.DOM.DOMSelection #endif