diff --git a/GI/Gdk.hs b/GI/Gdk.hs deleted file mode 100644 --- a/GI/Gdk.hs +++ /dev/null @@ -1,46 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk - ( module GI.Gdk.Callbacks , - module GI.Gdk.Constants , - module GI.Gdk.Enums , - module GI.Gdk.Flags , - module GI.Gdk.Functions , - module GI.Gdk.Objects , - module GI.Gdk.Structs , - module GI.Gdk.Unions , - - - - module Data.GI.Base , - - - ) where - -import GI.Gdk.Callbacks -import GI.Gdk.Constants -import GI.Gdk.Enums -import GI.Gdk.Flags -import GI.Gdk.Functions -import GI.Gdk.Objects -import GI.Gdk.Structs -import GI.Gdk.Unions - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -import Data.GI.Base - diff --git a/GI/Gdk/Callbacks.hs b/GI/Gdk/Callbacks.hs deleted file mode 100644 --- a/GI/Gdk/Callbacks.hs +++ /dev/null @@ -1,197 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Callbacks - ( - - -- * Signals --- ** EventFunc - EventFunc , - EventFuncC , - eventFuncClosure , - eventFuncWrapper , - mkEventFunc , - noEventFunc , - - --- ** FilterFunc - FilterFunc , - FilterFuncC , - filterFuncClosure , - filterFuncWrapper , - mkFilterFunc , - noFilterFunc , - - --- ** WindowChildFunc - WindowChildFunc , - WindowChildFuncC , - mkWindowChildFunc , - noWindowChildFunc , - windowChildFuncClosure , - windowChildFuncWrapper , - - --- ** WindowInvalidateHandlerFunc - WindowInvalidateHandlerFunc , - WindowInvalidateHandlerFuncC , - mkWindowInvalidateHandlerFunc , - noWindowInvalidateHandlerFunc , - windowInvalidateHandlerFuncClosure , - windowInvalidateHandlerFuncWrapper , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types - -import qualified GI.Cairo as Cairo - --- callback WindowInvalidateHandlerFunc -windowInvalidateHandlerFuncClosure :: WindowInvalidateHandlerFunc -> IO Closure -windowInvalidateHandlerFuncClosure cb = newCClosure =<< mkWindowInvalidateHandlerFunc wrapped - where wrapped = windowInvalidateHandlerFuncWrapper Nothing cb - -type WindowInvalidateHandlerFuncC = - Ptr Window -> - Ptr Cairo.Region -> - IO () - -foreign import ccall "wrapper" - mkWindowInvalidateHandlerFunc :: WindowInvalidateHandlerFuncC -> IO (FunPtr WindowInvalidateHandlerFuncC) - -type WindowInvalidateHandlerFunc = - Window -> - Cairo.Region -> - IO () - -noWindowInvalidateHandlerFunc :: Maybe WindowInvalidateHandlerFunc -noWindowInvalidateHandlerFunc = Nothing - -windowInvalidateHandlerFuncWrapper :: - Maybe (Ptr (FunPtr (WindowInvalidateHandlerFuncC))) -> - WindowInvalidateHandlerFunc -> - Ptr Window -> - Ptr Cairo.Region -> - IO () -windowInvalidateHandlerFuncWrapper funptrptr _cb window region = do - window' <- (newObject Window) window - region' <- (newBoxed Cairo.Region) region - _cb window' region' - maybeReleaseFunPtr funptrptr - --- callback WindowChildFunc -windowChildFuncClosure :: WindowChildFunc -> IO Closure -windowChildFuncClosure cb = newCClosure =<< mkWindowChildFunc wrapped - where wrapped = windowChildFuncWrapper Nothing cb - -type WindowChildFuncC = - Ptr Window -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkWindowChildFunc :: WindowChildFuncC -> IO (FunPtr WindowChildFuncC) - -type WindowChildFunc = - Window -> - IO Bool - -noWindowChildFunc :: Maybe WindowChildFunc -noWindowChildFunc = Nothing - -windowChildFuncWrapper :: - Maybe (Ptr (FunPtr (WindowChildFuncC))) -> - WindowChildFunc -> - Ptr Window -> - Ptr () -> - IO CInt -windowChildFuncWrapper funptrptr _cb window _ = do - window' <- (newObject Window) window - result <- _cb window' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback FilterFunc -filterFuncClosure :: FilterFunc -> IO Closure -filterFuncClosure cb = newCClosure =<< mkFilterFunc wrapped - where wrapped = filterFuncWrapper Nothing cb - -type FilterFuncC = - Ptr () -> - Ptr Event -> - Ptr () -> - IO CUInt - -foreign import ccall "wrapper" - mkFilterFunc :: FilterFuncC -> IO (FunPtr FilterFuncC) - -type FilterFunc = - Ptr () -> - Event -> - IO FilterReturn - -noFilterFunc :: Maybe FilterFunc -noFilterFunc = Nothing - -filterFuncWrapper :: - Maybe (Ptr (FunPtr (FilterFuncC))) -> - FilterFunc -> - Ptr () -> - Ptr Event -> - Ptr () -> - IO CUInt -filterFuncWrapper funptrptr _cb xevent event _ = do - event' <- (newBoxed Event) event - result <- _cb xevent event' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback EventFunc -eventFuncClosure :: EventFunc -> IO Closure -eventFuncClosure cb = newCClosure =<< mkEventFunc wrapped - where wrapped = eventFuncWrapper Nothing cb - -type EventFuncC = - Ptr Event -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkEventFunc :: EventFuncC -> IO (FunPtr EventFuncC) - -type EventFunc = - Event -> - IO () - -noEventFunc :: Maybe EventFunc -noEventFunc = Nothing - -eventFuncWrapper :: - Maybe (Ptr (FunPtr (EventFuncC))) -> - EventFunc -> - Ptr Event -> - Ptr () -> - IO () -eventFuncWrapper funptrptr _cb event _ = do - event' <- (newBoxed Event) event - _cb event' - maybeReleaseFunPtr funptrptr - - diff --git a/GI/Gdk/Constants.hs b/GI/Gdk/Constants.hs deleted file mode 100644 --- a/GI/Gdk/Constants.hs +++ /dev/null @@ -1,9141 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Constants - ( - pattern PRIORITY_REDRAW , - pattern PARENT_RELATIVE , - pattern MAX_TIMECOORD_AXES , - pattern KEY_zstroke , - pattern KEY_zerosuperior , - pattern KEY_zerosubscript , - pattern KEY_zcaron , - pattern KEY_zacute , - pattern KEY_zabovedot , - pattern KEY_z , - pattern KEY_ytilde , - pattern KEY_yhook , - pattern KEY_ygrave , - pattern KEY_yen , - pattern KEY_ydiaeresis , - pattern KEY_ycircumflex , - pattern KEY_ybelowdot , - pattern KEY_yacute , - pattern KEY_y , - pattern KEY_xabovedot , - pattern KEY_x , - pattern KEY_wgrave , - pattern KEY_wdiaeresis , - pattern KEY_wcircumflex , - pattern KEY_wacute , - pattern KEY_w , - pattern KEY_vt , - pattern KEY_voicedsound , - pattern KEY_vertconnector , - pattern KEY_vertbar , - pattern KEY_variation , - pattern KEY_v , - pattern KEY_utilde , - pattern KEY_uring , - pattern KEY_uptack , - pattern KEY_upstile , - pattern KEY_upshoe , - pattern KEY_uprightcorner , - pattern KEY_upleftcorner , - pattern KEY_upcaret , - pattern KEY_uparrow , - pattern KEY_uogonek , - pattern KEY_union , - pattern KEY_underscore , - pattern KEY_underbar , - pattern KEY_umacron , - pattern KEY_uhorntilde , - pattern KEY_uhornhook , - pattern KEY_uhorngrave , - pattern KEY_uhornbelowdot , - pattern KEY_uhornacute , - pattern KEY_uhorn , - pattern KEY_uhook , - pattern KEY_ugrave , - pattern KEY_udoubleacute , - pattern KEY_udiaeresis , - pattern KEY_ucircumflex , - pattern KEY_ubreve , - pattern KEY_ubelowdot , - pattern KEY_uacute , - pattern KEY_u , - pattern KEY_twothirds , - pattern KEY_twosuperior , - pattern KEY_twosubscript , - pattern KEY_twofifths , - pattern KEY_tslash , - pattern KEY_trademarkincircle , - pattern KEY_trademark , - pattern KEY_topvertsummationconnector , - pattern KEY_topt , - pattern KEY_toprightsummation , - pattern KEY_toprightsqbracket , - pattern KEY_toprightparens , - pattern KEY_topleftsummation , - pattern KEY_topleftsqbracket , - pattern KEY_topleftradical , - pattern KEY_topleftparens , - pattern KEY_topintegral , - pattern KEY_tintegral , - pattern KEY_threesuperior , - pattern KEY_threesubscript , - pattern KEY_threequarters , - pattern KEY_threefifths , - pattern KEY_threeeighths , - pattern KEY_thorn , - pattern KEY_thinspace , - pattern KEY_therefore , - pattern KEY_telephonerecorder , - pattern KEY_telephone , - pattern KEY_tcedilla , - pattern KEY_tcaron , - pattern KEY_tabovedot , - pattern KEY_t , - pattern KEY_stricteq , - pattern KEY_sterling , - pattern KEY_ssharp , - pattern KEY_squareroot , - pattern KEY_space , - pattern KEY_soliddiamond , - pattern KEY_slash , - pattern KEY_sixsuperior , - pattern KEY_sixsubscript , - pattern KEY_singlelowquotemark , - pattern KEY_similarequal , - pattern KEY_signifblank , - pattern KEY_signaturemark , - pattern KEY_sevensuperior , - pattern KEY_sevensubscript , - pattern KEY_seveneighths , - pattern KEY_semivoicedsound , - pattern KEY_semicolon , - pattern KEY_section , - pattern KEY_seconds , - pattern KEY_script_switch , - pattern KEY_scircumflex , - pattern KEY_schwa , - pattern KEY_scedilla , - pattern KEY_scaron , - pattern KEY_sacute , - pattern KEY_sabovedot , - pattern KEY_s , - pattern KEY_righttack , - pattern KEY_rightt , - pattern KEY_rightsinglequotemark , - pattern KEY_rightshoe , - pattern KEY_rightpointer , - pattern KEY_rightopentriangle , - pattern KEY_rightmiddlesummation , - pattern KEY_rightmiddlecurlybrace , - pattern KEY_rightdoublequotemark , - pattern KEY_rightcaret , - pattern KEY_rightarrow , - pattern KEY_rightanglebracket , - pattern KEY_registered , - pattern KEY_rcedilla , - pattern KEY_rcaron , - pattern KEY_radical , - pattern KEY_racute , - pattern KEY_r , - pattern KEY_quoteright , - pattern KEY_quoteleft , - pattern KEY_quotedbl , - pattern KEY_questiondown , - pattern KEY_question , - pattern KEY_quad , - pattern KEY_q , - pattern KEY_punctspace , - pattern KEY_prolongedsound , - pattern KEY_prescription , - pattern KEY_plusminus , - pattern KEY_plus , - pattern KEY_phonographcopyright , - pattern KEY_permille , - pattern KEY_periodcentered , - pattern KEY_period , - pattern KEY_percent , - pattern KEY_partialderivative , - pattern KEY_partdifferential , - pattern KEY_parenright , - pattern KEY_parenleft , - pattern KEY_paragraph , - pattern KEY_pabovedot , - pattern KEY_p , - pattern KEY_overline , - pattern KEY_overbar , - pattern KEY_otilde , - pattern KEY_oslash , - pattern KEY_ordfeminine , - pattern KEY_opentribulletup , - pattern KEY_opentribulletdown , - pattern KEY_openstar , - pattern KEY_openrectbullet , - pattern KEY_ooblique , - pattern KEY_onethird , - pattern KEY_onesuperior , - pattern KEY_onesubscript , - pattern KEY_onesixth , - pattern KEY_onequarter , - pattern KEY_onehalf , - pattern KEY_onefifth , - pattern KEY_oneeighth , - pattern KEY_omacron , - pattern KEY_ohorntilde , - pattern KEY_ohornhook , - pattern KEY_ohorngrave , - pattern KEY_ohornbelowdot , - pattern KEY_ohornacute , - pattern KEY_ohorn , - pattern KEY_ohook , - pattern KEY_ograve , - pattern KEY_ogonek , - pattern KEY_oe , - pattern KEY_odoubleacute , - pattern KEY_odiaeresis , - pattern KEY_ocircumflextilde , - pattern KEY_ocircumflexhook , - pattern KEY_ocircumflexgrave , - pattern KEY_ocircumflexbelowdot , - pattern KEY_ocircumflexacute , - pattern KEY_ocircumflex , - pattern KEY_ocaron , - pattern KEY_obelowdot , - pattern KEY_obarred , - pattern KEY_oacute , - pattern KEY_o , - pattern KEY_numerosign , - pattern KEY_numbersign , - pattern KEY_ntilde , - pattern KEY_notsign , - pattern KEY_notidentical , - pattern KEY_notequal , - pattern KEY_notelementof , - pattern KEY_notapproxeq , - pattern KEY_nobreakspace , - pattern KEY_nl , - pattern KEY_ninesuperior , - pattern KEY_ninesubscript , - pattern KEY_ncedilla , - pattern KEY_ncaron , - pattern KEY_nacute , - pattern KEY_nabla , - pattern KEY_n , - pattern KEY_musicalsharp , - pattern KEY_musicalflat , - pattern KEY_multiply , - pattern KEY_mu , - pattern KEY_minutes , - pattern KEY_minus , - pattern KEY_masculine , - pattern KEY_marker , - pattern KEY_maltesecross , - pattern KEY_malesymbol , - pattern KEY_macron , - pattern KEY_mabovedot , - pattern KEY_m , - pattern KEY_lstroke , - pattern KEY_lowrightcorner , - pattern KEY_lowleftcorner , - pattern KEY_logicalor , - pattern KEY_logicaland , - pattern KEY_lf , - pattern KEY_lessthanequal , - pattern KEY_less , - pattern KEY_lefttack , - pattern KEY_leftt , - pattern KEY_leftsinglequotemark , - pattern KEY_leftshoe , - pattern KEY_leftradical , - pattern KEY_leftpointer , - pattern KEY_leftopentriangle , - pattern KEY_leftmiddlecurlybrace , - pattern KEY_leftdoublequotemark , - pattern KEY_leftcaret , - pattern KEY_leftarrow , - pattern KEY_leftanglebracket , - pattern KEY_lcedilla , - pattern KEY_lcaron , - pattern KEY_lbelowdot , - pattern KEY_latincross , - pattern KEY_lacute , - pattern KEY_l , - pattern KEY_kra , - pattern KEY_kcedilla , - pattern KEY_kappa , - pattern KEY_kana_yu , - pattern KEY_kana_yo , - pattern KEY_kana_ya , - pattern KEY_kana_u , - pattern KEY_kana_tu , - pattern KEY_kana_tsu , - pattern KEY_kana_switch , - pattern KEY_kana_openingbracket , - pattern KEY_kana_o , - pattern KEY_kana_middledot , - pattern KEY_kana_i , - pattern KEY_kana_fullstop , - pattern KEY_kana_e , - pattern KEY_kana_conjunctive , - pattern KEY_kana_comma , - pattern KEY_kana_closingbracket , - pattern KEY_kana_a , - pattern KEY_kana_YU , - pattern KEY_kana_YO , - pattern KEY_kana_YA , - pattern KEY_kana_WO , - pattern KEY_kana_WA , - pattern KEY_kana_U , - pattern KEY_kana_TU , - pattern KEY_kana_TSU , - pattern KEY_kana_TO , - pattern KEY_kana_TI , - pattern KEY_kana_TE , - pattern KEY_kana_TA , - pattern KEY_kana_SU , - pattern KEY_kana_SO , - pattern KEY_kana_SHI , - pattern KEY_kana_SE , - pattern KEY_kana_SA , - pattern KEY_kana_RU , - pattern KEY_kana_RO , - pattern KEY_kana_RI , - pattern KEY_kana_RE , - pattern KEY_kana_RA , - pattern KEY_kana_O , - pattern KEY_kana_NU , - pattern KEY_kana_NO , - pattern KEY_kana_NI , - pattern KEY_kana_NE , - pattern KEY_kana_NA , - pattern KEY_kana_N , - pattern KEY_kana_MU , - pattern KEY_kana_MO , - pattern KEY_kana_MI , - pattern KEY_kana_ME , - pattern KEY_kana_MA , - pattern KEY_kana_KU , - pattern KEY_kana_KO , - pattern KEY_kana_KI , - pattern KEY_kana_KE , - pattern KEY_kana_KA , - pattern KEY_kana_I , - pattern KEY_kana_HU , - pattern KEY_kana_HO , - pattern KEY_kana_HI , - pattern KEY_kana_HE , - pattern KEY_kana_HA , - pattern KEY_kana_FU , - pattern KEY_kana_E , - pattern KEY_kana_CHI , - pattern KEY_kana_A , - pattern KEY_k , - pattern KEY_jot , - pattern KEY_jcircumflex , - pattern KEY_j , - pattern KEY_itilde , - pattern KEY_iogonek , - pattern KEY_intersection , - pattern KEY_integral , - pattern KEY_infinity , - pattern KEY_includes , - pattern KEY_includedin , - pattern KEY_implies , - pattern KEY_imacron , - pattern KEY_ihook , - pattern KEY_igrave , - pattern KEY_ifonlyif , - pattern KEY_idotless , - pattern KEY_idiaeresis , - pattern KEY_identical , - pattern KEY_icircumflex , - pattern KEY_ibreve , - pattern KEY_ibelowdot , - pattern KEY_iacute , - pattern KEY_iTouch , - pattern KEY_i , - pattern KEY_hyphen , - pattern KEY_ht , - pattern KEY_hstroke , - pattern KEY_horizlinescan9 , - pattern KEY_horizlinescan7 , - pattern KEY_horizlinescan5 , - pattern KEY_horizlinescan3 , - pattern KEY_horizlinescan1 , - pattern KEY_horizconnector , - pattern KEY_hexagram , - pattern KEY_hebrew_zayin , - pattern KEY_hebrew_zain , - pattern KEY_hebrew_zadi , - pattern KEY_hebrew_zade , - pattern KEY_hebrew_yod , - pattern KEY_hebrew_waw , - pattern KEY_hebrew_teth , - pattern KEY_hebrew_tet , - pattern KEY_hebrew_taw , - pattern KEY_hebrew_taf , - pattern KEY_hebrew_shin , - pattern KEY_hebrew_samekh , - pattern KEY_hebrew_samech , - pattern KEY_hebrew_resh , - pattern KEY_hebrew_qoph , - pattern KEY_hebrew_pe , - pattern KEY_hebrew_nun , - pattern KEY_hebrew_mem , - pattern KEY_hebrew_lamed , - pattern KEY_hebrew_kuf , - pattern KEY_hebrew_kaph , - pattern KEY_hebrew_het , - pattern KEY_hebrew_he , - pattern KEY_hebrew_gimmel , - pattern KEY_hebrew_gimel , - pattern KEY_hebrew_finalzadi , - pattern KEY_hebrew_finalzade , - pattern KEY_hebrew_finalpe , - pattern KEY_hebrew_finalnun , - pattern KEY_hebrew_finalmem , - pattern KEY_hebrew_finalkaph , - pattern KEY_hebrew_doublelowline , - pattern KEY_hebrew_daleth , - pattern KEY_hebrew_dalet , - pattern KEY_hebrew_chet , - pattern KEY_hebrew_beth , - pattern KEY_hebrew_bet , - pattern KEY_hebrew_ayin , - pattern KEY_hebrew_aleph , - pattern KEY_heart , - pattern KEY_hcircumflex , - pattern KEY_hairspace , - pattern KEY_h , - pattern KEY_guillemotright , - pattern KEY_guillemotleft , - pattern KEY_greaterthanequal , - pattern KEY_greater , - pattern KEY_grave , - pattern KEY_gcircumflex , - pattern KEY_gcedilla , - pattern KEY_gcaron , - pattern KEY_gbreve , - pattern KEY_gabovedot , - pattern KEY_g , - pattern KEY_function , - pattern KEY_fourthroot , - pattern KEY_foursuperior , - pattern KEY_foursubscript , - pattern KEY_fourfifths , - pattern KEY_fivesuperior , - pattern KEY_fivesubscript , - pattern KEY_fivesixths , - pattern KEY_fiveeighths , - pattern KEY_filledtribulletup , - pattern KEY_filledtribulletdown , - pattern KEY_filledrighttribullet , - pattern KEY_filledrectbullet , - pattern KEY_filledlefttribullet , - pattern KEY_figdash , - pattern KEY_ff , - pattern KEY_femalesymbol , - pattern KEY_fabovedot , - pattern KEY_f , - pattern KEY_ezh , - pattern KEY_exclamdown , - pattern KEY_exclam , - pattern KEY_etilde , - pattern KEY_eth , - pattern KEY_equal , - pattern KEY_eogonek , - pattern KEY_enspace , - pattern KEY_enopensquarebullet , - pattern KEY_enopencircbullet , - pattern KEY_eng , - pattern KEY_enfilledsqbullet , - pattern KEY_enfilledcircbullet , - pattern KEY_endash , - pattern KEY_emspace , - pattern KEY_emptyset , - pattern KEY_emopenrectangle , - pattern KEY_emopencircle , - pattern KEY_emfilledrect , - pattern KEY_emfilledcircle , - pattern KEY_emdash , - pattern KEY_emacron , - pattern KEY_em4space , - pattern KEY_em3space , - pattern KEY_ellipsis , - pattern KEY_elementof , - pattern KEY_eightsuperior , - pattern KEY_eightsubscript , - pattern KEY_ehook , - pattern KEY_egrave , - pattern KEY_ediaeresis , - pattern KEY_ecircumflextilde , - pattern KEY_ecircumflexhook , - pattern KEY_ecircumflexgrave , - pattern KEY_ecircumflexbelowdot , - pattern KEY_ecircumflexacute , - pattern KEY_ecircumflex , - pattern KEY_ecaron , - pattern KEY_ebelowdot , - pattern KEY_eacute , - pattern KEY_eabovedot , - pattern KEY_e , - pattern KEY_dstroke , - pattern KEY_downtack , - pattern KEY_downstile , - pattern KEY_downshoe , - pattern KEY_downcaret , - pattern KEY_downarrow , - pattern KEY_doublelowquotemark , - pattern KEY_doubledagger , - pattern KEY_doubleacute , - pattern KEY_doubbaselinedot , - pattern KEY_dollar , - pattern KEY_division , - pattern KEY_dintegral , - pattern KEY_digitspace , - pattern KEY_diamond , - pattern KEY_diaeresis , - pattern KEY_degree , - pattern KEY_decimalpoint , - pattern KEY_dead_voiced_sound , - pattern KEY_dead_u , - pattern KEY_dead_tilde , - pattern KEY_dead_stroke , - pattern KEY_dead_small_schwa , - pattern KEY_dead_semivoiced_sound , - pattern KEY_dead_psili , - pattern KEY_dead_perispomeni , - pattern KEY_dead_ogonek , - pattern KEY_dead_o , - pattern KEY_dead_macron , - pattern KEY_dead_iota , - pattern KEY_dead_invertedbreve , - pattern KEY_dead_i , - pattern KEY_dead_horn , - pattern KEY_dead_hook , - pattern KEY_dead_greek , - pattern KEY_dead_grave , - pattern KEY_dead_e , - pattern KEY_dead_doublegrave , - pattern KEY_dead_doubleacute , - pattern KEY_dead_diaeresis , - pattern KEY_dead_dasia , - pattern KEY_dead_currency , - pattern KEY_dead_circumflex , - pattern KEY_dead_cedilla , - pattern KEY_dead_caron , - pattern KEY_dead_capital_schwa , - pattern KEY_dead_breve , - pattern KEY_dead_belowtilde , - pattern KEY_dead_belowring , - pattern KEY_dead_belowmacron , - pattern KEY_dead_belowdot , - pattern KEY_dead_belowdiaeresis , - pattern KEY_dead_belowcomma , - pattern KEY_dead_belowcircumflex , - pattern KEY_dead_belowbreve , - pattern KEY_dead_acute , - pattern KEY_dead_abovering , - pattern KEY_dead_abovereversedcomma , - pattern KEY_dead_abovedot , - pattern KEY_dead_abovecomma , - pattern KEY_dead_a , - pattern KEY_dead_U , - pattern KEY_dead_O , - pattern KEY_dead_I , - pattern KEY_dead_E , - pattern KEY_dead_A , - pattern KEY_dcaron , - pattern KEY_dagger , - pattern KEY_dabovedot , - pattern KEY_d , - pattern KEY_cursor , - pattern KEY_currency , - pattern KEY_cuberoot , - pattern KEY_crossinglines , - pattern KEY_cr , - pattern KEY_copyright , - pattern KEY_containsas , - pattern KEY_comma , - pattern KEY_colon , - pattern KEY_club , - pattern KEY_circle , - pattern KEY_checkmark , - pattern KEY_checkerboard , - pattern KEY_ch , - pattern KEY_cent , - pattern KEY_cedilla , - pattern KEY_ccircumflex , - pattern KEY_ccedilla , - pattern KEY_ccaron , - pattern KEY_caron , - pattern KEY_caret , - pattern KEY_careof , - pattern KEY_cacute , - pattern KEY_cabovedot , - pattern KEY_c_h , - pattern KEY_c , - pattern KEY_brokenbar , - pattern KEY_breve , - pattern KEY_braille_dots_8 , - pattern KEY_braille_dots_78 , - pattern KEY_braille_dots_7 , - pattern KEY_braille_dots_68 , - pattern KEY_braille_dots_678 , - pattern KEY_braille_dots_67 , - pattern KEY_braille_dots_6 , - pattern KEY_braille_dots_58 , - pattern KEY_braille_dots_578 , - pattern KEY_braille_dots_57 , - pattern KEY_braille_dots_568 , - pattern KEY_braille_dots_5678 , - pattern KEY_braille_dots_567 , - pattern KEY_braille_dots_56 , - pattern KEY_braille_dots_5 , - pattern KEY_braille_dots_48 , - pattern KEY_braille_dots_478 , - pattern KEY_braille_dots_47 , - pattern KEY_braille_dots_468 , - pattern KEY_braille_dots_4678 , - pattern KEY_braille_dots_467 , - pattern KEY_braille_dots_46 , - pattern KEY_braille_dots_458 , - pattern KEY_braille_dots_4578 , - pattern KEY_braille_dots_457 , - pattern KEY_braille_dots_4568 , - pattern KEY_braille_dots_45678 , - pattern KEY_braille_dots_4567 , - pattern KEY_braille_dots_456 , - pattern KEY_braille_dots_45 , - pattern KEY_braille_dots_4 , - pattern KEY_braille_dots_38 , - pattern KEY_braille_dots_378 , - pattern KEY_braille_dots_37 , - pattern KEY_braille_dots_368 , - pattern KEY_braille_dots_3678 , - pattern KEY_braille_dots_367 , - pattern KEY_braille_dots_36 , - pattern KEY_braille_dots_358 , - pattern KEY_braille_dots_3578 , - pattern KEY_braille_dots_357 , - pattern KEY_braille_dots_3568 , - pattern KEY_braille_dots_35678 , - pattern KEY_braille_dots_3567 , - pattern KEY_braille_dots_356 , - pattern KEY_braille_dots_35 , - pattern KEY_braille_dots_348 , - pattern KEY_braille_dots_3478 , - pattern KEY_braille_dots_347 , - pattern KEY_braille_dots_3468 , - pattern KEY_braille_dots_34678 , - pattern KEY_braille_dots_3467 , - pattern KEY_braille_dots_346 , - pattern KEY_braille_dots_3458 , - pattern KEY_braille_dots_34578 , - pattern KEY_braille_dots_3457 , - pattern KEY_braille_dots_34568 , - pattern KEY_braille_dots_345678 , - pattern KEY_braille_dots_34567 , - pattern KEY_braille_dots_3456 , - pattern KEY_braille_dots_345 , - pattern KEY_braille_dots_34 , - pattern KEY_braille_dots_3 , - pattern KEY_braille_dots_28 , - pattern KEY_braille_dots_278 , - pattern KEY_braille_dots_27 , - pattern KEY_braille_dots_268 , - pattern KEY_braille_dots_2678 , - pattern KEY_braille_dots_267 , - pattern KEY_braille_dots_26 , - pattern KEY_braille_dots_258 , - pattern KEY_braille_dots_2578 , - pattern KEY_braille_dots_257 , - pattern KEY_braille_dots_2568 , - pattern KEY_braille_dots_25678 , - pattern KEY_braille_dots_2567 , - pattern KEY_braille_dots_256 , - pattern KEY_braille_dots_25 , - pattern KEY_braille_dots_248 , - pattern KEY_braille_dots_2478 , - pattern KEY_braille_dots_247 , - pattern KEY_braille_dots_2468 , - pattern KEY_braille_dots_24678 , - pattern KEY_braille_dots_2467 , - pattern KEY_braille_dots_246 , - pattern KEY_braille_dots_2458 , - pattern KEY_braille_dots_24578 , - pattern KEY_braille_dots_2457 , - pattern KEY_braille_dots_24568 , - pattern KEY_braille_dots_245678 , - pattern KEY_braille_dots_24567 , - pattern KEY_braille_dots_2456 , - pattern KEY_braille_dots_245 , - pattern KEY_braille_dots_24 , - pattern KEY_braille_dots_238 , - pattern KEY_braille_dots_2378 , - pattern KEY_braille_dots_237 , - pattern KEY_braille_dots_2368 , - pattern KEY_braille_dots_23678 , - pattern KEY_braille_dots_2367 , - pattern KEY_braille_dots_236 , - pattern KEY_braille_dots_2358 , - pattern KEY_braille_dots_23578 , - pattern KEY_braille_dots_2357 , - pattern KEY_braille_dots_23568 , - pattern KEY_braille_dots_235678 , - pattern KEY_braille_dots_23567 , - pattern KEY_braille_dots_2356 , - pattern KEY_braille_dots_235 , - pattern KEY_braille_dots_2348 , - pattern KEY_braille_dots_23478 , - pattern KEY_braille_dots_2347 , - pattern KEY_braille_dots_23468 , - pattern KEY_braille_dots_234678 , - pattern KEY_braille_dots_23467 , - pattern KEY_braille_dots_2346 , - pattern KEY_braille_dots_23458 , - pattern KEY_braille_dots_234578 , - pattern KEY_braille_dots_23457 , - pattern KEY_braille_dots_234568 , - pattern KEY_braille_dots_2345678 , - pattern KEY_braille_dots_234567 , - pattern KEY_braille_dots_23456 , - pattern KEY_braille_dots_2345 , - pattern KEY_braille_dots_234 , - pattern KEY_braille_dots_23 , - pattern KEY_braille_dots_2 , - pattern KEY_braille_dots_18 , - pattern KEY_braille_dots_178 , - pattern KEY_braille_dots_17 , - pattern KEY_braille_dots_168 , - pattern KEY_braille_dots_1678 , - pattern KEY_braille_dots_167 , - pattern KEY_braille_dots_16 , - pattern KEY_braille_dots_158 , - pattern KEY_braille_dots_1578 , - pattern KEY_braille_dots_157 , - pattern KEY_braille_dots_1568 , - pattern KEY_braille_dots_15678 , - pattern KEY_braille_dots_1567 , - pattern KEY_braille_dots_156 , - pattern KEY_braille_dots_15 , - pattern KEY_braille_dots_148 , - pattern KEY_braille_dots_1478 , - pattern KEY_braille_dots_147 , - pattern KEY_braille_dots_1468 , - pattern KEY_braille_dots_14678 , - pattern KEY_braille_dots_1467 , - pattern KEY_braille_dots_146 , - pattern KEY_braille_dots_1458 , - pattern KEY_braille_dots_14578 , - pattern KEY_braille_dots_1457 , - pattern KEY_braille_dots_14568 , - pattern KEY_braille_dots_145678 , - pattern KEY_braille_dots_14567 , - pattern KEY_braille_dots_1456 , - pattern KEY_braille_dots_145 , - pattern KEY_braille_dots_14 , - pattern KEY_braille_dots_138 , - pattern KEY_braille_dots_1378 , - pattern KEY_braille_dots_137 , - pattern KEY_braille_dots_1368 , - pattern KEY_braille_dots_13678 , - pattern KEY_braille_dots_1367 , - pattern KEY_braille_dots_136 , - pattern KEY_braille_dots_1358 , - pattern KEY_braille_dots_13578 , - pattern KEY_braille_dots_1357 , - pattern KEY_braille_dots_13568 , - pattern KEY_braille_dots_135678 , - pattern KEY_braille_dots_13567 , - pattern KEY_braille_dots_1356 , - pattern KEY_braille_dots_135 , - pattern KEY_braille_dots_1348 , - pattern KEY_braille_dots_13478 , - pattern KEY_braille_dots_1347 , - pattern KEY_braille_dots_13468 , - pattern KEY_braille_dots_134678 , - pattern KEY_braille_dots_13467 , - pattern KEY_braille_dots_1346 , - pattern KEY_braille_dots_13458 , - pattern KEY_braille_dots_134578 , - pattern KEY_braille_dots_13457 , - pattern KEY_braille_dots_134568 , - pattern KEY_braille_dots_1345678 , - pattern KEY_braille_dots_134567 , - pattern KEY_braille_dots_13456 , - pattern KEY_braille_dots_1345 , - pattern KEY_braille_dots_134 , - pattern KEY_braille_dots_13 , - pattern KEY_braille_dots_128 , - pattern KEY_braille_dots_1278 , - pattern KEY_braille_dots_127 , - pattern KEY_braille_dots_1268 , - pattern KEY_braille_dots_12678 , - pattern KEY_braille_dots_1267 , - pattern KEY_braille_dots_126 , - pattern KEY_braille_dots_1258 , - pattern KEY_braille_dots_12578 , - pattern KEY_braille_dots_1257 , - pattern KEY_braille_dots_12568 , - pattern KEY_braille_dots_125678 , - pattern KEY_braille_dots_12567 , - pattern KEY_braille_dots_1256 , - pattern KEY_braille_dots_125 , - pattern KEY_braille_dots_1248 , - pattern KEY_braille_dots_12478 , - pattern KEY_braille_dots_1247 , - pattern KEY_braille_dots_12468 , - pattern KEY_braille_dots_124678 , - pattern KEY_braille_dots_12467 , - pattern KEY_braille_dots_1246 , - pattern KEY_braille_dots_12458 , - pattern KEY_braille_dots_124578 , - pattern KEY_braille_dots_12457 , - pattern KEY_braille_dots_124568 , - pattern KEY_braille_dots_1245678 , - pattern KEY_braille_dots_124567 , - pattern KEY_braille_dots_12456 , - pattern KEY_braille_dots_1245 , - pattern KEY_braille_dots_124 , - pattern KEY_braille_dots_1238 , - pattern KEY_braille_dots_12378 , - pattern KEY_braille_dots_1237 , - pattern KEY_braille_dots_12368 , - pattern KEY_braille_dots_123678 , - pattern KEY_braille_dots_12367 , - pattern KEY_braille_dots_1236 , - pattern KEY_braille_dots_12358 , - pattern KEY_braille_dots_123578 , - pattern KEY_braille_dots_12357 , - pattern KEY_braille_dots_123568 , - pattern KEY_braille_dots_1235678 , - pattern KEY_braille_dots_123567 , - pattern KEY_braille_dots_12356 , - pattern KEY_braille_dots_1235 , - pattern KEY_braille_dots_12348 , - pattern KEY_braille_dots_123478 , - pattern KEY_braille_dots_12347 , - pattern KEY_braille_dots_123468 , - pattern KEY_braille_dots_1234678 , - pattern KEY_braille_dots_123467 , - pattern KEY_braille_dots_12346 , - pattern KEY_braille_dots_123458 , - pattern KEY_braille_dots_1234578 , - pattern KEY_braille_dots_123457 , - pattern KEY_braille_dots_1234568 , - pattern KEY_braille_dots_12345678 , - pattern KEY_braille_dots_1234567 , - pattern KEY_braille_dots_123456 , - pattern KEY_braille_dots_12345 , - pattern KEY_braille_dots_1234 , - pattern KEY_braille_dots_123 , - pattern KEY_braille_dots_12 , - pattern KEY_braille_dots_1 , - pattern KEY_braille_dot_9 , - pattern KEY_braille_dot_8 , - pattern KEY_braille_dot_7 , - pattern KEY_braille_dot_6 , - pattern KEY_braille_dot_5 , - pattern KEY_braille_dot_4 , - pattern KEY_braille_dot_3 , - pattern KEY_braille_dot_2 , - pattern KEY_braille_dot_10 , - pattern KEY_braille_dot_1 , - pattern KEY_braille_blank , - pattern KEY_bracketright , - pattern KEY_bracketleft , - pattern KEY_braceright , - pattern KEY_braceleft , - pattern KEY_botvertsummationconnector , - pattern KEY_bott , - pattern KEY_botrightsummation , - pattern KEY_botrightsqbracket , - pattern KEY_botrightparens , - pattern KEY_botleftsummation , - pattern KEY_botleftsqbracket , - pattern KEY_botleftparens , - pattern KEY_botintegral , - pattern KEY_blank , - pattern KEY_because , - pattern KEY_bar , - pattern KEY_ballotcross , - pattern KEY_backslash , - pattern KEY_babovedot , - pattern KEY_b , - pattern KEY_atilde , - pattern KEY_at , - pattern KEY_asterisk , - pattern KEY_asciitilde , - pattern KEY_asciicircum , - pattern KEY_aring , - pattern KEY_approximate , - pattern KEY_approxeq , - pattern KEY_apostrophe , - pattern KEY_aogonek , - pattern KEY_ampersand , - pattern KEY_amacron , - pattern KEY_ahook , - pattern KEY_agrave , - pattern KEY_ae , - pattern KEY_adiaeresis , - pattern KEY_acute , - pattern KEY_acircumflextilde , - pattern KEY_acircumflexhook , - pattern KEY_acircumflexgrave , - pattern KEY_acircumflexbelowdot , - pattern KEY_acircumflexacute , - pattern KEY_acircumflex , - pattern KEY_abrevetilde , - pattern KEY_abrevehook , - pattern KEY_abrevegrave , - pattern KEY_abrevebelowdot , - pattern KEY_abreveacute , - pattern KEY_abreve , - pattern KEY_abovedot , - pattern KEY_abelowdot , - pattern KEY_aacute , - pattern KEY_a , - pattern KEY_Zstroke , - pattern KEY_ZoomOut , - pattern KEY_ZoomIn , - pattern KEY_Zenkaku_Hankaku , - pattern KEY_Zenkaku , - pattern KEY_Zen_Koho , - pattern KEY_Zcaron , - pattern KEY_Zacute , - pattern KEY_Zabovedot , - pattern KEY_Z , - pattern KEY_Ytilde , - pattern KEY_Yhook , - pattern KEY_Ygrave , - pattern KEY_Yellow , - pattern KEY_Ydiaeresis , - pattern KEY_Ycircumflex , - pattern KEY_Ybelowdot , - pattern KEY_Yacute , - pattern KEY_Y , - pattern KEY_Xfer , - pattern KEY_Xabovedot , - pattern KEY_X , - pattern KEY_Word , - pattern KEY_WonSign , - pattern KEY_WindowClear , - pattern KEY_WheelButton , - pattern KEY_Wgrave , - pattern KEY_WebCam , - pattern KEY_Wdiaeresis , - pattern KEY_Wcircumflex , - pattern KEY_WakeUp , - pattern KEY_Wacute , - pattern KEY_WWW , - pattern KEY_WLAN , - pattern KEY_W , - pattern KEY_VoidSymbol , - pattern KEY_View , - pattern KEY_Video , - pattern KEY_VendorHome , - pattern KEY_V , - pattern KEY_Utilde , - pattern KEY_UserPB , - pattern KEY_User2KB , - pattern KEY_User1KB , - pattern KEY_Uring , - pattern KEY_Up , - pattern KEY_Uogonek , - pattern KEY_Ungrab , - pattern KEY_Undo , - pattern KEY_Umacron , - pattern KEY_Ukranian_yi , - pattern KEY_Ukranian_je , - pattern KEY_Ukranian_i , - pattern KEY_Ukranian_YI , - pattern KEY_Ukranian_JE , - pattern KEY_Ukranian_I , - pattern KEY_Ukrainian_yi , - pattern KEY_Ukrainian_ie , - pattern KEY_Ukrainian_i , - pattern KEY_Ukrainian_ghe_with_upturn , - pattern KEY_Ukrainian_YI , - pattern KEY_Ukrainian_IE , - pattern KEY_Ukrainian_I , - pattern KEY_Ukrainian_GHE_WITH_UPTURN , - pattern KEY_Uhorntilde , - pattern KEY_Uhornhook , - pattern KEY_Uhorngrave , - pattern KEY_Uhornbelowdot , - pattern KEY_Uhornacute , - pattern KEY_Uhorn , - pattern KEY_Uhook , - pattern KEY_Ugrave , - pattern KEY_Udoubleacute , - pattern KEY_Udiaeresis , - pattern KEY_Ucircumflex , - pattern KEY_Ubreve , - pattern KEY_Ubelowdot , - pattern KEY_Uacute , - pattern KEY_UWB , - pattern KEY_U , - pattern KEY_Tslash , - pattern KEY_Travel , - pattern KEY_Touroku , - pattern KEY_TouchpadToggle , - pattern KEY_TouchpadOn , - pattern KEY_TouchpadOff , - pattern KEY_TopMenu , - pattern KEY_Tools , - pattern KEY_ToDoList , - pattern KEY_Time , - pattern KEY_Thorn , - pattern KEY_Thai_yoying , - pattern KEY_Thai_yoyak , - pattern KEY_Thai_wowaen , - pattern KEY_Thai_totao , - pattern KEY_Thai_topatak , - pattern KEY_Thai_thothung , - pattern KEY_Thai_thothong , - pattern KEY_Thai_thothan , - pattern KEY_Thai_thothahan , - pattern KEY_Thai_thophuthao , - pattern KEY_Thai_thonangmontho , - pattern KEY_Thai_thanthakhat , - pattern KEY_Thai_sosua , - pattern KEY_Thai_soso , - pattern KEY_Thai_sosala , - pattern KEY_Thai_sorusi , - pattern KEY_Thai_sarauu , - pattern KEY_Thai_sarauee , - pattern KEY_Thai_saraue , - pattern KEY_Thai_sarau , - pattern KEY_Thai_sarao , - pattern KEY_Thai_saraii , - pattern KEY_Thai_sarai , - pattern KEY_Thai_sarae , - pattern KEY_Thai_saraam , - pattern KEY_Thai_saraaimaimuan , - pattern KEY_Thai_saraaimaimalai , - pattern KEY_Thai_saraae , - pattern KEY_Thai_saraaa , - pattern KEY_Thai_saraa , - pattern KEY_Thai_ru , - pattern KEY_Thai_rorua , - pattern KEY_Thai_popla , - pattern KEY_Thai_phosamphao , - pattern KEY_Thai_phophung , - pattern KEY_Thai_phophan , - pattern KEY_Thai_phinthu , - pattern KEY_Thai_paiyannoi , - pattern KEY_Thai_oang , - pattern KEY_Thai_nonu , - pattern KEY_Thai_nonen , - pattern KEY_Thai_nikhahit , - pattern KEY_Thai_ngongu , - pattern KEY_Thai_moma , - pattern KEY_Thai_maiyamok , - pattern KEY_Thai_maitri , - pattern KEY_Thai_maitho , - pattern KEY_Thai_maitaikhu , - pattern KEY_Thai_maihanakat_maitho , - pattern KEY_Thai_maihanakat , - pattern KEY_Thai_maiek , - pattern KEY_Thai_maichattawa , - pattern KEY_Thai_lu , - pattern KEY_Thai_loling , - pattern KEY_Thai_lochula , - pattern KEY_Thai_leksun , - pattern KEY_Thai_leksong , - pattern KEY_Thai_leksi , - pattern KEY_Thai_leksam , - pattern KEY_Thai_lekpaet , - pattern KEY_Thai_leknung , - pattern KEY_Thai_lekkao , - pattern KEY_Thai_lekhok , - pattern KEY_Thai_lekha , - pattern KEY_Thai_lekchet , - pattern KEY_Thai_lakkhangyao , - pattern KEY_Thai_kokai , - pattern KEY_Thai_khorakhang , - pattern KEY_Thai_khokhwai , - pattern KEY_Thai_khokhuat , - pattern KEY_Thai_khokhon , - pattern KEY_Thai_khokhai , - pattern KEY_Thai_honokhuk , - pattern KEY_Thai_hohip , - pattern KEY_Thai_fofan , - pattern KEY_Thai_fofa , - pattern KEY_Thai_dodek , - pattern KEY_Thai_dochada , - pattern KEY_Thai_chochoe , - pattern KEY_Thai_choching , - pattern KEY_Thai_chochang , - pattern KEY_Thai_chochan , - pattern KEY_Thai_bobaimai , - pattern KEY_Thai_baht , - pattern KEY_Terminate_Server , - pattern KEY_Terminal , - pattern KEY_Tcedilla , - pattern KEY_Tcaron , - pattern KEY_TaskPane , - pattern KEY_Tabovedot , - pattern KEY_Tab , - pattern KEY_THORN , - pattern KEY_T , - pattern KEY_Sys_Req , - pattern KEY_Switch_VT_9 , - pattern KEY_Switch_VT_8 , - pattern KEY_Switch_VT_7 , - pattern KEY_Switch_VT_6 , - pattern KEY_Switch_VT_5 , - pattern KEY_Switch_VT_4 , - pattern KEY_Switch_VT_3 , - pattern KEY_Switch_VT_2 , - pattern KEY_Switch_VT_12 , - pattern KEY_Switch_VT_11 , - pattern KEY_Switch_VT_10 , - pattern KEY_Switch_VT_1 , - pattern KEY_Suspend , - pattern KEY_Support , - pattern KEY_Super_R , - pattern KEY_Super_L , - pattern KEY_Subtitle , - pattern KEY_Stop , - pattern KEY_StickyKeys_Enable , - pattern KEY_Start , - pattern KEY_Standby , - pattern KEY_SplitScreen , - pattern KEY_Spell , - pattern KEY_SlowKeys_Enable , - pattern KEY_Sleep , - pattern KEY_Sinh_ya , - pattern KEY_Sinh_va , - pattern KEY_Sinh_uu2 , - pattern KEY_Sinh_uu , - pattern KEY_Sinh_u2 , - pattern KEY_Sinh_u , - pattern KEY_Sinh_ttha , - pattern KEY_Sinh_tta , - pattern KEY_Sinh_thha , - pattern KEY_Sinh_tha , - pattern KEY_Sinh_ssha , - pattern KEY_Sinh_sha , - pattern KEY_Sinh_sa , - pattern KEY_Sinh_ruu2 , - pattern KEY_Sinh_ru2 , - pattern KEY_Sinh_rii , - pattern KEY_Sinh_ri , - pattern KEY_Sinh_ra , - pattern KEY_Sinh_pha , - pattern KEY_Sinh_pa , - pattern KEY_Sinh_oo2 , - pattern KEY_Sinh_oo , - pattern KEY_Sinh_o2 , - pattern KEY_Sinh_o , - pattern KEY_Sinh_nya , - pattern KEY_Sinh_nna , - pattern KEY_Sinh_nja , - pattern KEY_Sinh_nga , - pattern KEY_Sinh_ng2 , - pattern KEY_Sinh_ng , - pattern KEY_Sinh_ndha , - pattern KEY_Sinh_ndda , - pattern KEY_Sinh_na , - pattern KEY_Sinh_mba , - pattern KEY_Sinh_ma , - pattern KEY_Sinh_luu2 , - pattern KEY_Sinh_luu , - pattern KEY_Sinh_lu2 , - pattern KEY_Sinh_lu , - pattern KEY_Sinh_lla , - pattern KEY_Sinh_la , - pattern KEY_Sinh_kunddaliya , - pattern KEY_Sinh_kha , - pattern KEY_Sinh_ka , - pattern KEY_Sinh_jnya , - pattern KEY_Sinh_jha , - pattern KEY_Sinh_ja , - pattern KEY_Sinh_ii2 , - pattern KEY_Sinh_ii , - pattern KEY_Sinh_i2 , - pattern KEY_Sinh_i , - pattern KEY_Sinh_ha , - pattern KEY_Sinh_h2 , - pattern KEY_Sinh_gha , - pattern KEY_Sinh_ga , - pattern KEY_Sinh_fa , - pattern KEY_Sinh_ee2 , - pattern KEY_Sinh_ee , - pattern KEY_Sinh_e2 , - pattern KEY_Sinh_e , - pattern KEY_Sinh_dhha , - pattern KEY_Sinh_dha , - pattern KEY_Sinh_ddha , - pattern KEY_Sinh_dda , - pattern KEY_Sinh_cha , - pattern KEY_Sinh_ca , - pattern KEY_Sinh_bha , - pattern KEY_Sinh_ba , - pattern KEY_Sinh_au2 , - pattern KEY_Sinh_au , - pattern KEY_Sinh_al , - pattern KEY_Sinh_ai2 , - pattern KEY_Sinh_ai , - pattern KEY_Sinh_aee2 , - pattern KEY_Sinh_aee , - pattern KEY_Sinh_ae2 , - pattern KEY_Sinh_ae , - pattern KEY_Sinh_aa2 , - pattern KEY_Sinh_aa , - pattern KEY_Sinh_a , - pattern KEY_SingleCandidate , - pattern KEY_Shop , - pattern KEY_Shift_R , - pattern KEY_Shift_Lock , - pattern KEY_Shift_L , - pattern KEY_Serbian_tshe , - pattern KEY_Serbian_nje , - pattern KEY_Serbian_lje , - pattern KEY_Serbian_je , - pattern KEY_Serbian_dze , - pattern KEY_Serbian_dje , - pattern KEY_Serbian_TSHE , - pattern KEY_Serbian_NJE , - pattern KEY_Serbian_LJE , - pattern KEY_Serbian_JE , - pattern KEY_Serbian_DZE , - pattern KEY_Serbian_DJE , - pattern KEY_Send , - pattern KEY_SelectButton , - pattern KEY_Select , - pattern KEY_Search , - pattern KEY_Scroll_Lock , - pattern KEY_ScrollUp , - pattern KEY_ScrollDown , - pattern KEY_ScrollClick , - pattern KEY_ScreenSaver , - pattern KEY_Scircumflex , - pattern KEY_Scedilla , - pattern KEY_Scaron , - pattern KEY_Save , - pattern KEY_Sacute , - pattern KEY_Sabovedot , - pattern KEY_SCHWA , - pattern KEY_S , - pattern KEY_RupeeSign , - pattern KEY_RotationPB , - pattern KEY_RotationKB , - pattern KEY_RotateWindows , - pattern KEY_Romaji , - pattern KEY_RockerUp , - pattern KEY_RockerEnter , - pattern KEY_RockerDown , - pattern KEY_Right , - pattern KEY_Return , - pattern KEY_Reply , - pattern KEY_RepeatKeys_Enable , - pattern KEY_Reload , - pattern KEY_Refresh , - pattern KEY_Redo , - pattern KEY_Red , - pattern KEY_Rcedilla , - pattern KEY_Rcaron , - pattern KEY_Racute , - pattern KEY_R9 , - pattern KEY_R8 , - pattern KEY_R7 , - pattern KEY_R6 , - pattern KEY_R5 , - pattern KEY_R4 , - pattern KEY_R3 , - pattern KEY_R2 , - pattern KEY_R15 , - pattern KEY_R14 , - pattern KEY_R13 , - pattern KEY_R12 , - pattern KEY_R11 , - pattern KEY_R10 , - pattern KEY_R1 , - pattern KEY_R , - pattern KEY_Q , - pattern KEY_Prior , - pattern KEY_Print , - pattern KEY_PreviousCandidate , - pattern KEY_Prev_Virtual_Screen , - pattern KEY_Prev_VMode , - pattern KEY_PowerOff , - pattern KEY_PowerDown , - pattern KEY_Pointer_UpRight , - pattern KEY_Pointer_UpLeft , - pattern KEY_Pointer_Up , - pattern KEY_Pointer_Right , - pattern KEY_Pointer_Left , - pattern KEY_Pointer_EnableKeys , - pattern KEY_Pointer_Drag_Dflt , - pattern KEY_Pointer_Drag5 , - pattern KEY_Pointer_Drag4 , - pattern KEY_Pointer_Drag3 , - pattern KEY_Pointer_Drag2 , - pattern KEY_Pointer_Drag1 , - pattern KEY_Pointer_DownRight , - pattern KEY_Pointer_DownLeft , - pattern KEY_Pointer_Down , - pattern KEY_Pointer_DfltBtnPrev , - pattern KEY_Pointer_DfltBtnNext , - pattern KEY_Pointer_DblClick_Dflt , - pattern KEY_Pointer_DblClick5 , - pattern KEY_Pointer_DblClick4 , - pattern KEY_Pointer_DblClick3 , - pattern KEY_Pointer_DblClick2 , - pattern KEY_Pointer_DblClick1 , - pattern KEY_Pointer_Button_Dflt , - pattern KEY_Pointer_Button5 , - pattern KEY_Pointer_Button4 , - pattern KEY_Pointer_Button3 , - pattern KEY_Pointer_Button2 , - pattern KEY_Pointer_Button1 , - pattern KEY_Pointer_Accelerate , - pattern KEY_Pictures , - pattern KEY_Phone , - pattern KEY_PesetaSign , - pattern KEY_Pause , - pattern KEY_Paste , - pattern KEY_Page_Up , - pattern KEY_Page_Down , - pattern KEY_Pabovedot , - pattern KEY_P , - pattern KEY_Overlay2_Enable , - pattern KEY_Overlay1_Enable , - pattern KEY_Otilde , - pattern KEY_Oslash , - pattern KEY_Option , - pattern KEY_OpenURL , - pattern KEY_Open , - pattern KEY_Ooblique , - pattern KEY_Omacron , - pattern KEY_Ohorntilde , - pattern KEY_Ohornhook , - pattern KEY_Ohorngrave , - pattern KEY_Ohornbelowdot , - pattern KEY_Ohornacute , - pattern KEY_Ohorn , - pattern KEY_Ohook , - pattern KEY_Ograve , - pattern KEY_OfficeHome , - pattern KEY_Odoubleacute , - pattern KEY_Odiaeresis , - pattern KEY_Ocircumflextilde , - pattern KEY_Ocircumflexhook , - pattern KEY_Ocircumflexgrave , - pattern KEY_Ocircumflexbelowdot , - pattern KEY_Ocircumflexacute , - pattern KEY_Ocircumflex , - pattern KEY_Ocaron , - pattern KEY_Obelowdot , - pattern KEY_Obarred , - pattern KEY_Oacute , - pattern KEY_OE , - pattern KEY_O , - pattern KEY_Num_Lock , - pattern KEY_Ntilde , - pattern KEY_Next_Virtual_Screen , - pattern KEY_Next_VMode , - pattern KEY_Next , - pattern KEY_News , - pattern KEY_NewSheqelSign , - pattern KEY_New , - pattern KEY_Ncedilla , - pattern KEY_Ncaron , - pattern KEY_NairaSign , - pattern KEY_Nacute , - pattern KEY_N , - pattern KEY_MySites , - pattern KEY_MyComputer , - pattern KEY_Music , - pattern KEY_MultipleCandidate , - pattern KEY_Multi_key , - pattern KEY_Muhenkan , - pattern KEY_MouseKeys_Enable , - pattern KEY_MouseKeys_Accel_Enable , - pattern KEY_MonBrightnessUp , - pattern KEY_MonBrightnessDown , - pattern KEY_Mode_switch , - pattern KEY_ModeLock , - pattern KEY_MillSign , - pattern KEY_Meta_R , - pattern KEY_Meta_L , - pattern KEY_Messenger , - pattern KEY_MenuPB , - pattern KEY_MenuKB , - pattern KEY_Menu , - pattern KEY_Memo , - pattern KEY_Meeting , - pattern KEY_Massyo , - pattern KEY_Market , - pattern KEY_MailForward , - pattern KEY_Mail , - pattern KEY_Mae_Koho , - pattern KEY_Macedonia_kje , - pattern KEY_Macedonia_gje , - pattern KEY_Macedonia_dse , - pattern KEY_Macedonia_KJE , - pattern KEY_Macedonia_GJE , - pattern KEY_Macedonia_DSE , - pattern KEY_Mabovedot , - pattern KEY_M , - pattern KEY_Lstroke , - pattern KEY_LogWindowTree , - pattern KEY_LogOff , - pattern KEY_LogGrabInfo , - pattern KEY_LiraSign , - pattern KEY_Linefeed , - pattern KEY_LightBulb , - pattern KEY_Left , - pattern KEY_Lcedilla , - pattern KEY_Lcaron , - pattern KEY_Lbelowdot , - pattern KEY_LaunchF , - pattern KEY_LaunchE , - pattern KEY_LaunchD , - pattern KEY_LaunchC , - pattern KEY_LaunchB , - pattern KEY_LaunchA , - pattern KEY_Launch9 , - pattern KEY_Launch8 , - pattern KEY_Launch7 , - pattern KEY_Launch6 , - pattern KEY_Launch5 , - pattern KEY_Launch4 , - pattern KEY_Launch3 , - pattern KEY_Launch2 , - pattern KEY_Launch1 , - pattern KEY_Launch0 , - pattern KEY_Last_Virtual_Screen , - pattern KEY_Lacute , - pattern KEY_L9 , - pattern KEY_L8 , - pattern KEY_L7 , - pattern KEY_L6 , - pattern KEY_L5 , - pattern KEY_L4 , - pattern KEY_L3 , - pattern KEY_L2 , - pattern KEY_L10 , - pattern KEY_L1 , - pattern KEY_L , - pattern KEY_Korean_Won , - pattern KEY_Kcedilla , - pattern KEY_KbdLightOnOff , - pattern KEY_KbdBrightnessUp , - pattern KEY_KbdBrightnessDown , - pattern KEY_Katakana , - pattern KEY_Kanji_Bangou , - pattern KEY_Kanji , - pattern KEY_Kana_Shift , - pattern KEY_Kana_Lock , - pattern KEY_KP_Up , - pattern KEY_KP_Tab , - pattern KEY_KP_Subtract , - pattern KEY_KP_Space , - pattern KEY_KP_Separator , - pattern KEY_KP_Right , - pattern KEY_KP_Prior , - pattern KEY_KP_Page_Up , - pattern KEY_KP_Page_Down , - pattern KEY_KP_Next , - pattern KEY_KP_Multiply , - pattern KEY_KP_Left , - pattern KEY_KP_Insert , - pattern KEY_KP_Home , - pattern KEY_KP_F4 , - pattern KEY_KP_F3 , - pattern KEY_KP_F2 , - pattern KEY_KP_F1 , - pattern KEY_KP_Equal , - pattern KEY_KP_Enter , - pattern KEY_KP_End , - pattern KEY_KP_Down , - pattern KEY_KP_Divide , - pattern KEY_KP_Delete , - pattern KEY_KP_Decimal , - pattern KEY_KP_Begin , - pattern KEY_KP_Add , - pattern KEY_KP_9 , - pattern KEY_KP_8 , - pattern KEY_KP_7 , - pattern KEY_KP_6 , - pattern KEY_KP_5 , - pattern KEY_KP_4 , - pattern KEY_KP_3 , - pattern KEY_KP_2 , - pattern KEY_KP_1 , - pattern KEY_KP_0 , - pattern KEY_K , - pattern KEY_Jcircumflex , - pattern KEY_J , - pattern KEY_Itilde , - pattern KEY_Iogonek , - pattern KEY_Insert , - pattern KEY_Imacron , - pattern KEY_Ihook , - pattern KEY_Igrave , - pattern KEY_Idiaeresis , - pattern KEY_Icircumflex , - pattern KEY_Ibreve , - pattern KEY_Ibelowdot , - pattern KEY_Iacute , - pattern KEY_Iabovedot , - pattern KEY_ISO_Set_Margin_Right , - pattern KEY_ISO_Set_Margin_Left , - pattern KEY_ISO_Release_Margin_Right , - pattern KEY_ISO_Release_Margin_Left , - pattern KEY_ISO_Release_Both_Margins , - pattern KEY_ISO_Prev_Group_Lock , - pattern KEY_ISO_Prev_Group , - pattern KEY_ISO_Partial_Space_Right , - pattern KEY_ISO_Partial_Space_Left , - pattern KEY_ISO_Partial_Line_Up , - pattern KEY_ISO_Partial_Line_Down , - pattern KEY_ISO_Next_Group_Lock , - pattern KEY_ISO_Next_Group , - pattern KEY_ISO_Move_Line_Up , - pattern KEY_ISO_Move_Line_Down , - pattern KEY_ISO_Lock , - pattern KEY_ISO_Level5_Shift , - pattern KEY_ISO_Level5_Lock , - pattern KEY_ISO_Level5_Latch , - pattern KEY_ISO_Level3_Shift , - pattern KEY_ISO_Level3_Lock , - pattern KEY_ISO_Level3_Latch , - pattern KEY_ISO_Level2_Latch , - pattern KEY_ISO_Left_Tab , - pattern KEY_ISO_Last_Group_Lock , - pattern KEY_ISO_Last_Group , - pattern KEY_ISO_Group_Shift , - pattern KEY_ISO_Group_Lock , - pattern KEY_ISO_Group_Latch , - pattern KEY_ISO_First_Group_Lock , - pattern KEY_ISO_First_Group , - pattern KEY_ISO_Fast_Cursor_Up , - pattern KEY_ISO_Fast_Cursor_Right , - pattern KEY_ISO_Fast_Cursor_Left , - pattern KEY_ISO_Fast_Cursor_Down , - pattern KEY_ISO_Enter , - pattern KEY_ISO_Emphasize , - pattern KEY_ISO_Discontinuous_Underline , - pattern KEY_ISO_Continuous_Underline , - pattern KEY_ISO_Center_Object , - pattern KEY_I , - pattern KEY_Hyper_R , - pattern KEY_Hyper_L , - pattern KEY_Hstroke , - pattern KEY_HotLinks , - pattern KEY_HomePage , - pattern KEY_Home , - pattern KEY_History , - pattern KEY_Hiragana_Katakana , - pattern KEY_Hiragana , - pattern KEY_Hibernate , - pattern KEY_Henkan_Mode , - pattern KEY_Henkan , - pattern KEY_Help , - pattern KEY_Hebrew_switch , - pattern KEY_Hcircumflex , - pattern KEY_Hankaku , - pattern KEY_Hangul_switch , - pattern KEY_Hangul_YeorinHieuh , - pattern KEY_Hangul_YU , - pattern KEY_Hangul_YO , - pattern KEY_Hangul_YI , - pattern KEY_Hangul_YEO , - pattern KEY_Hangul_YE , - pattern KEY_Hangul_YAE , - pattern KEY_Hangul_YA , - pattern KEY_Hangul_WI , - pattern KEY_Hangul_WEO , - pattern KEY_Hangul_WE , - pattern KEY_Hangul_WAE , - pattern KEY_Hangul_WA , - pattern KEY_Hangul_U , - pattern KEY_Hangul_Tieut , - pattern KEY_Hangul_SunkyeongeumPieub , - pattern KEY_Hangul_SunkyeongeumPhieuf , - pattern KEY_Hangul_SunkyeongeumMieum , - pattern KEY_Hangul_Start , - pattern KEY_Hangul_SsangSios , - pattern KEY_Hangul_SsangPieub , - pattern KEY_Hangul_SsangKiyeog , - pattern KEY_Hangul_SsangJieuj , - pattern KEY_Hangul_SsangDikeud , - pattern KEY_Hangul_Special , - pattern KEY_Hangul_Sios , - pattern KEY_Hangul_SingleCandidate , - pattern KEY_Hangul_Romaja , - pattern KEY_Hangul_RieulYeorinHieuh , - pattern KEY_Hangul_RieulTieut , - pattern KEY_Hangul_RieulSios , - pattern KEY_Hangul_RieulPieub , - pattern KEY_Hangul_RieulPhieuf , - pattern KEY_Hangul_RieulMieum , - pattern KEY_Hangul_RieulKiyeog , - pattern KEY_Hangul_RieulHieuh , - pattern KEY_Hangul_Rieul , - pattern KEY_Hangul_PreviousCandidate , - pattern KEY_Hangul_PreHanja , - pattern KEY_Hangul_PostHanja , - pattern KEY_Hangul_PieubSios , - pattern KEY_Hangul_Pieub , - pattern KEY_Hangul_Phieuf , - pattern KEY_Hangul_PanSios , - pattern KEY_Hangul_OE , - pattern KEY_Hangul_O , - pattern KEY_Hangul_NieunJieuj , - pattern KEY_Hangul_NieunHieuh , - pattern KEY_Hangul_Nieun , - pattern KEY_Hangul_MultipleCandidate , - pattern KEY_Hangul_Mieum , - pattern KEY_Hangul_KkogjiDalrinIeung , - pattern KEY_Hangul_KiyeogSios , - pattern KEY_Hangul_Kiyeog , - pattern KEY_Hangul_Khieuq , - pattern KEY_Hangul_Jieuj , - pattern KEY_Hangul_Jeonja , - pattern KEY_Hangul_Jamo , - pattern KEY_Hangul_J_YeorinHieuh , - pattern KEY_Hangul_J_Tieut , - pattern KEY_Hangul_J_SsangSios , - pattern KEY_Hangul_J_SsangKiyeog , - pattern KEY_Hangul_J_Sios , - pattern KEY_Hangul_J_RieulTieut , - pattern KEY_Hangul_J_RieulSios , - pattern KEY_Hangul_J_RieulPieub , - pattern KEY_Hangul_J_RieulPhieuf , - pattern KEY_Hangul_J_RieulMieum , - pattern KEY_Hangul_J_RieulKiyeog , - pattern KEY_Hangul_J_RieulHieuh , - pattern KEY_Hangul_J_Rieul , - pattern KEY_Hangul_J_PieubSios , - pattern KEY_Hangul_J_Pieub , - pattern KEY_Hangul_J_Phieuf , - pattern KEY_Hangul_J_PanSios , - pattern KEY_Hangul_J_NieunJieuj , - pattern KEY_Hangul_J_NieunHieuh , - pattern KEY_Hangul_J_Nieun , - pattern KEY_Hangul_J_Mieum , - pattern KEY_Hangul_J_KkogjiDalrinIeung , - pattern KEY_Hangul_J_KiyeogSios , - pattern KEY_Hangul_J_Kiyeog , - pattern KEY_Hangul_J_Khieuq , - pattern KEY_Hangul_J_Jieuj , - pattern KEY_Hangul_J_Ieung , - pattern KEY_Hangul_J_Hieuh , - pattern KEY_Hangul_J_Dikeud , - pattern KEY_Hangul_J_Cieuc , - pattern KEY_Hangul_Ieung , - pattern KEY_Hangul_I , - pattern KEY_Hangul_Hieuh , - pattern KEY_Hangul_Hanja , - pattern KEY_Hangul_End , - pattern KEY_Hangul_EU , - pattern KEY_Hangul_EO , - pattern KEY_Hangul_E , - pattern KEY_Hangul_Dikeud , - pattern KEY_Hangul_Codeinput , - pattern KEY_Hangul_Cieuc , - pattern KEY_Hangul_Banja , - pattern KEY_Hangul_AraeAE , - pattern KEY_Hangul_AraeA , - pattern KEY_Hangul_AE , - pattern KEY_Hangul_A , - pattern KEY_Hangul , - pattern KEY_H , - pattern KEY_Green , - pattern KEY_Greek_zeta , - pattern KEY_Greek_xi , - pattern KEY_Greek_upsilondieresis , - pattern KEY_Greek_upsilonaccentdieresis , - pattern KEY_Greek_upsilonaccent , - pattern KEY_Greek_upsilon , - pattern KEY_Greek_theta , - pattern KEY_Greek_tau , - pattern KEY_Greek_switch , - pattern KEY_Greek_sigma , - pattern KEY_Greek_rho , - pattern KEY_Greek_psi , - pattern KEY_Greek_pi , - pattern KEY_Greek_phi , - pattern KEY_Greek_omicronaccent , - pattern KEY_Greek_omicron , - pattern KEY_Greek_omegaaccent , - pattern KEY_Greek_omega , - pattern KEY_Greek_nu , - pattern KEY_Greek_mu , - pattern KEY_Greek_lamda , - pattern KEY_Greek_lambda , - pattern KEY_Greek_kappa , - pattern KEY_Greek_iotadieresis , - pattern KEY_Greek_iotaaccentdieresis , - pattern KEY_Greek_iotaaccent , - pattern KEY_Greek_iota , - pattern KEY_Greek_horizbar , - pattern KEY_Greek_gamma , - pattern KEY_Greek_finalsmallsigma , - pattern KEY_Greek_etaaccent , - pattern KEY_Greek_eta , - pattern KEY_Greek_epsilonaccent , - pattern KEY_Greek_epsilon , - pattern KEY_Greek_delta , - pattern KEY_Greek_chi , - pattern KEY_Greek_beta , - pattern KEY_Greek_alphaaccent , - pattern KEY_Greek_alpha , - pattern KEY_Greek_accentdieresis , - pattern KEY_Greek_ZETA , - pattern KEY_Greek_XI , - pattern KEY_Greek_UPSILONdieresis , - pattern KEY_Greek_UPSILONaccent , - pattern KEY_Greek_UPSILON , - pattern KEY_Greek_THETA , - pattern KEY_Greek_TAU , - pattern KEY_Greek_SIGMA , - pattern KEY_Greek_RHO , - pattern KEY_Greek_PSI , - pattern KEY_Greek_PI , - pattern KEY_Greek_PHI , - pattern KEY_Greek_OMICRONaccent , - pattern KEY_Greek_OMICRON , - pattern KEY_Greek_OMEGAaccent , - pattern KEY_Greek_OMEGA , - pattern KEY_Greek_NU , - pattern KEY_Greek_MU , - pattern KEY_Greek_LAMDA , - pattern KEY_Greek_LAMBDA , - pattern KEY_Greek_KAPPA , - pattern KEY_Greek_IOTAdieresis , - pattern KEY_Greek_IOTAdiaeresis , - pattern KEY_Greek_IOTAaccent , - pattern KEY_Greek_IOTA , - pattern KEY_Greek_GAMMA , - pattern KEY_Greek_ETAaccent , - pattern KEY_Greek_ETA , - pattern KEY_Greek_EPSILONaccent , - pattern KEY_Greek_EPSILON , - pattern KEY_Greek_DELTA , - pattern KEY_Greek_CHI , - pattern KEY_Greek_BETA , - pattern KEY_Greek_ALPHAaccent , - pattern KEY_Greek_ALPHA , - pattern KEY_Go , - pattern KEY_Georgian_zhar , - pattern KEY_Georgian_zen , - pattern KEY_Georgian_xan , - pattern KEY_Georgian_we , - pattern KEY_Georgian_vin , - pattern KEY_Georgian_un , - pattern KEY_Georgian_tar , - pattern KEY_Georgian_tan , - pattern KEY_Georgian_shin , - pattern KEY_Georgian_san , - pattern KEY_Georgian_rae , - pattern KEY_Georgian_qar , - pattern KEY_Georgian_phar , - pattern KEY_Georgian_par , - pattern KEY_Georgian_on , - pattern KEY_Georgian_nar , - pattern KEY_Georgian_man , - pattern KEY_Georgian_las , - pattern KEY_Georgian_khar , - pattern KEY_Georgian_kan , - pattern KEY_Georgian_jil , - pattern KEY_Georgian_jhan , - pattern KEY_Georgian_in , - pattern KEY_Georgian_hoe , - pattern KEY_Georgian_hie , - pattern KEY_Georgian_he , - pattern KEY_Georgian_har , - pattern KEY_Georgian_hae , - pattern KEY_Georgian_ghan , - pattern KEY_Georgian_gan , - pattern KEY_Georgian_fi , - pattern KEY_Georgian_en , - pattern KEY_Georgian_don , - pattern KEY_Georgian_cil , - pattern KEY_Georgian_chin , - pattern KEY_Georgian_char , - pattern KEY_Georgian_can , - pattern KEY_Georgian_ban , - pattern KEY_Georgian_an , - pattern KEY_Gcircumflex , - pattern KEY_Gcedilla , - pattern KEY_Gcaron , - pattern KEY_Gbreve , - pattern KEY_Game , - pattern KEY_Gabovedot , - pattern KEY_G , - pattern KEY_FrameForward , - pattern KEY_FrameBack , - pattern KEY_Forward , - pattern KEY_First_Virtual_Screen , - pattern KEY_Find , - pattern KEY_Finance , - pattern KEY_Favorites , - pattern KEY_Farsi_yeh , - pattern KEY_Farsi_9 , - pattern KEY_Farsi_8 , - pattern KEY_Farsi_7 , - pattern KEY_Farsi_6 , - pattern KEY_Farsi_5 , - pattern KEY_Farsi_4 , - pattern KEY_Farsi_3 , - pattern KEY_Farsi_2 , - pattern KEY_Farsi_1 , - pattern KEY_Farsi_0 , - pattern KEY_Fabovedot , - pattern KEY_FFrancSign , - pattern KEY_F9 , - pattern KEY_F8 , - pattern KEY_F7 , - pattern KEY_F6 , - pattern KEY_F5 , - pattern KEY_F4 , - pattern KEY_F35 , - pattern KEY_F34 , - pattern KEY_F33 , - pattern KEY_F32 , - pattern KEY_F31 , - pattern KEY_F30 , - pattern KEY_F3 , - pattern KEY_F29 , - pattern KEY_F28 , - pattern KEY_F27 , - pattern KEY_F26 , - pattern KEY_F25 , - pattern KEY_F24 , - pattern KEY_F23 , - pattern KEY_F22 , - pattern KEY_F21 , - pattern KEY_F20 , - pattern KEY_F2 , - pattern KEY_F19 , - pattern KEY_F18 , - pattern KEY_F17 , - pattern KEY_F16 , - pattern KEY_F15 , - pattern KEY_F14 , - pattern KEY_F13 , - pattern KEY_F12 , - pattern KEY_F11 , - pattern KEY_F10 , - pattern KEY_F1 , - pattern KEY_F , - pattern KEY_Explorer , - pattern KEY_Execute , - pattern KEY_Excel , - pattern KEY_EuroSign , - pattern KEY_Etilde , - pattern KEY_Eth , - pattern KEY_Escape , - pattern KEY_Eogonek , - pattern KEY_End , - pattern KEY_Emacron , - pattern KEY_Eject , - pattern KEY_Eisu_toggle , - pattern KEY_Eisu_Shift , - pattern KEY_Ehook , - pattern KEY_Egrave , - pattern KEY_Ediaeresis , - pattern KEY_EcuSign , - pattern KEY_Ecircumflextilde , - pattern KEY_Ecircumflexhook , - pattern KEY_Ecircumflexgrave , - pattern KEY_Ecircumflexbelowdot , - pattern KEY_Ecircumflexacute , - pattern KEY_Ecircumflex , - pattern KEY_Ecaron , - pattern KEY_Ebelowdot , - pattern KEY_Eacute , - pattern KEY_Eabovedot , - pattern KEY_EZH , - pattern KEY_ETH , - pattern KEY_ENG , - pattern KEY_E , - pattern KEY_Dstroke , - pattern KEY_Down , - pattern KEY_DongSign , - pattern KEY_Documents , - pattern KEY_Display , - pattern KEY_Delete , - pattern KEY_Dcaron , - pattern KEY_Dabovedot , - pattern KEY_DOS , - pattern KEY_D , - pattern KEY_Cyrillic_zhe_descender , - pattern KEY_Cyrillic_zhe , - pattern KEY_Cyrillic_ze , - pattern KEY_Cyrillic_yu , - pattern KEY_Cyrillic_yeru , - pattern KEY_Cyrillic_ya , - pattern KEY_Cyrillic_ve , - pattern KEY_Cyrillic_u_straight_bar , - pattern KEY_Cyrillic_u_straight , - pattern KEY_Cyrillic_u_macron , - pattern KEY_Cyrillic_u , - pattern KEY_Cyrillic_tse , - pattern KEY_Cyrillic_te , - pattern KEY_Cyrillic_softsign , - pattern KEY_Cyrillic_shorti , - pattern KEY_Cyrillic_shha , - pattern KEY_Cyrillic_shcha , - pattern KEY_Cyrillic_sha , - pattern KEY_Cyrillic_schwa , - pattern KEY_Cyrillic_pe , - pattern KEY_Cyrillic_o_bar , - pattern KEY_Cyrillic_o , - pattern KEY_Cyrillic_nje , - pattern KEY_Cyrillic_lje , - pattern KEY_Cyrillic_ka_vertstroke , - pattern KEY_Cyrillic_ka_descender , - pattern KEY_Cyrillic_ka , - pattern KEY_Cyrillic_je , - pattern KEY_Cyrillic_io , - pattern KEY_Cyrillic_ie , - pattern KEY_Cyrillic_i_macron , - pattern KEY_Cyrillic_i , - pattern KEY_Cyrillic_hardsign , - pattern KEY_Cyrillic_ha_descender , - pattern KEY_Cyrillic_ha , - pattern KEY_Cyrillic_ghe_bar , - pattern KEY_Cyrillic_ghe , - pattern KEY_Cyrillic_es , - pattern KEY_Cyrillic_er , - pattern KEY_Cyrillic_en_descender , - pattern KEY_Cyrillic_en , - pattern KEY_Cyrillic_em , - pattern KEY_Cyrillic_el , - pattern KEY_Cyrillic_ef , - pattern KEY_Cyrillic_e , - pattern KEY_Cyrillic_dzhe , - pattern KEY_Cyrillic_de , - pattern KEY_Cyrillic_che_vertstroke , - pattern KEY_Cyrillic_che_descender , - pattern KEY_Cyrillic_che , - pattern KEY_Cyrillic_be , - pattern KEY_Cyrillic_a , - pattern KEY_Cyrillic_ZHE_descender , - pattern KEY_Cyrillic_ZHE , - pattern KEY_Cyrillic_ZE , - pattern KEY_Cyrillic_YU , - pattern KEY_Cyrillic_YERU , - pattern KEY_Cyrillic_YA , - pattern KEY_Cyrillic_VE , - pattern KEY_Cyrillic_U_straight_bar , - pattern KEY_Cyrillic_U_straight , - pattern KEY_Cyrillic_U_macron , - pattern KEY_Cyrillic_U , - pattern KEY_Cyrillic_TSE , - pattern KEY_Cyrillic_TE , - pattern KEY_Cyrillic_SOFTSIGN , - pattern KEY_Cyrillic_SHORTI , - pattern KEY_Cyrillic_SHHA , - pattern KEY_Cyrillic_SHCHA , - pattern KEY_Cyrillic_SHA , - pattern KEY_Cyrillic_SCHWA , - pattern KEY_Cyrillic_PE , - pattern KEY_Cyrillic_O_bar , - pattern KEY_Cyrillic_O , - pattern KEY_Cyrillic_NJE , - pattern KEY_Cyrillic_LJE , - pattern KEY_Cyrillic_KA_vertstroke , - pattern KEY_Cyrillic_KA_descender , - pattern KEY_Cyrillic_KA , - pattern KEY_Cyrillic_JE , - pattern KEY_Cyrillic_I_macron , - pattern KEY_Cyrillic_IO , - pattern KEY_Cyrillic_IE , - pattern KEY_Cyrillic_I , - pattern KEY_Cyrillic_HA_descender , - pattern KEY_Cyrillic_HARDSIGN , - pattern KEY_Cyrillic_HA , - pattern KEY_Cyrillic_GHE_bar , - pattern KEY_Cyrillic_GHE , - pattern KEY_Cyrillic_ES , - pattern KEY_Cyrillic_ER , - pattern KEY_Cyrillic_EN_descender , - pattern KEY_Cyrillic_EN , - pattern KEY_Cyrillic_EM , - pattern KEY_Cyrillic_EL , - pattern KEY_Cyrillic_EF , - pattern KEY_Cyrillic_E , - pattern KEY_Cyrillic_DZHE , - pattern KEY_Cyrillic_DE , - pattern KEY_Cyrillic_CHE_vertstroke , - pattern KEY_Cyrillic_CHE_descender , - pattern KEY_Cyrillic_CHE , - pattern KEY_Cyrillic_BE , - pattern KEY_Cyrillic_A , - pattern KEY_CycleAngle , - pattern KEY_Cut , - pattern KEY_CruzeiroSign , - pattern KEY_Copy , - pattern KEY_Control_R , - pattern KEY_Control_L , - pattern KEY_ContrastAdjust , - pattern KEY_Community , - pattern KEY_ColonSign , - pattern KEY_Codeinput , - pattern KEY_Close , - pattern KEY_ClearGrab , - pattern KEY_Clear , - pattern KEY_Ch , - pattern KEY_Ccircumflex , - pattern KEY_Ccedilla , - pattern KEY_Ccaron , - pattern KEY_Caps_Lock , - pattern KEY_Cancel , - pattern KEY_Calendar , - pattern KEY_Calculator , - pattern KEY_Cacute , - pattern KEY_Cabovedot , - pattern KEY_C_h , - pattern KEY_C_H , - pattern KEY_CH , - pattern KEY_CD , - pattern KEY_C , - pattern KEY_Byelorussian_shortu , - pattern KEY_Byelorussian_SHORTU , - pattern KEY_BrightnessAdjust , - pattern KEY_Break , - pattern KEY_BounceKeys_Enable , - pattern KEY_Book , - pattern KEY_Bluetooth , - pattern KEY_Blue , - pattern KEY_Begin , - pattern KEY_Battery , - pattern KEY_BackSpace , - pattern KEY_BackForward , - pattern KEY_Back , - pattern KEY_Babovedot , - pattern KEY_B , - pattern KEY_Away , - pattern KEY_AudioStop , - pattern KEY_AudioRewind , - pattern KEY_AudioRepeat , - pattern KEY_AudioRecord , - pattern KEY_AudioRandomPlay , - pattern KEY_AudioRaiseVolume , - pattern KEY_AudioPrev , - pattern KEY_AudioPlay , - pattern KEY_AudioPause , - pattern KEY_AudioNext , - pattern KEY_AudioMute , - pattern KEY_AudioMicMute , - pattern KEY_AudioMedia , - pattern KEY_AudioLowerVolume , - pattern KEY_AudioForward , - pattern KEY_AudioCycleTrack , - pattern KEY_AudibleBell_Enable , - pattern KEY_Atilde , - pattern KEY_Armenian_zhe , - pattern KEY_Armenian_za , - pattern KEY_Armenian_yentamna , - pattern KEY_Armenian_yech , - pattern KEY_Armenian_vyun , - pattern KEY_Armenian_vo , - pattern KEY_Armenian_vev , - pattern KEY_Armenian_verjaket , - pattern KEY_Armenian_tyun , - pattern KEY_Armenian_tso , - pattern KEY_Armenian_tsa , - pattern KEY_Armenian_to , - pattern KEY_Armenian_tche , - pattern KEY_Armenian_shesht , - pattern KEY_Armenian_sha , - pattern KEY_Armenian_separation_mark , - pattern KEY_Armenian_se , - pattern KEY_Armenian_re , - pattern KEY_Armenian_ra , - pattern KEY_Armenian_question , - pattern KEY_Armenian_pyur , - pattern KEY_Armenian_pe , - pattern KEY_Armenian_paruyk , - pattern KEY_Armenian_o , - pattern KEY_Armenian_nu , - pattern KEY_Armenian_men , - pattern KEY_Armenian_lyun , - pattern KEY_Armenian_ligature_ew , - pattern KEY_Armenian_khe , - pattern KEY_Armenian_ken , - pattern KEY_Armenian_ke , - pattern KEY_Armenian_je , - pattern KEY_Armenian_ini , - pattern KEY_Armenian_hyphen , - pattern KEY_Armenian_ho , - pattern KEY_Armenian_hi , - pattern KEY_Armenian_gim , - pattern KEY_Armenian_ghat , - pattern KEY_Armenian_full_stop , - pattern KEY_Armenian_fe , - pattern KEY_Armenian_exclam , - pattern KEY_Armenian_e , - pattern KEY_Armenian_dza , - pattern KEY_Armenian_da , - pattern KEY_Armenian_cha , - pattern KEY_Armenian_but , - pattern KEY_Armenian_ben , - pattern KEY_Armenian_ayb , - pattern KEY_Armenian_at , - pattern KEY_Armenian_apostrophe , - pattern KEY_Armenian_amanak , - pattern KEY_Armenian_accent , - pattern KEY_Armenian_ZHE , - pattern KEY_Armenian_ZA , - pattern KEY_Armenian_YECH , - pattern KEY_Armenian_VYUN , - pattern KEY_Armenian_VO , - pattern KEY_Armenian_VEV , - pattern KEY_Armenian_TYUN , - pattern KEY_Armenian_TSO , - pattern KEY_Armenian_TSA , - pattern KEY_Armenian_TO , - pattern KEY_Armenian_TCHE , - pattern KEY_Armenian_SHA , - pattern KEY_Armenian_SE , - pattern KEY_Armenian_RE , - pattern KEY_Armenian_RA , - pattern KEY_Armenian_PYUR , - pattern KEY_Armenian_PE , - pattern KEY_Armenian_O , - pattern KEY_Armenian_NU , - pattern KEY_Armenian_MEN , - pattern KEY_Armenian_LYUN , - pattern KEY_Armenian_KHE , - pattern KEY_Armenian_KEN , - pattern KEY_Armenian_KE , - pattern KEY_Armenian_JE , - pattern KEY_Armenian_INI , - pattern KEY_Armenian_HO , - pattern KEY_Armenian_HI , - pattern KEY_Armenian_GIM , - pattern KEY_Armenian_GHAT , - pattern KEY_Armenian_FE , - pattern KEY_Armenian_E , - pattern KEY_Armenian_DZA , - pattern KEY_Armenian_DA , - pattern KEY_Armenian_CHA , - pattern KEY_Armenian_BEN , - pattern KEY_Armenian_AYB , - pattern KEY_Armenian_AT , - pattern KEY_Aring , - pattern KEY_Arabic_zain , - pattern KEY_Arabic_zah , - pattern KEY_Arabic_yeh_baree , - pattern KEY_Arabic_yeh , - pattern KEY_Arabic_waw , - pattern KEY_Arabic_veh , - pattern KEY_Arabic_tteh , - pattern KEY_Arabic_theh , - pattern KEY_Arabic_thal , - pattern KEY_Arabic_tehmarbuta , - pattern KEY_Arabic_teh , - pattern KEY_Arabic_tcheh , - pattern KEY_Arabic_tatweel , - pattern KEY_Arabic_tah , - pattern KEY_Arabic_switch , - pattern KEY_Arabic_superscript_alef , - pattern KEY_Arabic_sukun , - pattern KEY_Arabic_sheen , - pattern KEY_Arabic_shadda , - pattern KEY_Arabic_semicolon , - pattern KEY_Arabic_seen , - pattern KEY_Arabic_sad , - pattern KEY_Arabic_rreh , - pattern KEY_Arabic_ra , - pattern KEY_Arabic_question_mark , - pattern KEY_Arabic_qaf , - pattern KEY_Arabic_percent , - pattern KEY_Arabic_peh , - pattern KEY_Arabic_noon_ghunna , - pattern KEY_Arabic_noon , - pattern KEY_Arabic_meem , - pattern KEY_Arabic_maddaonalef , - pattern KEY_Arabic_madda_above , - pattern KEY_Arabic_lam , - pattern KEY_Arabic_khah , - pattern KEY_Arabic_keheh , - pattern KEY_Arabic_kasratan , - pattern KEY_Arabic_kasra , - pattern KEY_Arabic_kaf , - pattern KEY_Arabic_jeh , - pattern KEY_Arabic_jeem , - pattern KEY_Arabic_heh_goal , - pattern KEY_Arabic_heh_doachashmee , - pattern KEY_Arabic_heh , - pattern KEY_Arabic_hamzaunderalef , - pattern KEY_Arabic_hamzaonyeh , - pattern KEY_Arabic_hamzaonwaw , - pattern KEY_Arabic_hamzaonalef , - pattern KEY_Arabic_hamza_below , - pattern KEY_Arabic_hamza_above , - pattern KEY_Arabic_hamza , - pattern KEY_Arabic_hah , - pattern KEY_Arabic_ha , - pattern KEY_Arabic_ghain , - pattern KEY_Arabic_gaf , - pattern KEY_Arabic_fullstop , - pattern KEY_Arabic_feh , - pattern KEY_Arabic_fathatan , - pattern KEY_Arabic_fatha , - pattern KEY_Arabic_farsi_yeh , - pattern KEY_Arabic_ddal , - pattern KEY_Arabic_dammatan , - pattern KEY_Arabic_damma , - pattern KEY_Arabic_dal , - pattern KEY_Arabic_dad , - pattern KEY_Arabic_comma , - pattern KEY_Arabic_beh , - pattern KEY_Arabic_alefmaksura , - pattern KEY_Arabic_alef , - pattern KEY_Arabic_ain , - pattern KEY_Arabic_9 , - pattern KEY_Arabic_8 , - pattern KEY_Arabic_7 , - pattern KEY_Arabic_6 , - pattern KEY_Arabic_5 , - pattern KEY_Arabic_4 , - pattern KEY_Arabic_3 , - pattern KEY_Arabic_2 , - pattern KEY_Arabic_1 , - pattern KEY_Arabic_0 , - pattern KEY_ApplicationRight , - pattern KEY_ApplicationLeft , - pattern KEY_Aogonek , - pattern KEY_Amacron , - pattern KEY_Alt_R , - pattern KEY_Alt_L , - pattern KEY_Ahook , - pattern KEY_Agrave , - pattern KEY_Adiaeresis , - pattern KEY_AddFavorite , - pattern KEY_Acircumflextilde , - pattern KEY_Acircumflexhook , - pattern KEY_Acircumflexgrave , - pattern KEY_Acircumflexbelowdot , - pattern KEY_Acircumflexacute , - pattern KEY_Acircumflex , - pattern KEY_AccessX_Feedback_Enable , - pattern KEY_AccessX_Enable , - pattern KEY_Abrevetilde , - pattern KEY_Abrevehook , - pattern KEY_Abrevegrave , - pattern KEY_Abrevebelowdot , - pattern KEY_Abreveacute , - pattern KEY_Abreve , - pattern KEY_Abelowdot , - pattern KEY_Aacute , - pattern KEY_AE , - pattern KEY_A , - pattern KEY_9 , - pattern KEY_8 , - pattern KEY_7 , - pattern KEY_6 , - pattern KEY_5 , - pattern KEY_4 , - pattern KEY_3270_Test , - pattern KEY_3270_Setup , - pattern KEY_3270_Rule , - pattern KEY_3270_Right2 , - pattern KEY_3270_Reset , - pattern KEY_3270_Record , - pattern KEY_3270_Quit , - pattern KEY_3270_PrintScreen , - pattern KEY_3270_Play , - pattern KEY_3270_PA3 , - pattern KEY_3270_PA2 , - pattern KEY_3270_PA1 , - pattern KEY_3270_Left2 , - pattern KEY_3270_KeyClick , - pattern KEY_3270_Jump , - pattern KEY_3270_Ident , - pattern KEY_3270_FieldMark , - pattern KEY_3270_ExSelect , - pattern KEY_3270_EraseInput , - pattern KEY_3270_EraseEOF , - pattern KEY_3270_Enter , - pattern KEY_3270_Duplicate , - pattern KEY_3270_DeleteWord , - pattern KEY_3270_CursorSelect , - pattern KEY_3270_CursorBlink , - pattern KEY_3270_Copy , - pattern KEY_3270_ChangeScreen , - pattern KEY_3270_BackTab , - pattern KEY_3270_Attn , - pattern KEY_3270_AltCursor , - pattern KEY_3 , - pattern KEY_2 , - pattern KEY_1 , - pattern KEY_0 , - pattern EVENT_STOP , - pattern EVENT_PROPAGATE , - pattern CURRENT_TIME , - pattern BUTTON_SECONDARY , - pattern BUTTON_PRIMARY , - pattern BUTTON_MIDDLE , - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - - -pattern PRIORITY_REDRAW = 20 :: Int32 - - -pattern PARENT_RELATIVE = 1 :: Int32 - - -pattern MAX_TIMECOORD_AXES = 128 :: Int32 - - -pattern KEY_zstroke = 16777654 :: Int32 - - -pattern KEY_zerosuperior = 16785520 :: Int32 - - -pattern KEY_zerosubscript = 16785536 :: Int32 - - -pattern KEY_zcaron = 446 :: Int32 - - -pattern KEY_zacute = 444 :: Int32 - - -pattern KEY_zabovedot = 447 :: Int32 - - -pattern KEY_z = 122 :: Int32 - - -pattern KEY_ytilde = 16785145 :: Int32 - - -pattern KEY_yhook = 16785143 :: Int32 - - -pattern KEY_ygrave = 16785139 :: Int32 - - -pattern KEY_yen = 165 :: Int32 - - -pattern KEY_ydiaeresis = 255 :: Int32 - - -pattern KEY_ycircumflex = 16777591 :: Int32 - - -pattern KEY_ybelowdot = 16785141 :: Int32 - - -pattern KEY_yacute = 253 :: Int32 - - -pattern KEY_y = 121 :: Int32 - - -pattern KEY_xabovedot = 16785035 :: Int32 - - -pattern KEY_x = 120 :: Int32 - - -pattern KEY_wgrave = 16785025 :: Int32 - - -pattern KEY_wdiaeresis = 16785029 :: Int32 - - -pattern KEY_wcircumflex = 16777589 :: Int32 - - -pattern KEY_wacute = 16785027 :: Int32 - - -pattern KEY_w = 119 :: Int32 - - -pattern KEY_vt = 2537 :: Int32 - - -pattern KEY_voicedsound = 1246 :: Int32 - - -pattern KEY_vertconnector = 2214 :: Int32 - - -pattern KEY_vertbar = 2552 :: Int32 - - -pattern KEY_variation = 2241 :: Int32 - - -pattern KEY_v = 118 :: Int32 - - -pattern KEY_utilde = 1021 :: Int32 - - -pattern KEY_uring = 505 :: Int32 - - -pattern KEY_uptack = 3022 :: Int32 - - -pattern KEY_upstile = 3027 :: Int32 - - -pattern KEY_upshoe = 3011 :: Int32 - - -pattern KEY_uprightcorner = 2539 :: Int32 - - -pattern KEY_upleftcorner = 2540 :: Int32 - - -pattern KEY_upcaret = 2985 :: Int32 - - -pattern KEY_uparrow = 2300 :: Int32 - - -pattern KEY_uogonek = 1017 :: Int32 - - -pattern KEY_union = 2269 :: Int32 - - -pattern KEY_underscore = 95 :: Int32 - - -pattern KEY_underbar = 3014 :: Int32 - - -pattern KEY_umacron = 1022 :: Int32 - - -pattern KEY_uhorntilde = 16785135 :: Int32 - - -pattern KEY_uhornhook = 16785133 :: Int32 - - -pattern KEY_uhorngrave = 16785131 :: Int32 - - -pattern KEY_uhornbelowdot = 16785137 :: Int32 - - -pattern KEY_uhornacute = 16785129 :: Int32 - - -pattern KEY_uhorn = 16777648 :: Int32 - - -pattern KEY_uhook = 16785127 :: Int32 - - -pattern KEY_ugrave = 249 :: Int32 - - -pattern KEY_udoubleacute = 507 :: Int32 - - -pattern KEY_udiaeresis = 252 :: Int32 - - -pattern KEY_ucircumflex = 251 :: Int32 - - -pattern KEY_ubreve = 765 :: Int32 - - -pattern KEY_ubelowdot = 16785125 :: Int32 - - -pattern KEY_uacute = 250 :: Int32 - - -pattern KEY_u = 117 :: Int32 - - -pattern KEY_twothirds = 2737 :: Int32 - - -pattern KEY_twosuperior = 178 :: Int32 - - -pattern KEY_twosubscript = 16785538 :: Int32 - - -pattern KEY_twofifths = 2739 :: Int32 - - -pattern KEY_tslash = 956 :: Int32 - - -pattern KEY_trademarkincircle = 2763 :: Int32 - - -pattern KEY_trademark = 2761 :: Int32 - - -pattern KEY_topvertsummationconnector = 2227 :: Int32 - - -pattern KEY_topt = 2551 :: Int32 - - -pattern KEY_toprightsummation = 2229 :: Int32 - - -pattern KEY_toprightsqbracket = 2217 :: Int32 - - -pattern KEY_toprightparens = 2221 :: Int32 - - -pattern KEY_topleftsummation = 2225 :: Int32 - - -pattern KEY_topleftsqbracket = 2215 :: Int32 - - -pattern KEY_topleftradical = 2210 :: Int32 - - -pattern KEY_topleftparens = 2219 :: Int32 - - -pattern KEY_topintegral = 2212 :: Int32 - - -pattern KEY_tintegral = 16785965 :: Int32 - - -pattern KEY_threesuperior = 179 :: Int32 - - -pattern KEY_threesubscript = 16785539 :: Int32 - - -pattern KEY_threequarters = 190 :: Int32 - - -pattern KEY_threefifths = 2740 :: Int32 - - -pattern KEY_threeeighths = 2756 :: Int32 - - -pattern KEY_thorn = 254 :: Int32 - - -pattern KEY_thinspace = 2727 :: Int32 - - -pattern KEY_therefore = 2240 :: Int32 - - -pattern KEY_telephonerecorder = 2810 :: Int32 - - -pattern KEY_telephone = 2809 :: Int32 - - -pattern KEY_tcedilla = 510 :: Int32 - - -pattern KEY_tcaron = 443 :: Int32 - - -pattern KEY_tabovedot = 16785003 :: Int32 - - -pattern KEY_t = 116 :: Int32 - - -pattern KEY_stricteq = 16786019 :: Int32 - - -pattern KEY_sterling = 163 :: Int32 - - -pattern KEY_ssharp = 223 :: Int32 - - -pattern KEY_squareroot = 16785946 :: Int32 - - -pattern KEY_space = 32 :: Int32 - - -pattern KEY_soliddiamond = 2528 :: Int32 - - -pattern KEY_slash = 47 :: Int32 - - -pattern KEY_sixsuperior = 16785526 :: Int32 - - -pattern KEY_sixsubscript = 16785542 :: Int32 - - -pattern KEY_singlelowquotemark = 2813 :: Int32 - - -pattern KEY_similarequal = 2249 :: Int32 - - -pattern KEY_signifblank = 2732 :: Int32 - - -pattern KEY_signaturemark = 2762 :: Int32 - - -pattern KEY_sevensuperior = 16785527 :: Int32 - - -pattern KEY_sevensubscript = 16785543 :: Int32 - - -pattern KEY_seveneighths = 2758 :: Int32 - - -pattern KEY_semivoicedsound = 1247 :: Int32 - - -pattern KEY_semicolon = 59 :: Int32 - - -pattern KEY_section = 167 :: Int32 - - -pattern KEY_seconds = 2775 :: Int32 - - -pattern KEY_script_switch = 65406 :: Int32 - - -pattern KEY_scircumflex = 766 :: Int32 - - -pattern KEY_schwa = 16777817 :: Int32 - - -pattern KEY_scedilla = 442 :: Int32 - - -pattern KEY_scaron = 441 :: Int32 - - -pattern KEY_sacute = 438 :: Int32 - - -pattern KEY_sabovedot = 16784993 :: Int32 - - -pattern KEY_s = 115 :: Int32 - - -pattern KEY_righttack = 3068 :: Int32 - - -pattern KEY_rightt = 2549 :: Int32 - - -pattern KEY_rightsinglequotemark = 2769 :: Int32 - - -pattern KEY_rightshoe = 3032 :: Int32 - - -pattern KEY_rightpointer = 2795 :: Int32 - - -pattern KEY_rightopentriangle = 2765 :: Int32 - - -pattern KEY_rightmiddlesummation = 2231 :: Int32 - - -pattern KEY_rightmiddlecurlybrace = 2224 :: Int32 - - -pattern KEY_rightdoublequotemark = 2771 :: Int32 - - -pattern KEY_rightcaret = 2982 :: Int32 - - -pattern KEY_rightarrow = 2301 :: Int32 - - -pattern KEY_rightanglebracket = 2750 :: Int32 - - -pattern KEY_registered = 174 :: Int32 - - -pattern KEY_rcedilla = 947 :: Int32 - - -pattern KEY_rcaron = 504 :: Int32 - - -pattern KEY_radical = 2262 :: Int32 - - -pattern KEY_racute = 480 :: Int32 - - -pattern KEY_r = 114 :: Int32 - - -pattern KEY_quoteright = 39 :: Int32 - - -pattern KEY_quoteleft = 96 :: Int32 - - -pattern KEY_quotedbl = 34 :: Int32 - - -pattern KEY_questiondown = 191 :: Int32 - - -pattern KEY_question = 63 :: Int32 - - -pattern KEY_quad = 3020 :: Int32 - - -pattern KEY_q = 113 :: Int32 - - -pattern KEY_punctspace = 2726 :: Int32 - - -pattern KEY_prolongedsound = 1200 :: Int32 - - -pattern KEY_prescription = 2772 :: Int32 - - -pattern KEY_plusminus = 177 :: Int32 - - -pattern KEY_plus = 43 :: Int32 - - -pattern KEY_phonographcopyright = 2811 :: Int32 - - -pattern KEY_permille = 2773 :: Int32 - - -pattern KEY_periodcentered = 183 :: Int32 - - -pattern KEY_period = 46 :: Int32 - - -pattern KEY_percent = 37 :: Int32 - - -pattern KEY_partialderivative = 2287 :: Int32 - - -pattern KEY_partdifferential = 16785922 :: Int32 - - -pattern KEY_parenright = 41 :: Int32 - - -pattern KEY_parenleft = 40 :: Int32 - - -pattern KEY_paragraph = 182 :: Int32 - - -pattern KEY_pabovedot = 16784983 :: Int32 - - -pattern KEY_p = 112 :: Int32 - - -pattern KEY_overline = 1150 :: Int32 - - -pattern KEY_overbar = 3008 :: Int32 - - -pattern KEY_otilde = 245 :: Int32 - - -pattern KEY_oslash = 248 :: Int32 - - -pattern KEY_ordfeminine = 170 :: Int32 - - -pattern KEY_opentribulletup = 2787 :: Int32 - - -pattern KEY_opentribulletdown = 2788 :: Int32 - - -pattern KEY_openstar = 2789 :: Int32 - - -pattern KEY_openrectbullet = 2786 :: Int32 - - -pattern KEY_ooblique = 248 :: Int32 - - -pattern KEY_onethird = 2736 :: Int32 - - -pattern KEY_onesuperior = 185 :: Int32 - - -pattern KEY_onesubscript = 16785537 :: Int32 - - -pattern KEY_onesixth = 2742 :: Int32 - - -pattern KEY_onequarter = 188 :: Int32 - - -pattern KEY_onehalf = 189 :: Int32 - - -pattern KEY_onefifth = 2738 :: Int32 - - -pattern KEY_oneeighth = 2755 :: Int32 - - -pattern KEY_omacron = 1010 :: Int32 - - -pattern KEY_ohorntilde = 16785121 :: Int32 - - -pattern KEY_ohornhook = 16785119 :: Int32 - - -pattern KEY_ohorngrave = 16785117 :: Int32 - - -pattern KEY_ohornbelowdot = 16785123 :: Int32 - - -pattern KEY_ohornacute = 16785115 :: Int32 - - -pattern KEY_ohorn = 16777633 :: Int32 - - -pattern KEY_ohook = 16785103 :: Int32 - - -pattern KEY_ograve = 242 :: Int32 - - -pattern KEY_ogonek = 434 :: Int32 - - -pattern KEY_oe = 5053 :: Int32 - - -pattern KEY_odoubleacute = 501 :: Int32 - - -pattern KEY_odiaeresis = 246 :: Int32 - - -pattern KEY_ocircumflextilde = 16785111 :: Int32 - - -pattern KEY_ocircumflexhook = 16785109 :: Int32 - - -pattern KEY_ocircumflexgrave = 16785107 :: Int32 - - -pattern KEY_ocircumflexbelowdot = 16785113 :: Int32 - - -pattern KEY_ocircumflexacute = 16785105 :: Int32 - - -pattern KEY_ocircumflex = 244 :: Int32 - - -pattern KEY_ocaron = 16777682 :: Int32 - - -pattern KEY_obelowdot = 16785101 :: Int32 - - -pattern KEY_obarred = 16777845 :: Int32 - - -pattern KEY_oacute = 243 :: Int32 - - -pattern KEY_o = 111 :: Int32 - - -pattern KEY_numerosign = 1712 :: Int32 - - -pattern KEY_numbersign = 35 :: Int32 - - -pattern KEY_ntilde = 241 :: Int32 - - -pattern KEY_notsign = 172 :: Int32 - - -pattern KEY_notidentical = 16786018 :: Int32 - - -pattern KEY_notequal = 2237 :: Int32 - - -pattern KEY_notelementof = 16785929 :: Int32 - - -pattern KEY_notapproxeq = 16785991 :: Int32 - - -pattern KEY_nobreakspace = 160 :: Int32 - - -pattern KEY_nl = 2536 :: Int32 - - -pattern KEY_ninesuperior = 16785529 :: Int32 - - -pattern KEY_ninesubscript = 16785545 :: Int32 - - -pattern KEY_ncedilla = 1009 :: Int32 - - -pattern KEY_ncaron = 498 :: Int32 - - -pattern KEY_nacute = 497 :: Int32 - - -pattern KEY_nabla = 2245 :: Int32 - - -pattern KEY_n = 110 :: Int32 - - -pattern KEY_musicalsharp = 2805 :: Int32 - - -pattern KEY_musicalflat = 2806 :: Int32 - - -pattern KEY_multiply = 215 :: Int32 - - -pattern KEY_mu = 181 :: Int32 - - -pattern KEY_minutes = 2774 :: Int32 - - -pattern KEY_minus = 45 :: Int32 - - -pattern KEY_masculine = 186 :: Int32 - - -pattern KEY_marker = 2751 :: Int32 - - -pattern KEY_maltesecross = 2800 :: Int32 - - -pattern KEY_malesymbol = 2807 :: Int32 - - -pattern KEY_macron = 175 :: Int32 - - -pattern KEY_mabovedot = 16784961 :: Int32 - - -pattern KEY_m = 109 :: Int32 - - -pattern KEY_lstroke = 435 :: Int32 - - -pattern KEY_lowrightcorner = 2538 :: Int32 - - -pattern KEY_lowleftcorner = 2541 :: Int32 - - -pattern KEY_logicalor = 2271 :: Int32 - - -pattern KEY_logicaland = 2270 :: Int32 - - -pattern KEY_lf = 2533 :: Int32 - - -pattern KEY_lessthanequal = 2236 :: Int32 - - -pattern KEY_less = 60 :: Int32 - - -pattern KEY_lefttack = 3036 :: Int32 - - -pattern KEY_leftt = 2548 :: Int32 - - -pattern KEY_leftsinglequotemark = 2768 :: Int32 - - -pattern KEY_leftshoe = 3034 :: Int32 - - -pattern KEY_leftradical = 2209 :: Int32 - - -pattern KEY_leftpointer = 2794 :: Int32 - - -pattern KEY_leftopentriangle = 2764 :: Int32 - - -pattern KEY_leftmiddlecurlybrace = 2223 :: Int32 - - -pattern KEY_leftdoublequotemark = 2770 :: Int32 - - -pattern KEY_leftcaret = 2979 :: Int32 - - -pattern KEY_leftarrow = 2299 :: Int32 - - -pattern KEY_leftanglebracket = 2748 :: Int32 - - -pattern KEY_lcedilla = 950 :: Int32 - - -pattern KEY_lcaron = 437 :: Int32 - - -pattern KEY_lbelowdot = 16784951 :: Int32 - - -pattern KEY_latincross = 2777 :: Int32 - - -pattern KEY_lacute = 485 :: Int32 - - -pattern KEY_l = 108 :: Int32 - - -pattern KEY_kra = 930 :: Int32 - - -pattern KEY_kcedilla = 1011 :: Int32 - - -pattern KEY_kappa = 930 :: Int32 - - -pattern KEY_kana_yu = 1197 :: Int32 - - -pattern KEY_kana_yo = 1198 :: Int32 - - -pattern KEY_kana_ya = 1196 :: Int32 - - -pattern KEY_kana_u = 1193 :: Int32 - - -pattern KEY_kana_tu = 1199 :: Int32 - - -pattern KEY_kana_tsu = 1199 :: Int32 - - -pattern KEY_kana_switch = 65406 :: Int32 - - -pattern KEY_kana_openingbracket = 1186 :: Int32 - - -pattern KEY_kana_o = 1195 :: Int32 - - -pattern KEY_kana_middledot = 1189 :: Int32 - - -pattern KEY_kana_i = 1192 :: Int32 - - -pattern KEY_kana_fullstop = 1185 :: Int32 - - -pattern KEY_kana_e = 1194 :: Int32 - - -pattern KEY_kana_conjunctive = 1189 :: Int32 - - -pattern KEY_kana_comma = 1188 :: Int32 - - -pattern KEY_kana_closingbracket = 1187 :: Int32 - - -pattern KEY_kana_a = 1191 :: Int32 - - -pattern KEY_kana_YU = 1237 :: Int32 - - -pattern KEY_kana_YO = 1238 :: Int32 - - -pattern KEY_kana_YA = 1236 :: Int32 - - -pattern KEY_kana_WO = 1190 :: Int32 - - -pattern KEY_kana_WA = 1244 :: Int32 - - -pattern KEY_kana_U = 1203 :: Int32 - - -pattern KEY_kana_TU = 1218 :: Int32 - - -pattern KEY_kana_TSU = 1218 :: Int32 - - -pattern KEY_kana_TO = 1220 :: Int32 - - -pattern KEY_kana_TI = 1217 :: Int32 - - -pattern KEY_kana_TE = 1219 :: Int32 - - -pattern KEY_kana_TA = 1216 :: Int32 - - -pattern KEY_kana_SU = 1213 :: Int32 - - -pattern KEY_kana_SO = 1215 :: Int32 - - -pattern KEY_kana_SHI = 1212 :: Int32 - - -pattern KEY_kana_SE = 1214 :: Int32 - - -pattern KEY_kana_SA = 1211 :: Int32 - - -pattern KEY_kana_RU = 1241 :: Int32 - - -pattern KEY_kana_RO = 1243 :: Int32 - - -pattern KEY_kana_RI = 1240 :: Int32 - - -pattern KEY_kana_RE = 1242 :: Int32 - - -pattern KEY_kana_RA = 1239 :: Int32 - - -pattern KEY_kana_O = 1205 :: Int32 - - -pattern KEY_kana_NU = 1223 :: Int32 - - -pattern KEY_kana_NO = 1225 :: Int32 - - -pattern KEY_kana_NI = 1222 :: Int32 - - -pattern KEY_kana_NE = 1224 :: Int32 - - -pattern KEY_kana_NA = 1221 :: Int32 - - -pattern KEY_kana_N = 1245 :: Int32 - - -pattern KEY_kana_MU = 1233 :: Int32 - - -pattern KEY_kana_MO = 1235 :: Int32 - - -pattern KEY_kana_MI = 1232 :: Int32 - - -pattern KEY_kana_ME = 1234 :: Int32 - - -pattern KEY_kana_MA = 1231 :: Int32 - - -pattern KEY_kana_KU = 1208 :: Int32 - - -pattern KEY_kana_KO = 1210 :: Int32 - - -pattern KEY_kana_KI = 1207 :: Int32 - - -pattern KEY_kana_KE = 1209 :: Int32 - - -pattern KEY_kana_KA = 1206 :: Int32 - - -pattern KEY_kana_I = 1202 :: Int32 - - -pattern KEY_kana_HU = 1228 :: Int32 - - -pattern KEY_kana_HO = 1230 :: Int32 - - -pattern KEY_kana_HI = 1227 :: Int32 - - -pattern KEY_kana_HE = 1229 :: Int32 - - -pattern KEY_kana_HA = 1226 :: Int32 - - -pattern KEY_kana_FU = 1228 :: Int32 - - -pattern KEY_kana_E = 1204 :: Int32 - - -pattern KEY_kana_CHI = 1217 :: Int32 - - -pattern KEY_kana_A = 1201 :: Int32 - - -pattern KEY_k = 107 :: Int32 - - -pattern KEY_jot = 3018 :: Int32 - - -pattern KEY_jcircumflex = 700 :: Int32 - - -pattern KEY_j = 106 :: Int32 - - -pattern KEY_itilde = 949 :: Int32 - - -pattern KEY_iogonek = 999 :: Int32 - - -pattern KEY_intersection = 2268 :: Int32 - - -pattern KEY_integral = 2239 :: Int32 - - -pattern KEY_infinity = 2242 :: Int32 - - -pattern KEY_includes = 2267 :: Int32 - - -pattern KEY_includedin = 2266 :: Int32 - - -pattern KEY_implies = 2254 :: Int32 - - -pattern KEY_imacron = 1007 :: Int32 - - -pattern KEY_ihook = 16785097 :: Int32 - - -pattern KEY_igrave = 236 :: Int32 - - -pattern KEY_ifonlyif = 2253 :: Int32 - - -pattern KEY_idotless = 697 :: Int32 - - -pattern KEY_idiaeresis = 239 :: Int32 - - -pattern KEY_identical = 2255 :: Int32 - - -pattern KEY_icircumflex = 238 :: Int32 - - -pattern KEY_ibreve = 16777517 :: Int32 - - -pattern KEY_ibelowdot = 16785099 :: Int32 - - -pattern KEY_iacute = 237 :: Int32 - - -pattern KEY_iTouch = 269025120 :: Int32 - - -pattern KEY_i = 105 :: Int32 - - -pattern KEY_hyphen = 173 :: Int32 - - -pattern KEY_ht = 2530 :: Int32 - - -pattern KEY_hstroke = 689 :: Int32 - - -pattern KEY_horizlinescan9 = 2547 :: Int32 - - -pattern KEY_horizlinescan7 = 2546 :: Int32 - - -pattern KEY_horizlinescan5 = 2545 :: Int32 - - -pattern KEY_horizlinescan3 = 2544 :: Int32 - - -pattern KEY_horizlinescan1 = 2543 :: Int32 - - -pattern KEY_horizconnector = 2211 :: Int32 - - -pattern KEY_hexagram = 2778 :: Int32 - - -pattern KEY_hebrew_zayin = 3302 :: Int32 - - -pattern KEY_hebrew_zain = 3302 :: Int32 - - -pattern KEY_hebrew_zadi = 3318 :: Int32 - - -pattern KEY_hebrew_zade = 3318 :: Int32 - - -pattern KEY_hebrew_yod = 3305 :: Int32 - - -pattern KEY_hebrew_waw = 3301 :: Int32 - - -pattern KEY_hebrew_teth = 3304 :: Int32 - - -pattern KEY_hebrew_tet = 3304 :: Int32 - - -pattern KEY_hebrew_taw = 3322 :: Int32 - - -pattern KEY_hebrew_taf = 3322 :: Int32 - - -pattern KEY_hebrew_shin = 3321 :: Int32 - - -pattern KEY_hebrew_samekh = 3313 :: Int32 - - -pattern KEY_hebrew_samech = 3313 :: Int32 - - -pattern KEY_hebrew_resh = 3320 :: Int32 - - -pattern KEY_hebrew_qoph = 3319 :: Int32 - - -pattern KEY_hebrew_pe = 3316 :: Int32 - - -pattern KEY_hebrew_nun = 3312 :: Int32 - - -pattern KEY_hebrew_mem = 3310 :: Int32 - - -pattern KEY_hebrew_lamed = 3308 :: Int32 - - -pattern KEY_hebrew_kuf = 3319 :: Int32 - - -pattern KEY_hebrew_kaph = 3307 :: Int32 - - -pattern KEY_hebrew_het = 3303 :: Int32 - - -pattern KEY_hebrew_he = 3300 :: Int32 - - -pattern KEY_hebrew_gimmel = 3298 :: Int32 - - -pattern KEY_hebrew_gimel = 3298 :: Int32 - - -pattern KEY_hebrew_finalzadi = 3317 :: Int32 - - -pattern KEY_hebrew_finalzade = 3317 :: Int32 - - -pattern KEY_hebrew_finalpe = 3315 :: Int32 - - -pattern KEY_hebrew_finalnun = 3311 :: Int32 - - -pattern KEY_hebrew_finalmem = 3309 :: Int32 - - -pattern KEY_hebrew_finalkaph = 3306 :: Int32 - - -pattern KEY_hebrew_doublelowline = 3295 :: Int32 - - -pattern KEY_hebrew_daleth = 3299 :: Int32 - - -pattern KEY_hebrew_dalet = 3299 :: Int32 - - -pattern KEY_hebrew_chet = 3303 :: Int32 - - -pattern KEY_hebrew_beth = 3297 :: Int32 - - -pattern KEY_hebrew_bet = 3297 :: Int32 - - -pattern KEY_hebrew_ayin = 3314 :: Int32 - - -pattern KEY_hebrew_aleph = 3296 :: Int32 - - -pattern KEY_heart = 2798 :: Int32 - - -pattern KEY_hcircumflex = 694 :: Int32 - - -pattern KEY_hairspace = 2728 :: Int32 - - -pattern KEY_h = 104 :: Int32 - - -pattern KEY_guillemotright = 187 :: Int32 - - -pattern KEY_guillemotleft = 171 :: Int32 - - -pattern KEY_greaterthanequal = 2238 :: Int32 - - -pattern KEY_greater = 62 :: Int32 - - -pattern KEY_grave = 96 :: Int32 - - -pattern KEY_gcircumflex = 760 :: Int32 - - -pattern KEY_gcedilla = 955 :: Int32 - - -pattern KEY_gcaron = 16777703 :: Int32 - - -pattern KEY_gbreve = 699 :: Int32 - - -pattern KEY_gabovedot = 757 :: Int32 - - -pattern KEY_g = 103 :: Int32 - - -pattern KEY_function = 2294 :: Int32 - - -pattern KEY_fourthroot = 16785948 :: Int32 - - -pattern KEY_foursuperior = 16785524 :: Int32 - - -pattern KEY_foursubscript = 16785540 :: Int32 - - -pattern KEY_fourfifths = 2741 :: Int32 - - -pattern KEY_fivesuperior = 16785525 :: Int32 - - -pattern KEY_fivesubscript = 16785541 :: Int32 - - -pattern KEY_fivesixths = 2743 :: Int32 - - -pattern KEY_fiveeighths = 2757 :: Int32 - - -pattern KEY_filledtribulletup = 2792 :: Int32 - - -pattern KEY_filledtribulletdown = 2793 :: Int32 - - -pattern KEY_filledrighttribullet = 2781 :: Int32 - - -pattern KEY_filledrectbullet = 2779 :: Int32 - - -pattern KEY_filledlefttribullet = 2780 :: Int32 - - -pattern KEY_figdash = 2747 :: Int32 - - -pattern KEY_ff = 2531 :: Int32 - - -pattern KEY_femalesymbol = 2808 :: Int32 - - -pattern KEY_fabovedot = 16784927 :: Int32 - - -pattern KEY_f = 102 :: Int32 - - -pattern KEY_ezh = 16777874 :: Int32 - - -pattern KEY_exclamdown = 161 :: Int32 - - -pattern KEY_exclam = 33 :: Int32 - - -pattern KEY_etilde = 16785085 :: Int32 - - -pattern KEY_eth = 240 :: Int32 - - -pattern KEY_equal = 61 :: Int32 - - -pattern KEY_eogonek = 490 :: Int32 - - -pattern KEY_enspace = 2722 :: Int32 - - -pattern KEY_enopensquarebullet = 2785 :: Int32 - - -pattern KEY_enopencircbullet = 2784 :: Int32 - - -pattern KEY_eng = 959 :: Int32 - - -pattern KEY_enfilledsqbullet = 2791 :: Int32 - - -pattern KEY_enfilledcircbullet = 2790 :: Int32 - - -pattern KEY_endash = 2730 :: Int32 - - -pattern KEY_emspace = 2721 :: Int32 - - -pattern KEY_emptyset = 16785925 :: Int32 - - -pattern KEY_emopenrectangle = 2767 :: Int32 - - -pattern KEY_emopencircle = 2766 :: Int32 - - -pattern KEY_emfilledrect = 2783 :: Int32 - - -pattern KEY_emfilledcircle = 2782 :: Int32 - - -pattern KEY_emdash = 2729 :: Int32 - - -pattern KEY_emacron = 954 :: Int32 - - -pattern KEY_em4space = 2724 :: Int32 - - -pattern KEY_em3space = 2723 :: Int32 - - -pattern KEY_ellipsis = 2734 :: Int32 - - -pattern KEY_elementof = 16785928 :: Int32 - - -pattern KEY_eightsuperior = 16785528 :: Int32 - - -pattern KEY_eightsubscript = 16785544 :: Int32 - - -pattern KEY_ehook = 16785083 :: Int32 - - -pattern KEY_egrave = 232 :: Int32 - - -pattern KEY_ediaeresis = 235 :: Int32 - - -pattern KEY_ecircumflextilde = 16785093 :: Int32 - - -pattern KEY_ecircumflexhook = 16785091 :: Int32 - - -pattern KEY_ecircumflexgrave = 16785089 :: Int32 - - -pattern KEY_ecircumflexbelowdot = 16785095 :: Int32 - - -pattern KEY_ecircumflexacute = 16785087 :: Int32 - - -pattern KEY_ecircumflex = 234 :: Int32 - - -pattern KEY_ecaron = 492 :: Int32 - - -pattern KEY_ebelowdot = 16785081 :: Int32 - - -pattern KEY_eacute = 233 :: Int32 - - -pattern KEY_eabovedot = 1004 :: Int32 - - -pattern KEY_e = 101 :: Int32 - - -pattern KEY_dstroke = 496 :: Int32 - - -pattern KEY_downtack = 3010 :: Int32 - - -pattern KEY_downstile = 3012 :: Int32 - - -pattern KEY_downshoe = 3030 :: Int32 - - -pattern KEY_downcaret = 2984 :: Int32 - - -pattern KEY_downarrow = 2302 :: Int32 - - -pattern KEY_doublelowquotemark = 2814 :: Int32 - - -pattern KEY_doubledagger = 2802 :: Int32 - - -pattern KEY_doubleacute = 445 :: Int32 - - -pattern KEY_doubbaselinedot = 2735 :: Int32 - - -pattern KEY_dollar = 36 :: Int32 - - -pattern KEY_division = 247 :: Int32 - - -pattern KEY_dintegral = 16785964 :: Int32 - - -pattern KEY_digitspace = 2725 :: Int32 - - -pattern KEY_diamond = 2797 :: Int32 - - -pattern KEY_diaeresis = 168 :: Int32 - - -pattern KEY_degree = 176 :: Int32 - - -pattern KEY_decimalpoint = 2749 :: Int32 - - -pattern KEY_dead_voiced_sound = 65118 :: Int32 - - -pattern KEY_dead_u = 65160 :: Int32 - - -pattern KEY_dead_tilde = 65107 :: Int32 - - -pattern KEY_dead_stroke = 65123 :: Int32 - - -pattern KEY_dead_small_schwa = 65162 :: Int32 - - -pattern KEY_dead_semivoiced_sound = 65119 :: Int32 - - -pattern KEY_dead_psili = 65124 :: Int32 - - -pattern KEY_dead_perispomeni = 65107 :: Int32 - - -pattern KEY_dead_ogonek = 65116 :: Int32 - - -pattern KEY_dead_o = 65158 :: Int32 - - -pattern KEY_dead_macron = 65108 :: Int32 - - -pattern KEY_dead_iota = 65117 :: Int32 - - -pattern KEY_dead_invertedbreve = 65133 :: Int32 - - -pattern KEY_dead_i = 65156 :: Int32 - - -pattern KEY_dead_horn = 65122 :: Int32 - - -pattern KEY_dead_hook = 65121 :: Int32 - - -pattern KEY_dead_greek = 65164 :: Int32 - - -pattern KEY_dead_grave = 65104 :: Int32 - - -pattern KEY_dead_e = 65154 :: Int32 - - -pattern KEY_dead_doublegrave = 65126 :: Int32 - - -pattern KEY_dead_doubleacute = 65113 :: Int32 - - -pattern KEY_dead_diaeresis = 65111 :: Int32 - - -pattern KEY_dead_dasia = 65125 :: Int32 - - -pattern KEY_dead_currency = 65135 :: Int32 - - -pattern KEY_dead_circumflex = 65106 :: Int32 - - -pattern KEY_dead_cedilla = 65115 :: Int32 - - -pattern KEY_dead_caron = 65114 :: Int32 - - -pattern KEY_dead_capital_schwa = 65163 :: Int32 - - -pattern KEY_dead_breve = 65109 :: Int32 - - -pattern KEY_dead_belowtilde = 65130 :: Int32 - - -pattern KEY_dead_belowring = 65127 :: Int32 - - -pattern KEY_dead_belowmacron = 65128 :: Int32 - - -pattern KEY_dead_belowdot = 65120 :: Int32 - - -pattern KEY_dead_belowdiaeresis = 65132 :: Int32 - - -pattern KEY_dead_belowcomma = 65134 :: Int32 - - -pattern KEY_dead_belowcircumflex = 65129 :: Int32 - - -pattern KEY_dead_belowbreve = 65131 :: Int32 - - -pattern KEY_dead_acute = 65105 :: Int32 - - -pattern KEY_dead_abovering = 65112 :: Int32 - - -pattern KEY_dead_abovereversedcomma = 65125 :: Int32 - - -pattern KEY_dead_abovedot = 65110 :: Int32 - - -pattern KEY_dead_abovecomma = 65124 :: Int32 - - -pattern KEY_dead_a = 65152 :: Int32 - - -pattern KEY_dead_U = 65161 :: Int32 - - -pattern KEY_dead_O = 65159 :: Int32 - - -pattern KEY_dead_I = 65157 :: Int32 - - -pattern KEY_dead_E = 65155 :: Int32 - - -pattern KEY_dead_A = 65153 :: Int32 - - -pattern KEY_dcaron = 495 :: Int32 - - -pattern KEY_dagger = 2801 :: Int32 - - -pattern KEY_dabovedot = 16784907 :: Int32 - - -pattern KEY_d = 100 :: Int32 - - -pattern KEY_cursor = 2815 :: Int32 - - -pattern KEY_currency = 164 :: Int32 - - -pattern KEY_cuberoot = 16785947 :: Int32 - - -pattern KEY_crossinglines = 2542 :: Int32 - - -pattern KEY_cr = 2532 :: Int32 - - -pattern KEY_copyright = 169 :: Int32 - - -pattern KEY_containsas = 16785931 :: Int32 - - -pattern KEY_comma = 44 :: Int32 - - -pattern KEY_colon = 58 :: Int32 - - -pattern KEY_club = 2796 :: Int32 - - -pattern KEY_circle = 3023 :: Int32 - - -pattern KEY_checkmark = 2803 :: Int32 - - -pattern KEY_checkerboard = 2529 :: Int32 - - -pattern KEY_ch = 65184 :: Int32 - - -pattern KEY_cent = 162 :: Int32 - - -pattern KEY_cedilla = 184 :: Int32 - - -pattern KEY_ccircumflex = 742 :: Int32 - - -pattern KEY_ccedilla = 231 :: Int32 - - -pattern KEY_ccaron = 488 :: Int32 - - -pattern KEY_caron = 439 :: Int32 - - -pattern KEY_caret = 2812 :: Int32 - - -pattern KEY_careof = 2744 :: Int32 - - -pattern KEY_cacute = 486 :: Int32 - - -pattern KEY_cabovedot = 741 :: Int32 - - -pattern KEY_c_h = 65187 :: Int32 - - -pattern KEY_c = 99 :: Int32 - - -pattern KEY_brokenbar = 166 :: Int32 - - -pattern KEY_breve = 418 :: Int32 - - -pattern KEY_braille_dots_8 = 16787584 :: Int32 - - -pattern KEY_braille_dots_78 = 16787648 :: Int32 - - -pattern KEY_braille_dots_7 = 16787520 :: Int32 - - -pattern KEY_braille_dots_68 = 16787616 :: Int32 - - -pattern KEY_braille_dots_678 = 16787680 :: Int32 - - -pattern KEY_braille_dots_67 = 16787552 :: Int32 - - -pattern KEY_braille_dots_6 = 16787488 :: Int32 - - -pattern KEY_braille_dots_58 = 16787600 :: Int32 - - -pattern KEY_braille_dots_578 = 16787664 :: Int32 - - -pattern KEY_braille_dots_57 = 16787536 :: Int32 - - -pattern KEY_braille_dots_568 = 16787632 :: Int32 - - -pattern KEY_braille_dots_5678 = 16787696 :: Int32 - - -pattern KEY_braille_dots_567 = 16787568 :: Int32 - - -pattern KEY_braille_dots_56 = 16787504 :: Int32 - - -pattern KEY_braille_dots_5 = 16787472 :: Int32 - - -pattern KEY_braille_dots_48 = 16787592 :: Int32 - - -pattern KEY_braille_dots_478 = 16787656 :: Int32 - - -pattern KEY_braille_dots_47 = 16787528 :: Int32 - - -pattern KEY_braille_dots_468 = 16787624 :: Int32 - - -pattern KEY_braille_dots_4678 = 16787688 :: Int32 - - -pattern KEY_braille_dots_467 = 16787560 :: Int32 - - -pattern KEY_braille_dots_46 = 16787496 :: Int32 - - -pattern KEY_braille_dots_458 = 16787608 :: Int32 - - -pattern KEY_braille_dots_4578 = 16787672 :: Int32 - - -pattern KEY_braille_dots_457 = 16787544 :: Int32 - - -pattern KEY_braille_dots_4568 = 16787640 :: Int32 - - -pattern KEY_braille_dots_45678 = 16787704 :: Int32 - - -pattern KEY_braille_dots_4567 = 16787576 :: Int32 - - -pattern KEY_braille_dots_456 = 16787512 :: Int32 - - -pattern KEY_braille_dots_45 = 16787480 :: Int32 - - -pattern KEY_braille_dots_4 = 16787464 :: Int32 - - -pattern KEY_braille_dots_38 = 16787588 :: Int32 - - -pattern KEY_braille_dots_378 = 16787652 :: Int32 - - -pattern KEY_braille_dots_37 = 16787524 :: Int32 - - -pattern KEY_braille_dots_368 = 16787620 :: Int32 - - -pattern KEY_braille_dots_3678 = 16787684 :: Int32 - - -pattern KEY_braille_dots_367 = 16787556 :: Int32 - - -pattern KEY_braille_dots_36 = 16787492 :: Int32 - - -pattern KEY_braille_dots_358 = 16787604 :: Int32 - - -pattern KEY_braille_dots_3578 = 16787668 :: Int32 - - -pattern KEY_braille_dots_357 = 16787540 :: Int32 - - -pattern KEY_braille_dots_3568 = 16787636 :: Int32 - - -pattern KEY_braille_dots_35678 = 16787700 :: Int32 - - -pattern KEY_braille_dots_3567 = 16787572 :: Int32 - - -pattern KEY_braille_dots_356 = 16787508 :: Int32 - - -pattern KEY_braille_dots_35 = 16787476 :: Int32 - - -pattern KEY_braille_dots_348 = 16787596 :: Int32 - - -pattern KEY_braille_dots_3478 = 16787660 :: Int32 - - -pattern KEY_braille_dots_347 = 16787532 :: Int32 - - -pattern KEY_braille_dots_3468 = 16787628 :: Int32 - - -pattern KEY_braille_dots_34678 = 16787692 :: Int32 - - -pattern KEY_braille_dots_3467 = 16787564 :: Int32 - - -pattern KEY_braille_dots_346 = 16787500 :: Int32 - - -pattern KEY_braille_dots_3458 = 16787612 :: Int32 - - -pattern KEY_braille_dots_34578 = 16787676 :: Int32 - - -pattern KEY_braille_dots_3457 = 16787548 :: Int32 - - -pattern KEY_braille_dots_34568 = 16787644 :: Int32 - - -pattern KEY_braille_dots_345678 = 16787708 :: Int32 - - -pattern KEY_braille_dots_34567 = 16787580 :: Int32 - - -pattern KEY_braille_dots_3456 = 16787516 :: Int32 - - -pattern KEY_braille_dots_345 = 16787484 :: Int32 - - -pattern KEY_braille_dots_34 = 16787468 :: Int32 - - -pattern KEY_braille_dots_3 = 16787460 :: Int32 - - -pattern KEY_braille_dots_28 = 16787586 :: Int32 - - -pattern KEY_braille_dots_278 = 16787650 :: Int32 - - -pattern KEY_braille_dots_27 = 16787522 :: Int32 - - -pattern KEY_braille_dots_268 = 16787618 :: Int32 - - -pattern KEY_braille_dots_2678 = 16787682 :: Int32 - - -pattern KEY_braille_dots_267 = 16787554 :: Int32 - - -pattern KEY_braille_dots_26 = 16787490 :: Int32 - - -pattern KEY_braille_dots_258 = 16787602 :: Int32 - - -pattern KEY_braille_dots_2578 = 16787666 :: Int32 - - -pattern KEY_braille_dots_257 = 16787538 :: Int32 - - -pattern KEY_braille_dots_2568 = 16787634 :: Int32 - - -pattern KEY_braille_dots_25678 = 16787698 :: Int32 - - -pattern KEY_braille_dots_2567 = 16787570 :: Int32 - - -pattern KEY_braille_dots_256 = 16787506 :: Int32 - - -pattern KEY_braille_dots_25 = 16787474 :: Int32 - - -pattern KEY_braille_dots_248 = 16787594 :: Int32 - - -pattern KEY_braille_dots_2478 = 16787658 :: Int32 - - -pattern KEY_braille_dots_247 = 16787530 :: Int32 - - -pattern KEY_braille_dots_2468 = 16787626 :: Int32 - - -pattern KEY_braille_dots_24678 = 16787690 :: Int32 - - -pattern KEY_braille_dots_2467 = 16787562 :: Int32 - - -pattern KEY_braille_dots_246 = 16787498 :: Int32 - - -pattern KEY_braille_dots_2458 = 16787610 :: Int32 - - -pattern KEY_braille_dots_24578 = 16787674 :: Int32 - - -pattern KEY_braille_dots_2457 = 16787546 :: Int32 - - -pattern KEY_braille_dots_24568 = 16787642 :: Int32 - - -pattern KEY_braille_dots_245678 = 16787706 :: Int32 - - -pattern KEY_braille_dots_24567 = 16787578 :: Int32 - - -pattern KEY_braille_dots_2456 = 16787514 :: Int32 - - -pattern KEY_braille_dots_245 = 16787482 :: Int32 - - -pattern KEY_braille_dots_24 = 16787466 :: Int32 - - -pattern KEY_braille_dots_238 = 16787590 :: Int32 - - -pattern KEY_braille_dots_2378 = 16787654 :: Int32 - - -pattern KEY_braille_dots_237 = 16787526 :: Int32 - - -pattern KEY_braille_dots_2368 = 16787622 :: Int32 - - -pattern KEY_braille_dots_23678 = 16787686 :: Int32 - - -pattern KEY_braille_dots_2367 = 16787558 :: Int32 - - -pattern KEY_braille_dots_236 = 16787494 :: Int32 - - -pattern KEY_braille_dots_2358 = 16787606 :: Int32 - - -pattern KEY_braille_dots_23578 = 16787670 :: Int32 - - -pattern KEY_braille_dots_2357 = 16787542 :: Int32 - - -pattern KEY_braille_dots_23568 = 16787638 :: Int32 - - -pattern KEY_braille_dots_235678 = 16787702 :: Int32 - - -pattern KEY_braille_dots_23567 = 16787574 :: Int32 - - -pattern KEY_braille_dots_2356 = 16787510 :: Int32 - - -pattern KEY_braille_dots_235 = 16787478 :: Int32 - - -pattern KEY_braille_dots_2348 = 16787598 :: Int32 - - -pattern KEY_braille_dots_23478 = 16787662 :: Int32 - - -pattern KEY_braille_dots_2347 = 16787534 :: Int32 - - -pattern KEY_braille_dots_23468 = 16787630 :: Int32 - - -pattern KEY_braille_dots_234678 = 16787694 :: Int32 - - -pattern KEY_braille_dots_23467 = 16787566 :: Int32 - - -pattern KEY_braille_dots_2346 = 16787502 :: Int32 - - -pattern KEY_braille_dots_23458 = 16787614 :: Int32 - - -pattern KEY_braille_dots_234578 = 16787678 :: Int32 - - -pattern KEY_braille_dots_23457 = 16787550 :: Int32 - - -pattern KEY_braille_dots_234568 = 16787646 :: Int32 - - -pattern KEY_braille_dots_2345678 = 16787710 :: Int32 - - -pattern KEY_braille_dots_234567 = 16787582 :: Int32 - - -pattern KEY_braille_dots_23456 = 16787518 :: Int32 - - -pattern KEY_braille_dots_2345 = 16787486 :: Int32 - - -pattern KEY_braille_dots_234 = 16787470 :: Int32 - - -pattern KEY_braille_dots_23 = 16787462 :: Int32 - - -pattern KEY_braille_dots_2 = 16787458 :: Int32 - - -pattern KEY_braille_dots_18 = 16787585 :: Int32 - - -pattern KEY_braille_dots_178 = 16787649 :: Int32 - - -pattern KEY_braille_dots_17 = 16787521 :: Int32 - - -pattern KEY_braille_dots_168 = 16787617 :: Int32 - - -pattern KEY_braille_dots_1678 = 16787681 :: Int32 - - -pattern KEY_braille_dots_167 = 16787553 :: Int32 - - -pattern KEY_braille_dots_16 = 16787489 :: Int32 - - -pattern KEY_braille_dots_158 = 16787601 :: Int32 - - -pattern KEY_braille_dots_1578 = 16787665 :: Int32 - - -pattern KEY_braille_dots_157 = 16787537 :: Int32 - - -pattern KEY_braille_dots_1568 = 16787633 :: Int32 - - -pattern KEY_braille_dots_15678 = 16787697 :: Int32 - - -pattern KEY_braille_dots_1567 = 16787569 :: Int32 - - -pattern KEY_braille_dots_156 = 16787505 :: Int32 - - -pattern KEY_braille_dots_15 = 16787473 :: Int32 - - -pattern KEY_braille_dots_148 = 16787593 :: Int32 - - -pattern KEY_braille_dots_1478 = 16787657 :: Int32 - - -pattern KEY_braille_dots_147 = 16787529 :: Int32 - - -pattern KEY_braille_dots_1468 = 16787625 :: Int32 - - -pattern KEY_braille_dots_14678 = 16787689 :: Int32 - - -pattern KEY_braille_dots_1467 = 16787561 :: Int32 - - -pattern KEY_braille_dots_146 = 16787497 :: Int32 - - -pattern KEY_braille_dots_1458 = 16787609 :: Int32 - - -pattern KEY_braille_dots_14578 = 16787673 :: Int32 - - -pattern KEY_braille_dots_1457 = 16787545 :: Int32 - - -pattern KEY_braille_dots_14568 = 16787641 :: Int32 - - -pattern KEY_braille_dots_145678 = 16787705 :: Int32 - - -pattern KEY_braille_dots_14567 = 16787577 :: Int32 - - -pattern KEY_braille_dots_1456 = 16787513 :: Int32 - - -pattern KEY_braille_dots_145 = 16787481 :: Int32 - - -pattern KEY_braille_dots_14 = 16787465 :: Int32 - - -pattern KEY_braille_dots_138 = 16787589 :: Int32 - - -pattern KEY_braille_dots_1378 = 16787653 :: Int32 - - -pattern KEY_braille_dots_137 = 16787525 :: Int32 - - -pattern KEY_braille_dots_1368 = 16787621 :: Int32 - - -pattern KEY_braille_dots_13678 = 16787685 :: Int32 - - -pattern KEY_braille_dots_1367 = 16787557 :: Int32 - - -pattern KEY_braille_dots_136 = 16787493 :: Int32 - - -pattern KEY_braille_dots_1358 = 16787605 :: Int32 - - -pattern KEY_braille_dots_13578 = 16787669 :: Int32 - - -pattern KEY_braille_dots_1357 = 16787541 :: Int32 - - -pattern KEY_braille_dots_13568 = 16787637 :: Int32 - - -pattern KEY_braille_dots_135678 = 16787701 :: Int32 - - -pattern KEY_braille_dots_13567 = 16787573 :: Int32 - - -pattern KEY_braille_dots_1356 = 16787509 :: Int32 - - -pattern KEY_braille_dots_135 = 16787477 :: Int32 - - -pattern KEY_braille_dots_1348 = 16787597 :: Int32 - - -pattern KEY_braille_dots_13478 = 16787661 :: Int32 - - -pattern KEY_braille_dots_1347 = 16787533 :: Int32 - - -pattern KEY_braille_dots_13468 = 16787629 :: Int32 - - -pattern KEY_braille_dots_134678 = 16787693 :: Int32 - - -pattern KEY_braille_dots_13467 = 16787565 :: Int32 - - -pattern KEY_braille_dots_1346 = 16787501 :: Int32 - - -pattern KEY_braille_dots_13458 = 16787613 :: Int32 - - -pattern KEY_braille_dots_134578 = 16787677 :: Int32 - - -pattern KEY_braille_dots_13457 = 16787549 :: Int32 - - -pattern KEY_braille_dots_134568 = 16787645 :: Int32 - - -pattern KEY_braille_dots_1345678 = 16787709 :: Int32 - - -pattern KEY_braille_dots_134567 = 16787581 :: Int32 - - -pattern KEY_braille_dots_13456 = 16787517 :: Int32 - - -pattern KEY_braille_dots_1345 = 16787485 :: Int32 - - -pattern KEY_braille_dots_134 = 16787469 :: Int32 - - -pattern KEY_braille_dots_13 = 16787461 :: Int32 - - -pattern KEY_braille_dots_128 = 16787587 :: Int32 - - -pattern KEY_braille_dots_1278 = 16787651 :: Int32 - - -pattern KEY_braille_dots_127 = 16787523 :: Int32 - - -pattern KEY_braille_dots_1268 = 16787619 :: Int32 - - -pattern KEY_braille_dots_12678 = 16787683 :: Int32 - - -pattern KEY_braille_dots_1267 = 16787555 :: Int32 - - -pattern KEY_braille_dots_126 = 16787491 :: Int32 - - -pattern KEY_braille_dots_1258 = 16787603 :: Int32 - - -pattern KEY_braille_dots_12578 = 16787667 :: Int32 - - -pattern KEY_braille_dots_1257 = 16787539 :: Int32 - - -pattern KEY_braille_dots_12568 = 16787635 :: Int32 - - -pattern KEY_braille_dots_125678 = 16787699 :: Int32 - - -pattern KEY_braille_dots_12567 = 16787571 :: Int32 - - -pattern KEY_braille_dots_1256 = 16787507 :: Int32 - - -pattern KEY_braille_dots_125 = 16787475 :: Int32 - - -pattern KEY_braille_dots_1248 = 16787595 :: Int32 - - -pattern KEY_braille_dots_12478 = 16787659 :: Int32 - - -pattern KEY_braille_dots_1247 = 16787531 :: Int32 - - -pattern KEY_braille_dots_12468 = 16787627 :: Int32 - - -pattern KEY_braille_dots_124678 = 16787691 :: Int32 - - -pattern KEY_braille_dots_12467 = 16787563 :: Int32 - - -pattern KEY_braille_dots_1246 = 16787499 :: Int32 - - -pattern KEY_braille_dots_12458 = 16787611 :: Int32 - - -pattern KEY_braille_dots_124578 = 16787675 :: Int32 - - -pattern KEY_braille_dots_12457 = 16787547 :: Int32 - - -pattern KEY_braille_dots_124568 = 16787643 :: Int32 - - -pattern KEY_braille_dots_1245678 = 16787707 :: Int32 - - -pattern KEY_braille_dots_124567 = 16787579 :: Int32 - - -pattern KEY_braille_dots_12456 = 16787515 :: Int32 - - -pattern KEY_braille_dots_1245 = 16787483 :: Int32 - - -pattern KEY_braille_dots_124 = 16787467 :: Int32 - - -pattern KEY_braille_dots_1238 = 16787591 :: Int32 - - -pattern KEY_braille_dots_12378 = 16787655 :: Int32 - - -pattern KEY_braille_dots_1237 = 16787527 :: Int32 - - -pattern KEY_braille_dots_12368 = 16787623 :: Int32 - - -pattern KEY_braille_dots_123678 = 16787687 :: Int32 - - -pattern KEY_braille_dots_12367 = 16787559 :: Int32 - - -pattern KEY_braille_dots_1236 = 16787495 :: Int32 - - -pattern KEY_braille_dots_12358 = 16787607 :: Int32 - - -pattern KEY_braille_dots_123578 = 16787671 :: Int32 - - -pattern KEY_braille_dots_12357 = 16787543 :: Int32 - - -pattern KEY_braille_dots_123568 = 16787639 :: Int32 - - -pattern KEY_braille_dots_1235678 = 16787703 :: Int32 - - -pattern KEY_braille_dots_123567 = 16787575 :: Int32 - - -pattern KEY_braille_dots_12356 = 16787511 :: Int32 - - -pattern KEY_braille_dots_1235 = 16787479 :: Int32 - - -pattern KEY_braille_dots_12348 = 16787599 :: Int32 - - -pattern KEY_braille_dots_123478 = 16787663 :: Int32 - - -pattern KEY_braille_dots_12347 = 16787535 :: Int32 - - -pattern KEY_braille_dots_123468 = 16787631 :: Int32 - - -pattern KEY_braille_dots_1234678 = 16787695 :: Int32 - - -pattern KEY_braille_dots_123467 = 16787567 :: Int32 - - -pattern KEY_braille_dots_12346 = 16787503 :: Int32 - - -pattern KEY_braille_dots_123458 = 16787615 :: Int32 - - -pattern KEY_braille_dots_1234578 = 16787679 :: Int32 - - -pattern KEY_braille_dots_123457 = 16787551 :: Int32 - - -pattern KEY_braille_dots_1234568 = 16787647 :: Int32 - - -pattern KEY_braille_dots_12345678 = 16787711 :: Int32 - - -pattern KEY_braille_dots_1234567 = 16787583 :: Int32 - - -pattern KEY_braille_dots_123456 = 16787519 :: Int32 - - -pattern KEY_braille_dots_12345 = 16787487 :: Int32 - - -pattern KEY_braille_dots_1234 = 16787471 :: Int32 - - -pattern KEY_braille_dots_123 = 16787463 :: Int32 - - -pattern KEY_braille_dots_12 = 16787459 :: Int32 - - -pattern KEY_braille_dots_1 = 16787457 :: Int32 - - -pattern KEY_braille_dot_9 = 65529 :: Int32 - - -pattern KEY_braille_dot_8 = 65528 :: Int32 - - -pattern KEY_braille_dot_7 = 65527 :: Int32 - - -pattern KEY_braille_dot_6 = 65526 :: Int32 - - -pattern KEY_braille_dot_5 = 65525 :: Int32 - - -pattern KEY_braille_dot_4 = 65524 :: Int32 - - -pattern KEY_braille_dot_3 = 65523 :: Int32 - - -pattern KEY_braille_dot_2 = 65522 :: Int32 - - -pattern KEY_braille_dot_10 = 65530 :: Int32 - - -pattern KEY_braille_dot_1 = 65521 :: Int32 - - -pattern KEY_braille_blank = 16787456 :: Int32 - - -pattern KEY_bracketright = 93 :: Int32 - - -pattern KEY_bracketleft = 91 :: Int32 - - -pattern KEY_braceright = 125 :: Int32 - - -pattern KEY_braceleft = 123 :: Int32 - - -pattern KEY_botvertsummationconnector = 2228 :: Int32 - - -pattern KEY_bott = 2550 :: Int32 - - -pattern KEY_botrightsummation = 2230 :: Int32 - - -pattern KEY_botrightsqbracket = 2218 :: Int32 - - -pattern KEY_botrightparens = 2222 :: Int32 - - -pattern KEY_botleftsummation = 2226 :: Int32 - - -pattern KEY_botleftsqbracket = 2216 :: Int32 - - -pattern KEY_botleftparens = 2220 :: Int32 - - -pattern KEY_botintegral = 2213 :: Int32 - - -pattern KEY_blank = 2527 :: Int32 - - -pattern KEY_because = 16785973 :: Int32 - - -pattern KEY_bar = 124 :: Int32 - - -pattern KEY_ballotcross = 2804 :: Int32 - - -pattern KEY_backslash = 92 :: Int32 - - -pattern KEY_babovedot = 16784899 :: Int32 - - -pattern KEY_b = 98 :: Int32 - - -pattern KEY_atilde = 227 :: Int32 - - -pattern KEY_at = 64 :: Int32 - - -pattern KEY_asterisk = 42 :: Int32 - - -pattern KEY_asciitilde = 126 :: Int32 - - -pattern KEY_asciicircum = 94 :: Int32 - - -pattern KEY_aring = 229 :: Int32 - - -pattern KEY_approximate = 2248 :: Int32 - - -pattern KEY_approxeq = 16785992 :: Int32 - - -pattern KEY_apostrophe = 39 :: Int32 - - -pattern KEY_aogonek = 433 :: Int32 - - -pattern KEY_ampersand = 38 :: Int32 - - -pattern KEY_amacron = 992 :: Int32 - - -pattern KEY_ahook = 16785059 :: Int32 - - -pattern KEY_agrave = 224 :: Int32 - - -pattern KEY_ae = 230 :: Int32 - - -pattern KEY_adiaeresis = 228 :: Int32 - - -pattern KEY_acute = 180 :: Int32 - - -pattern KEY_acircumflextilde = 16785067 :: Int32 - - -pattern KEY_acircumflexhook = 16785065 :: Int32 - - -pattern KEY_acircumflexgrave = 16785063 :: Int32 - - -pattern KEY_acircumflexbelowdot = 16785069 :: Int32 - - -pattern KEY_acircumflexacute = 16785061 :: Int32 - - -pattern KEY_acircumflex = 226 :: Int32 - - -pattern KEY_abrevetilde = 16785077 :: Int32 - - -pattern KEY_abrevehook = 16785075 :: Int32 - - -pattern KEY_abrevegrave = 16785073 :: Int32 - - -pattern KEY_abrevebelowdot = 16785079 :: Int32 - - -pattern KEY_abreveacute = 16785071 :: Int32 - - -pattern KEY_abreve = 483 :: Int32 - - -pattern KEY_abovedot = 511 :: Int32 - - -pattern KEY_abelowdot = 16785057 :: Int32 - - -pattern KEY_aacute = 225 :: Int32 - - -pattern KEY_a = 97 :: Int32 - - -pattern KEY_Zstroke = 16777653 :: Int32 - - -pattern KEY_ZoomOut = 269025164 :: Int32 - - -pattern KEY_ZoomIn = 269025163 :: Int32 - - -pattern KEY_Zenkaku_Hankaku = 65322 :: Int32 - - -pattern KEY_Zenkaku = 65320 :: Int32 - - -pattern KEY_Zen_Koho = 65341 :: Int32 - - -pattern KEY_Zcaron = 430 :: Int32 - - -pattern KEY_Zacute = 428 :: Int32 - - -pattern KEY_Zabovedot = 431 :: Int32 - - -pattern KEY_Z = 90 :: Int32 - - -pattern KEY_Ytilde = 16785144 :: Int32 - - -pattern KEY_Yhook = 16785142 :: Int32 - - -pattern KEY_Ygrave = 16785138 :: Int32 - - -pattern KEY_Yellow = 269025189 :: Int32 - - -pattern KEY_Ydiaeresis = 5054 :: Int32 - - -pattern KEY_Ycircumflex = 16777590 :: Int32 - - -pattern KEY_Ybelowdot = 16785140 :: Int32 - - -pattern KEY_Yacute = 221 :: Int32 - - -pattern KEY_Y = 89 :: Int32 - - -pattern KEY_Xfer = 269025162 :: Int32 - - -pattern KEY_Xabovedot = 16785034 :: Int32 - - -pattern KEY_X = 88 :: Int32 - - -pattern KEY_Word = 269025161 :: Int32 - - -pattern KEY_WonSign = 16785577 :: Int32 - - -pattern KEY_WindowClear = 269025109 :: Int32 - - -pattern KEY_WheelButton = 269025160 :: Int32 - - -pattern KEY_Wgrave = 16785024 :: Int32 - - -pattern KEY_WebCam = 269025167 :: Int32 - - -pattern KEY_Wdiaeresis = 16785028 :: Int32 - - -pattern KEY_Wcircumflex = 16777588 :: Int32 - - -pattern KEY_WakeUp = 269025067 :: Int32 - - -pattern KEY_Wacute = 16785026 :: Int32 - - -pattern KEY_WWW = 269025070 :: Int32 - - -pattern KEY_WLAN = 269025173 :: Int32 - - -pattern KEY_W = 87 :: Int32 - - -pattern KEY_VoidSymbol = 16777215 :: Int32 - - -pattern KEY_View = 269025185 :: Int32 - - -pattern KEY_Video = 269025159 :: Int32 - - -pattern KEY_VendorHome = 269025076 :: Int32 - - -pattern KEY_V = 86 :: Int32 - - -pattern KEY_Utilde = 989 :: Int32 - - -pattern KEY_UserPB = 269025156 :: Int32 - - -pattern KEY_User2KB = 269025158 :: Int32 - - -pattern KEY_User1KB = 269025157 :: Int32 - - -pattern KEY_Uring = 473 :: Int32 - - -pattern KEY_Up = 65362 :: Int32 - - -pattern KEY_Uogonek = 985 :: Int32 - - -pattern KEY_Ungrab = 269024800 :: Int32 - - -pattern KEY_Undo = 65381 :: Int32 - - -pattern KEY_Umacron = 990 :: Int32 - - -pattern KEY_Ukranian_yi = 1703 :: Int32 - - -pattern KEY_Ukranian_je = 1700 :: Int32 - - -pattern KEY_Ukranian_i = 1702 :: Int32 - - -pattern KEY_Ukranian_YI = 1719 :: Int32 - - -pattern KEY_Ukranian_JE = 1716 :: Int32 - - -pattern KEY_Ukranian_I = 1718 :: Int32 - - -pattern KEY_Ukrainian_yi = 1703 :: Int32 - - -pattern KEY_Ukrainian_ie = 1700 :: Int32 - - -pattern KEY_Ukrainian_i = 1702 :: Int32 - - -pattern KEY_Ukrainian_ghe_with_upturn = 1709 :: Int32 - - -pattern KEY_Ukrainian_YI = 1719 :: Int32 - - -pattern KEY_Ukrainian_IE = 1716 :: Int32 - - -pattern KEY_Ukrainian_I = 1718 :: Int32 - - -pattern KEY_Ukrainian_GHE_WITH_UPTURN = 1725 :: Int32 - - -pattern KEY_Uhorntilde = 16785134 :: Int32 - - -pattern KEY_Uhornhook = 16785132 :: Int32 - - -pattern KEY_Uhorngrave = 16785130 :: Int32 - - -pattern KEY_Uhornbelowdot = 16785136 :: Int32 - - -pattern KEY_Uhornacute = 16785128 :: Int32 - - -pattern KEY_Uhorn = 16777647 :: Int32 - - -pattern KEY_Uhook = 16785126 :: Int32 - - -pattern KEY_Ugrave = 217 :: Int32 - - -pattern KEY_Udoubleacute = 475 :: Int32 - - -pattern KEY_Udiaeresis = 220 :: Int32 - - -pattern KEY_Ucircumflex = 219 :: Int32 - - -pattern KEY_Ubreve = 733 :: Int32 - - -pattern KEY_Ubelowdot = 16785124 :: Int32 - - -pattern KEY_Uacute = 218 :: Int32 - - -pattern KEY_UWB = 269025174 :: Int32 - - -pattern KEY_U = 85 :: Int32 - - -pattern KEY_Tslash = 940 :: Int32 - - -pattern KEY_Travel = 269025154 :: Int32 - - -pattern KEY_Touroku = 65323 :: Int32 - - -pattern KEY_TouchpadToggle = 269025193 :: Int32 - - -pattern KEY_TouchpadOn = 269025200 :: Int32 - - -pattern KEY_TouchpadOff = 269025201 :: Int32 - - -pattern KEY_TopMenu = 269025186 :: Int32 - - -pattern KEY_Tools = 269025153 :: Int32 - - -pattern KEY_ToDoList = 269025055 :: Int32 - - -pattern KEY_Time = 269025183 :: Int32 - - -pattern KEY_Thorn = 222 :: Int32 - - -pattern KEY_Thai_yoying = 3501 :: Int32 - - -pattern KEY_Thai_yoyak = 3522 :: Int32 - - -pattern KEY_Thai_wowaen = 3527 :: Int32 - - -pattern KEY_Thai_totao = 3509 :: Int32 - - -pattern KEY_Thai_topatak = 3503 :: Int32 - - -pattern KEY_Thai_thothung = 3510 :: Int32 - - -pattern KEY_Thai_thothong = 3512 :: Int32 - - -pattern KEY_Thai_thothan = 3504 :: Int32 - - -pattern KEY_Thai_thothahan = 3511 :: Int32 - - -pattern KEY_Thai_thophuthao = 3506 :: Int32 - - -pattern KEY_Thai_thonangmontho = 3505 :: Int32 - - -pattern KEY_Thai_thanthakhat = 3564 :: Int32 - - -pattern KEY_Thai_sosua = 3530 :: Int32 - - -pattern KEY_Thai_soso = 3499 :: Int32 - - -pattern KEY_Thai_sosala = 3528 :: Int32 - - -pattern KEY_Thai_sorusi = 3529 :: Int32 - - -pattern KEY_Thai_sarauu = 3545 :: Int32 - - -pattern KEY_Thai_sarauee = 3543 :: Int32 - - -pattern KEY_Thai_saraue = 3542 :: Int32 - - -pattern KEY_Thai_sarau = 3544 :: Int32 - - -pattern KEY_Thai_sarao = 3554 :: Int32 - - -pattern KEY_Thai_saraii = 3541 :: Int32 - - -pattern KEY_Thai_sarai = 3540 :: Int32 - - -pattern KEY_Thai_sarae = 3552 :: Int32 - - -pattern KEY_Thai_saraam = 3539 :: Int32 - - -pattern KEY_Thai_saraaimaimuan = 3555 :: Int32 - - -pattern KEY_Thai_saraaimaimalai = 3556 :: Int32 - - -pattern KEY_Thai_saraae = 3553 :: Int32 - - -pattern KEY_Thai_saraaa = 3538 :: Int32 - - -pattern KEY_Thai_saraa = 3536 :: Int32 - - -pattern KEY_Thai_ru = 3524 :: Int32 - - -pattern KEY_Thai_rorua = 3523 :: Int32 - - -pattern KEY_Thai_popla = 3515 :: Int32 - - -pattern KEY_Thai_phosamphao = 3520 :: Int32 - - -pattern KEY_Thai_phophung = 3516 :: Int32 - - -pattern KEY_Thai_phophan = 3518 :: Int32 - - -pattern KEY_Thai_phinthu = 3546 :: Int32 - - -pattern KEY_Thai_paiyannoi = 3535 :: Int32 - - -pattern KEY_Thai_oang = 3533 :: Int32 - - -pattern KEY_Thai_nonu = 3513 :: Int32 - - -pattern KEY_Thai_nonen = 3507 :: Int32 - - -pattern KEY_Thai_nikhahit = 3565 :: Int32 - - -pattern KEY_Thai_ngongu = 3495 :: Int32 - - -pattern KEY_Thai_moma = 3521 :: Int32 - - -pattern KEY_Thai_maiyamok = 3558 :: Int32 - - -pattern KEY_Thai_maitri = 3562 :: Int32 - - -pattern KEY_Thai_maitho = 3561 :: Int32 - - -pattern KEY_Thai_maitaikhu = 3559 :: Int32 - - -pattern KEY_Thai_maihanakat_maitho = 3550 :: Int32 - - -pattern KEY_Thai_maihanakat = 3537 :: Int32 - - -pattern KEY_Thai_maiek = 3560 :: Int32 - - -pattern KEY_Thai_maichattawa = 3563 :: Int32 - - -pattern KEY_Thai_lu = 3526 :: Int32 - - -pattern KEY_Thai_loling = 3525 :: Int32 - - -pattern KEY_Thai_lochula = 3532 :: Int32 - - -pattern KEY_Thai_leksun = 3568 :: Int32 - - -pattern KEY_Thai_leksong = 3570 :: Int32 - - -pattern KEY_Thai_leksi = 3572 :: Int32 - - -pattern KEY_Thai_leksam = 3571 :: Int32 - - -pattern KEY_Thai_lekpaet = 3576 :: Int32 - - -pattern KEY_Thai_leknung = 3569 :: Int32 - - -pattern KEY_Thai_lekkao = 3577 :: Int32 - - -pattern KEY_Thai_lekhok = 3574 :: Int32 - - -pattern KEY_Thai_lekha = 3573 :: Int32 - - -pattern KEY_Thai_lekchet = 3575 :: Int32 - - -pattern KEY_Thai_lakkhangyao = 3557 :: Int32 - - -pattern KEY_Thai_kokai = 3489 :: Int32 - - -pattern KEY_Thai_khorakhang = 3494 :: Int32 - - -pattern KEY_Thai_khokhwai = 3492 :: Int32 - - -pattern KEY_Thai_khokhuat = 3491 :: Int32 - - -pattern KEY_Thai_khokhon = 3493 :: Int32 - - -pattern KEY_Thai_khokhai = 3490 :: Int32 - - -pattern KEY_Thai_honokhuk = 3534 :: Int32 - - -pattern KEY_Thai_hohip = 3531 :: Int32 - - -pattern KEY_Thai_fofan = 3519 :: Int32 - - -pattern KEY_Thai_fofa = 3517 :: Int32 - - -pattern KEY_Thai_dodek = 3508 :: Int32 - - -pattern KEY_Thai_dochada = 3502 :: Int32 - - -pattern KEY_Thai_chochoe = 3500 :: Int32 - - -pattern KEY_Thai_choching = 3497 :: Int32 - - -pattern KEY_Thai_chochang = 3498 :: Int32 - - -pattern KEY_Thai_chochan = 3496 :: Int32 - - -pattern KEY_Thai_bobaimai = 3514 :: Int32 - - -pattern KEY_Thai_baht = 3551 :: Int32 - - -pattern KEY_Terminate_Server = 65237 :: Int32 - - -pattern KEY_Terminal = 269025152 :: Int32 - - -pattern KEY_Tcedilla = 478 :: Int32 - - -pattern KEY_Tcaron = 427 :: Int32 - - -pattern KEY_TaskPane = 269025151 :: Int32 - - -pattern KEY_Tabovedot = 16785002 :: Int32 - - -pattern KEY_Tab = 65289 :: Int32 - - -pattern KEY_THORN = 222 :: Int32 - - -pattern KEY_T = 84 :: Int32 - - -pattern KEY_Sys_Req = 65301 :: Int32 - - -pattern KEY_Switch_VT_9 = 269024777 :: Int32 - - -pattern KEY_Switch_VT_8 = 269024776 :: Int32 - - -pattern KEY_Switch_VT_7 = 269024775 :: Int32 - - -pattern KEY_Switch_VT_6 = 269024774 :: Int32 - - -pattern KEY_Switch_VT_5 = 269024773 :: Int32 - - -pattern KEY_Switch_VT_4 = 269024772 :: Int32 - - -pattern KEY_Switch_VT_3 = 269024771 :: Int32 - - -pattern KEY_Switch_VT_2 = 269024770 :: Int32 - - -pattern KEY_Switch_VT_12 = 269024780 :: Int32 - - -pattern KEY_Switch_VT_11 = 269024779 :: Int32 - - -pattern KEY_Switch_VT_10 = 269024778 :: Int32 - - -pattern KEY_Switch_VT_1 = 269024769 :: Int32 - - -pattern KEY_Suspend = 269025191 :: Int32 - - -pattern KEY_Support = 269025150 :: Int32 - - -pattern KEY_Super_R = 65516 :: Int32 - - -pattern KEY_Super_L = 65515 :: Int32 - - -pattern KEY_Subtitle = 269025178 :: Int32 - - -pattern KEY_Stop = 269025064 :: Int32 - - -pattern KEY_StickyKeys_Enable = 65141 :: Int32 - - -pattern KEY_Start = 269025050 :: Int32 - - -pattern KEY_Standby = 269025040 :: Int32 - - -pattern KEY_SplitScreen = 269025149 :: Int32 - - -pattern KEY_Spell = 269025148 :: Int32 - - -pattern KEY_SlowKeys_Enable = 65139 :: Int32 - - -pattern KEY_Sleep = 269025071 :: Int32 - - -pattern KEY_Sinh_ya = 16780730 :: Int32 - - -pattern KEY_Sinh_va = 16780736 :: Int32 - - -pattern KEY_Sinh_uu2 = 16780758 :: Int32 - - -pattern KEY_Sinh_uu = 16780684 :: Int32 - - -pattern KEY_Sinh_u2 = 16780756 :: Int32 - - -pattern KEY_Sinh_u = 16780683 :: Int32 - - -pattern KEY_Sinh_ttha = 16780712 :: Int32 - - -pattern KEY_Sinh_tta = 16780711 :: Int32 - - -pattern KEY_Sinh_thha = 16780718 :: Int32 - - -pattern KEY_Sinh_tha = 16780717 :: Int32 - - -pattern KEY_Sinh_ssha = 16780738 :: Int32 - - -pattern KEY_Sinh_sha = 16780737 :: Int32 - - -pattern KEY_Sinh_sa = 16780739 :: Int32 - - -pattern KEY_Sinh_ruu2 = 16780786 :: Int32 - - -pattern KEY_Sinh_ru2 = 16780760 :: Int32 - - -pattern KEY_Sinh_rii = 16780686 :: Int32 - - -pattern KEY_Sinh_ri = 16780685 :: Int32 - - -pattern KEY_Sinh_ra = 16780731 :: Int32 - - -pattern KEY_Sinh_pha = 16780725 :: Int32 - - -pattern KEY_Sinh_pa = 16780724 :: Int32 - - -pattern KEY_Sinh_oo2 = 16780765 :: Int32 - - -pattern KEY_Sinh_oo = 16780693 :: Int32 - - -pattern KEY_Sinh_o2 = 16780764 :: Int32 - - -pattern KEY_Sinh_o = 16780692 :: Int32 - - -pattern KEY_Sinh_nya = 16780708 :: Int32 - - -pattern KEY_Sinh_nna = 16780715 :: Int32 - - -pattern KEY_Sinh_nja = 16780710 :: Int32 - - -pattern KEY_Sinh_nga = 16780703 :: Int32 - - -pattern KEY_Sinh_ng2 = 16780702 :: Int32 - - -pattern KEY_Sinh_ng = 16780674 :: Int32 - - -pattern KEY_Sinh_ndha = 16780723 :: Int32 - - -pattern KEY_Sinh_ndda = 16780716 :: Int32 - - -pattern KEY_Sinh_na = 16780721 :: Int32 - - -pattern KEY_Sinh_mba = 16780729 :: Int32 - - -pattern KEY_Sinh_ma = 16780728 :: Int32 - - -pattern KEY_Sinh_luu2 = 16780787 :: Int32 - - -pattern KEY_Sinh_luu = 16780688 :: Int32 - - -pattern KEY_Sinh_lu2 = 16780767 :: Int32 - - -pattern KEY_Sinh_lu = 16780687 :: Int32 - - -pattern KEY_Sinh_lla = 16780741 :: Int32 - - -pattern KEY_Sinh_la = 16780733 :: Int32 - - -pattern KEY_Sinh_kunddaliya = 16780788 :: Int32 - - -pattern KEY_Sinh_kha = 16780699 :: Int32 - - -pattern KEY_Sinh_ka = 16780698 :: Int32 - - -pattern KEY_Sinh_jnya = 16780709 :: Int32 - - -pattern KEY_Sinh_jha = 16780707 :: Int32 - - -pattern KEY_Sinh_ja = 16780706 :: Int32 - - -pattern KEY_Sinh_ii2 = 16780755 :: Int32 - - -pattern KEY_Sinh_ii = 16780682 :: Int32 - - -pattern KEY_Sinh_i2 = 16780754 :: Int32 - - -pattern KEY_Sinh_i = 16780681 :: Int32 - - -pattern KEY_Sinh_ha = 16780740 :: Int32 - - -pattern KEY_Sinh_h2 = 16780675 :: Int32 - - -pattern KEY_Sinh_gha = 16780701 :: Int32 - - -pattern KEY_Sinh_ga = 16780700 :: Int32 - - -pattern KEY_Sinh_fa = 16780742 :: Int32 - - -pattern KEY_Sinh_ee2 = 16780762 :: Int32 - - -pattern KEY_Sinh_ee = 16780690 :: Int32 - - -pattern KEY_Sinh_e2 = 16780761 :: Int32 - - -pattern KEY_Sinh_e = 16780689 :: Int32 - - -pattern KEY_Sinh_dhha = 16780720 :: Int32 - - -pattern KEY_Sinh_dha = 16780719 :: Int32 - - -pattern KEY_Sinh_ddha = 16780714 :: Int32 - - -pattern KEY_Sinh_dda = 16780713 :: Int32 - - -pattern KEY_Sinh_cha = 16780705 :: Int32 - - -pattern KEY_Sinh_ca = 16780704 :: Int32 - - -pattern KEY_Sinh_bha = 16780727 :: Int32 - - -pattern KEY_Sinh_ba = 16780726 :: Int32 - - -pattern KEY_Sinh_au2 = 16780766 :: Int32 - - -pattern KEY_Sinh_au = 16780694 :: Int32 - - -pattern KEY_Sinh_al = 16780746 :: Int32 - - -pattern KEY_Sinh_ai2 = 16780763 :: Int32 - - -pattern KEY_Sinh_ai = 16780691 :: Int32 - - -pattern KEY_Sinh_aee2 = 16780753 :: Int32 - - -pattern KEY_Sinh_aee = 16780680 :: Int32 - - -pattern KEY_Sinh_ae2 = 16780752 :: Int32 - - -pattern KEY_Sinh_ae = 16780679 :: Int32 - - -pattern KEY_Sinh_aa2 = 16780751 :: Int32 - - -pattern KEY_Sinh_aa = 16780678 :: Int32 - - -pattern KEY_Sinh_a = 16780677 :: Int32 - - -pattern KEY_SingleCandidate = 65340 :: Int32 - - -pattern KEY_Shop = 269025078 :: Int32 - - -pattern KEY_Shift_R = 65506 :: Int32 - - -pattern KEY_Shift_Lock = 65510 :: Int32 - - -pattern KEY_Shift_L = 65505 :: Int32 - - -pattern KEY_Serbian_tshe = 1707 :: Int32 - - -pattern KEY_Serbian_nje = 1706 :: Int32 - - -pattern KEY_Serbian_lje = 1705 :: Int32 - - -pattern KEY_Serbian_je = 1704 :: Int32 - - -pattern KEY_Serbian_dze = 1711 :: Int32 - - -pattern KEY_Serbian_dje = 1697 :: Int32 - - -pattern KEY_Serbian_TSHE = 1723 :: Int32 - - -pattern KEY_Serbian_NJE = 1722 :: Int32 - - -pattern KEY_Serbian_LJE = 1721 :: Int32 - - -pattern KEY_Serbian_JE = 1720 :: Int32 - - -pattern KEY_Serbian_DZE = 1727 :: Int32 - - -pattern KEY_Serbian_DJE = 1713 :: Int32 - - -pattern KEY_Send = 269025147 :: Int32 - - -pattern KEY_SelectButton = 269025184 :: Int32 - - -pattern KEY_Select = 65376 :: Int32 - - -pattern KEY_Search = 269025051 :: Int32 - - -pattern KEY_Scroll_Lock = 65300 :: Int32 - - -pattern KEY_ScrollUp = 269025144 :: Int32 - - -pattern KEY_ScrollDown = 269025145 :: Int32 - - -pattern KEY_ScrollClick = 269025146 :: Int32 - - -pattern KEY_ScreenSaver = 269025069 :: Int32 - - -pattern KEY_Scircumflex = 734 :: Int32 - - -pattern KEY_Scedilla = 426 :: Int32 - - -pattern KEY_Scaron = 425 :: Int32 - - -pattern KEY_Save = 269025143 :: Int32 - - -pattern KEY_Sacute = 422 :: Int32 - - -pattern KEY_Sabovedot = 16784992 :: Int32 - - -pattern KEY_SCHWA = 16777615 :: Int32 - - -pattern KEY_S = 83 :: Int32 - - -pattern KEY_RupeeSign = 16785576 :: Int32 - - -pattern KEY_RotationPB = 269025141 :: Int32 - - -pattern KEY_RotationKB = 269025142 :: Int32 - - -pattern KEY_RotateWindows = 269025140 :: Int32 - - -pattern KEY_Romaji = 65316 :: Int32 - - -pattern KEY_RockerUp = 269025059 :: Int32 - - -pattern KEY_RockerEnter = 269025061 :: Int32 - - -pattern KEY_RockerDown = 269025060 :: Int32 - - -pattern KEY_Right = 65363 :: Int32 - - -pattern KEY_Return = 65293 :: Int32 - - -pattern KEY_Reply = 269025138 :: Int32 - - -pattern KEY_RepeatKeys_Enable = 65138 :: Int32 - - -pattern KEY_Reload = 269025139 :: Int32 - - -pattern KEY_Refresh = 269025065 :: Int32 - - -pattern KEY_Redo = 65382 :: Int32 - - -pattern KEY_Red = 269025187 :: Int32 - - -pattern KEY_Rcedilla = 931 :: Int32 - - -pattern KEY_Rcaron = 472 :: Int32 - - -pattern KEY_Racute = 448 :: Int32 - - -pattern KEY_R9 = 65498 :: Int32 - - -pattern KEY_R8 = 65497 :: Int32 - - -pattern KEY_R7 = 65496 :: Int32 - - -pattern KEY_R6 = 65495 :: Int32 - - -pattern KEY_R5 = 65494 :: Int32 - - -pattern KEY_R4 = 65493 :: Int32 - - -pattern KEY_R3 = 65492 :: Int32 - - -pattern KEY_R2 = 65491 :: Int32 - - -pattern KEY_R15 = 65504 :: Int32 - - -pattern KEY_R14 = 65503 :: Int32 - - -pattern KEY_R13 = 65502 :: Int32 - - -pattern KEY_R12 = 65501 :: Int32 - - -pattern KEY_R11 = 65500 :: Int32 - - -pattern KEY_R10 = 65499 :: Int32 - - -pattern KEY_R1 = 65490 :: Int32 - - -pattern KEY_R = 82 :: Int32 - - -pattern KEY_Q = 81 :: Int32 - - -pattern KEY_Prior = 65365 :: Int32 - - -pattern KEY_Print = 65377 :: Int32 - - -pattern KEY_PreviousCandidate = 65342 :: Int32 - - -pattern KEY_Prev_Virtual_Screen = 65233 :: Int32 - - -pattern KEY_Prev_VMode = 269024803 :: Int32 - - -pattern KEY_PowerOff = 269025066 :: Int32 - - -pattern KEY_PowerDown = 269025057 :: Int32 - - -pattern KEY_Pointer_UpRight = 65253 :: Int32 - - -pattern KEY_Pointer_UpLeft = 65252 :: Int32 - - -pattern KEY_Pointer_Up = 65250 :: Int32 - - -pattern KEY_Pointer_Right = 65249 :: Int32 - - -pattern KEY_Pointer_Left = 65248 :: Int32 - - -pattern KEY_Pointer_EnableKeys = 65273 :: Int32 - - -pattern KEY_Pointer_Drag_Dflt = 65268 :: Int32 - - -pattern KEY_Pointer_Drag5 = 65277 :: Int32 - - -pattern KEY_Pointer_Drag4 = 65272 :: Int32 - - -pattern KEY_Pointer_Drag3 = 65271 :: Int32 - - -pattern KEY_Pointer_Drag2 = 65270 :: Int32 - - -pattern KEY_Pointer_Drag1 = 65269 :: Int32 - - -pattern KEY_Pointer_DownRight = 65255 :: Int32 - - -pattern KEY_Pointer_DownLeft = 65254 :: Int32 - - -pattern KEY_Pointer_Down = 65251 :: Int32 - - -pattern KEY_Pointer_DfltBtnPrev = 65276 :: Int32 - - -pattern KEY_Pointer_DfltBtnNext = 65275 :: Int32 - - -pattern KEY_Pointer_DblClick_Dflt = 65262 :: Int32 - - -pattern KEY_Pointer_DblClick5 = 65267 :: Int32 - - -pattern KEY_Pointer_DblClick4 = 65266 :: Int32 - - -pattern KEY_Pointer_DblClick3 = 65265 :: Int32 - - -pattern KEY_Pointer_DblClick2 = 65264 :: Int32 - - -pattern KEY_Pointer_DblClick1 = 65263 :: Int32 - - -pattern KEY_Pointer_Button_Dflt = 65256 :: Int32 - - -pattern KEY_Pointer_Button5 = 65261 :: Int32 - - -pattern KEY_Pointer_Button4 = 65260 :: Int32 - - -pattern KEY_Pointer_Button3 = 65259 :: Int32 - - -pattern KEY_Pointer_Button2 = 65258 :: Int32 - - -pattern KEY_Pointer_Button1 = 65257 :: Int32 - - -pattern KEY_Pointer_Accelerate = 65274 :: Int32 - - -pattern KEY_Pictures = 269025169 :: Int32 - - -pattern KEY_Phone = 269025134 :: Int32 - - -pattern KEY_PesetaSign = 16785575 :: Int32 - - -pattern KEY_Pause = 65299 :: Int32 - - -pattern KEY_Paste = 269025133 :: Int32 - - -pattern KEY_Page_Up = 65365 :: Int32 - - -pattern KEY_Page_Down = 65366 :: Int32 - - -pattern KEY_Pabovedot = 16784982 :: Int32 - - -pattern KEY_P = 80 :: Int32 - - -pattern KEY_Overlay2_Enable = 65145 :: Int32 - - -pattern KEY_Overlay1_Enable = 65144 :: Int32 - - -pattern KEY_Otilde = 213 :: Int32 - - -pattern KEY_Oslash = 216 :: Int32 - - -pattern KEY_Option = 269025132 :: Int32 - - -pattern KEY_OpenURL = 269025080 :: Int32 - - -pattern KEY_Open = 269025131 :: Int32 - - -pattern KEY_Ooblique = 216 :: Int32 - - -pattern KEY_Omacron = 978 :: Int32 - - -pattern KEY_Ohorntilde = 16785120 :: Int32 - - -pattern KEY_Ohornhook = 16785118 :: Int32 - - -pattern KEY_Ohorngrave = 16785116 :: Int32 - - -pattern KEY_Ohornbelowdot = 16785122 :: Int32 - - -pattern KEY_Ohornacute = 16785114 :: Int32 - - -pattern KEY_Ohorn = 16777632 :: Int32 - - -pattern KEY_Ohook = 16785102 :: Int32 - - -pattern KEY_Ograve = 210 :: Int32 - - -pattern KEY_OfficeHome = 269025130 :: Int32 - - -pattern KEY_Odoubleacute = 469 :: Int32 - - -pattern KEY_Odiaeresis = 214 :: Int32 - - -pattern KEY_Ocircumflextilde = 16785110 :: Int32 - - -pattern KEY_Ocircumflexhook = 16785108 :: Int32 - - -pattern KEY_Ocircumflexgrave = 16785106 :: Int32 - - -pattern KEY_Ocircumflexbelowdot = 16785112 :: Int32 - - -pattern KEY_Ocircumflexacute = 16785104 :: Int32 - - -pattern KEY_Ocircumflex = 212 :: Int32 - - -pattern KEY_Ocaron = 16777681 :: Int32 - - -pattern KEY_Obelowdot = 16785100 :: Int32 - - -pattern KEY_Obarred = 16777631 :: Int32 - - -pattern KEY_Oacute = 211 :: Int32 - - -pattern KEY_OE = 5052 :: Int32 - - -pattern KEY_O = 79 :: Int32 - - -pattern KEY_Num_Lock = 65407 :: Int32 - - -pattern KEY_Ntilde = 209 :: Int32 - - -pattern KEY_Next_Virtual_Screen = 65234 :: Int32 - - -pattern KEY_Next_VMode = 269024802 :: Int32 - - -pattern KEY_Next = 65366 :: Int32 - - -pattern KEY_News = 269025129 :: Int32 - - -pattern KEY_NewSheqelSign = 16785578 :: Int32 - - -pattern KEY_New = 269025128 :: Int32 - - -pattern KEY_Ncedilla = 977 :: Int32 - - -pattern KEY_Ncaron = 466 :: Int32 - - -pattern KEY_NairaSign = 16785574 :: Int32 - - -pattern KEY_Nacute = 465 :: Int32 - - -pattern KEY_N = 78 :: Int32 - - -pattern KEY_MySites = 269025127 :: Int32 - - -pattern KEY_MyComputer = 269025075 :: Int32 - - -pattern KEY_Music = 269025170 :: Int32 - - -pattern KEY_MultipleCandidate = 65341 :: Int32 - - -pattern KEY_Multi_key = 65312 :: Int32 - - -pattern KEY_Muhenkan = 65314 :: Int32 - - -pattern KEY_MouseKeys_Enable = 65142 :: Int32 - - -pattern KEY_MouseKeys_Accel_Enable = 65143 :: Int32 - - -pattern KEY_MonBrightnessUp = 269025026 :: Int32 - - -pattern KEY_MonBrightnessDown = 269025027 :: Int32 - - -pattern KEY_Mode_switch = 65406 :: Int32 - - -pattern KEY_ModeLock = 269025025 :: Int32 - - -pattern KEY_MillSign = 16785573 :: Int32 - - -pattern KEY_Meta_R = 65512 :: Int32 - - -pattern KEY_Meta_L = 65511 :: Int32 - - -pattern KEY_Messenger = 269025166 :: Int32 - - -pattern KEY_MenuPB = 269025126 :: Int32 - - -pattern KEY_MenuKB = 269025125 :: Int32 - - -pattern KEY_Menu = 65383 :: Int32 - - -pattern KEY_Memo = 269025054 :: Int32 - - -pattern KEY_Meeting = 269025123 :: Int32 - - -pattern KEY_Massyo = 65324 :: Int32 - - -pattern KEY_Market = 269025122 :: Int32 - - -pattern KEY_MailForward = 269025168 :: Int32 - - -pattern KEY_Mail = 269025049 :: Int32 - - -pattern KEY_Mae_Koho = 65342 :: Int32 - - -pattern KEY_Macedonia_kje = 1708 :: Int32 - - -pattern KEY_Macedonia_gje = 1698 :: Int32 - - -pattern KEY_Macedonia_dse = 1701 :: Int32 - - -pattern KEY_Macedonia_KJE = 1724 :: Int32 - - -pattern KEY_Macedonia_GJE = 1714 :: Int32 - - -pattern KEY_Macedonia_DSE = 1717 :: Int32 - - -pattern KEY_Mabovedot = 16784960 :: Int32 - - -pattern KEY_M = 77 :: Int32 - - -pattern KEY_Lstroke = 419 :: Int32 - - -pattern KEY_LogWindowTree = 269024804 :: Int32 - - -pattern KEY_LogOff = 269025121 :: Int32 - - -pattern KEY_LogGrabInfo = 269024805 :: Int32 - - -pattern KEY_LiraSign = 16785572 :: Int32 - - -pattern KEY_Linefeed = 65290 :: Int32 - - -pattern KEY_LightBulb = 269025077 :: Int32 - - -pattern KEY_Left = 65361 :: Int32 - - -pattern KEY_Lcedilla = 934 :: Int32 - - -pattern KEY_Lcaron = 421 :: Int32 - - -pattern KEY_Lbelowdot = 16784950 :: Int32 - - -pattern KEY_LaunchF = 269025103 :: Int32 - - -pattern KEY_LaunchE = 269025102 :: Int32 - - -pattern KEY_LaunchD = 269025101 :: Int32 - - -pattern KEY_LaunchC = 269025100 :: Int32 - - -pattern KEY_LaunchB = 269025099 :: Int32 - - -pattern KEY_LaunchA = 269025098 :: Int32 - - -pattern KEY_Launch9 = 269025097 :: Int32 - - -pattern KEY_Launch8 = 269025096 :: Int32 - - -pattern KEY_Launch7 = 269025095 :: Int32 - - -pattern KEY_Launch6 = 269025094 :: Int32 - - -pattern KEY_Launch5 = 269025093 :: Int32 - - -pattern KEY_Launch4 = 269025092 :: Int32 - - -pattern KEY_Launch3 = 269025091 :: Int32 - - -pattern KEY_Launch2 = 269025090 :: Int32 - - -pattern KEY_Launch1 = 269025089 :: Int32 - - -pattern KEY_Launch0 = 269025088 :: Int32 - - -pattern KEY_Last_Virtual_Screen = 65236 :: Int32 - - -pattern KEY_Lacute = 453 :: Int32 - - -pattern KEY_L9 = 65488 :: Int32 - - -pattern KEY_L8 = 65487 :: Int32 - - -pattern KEY_L7 = 65486 :: Int32 - - -pattern KEY_L6 = 65485 :: Int32 - - -pattern KEY_L5 = 65484 :: Int32 - - -pattern KEY_L4 = 65483 :: Int32 - - -pattern KEY_L3 = 65482 :: Int32 - - -pattern KEY_L2 = 65481 :: Int32 - - -pattern KEY_L10 = 65489 :: Int32 - - -pattern KEY_L1 = 65480 :: Int32 - - -pattern KEY_L = 76 :: Int32 - - -pattern KEY_Korean_Won = 3839 :: Int32 - - -pattern KEY_Kcedilla = 979 :: Int32 - - -pattern KEY_KbdLightOnOff = 269025028 :: Int32 - - -pattern KEY_KbdBrightnessUp = 269025029 :: Int32 - - -pattern KEY_KbdBrightnessDown = 269025030 :: Int32 - - -pattern KEY_Katakana = 65318 :: Int32 - - -pattern KEY_Kanji_Bangou = 65335 :: Int32 - - -pattern KEY_Kanji = 65313 :: Int32 - - -pattern KEY_Kana_Shift = 65326 :: Int32 - - -pattern KEY_Kana_Lock = 65325 :: Int32 - - -pattern KEY_KP_Up = 65431 :: Int32 - - -pattern KEY_KP_Tab = 65417 :: Int32 - - -pattern KEY_KP_Subtract = 65453 :: Int32 - - -pattern KEY_KP_Space = 65408 :: Int32 - - -pattern KEY_KP_Separator = 65452 :: Int32 - - -pattern KEY_KP_Right = 65432 :: Int32 - - -pattern KEY_KP_Prior = 65434 :: Int32 - - -pattern KEY_KP_Page_Up = 65434 :: Int32 - - -pattern KEY_KP_Page_Down = 65435 :: Int32 - - -pattern KEY_KP_Next = 65435 :: Int32 - - -pattern KEY_KP_Multiply = 65450 :: Int32 - - -pattern KEY_KP_Left = 65430 :: Int32 - - -pattern KEY_KP_Insert = 65438 :: Int32 - - -pattern KEY_KP_Home = 65429 :: Int32 - - -pattern KEY_KP_F4 = 65428 :: Int32 - - -pattern KEY_KP_F3 = 65427 :: Int32 - - -pattern KEY_KP_F2 = 65426 :: Int32 - - -pattern KEY_KP_F1 = 65425 :: Int32 - - -pattern KEY_KP_Equal = 65469 :: Int32 - - -pattern KEY_KP_Enter = 65421 :: Int32 - - -pattern KEY_KP_End = 65436 :: Int32 - - -pattern KEY_KP_Down = 65433 :: Int32 - - -pattern KEY_KP_Divide = 65455 :: Int32 - - -pattern KEY_KP_Delete = 65439 :: Int32 - - -pattern KEY_KP_Decimal = 65454 :: Int32 - - -pattern KEY_KP_Begin = 65437 :: Int32 - - -pattern KEY_KP_Add = 65451 :: Int32 - - -pattern KEY_KP_9 = 65465 :: Int32 - - -pattern KEY_KP_8 = 65464 :: Int32 - - -pattern KEY_KP_7 = 65463 :: Int32 - - -pattern KEY_KP_6 = 65462 :: Int32 - - -pattern KEY_KP_5 = 65461 :: Int32 - - -pattern KEY_KP_4 = 65460 :: Int32 - - -pattern KEY_KP_3 = 65459 :: Int32 - - -pattern KEY_KP_2 = 65458 :: Int32 - - -pattern KEY_KP_1 = 65457 :: Int32 - - -pattern KEY_KP_0 = 65456 :: Int32 - - -pattern KEY_K = 75 :: Int32 - - -pattern KEY_Jcircumflex = 684 :: Int32 - - -pattern KEY_J = 74 :: Int32 - - -pattern KEY_Itilde = 933 :: Int32 - - -pattern KEY_Iogonek = 967 :: Int32 - - -pattern KEY_Insert = 65379 :: Int32 - - -pattern KEY_Imacron = 975 :: Int32 - - -pattern KEY_Ihook = 16785096 :: Int32 - - -pattern KEY_Igrave = 204 :: Int32 - - -pattern KEY_Idiaeresis = 207 :: Int32 - - -pattern KEY_Icircumflex = 206 :: Int32 - - -pattern KEY_Ibreve = 16777516 :: Int32 - - -pattern KEY_Ibelowdot = 16785098 :: Int32 - - -pattern KEY_Iacute = 205 :: Int32 - - -pattern KEY_Iabovedot = 681 :: Int32 - - -pattern KEY_ISO_Set_Margin_Right = 65064 :: Int32 - - -pattern KEY_ISO_Set_Margin_Left = 65063 :: Int32 - - -pattern KEY_ISO_Release_Margin_Right = 65066 :: Int32 - - -pattern KEY_ISO_Release_Margin_Left = 65065 :: Int32 - - -pattern KEY_ISO_Release_Both_Margins = 65067 :: Int32 - - -pattern KEY_ISO_Prev_Group_Lock = 65035 :: Int32 - - -pattern KEY_ISO_Prev_Group = 65034 :: Int32 - - -pattern KEY_ISO_Partial_Space_Right = 65062 :: Int32 - - -pattern KEY_ISO_Partial_Space_Left = 65061 :: Int32 - - -pattern KEY_ISO_Partial_Line_Up = 65059 :: Int32 - - -pattern KEY_ISO_Partial_Line_Down = 65060 :: Int32 - - -pattern KEY_ISO_Next_Group_Lock = 65033 :: Int32 - - -pattern KEY_ISO_Next_Group = 65032 :: Int32 - - -pattern KEY_ISO_Move_Line_Up = 65057 :: Int32 - - -pattern KEY_ISO_Move_Line_Down = 65058 :: Int32 - - -pattern KEY_ISO_Lock = 65025 :: Int32 - - -pattern KEY_ISO_Level5_Shift = 65041 :: Int32 - - -pattern KEY_ISO_Level5_Lock = 65043 :: Int32 - - -pattern KEY_ISO_Level5_Latch = 65042 :: Int32 - - -pattern KEY_ISO_Level3_Shift = 65027 :: Int32 - - -pattern KEY_ISO_Level3_Lock = 65029 :: Int32 - - -pattern KEY_ISO_Level3_Latch = 65028 :: Int32 - - -pattern KEY_ISO_Level2_Latch = 65026 :: Int32 - - -pattern KEY_ISO_Left_Tab = 65056 :: Int32 - - -pattern KEY_ISO_Last_Group_Lock = 65039 :: Int32 - - -pattern KEY_ISO_Last_Group = 65038 :: Int32 - - -pattern KEY_ISO_Group_Shift = 65406 :: Int32 - - -pattern KEY_ISO_Group_Lock = 65031 :: Int32 - - -pattern KEY_ISO_Group_Latch = 65030 :: Int32 - - -pattern KEY_ISO_First_Group_Lock = 65037 :: Int32 - - -pattern KEY_ISO_First_Group = 65036 :: Int32 - - -pattern KEY_ISO_Fast_Cursor_Up = 65070 :: Int32 - - -pattern KEY_ISO_Fast_Cursor_Right = 65069 :: Int32 - - -pattern KEY_ISO_Fast_Cursor_Left = 65068 :: Int32 - - -pattern KEY_ISO_Fast_Cursor_Down = 65071 :: Int32 - - -pattern KEY_ISO_Enter = 65076 :: Int32 - - -pattern KEY_ISO_Emphasize = 65074 :: Int32 - - -pattern KEY_ISO_Discontinuous_Underline = 65073 :: Int32 - - -pattern KEY_ISO_Continuous_Underline = 65072 :: Int32 - - -pattern KEY_ISO_Center_Object = 65075 :: Int32 - - -pattern KEY_I = 73 :: Int32 - - -pattern KEY_Hyper_R = 65518 :: Int32 - - -pattern KEY_Hyper_L = 65517 :: Int32 - - -pattern KEY_Hstroke = 673 :: Int32 - - -pattern KEY_HotLinks = 269025082 :: Int32 - - -pattern KEY_HomePage = 269025048 :: Int32 - - -pattern KEY_Home = 65360 :: Int32 - - -pattern KEY_History = 269025079 :: Int32 - - -pattern KEY_Hiragana_Katakana = 65319 :: Int32 - - -pattern KEY_Hiragana = 65317 :: Int32 - - -pattern KEY_Hibernate = 269025192 :: Int32 - - -pattern KEY_Henkan_Mode = 65315 :: Int32 - - -pattern KEY_Henkan = 65315 :: Int32 - - -pattern KEY_Help = 65386 :: Int32 - - -pattern KEY_Hebrew_switch = 65406 :: Int32 - - -pattern KEY_Hcircumflex = 678 :: Int32 - - -pattern KEY_Hankaku = 65321 :: Int32 - - -pattern KEY_Hangul_switch = 65406 :: Int32 - - -pattern KEY_Hangul_YeorinHieuh = 3829 :: Int32 - - -pattern KEY_Hangul_YU = 3792 :: Int32 - - -pattern KEY_Hangul_YO = 3787 :: Int32 - - -pattern KEY_Hangul_YI = 3794 :: Int32 - - -pattern KEY_Hangul_YEO = 3781 :: Int32 - - -pattern KEY_Hangul_YE = 3782 :: Int32 - - -pattern KEY_Hangul_YAE = 3778 :: Int32 - - -pattern KEY_Hangul_YA = 3777 :: Int32 - - -pattern KEY_Hangul_WI = 3791 :: Int32 - - -pattern KEY_Hangul_WEO = 3789 :: Int32 - - -pattern KEY_Hangul_WE = 3790 :: Int32 - - -pattern KEY_Hangul_WAE = 3785 :: Int32 - - -pattern KEY_Hangul_WA = 3784 :: Int32 - - -pattern KEY_Hangul_U = 3788 :: Int32 - - -pattern KEY_Hangul_Tieut = 3772 :: Int32 - - -pattern KEY_Hangul_SunkyeongeumPieub = 3825 :: Int32 - - -pattern KEY_Hangul_SunkyeongeumPhieuf = 3828 :: Int32 - - -pattern KEY_Hangul_SunkyeongeumMieum = 3824 :: Int32 - - -pattern KEY_Hangul_Start = 65330 :: Int32 - - -pattern KEY_Hangul_SsangSios = 3766 :: Int32 - - -pattern KEY_Hangul_SsangPieub = 3763 :: Int32 - - -pattern KEY_Hangul_SsangKiyeog = 3746 :: Int32 - - -pattern KEY_Hangul_SsangJieuj = 3769 :: Int32 - - -pattern KEY_Hangul_SsangDikeud = 3752 :: Int32 - - -pattern KEY_Hangul_Special = 65343 :: Int32 - - -pattern KEY_Hangul_Sios = 3765 :: Int32 - - -pattern KEY_Hangul_SingleCandidate = 65340 :: Int32 - - -pattern KEY_Hangul_Romaja = 65334 :: Int32 - - -pattern KEY_Hangul_RieulYeorinHieuh = 3823 :: Int32 - - -pattern KEY_Hangul_RieulTieut = 3758 :: Int32 - - -pattern KEY_Hangul_RieulSios = 3757 :: Int32 - - -pattern KEY_Hangul_RieulPieub = 3756 :: Int32 - - -pattern KEY_Hangul_RieulPhieuf = 3759 :: Int32 - - -pattern KEY_Hangul_RieulMieum = 3755 :: Int32 - - -pattern KEY_Hangul_RieulKiyeog = 3754 :: Int32 - - -pattern KEY_Hangul_RieulHieuh = 3760 :: Int32 - - -pattern KEY_Hangul_Rieul = 3753 :: Int32 - - -pattern KEY_Hangul_PreviousCandidate = 65342 :: Int32 - - -pattern KEY_Hangul_PreHanja = 65338 :: Int32 - - -pattern KEY_Hangul_PostHanja = 65339 :: Int32 - - -pattern KEY_Hangul_PieubSios = 3764 :: Int32 - - -pattern KEY_Hangul_Pieub = 3762 :: Int32 - - -pattern KEY_Hangul_Phieuf = 3773 :: Int32 - - -pattern KEY_Hangul_PanSios = 3826 :: Int32 - - -pattern KEY_Hangul_OE = 3786 :: Int32 - - -pattern KEY_Hangul_O = 3783 :: Int32 - - -pattern KEY_Hangul_NieunJieuj = 3749 :: Int32 - - -pattern KEY_Hangul_NieunHieuh = 3750 :: Int32 - - -pattern KEY_Hangul_Nieun = 3748 :: Int32 - - -pattern KEY_Hangul_MultipleCandidate = 65341 :: Int32 - - -pattern KEY_Hangul_Mieum = 3761 :: Int32 - - -pattern KEY_Hangul_KkogjiDalrinIeung = 3827 :: Int32 - - -pattern KEY_Hangul_KiyeogSios = 3747 :: Int32 - - -pattern KEY_Hangul_Kiyeog = 3745 :: Int32 - - -pattern KEY_Hangul_Khieuq = 3771 :: Int32 - - -pattern KEY_Hangul_Jieuj = 3768 :: Int32 - - -pattern KEY_Hangul_Jeonja = 65336 :: Int32 - - -pattern KEY_Hangul_Jamo = 65333 :: Int32 - - -pattern KEY_Hangul_J_YeorinHieuh = 3834 :: Int32 - - -pattern KEY_Hangul_J_Tieut = 3820 :: Int32 - - -pattern KEY_Hangul_J_SsangSios = 3815 :: Int32 - - -pattern KEY_Hangul_J_SsangKiyeog = 3797 :: Int32 - - -pattern KEY_Hangul_J_Sios = 3814 :: Int32 - - -pattern KEY_Hangul_J_RieulTieut = 3808 :: Int32 - - -pattern KEY_Hangul_J_RieulSios = 3807 :: Int32 - - -pattern KEY_Hangul_J_RieulPieub = 3806 :: Int32 - - -pattern KEY_Hangul_J_RieulPhieuf = 3809 :: Int32 - - -pattern KEY_Hangul_J_RieulMieum = 3805 :: Int32 - - -pattern KEY_Hangul_J_RieulKiyeog = 3804 :: Int32 - - -pattern KEY_Hangul_J_RieulHieuh = 3810 :: Int32 - - -pattern KEY_Hangul_J_Rieul = 3803 :: Int32 - - -pattern KEY_Hangul_J_PieubSios = 3813 :: Int32 - - -pattern KEY_Hangul_J_Pieub = 3812 :: Int32 - - -pattern KEY_Hangul_J_Phieuf = 3821 :: Int32 - - -pattern KEY_Hangul_J_PanSios = 3832 :: Int32 - - -pattern KEY_Hangul_J_NieunJieuj = 3800 :: Int32 - - -pattern KEY_Hangul_J_NieunHieuh = 3801 :: Int32 - - -pattern KEY_Hangul_J_Nieun = 3799 :: Int32 - - -pattern KEY_Hangul_J_Mieum = 3811 :: Int32 - - -pattern KEY_Hangul_J_KkogjiDalrinIeung = 3833 :: Int32 - - -pattern KEY_Hangul_J_KiyeogSios = 3798 :: Int32 - - -pattern KEY_Hangul_J_Kiyeog = 3796 :: Int32 - - -pattern KEY_Hangul_J_Khieuq = 3819 :: Int32 - - -pattern KEY_Hangul_J_Jieuj = 3817 :: Int32 - - -pattern KEY_Hangul_J_Ieung = 3816 :: Int32 - - -pattern KEY_Hangul_J_Hieuh = 3822 :: Int32 - - -pattern KEY_Hangul_J_Dikeud = 3802 :: Int32 - - -pattern KEY_Hangul_J_Cieuc = 3818 :: Int32 - - -pattern KEY_Hangul_Ieung = 3767 :: Int32 - - -pattern KEY_Hangul_I = 3795 :: Int32 - - -pattern KEY_Hangul_Hieuh = 3774 :: Int32 - - -pattern KEY_Hangul_Hanja = 65332 :: Int32 - - -pattern KEY_Hangul_End = 65331 :: Int32 - - -pattern KEY_Hangul_EU = 3793 :: Int32 - - -pattern KEY_Hangul_EO = 3779 :: Int32 - - -pattern KEY_Hangul_E = 3780 :: Int32 - - -pattern KEY_Hangul_Dikeud = 3751 :: Int32 - - -pattern KEY_Hangul_Codeinput = 65335 :: Int32 - - -pattern KEY_Hangul_Cieuc = 3770 :: Int32 - - -pattern KEY_Hangul_Banja = 65337 :: Int32 - - -pattern KEY_Hangul_AraeAE = 3831 :: Int32 - - -pattern KEY_Hangul_AraeA = 3830 :: Int32 - - -pattern KEY_Hangul_AE = 3776 :: Int32 - - -pattern KEY_Hangul_A = 3775 :: Int32 - - -pattern KEY_Hangul = 65329 :: Int32 - - -pattern KEY_H = 72 :: Int32 - - -pattern KEY_Green = 269025188 :: Int32 - - -pattern KEY_Greek_zeta = 2022 :: Int32 - - -pattern KEY_Greek_xi = 2030 :: Int32 - - -pattern KEY_Greek_upsilondieresis = 1977 :: Int32 - - -pattern KEY_Greek_upsilonaccentdieresis = 1978 :: Int32 - - -pattern KEY_Greek_upsilonaccent = 1976 :: Int32 - - -pattern KEY_Greek_upsilon = 2037 :: Int32 - - -pattern KEY_Greek_theta = 2024 :: Int32 - - -pattern KEY_Greek_tau = 2036 :: Int32 - - -pattern KEY_Greek_switch = 65406 :: Int32 - - -pattern KEY_Greek_sigma = 2034 :: Int32 - - -pattern KEY_Greek_rho = 2033 :: Int32 - - -pattern KEY_Greek_psi = 2040 :: Int32 - - -pattern KEY_Greek_pi = 2032 :: Int32 - - -pattern KEY_Greek_phi = 2038 :: Int32 - - -pattern KEY_Greek_omicronaccent = 1975 :: Int32 - - -pattern KEY_Greek_omicron = 2031 :: Int32 - - -pattern KEY_Greek_omegaaccent = 1979 :: Int32 - - -pattern KEY_Greek_omega = 2041 :: Int32 - - -pattern KEY_Greek_nu = 2029 :: Int32 - - -pattern KEY_Greek_mu = 2028 :: Int32 - - -pattern KEY_Greek_lamda = 2027 :: Int32 - - -pattern KEY_Greek_lambda = 2027 :: Int32 - - -pattern KEY_Greek_kappa = 2026 :: Int32 - - -pattern KEY_Greek_iotadieresis = 1973 :: Int32 - - -pattern KEY_Greek_iotaaccentdieresis = 1974 :: Int32 - - -pattern KEY_Greek_iotaaccent = 1972 :: Int32 - - -pattern KEY_Greek_iota = 2025 :: Int32 - - -pattern KEY_Greek_horizbar = 1967 :: Int32 - - -pattern KEY_Greek_gamma = 2019 :: Int32 - - -pattern KEY_Greek_finalsmallsigma = 2035 :: Int32 - - -pattern KEY_Greek_etaaccent = 1971 :: Int32 - - -pattern KEY_Greek_eta = 2023 :: Int32 - - -pattern KEY_Greek_epsilonaccent = 1970 :: Int32 - - -pattern KEY_Greek_epsilon = 2021 :: Int32 - - -pattern KEY_Greek_delta = 2020 :: Int32 - - -pattern KEY_Greek_chi = 2039 :: Int32 - - -pattern KEY_Greek_beta = 2018 :: Int32 - - -pattern KEY_Greek_alphaaccent = 1969 :: Int32 - - -pattern KEY_Greek_alpha = 2017 :: Int32 - - -pattern KEY_Greek_accentdieresis = 1966 :: Int32 - - -pattern KEY_Greek_ZETA = 1990 :: Int32 - - -pattern KEY_Greek_XI = 1998 :: Int32 - - -pattern KEY_Greek_UPSILONdieresis = 1961 :: Int32 - - -pattern KEY_Greek_UPSILONaccent = 1960 :: Int32 - - -pattern KEY_Greek_UPSILON = 2005 :: Int32 - - -pattern KEY_Greek_THETA = 1992 :: Int32 - - -pattern KEY_Greek_TAU = 2004 :: Int32 - - -pattern KEY_Greek_SIGMA = 2002 :: Int32 - - -pattern KEY_Greek_RHO = 2001 :: Int32 - - -pattern KEY_Greek_PSI = 2008 :: Int32 - - -pattern KEY_Greek_PI = 2000 :: Int32 - - -pattern KEY_Greek_PHI = 2006 :: Int32 - - -pattern KEY_Greek_OMICRONaccent = 1959 :: Int32 - - -pattern KEY_Greek_OMICRON = 1999 :: Int32 - - -pattern KEY_Greek_OMEGAaccent = 1963 :: Int32 - - -pattern KEY_Greek_OMEGA = 2009 :: Int32 - - -pattern KEY_Greek_NU = 1997 :: Int32 - - -pattern KEY_Greek_MU = 1996 :: Int32 - - -pattern KEY_Greek_LAMDA = 1995 :: Int32 - - -pattern KEY_Greek_LAMBDA = 1995 :: Int32 - - -pattern KEY_Greek_KAPPA = 1994 :: Int32 - - -pattern KEY_Greek_IOTAdieresis = 1957 :: Int32 - - -pattern KEY_Greek_IOTAdiaeresis = 1957 :: Int32 - - -pattern KEY_Greek_IOTAaccent = 1956 :: Int32 - - -pattern KEY_Greek_IOTA = 1993 :: Int32 - - -pattern KEY_Greek_GAMMA = 1987 :: Int32 - - -pattern KEY_Greek_ETAaccent = 1955 :: Int32 - - -pattern KEY_Greek_ETA = 1991 :: Int32 - - -pattern KEY_Greek_EPSILONaccent = 1954 :: Int32 - - -pattern KEY_Greek_EPSILON = 1989 :: Int32 - - -pattern KEY_Greek_DELTA = 1988 :: Int32 - - -pattern KEY_Greek_CHI = 2007 :: Int32 - - -pattern KEY_Greek_BETA = 1986 :: Int32 - - -pattern KEY_Greek_ALPHAaccent = 1953 :: Int32 - - -pattern KEY_Greek_ALPHA = 1985 :: Int32 - - -pattern KEY_Go = 269025119 :: Int32 - - -pattern KEY_Georgian_zhar = 16781535 :: Int32 - - -pattern KEY_Georgian_zen = 16781526 :: Int32 - - -pattern KEY_Georgian_xan = 16781550 :: Int32 - - -pattern KEY_Georgian_we = 16781555 :: Int32 - - -pattern KEY_Georgian_vin = 16781525 :: Int32 - - -pattern KEY_Georgian_un = 16781539 :: Int32 - - -pattern KEY_Georgian_tar = 16781538 :: Int32 - - -pattern KEY_Georgian_tan = 16781527 :: Int32 - - -pattern KEY_Georgian_shin = 16781544 :: Int32 - - -pattern KEY_Georgian_san = 16781537 :: Int32 - - -pattern KEY_Georgian_rae = 16781536 :: Int32 - - -pattern KEY_Georgian_qar = 16781543 :: Int32 - - -pattern KEY_Georgian_phar = 16781540 :: Int32 - - -pattern KEY_Georgian_par = 16781534 :: Int32 - - -pattern KEY_Georgian_on = 16781533 :: Int32 - - -pattern KEY_Georgian_nar = 16781532 :: Int32 - - -pattern KEY_Georgian_man = 16781531 :: Int32 - - -pattern KEY_Georgian_las = 16781530 :: Int32 - - -pattern KEY_Georgian_khar = 16781541 :: Int32 - - -pattern KEY_Georgian_kan = 16781529 :: Int32 - - -pattern KEY_Georgian_jil = 16781547 :: Int32 - - -pattern KEY_Georgian_jhan = 16781551 :: Int32 - - -pattern KEY_Georgian_in = 16781528 :: Int32 - - -pattern KEY_Georgian_hoe = 16781557 :: Int32 - - -pattern KEY_Georgian_hie = 16781554 :: Int32 - - -pattern KEY_Georgian_he = 16781553 :: Int32 - - -pattern KEY_Georgian_har = 16781556 :: Int32 - - -pattern KEY_Georgian_hae = 16781552 :: Int32 - - -pattern KEY_Georgian_ghan = 16781542 :: Int32 - - -pattern KEY_Georgian_gan = 16781522 :: Int32 - - -pattern KEY_Georgian_fi = 16781558 :: Int32 - - -pattern KEY_Georgian_en = 16781524 :: Int32 - - -pattern KEY_Georgian_don = 16781523 :: Int32 - - -pattern KEY_Georgian_cil = 16781548 :: Int32 - - -pattern KEY_Georgian_chin = 16781545 :: Int32 - - -pattern KEY_Georgian_char = 16781549 :: Int32 - - -pattern KEY_Georgian_can = 16781546 :: Int32 - - -pattern KEY_Georgian_ban = 16781521 :: Int32 - - -pattern KEY_Georgian_an = 16781520 :: Int32 - - -pattern KEY_Gcircumflex = 728 :: Int32 - - -pattern KEY_Gcedilla = 939 :: Int32 - - -pattern KEY_Gcaron = 16777702 :: Int32 - - -pattern KEY_Gbreve = 683 :: Int32 - - -pattern KEY_Game = 269025118 :: Int32 - - -pattern KEY_Gabovedot = 725 :: Int32 - - -pattern KEY_G = 71 :: Int32 - - -pattern KEY_FrameForward = 269025182 :: Int32 - - -pattern KEY_FrameBack = 269025181 :: Int32 - - -pattern KEY_Forward = 269025063 :: Int32 - - -pattern KEY_First_Virtual_Screen = 65232 :: Int32 - - -pattern KEY_Find = 65384 :: Int32 - - -pattern KEY_Finance = 269025084 :: Int32 - - -pattern KEY_Favorites = 269025072 :: Int32 - - -pattern KEY_Farsi_yeh = 16778956 :: Int32 - - -pattern KEY_Farsi_9 = 16779001 :: Int32 - - -pattern KEY_Farsi_8 = 16779000 :: Int32 - - -pattern KEY_Farsi_7 = 16778999 :: Int32 - - -pattern KEY_Farsi_6 = 16778998 :: Int32 - - -pattern KEY_Farsi_5 = 16778997 :: Int32 - - -pattern KEY_Farsi_4 = 16778996 :: Int32 - - -pattern KEY_Farsi_3 = 16778995 :: Int32 - - -pattern KEY_Farsi_2 = 16778994 :: Int32 - - -pattern KEY_Farsi_1 = 16778993 :: Int32 - - -pattern KEY_Farsi_0 = 16778992 :: Int32 - - -pattern KEY_Fabovedot = 16784926 :: Int32 - - -pattern KEY_FFrancSign = 16785571 :: Int32 - - -pattern KEY_F9 = 65478 :: Int32 - - -pattern KEY_F8 = 65477 :: Int32 - - -pattern KEY_F7 = 65476 :: Int32 - - -pattern KEY_F6 = 65475 :: Int32 - - -pattern KEY_F5 = 65474 :: Int32 - - -pattern KEY_F4 = 65473 :: Int32 - - -pattern KEY_F35 = 65504 :: Int32 - - -pattern KEY_F34 = 65503 :: Int32 - - -pattern KEY_F33 = 65502 :: Int32 - - -pattern KEY_F32 = 65501 :: Int32 - - -pattern KEY_F31 = 65500 :: Int32 - - -pattern KEY_F30 = 65499 :: Int32 - - -pattern KEY_F3 = 65472 :: Int32 - - -pattern KEY_F29 = 65498 :: Int32 - - -pattern KEY_F28 = 65497 :: Int32 - - -pattern KEY_F27 = 65496 :: Int32 - - -pattern KEY_F26 = 65495 :: Int32 - - -pattern KEY_F25 = 65494 :: Int32 - - -pattern KEY_F24 = 65493 :: Int32 - - -pattern KEY_F23 = 65492 :: Int32 - - -pattern KEY_F22 = 65491 :: Int32 - - -pattern KEY_F21 = 65490 :: Int32 - - -pattern KEY_F20 = 65489 :: Int32 - - -pattern KEY_F2 = 65471 :: Int32 - - -pattern KEY_F19 = 65488 :: Int32 - - -pattern KEY_F18 = 65487 :: Int32 - - -pattern KEY_F17 = 65486 :: Int32 - - -pattern KEY_F16 = 65485 :: Int32 - - -pattern KEY_F15 = 65484 :: Int32 - - -pattern KEY_F14 = 65483 :: Int32 - - -pattern KEY_F13 = 65482 :: Int32 - - -pattern KEY_F12 = 65481 :: Int32 - - -pattern KEY_F11 = 65480 :: Int32 - - -pattern KEY_F10 = 65479 :: Int32 - - -pattern KEY_F1 = 65470 :: Int32 - - -pattern KEY_F = 70 :: Int32 - - -pattern KEY_Explorer = 269025117 :: Int32 - - -pattern KEY_Execute = 65378 :: Int32 - - -pattern KEY_Excel = 269025116 :: Int32 - - -pattern KEY_EuroSign = 8364 :: Int32 - - -pattern KEY_Etilde = 16785084 :: Int32 - - -pattern KEY_Eth = 208 :: Int32 - - -pattern KEY_Escape = 65307 :: Int32 - - -pattern KEY_Eogonek = 458 :: Int32 - - -pattern KEY_End = 65367 :: Int32 - - -pattern KEY_Emacron = 938 :: Int32 - - -pattern KEY_Eject = 269025068 :: Int32 - - -pattern KEY_Eisu_toggle = 65328 :: Int32 - - -pattern KEY_Eisu_Shift = 65327 :: Int32 - - -pattern KEY_Ehook = 16785082 :: Int32 - - -pattern KEY_Egrave = 200 :: Int32 - - -pattern KEY_Ediaeresis = 203 :: Int32 - - -pattern KEY_EcuSign = 16785568 :: Int32 - - -pattern KEY_Ecircumflextilde = 16785092 :: Int32 - - -pattern KEY_Ecircumflexhook = 16785090 :: Int32 - - -pattern KEY_Ecircumflexgrave = 16785088 :: Int32 - - -pattern KEY_Ecircumflexbelowdot = 16785094 :: Int32 - - -pattern KEY_Ecircumflexacute = 16785086 :: Int32 - - -pattern KEY_Ecircumflex = 202 :: Int32 - - -pattern KEY_Ecaron = 460 :: Int32 - - -pattern KEY_Ebelowdot = 16785080 :: Int32 - - -pattern KEY_Eacute = 201 :: Int32 - - -pattern KEY_Eabovedot = 972 :: Int32 - - -pattern KEY_EZH = 16777655 :: Int32 - - -pattern KEY_ETH = 208 :: Int32 - - -pattern KEY_ENG = 957 :: Int32 - - -pattern KEY_E = 69 :: Int32 - - -pattern KEY_Dstroke = 464 :: Int32 - - -pattern KEY_Down = 65364 :: Int32 - - -pattern KEY_DongSign = 16785579 :: Int32 - - -pattern KEY_Documents = 269025115 :: Int32 - - -pattern KEY_Display = 269025113 :: Int32 - - -pattern KEY_Delete = 65535 :: Int32 - - -pattern KEY_Dcaron = 463 :: Int32 - - -pattern KEY_Dabovedot = 16784906 :: Int32 - - -pattern KEY_DOS = 269025114 :: Int32 - - -pattern KEY_D = 68 :: Int32 - - -pattern KEY_Cyrillic_zhe_descender = 16778391 :: Int32 - - -pattern KEY_Cyrillic_zhe = 1750 :: Int32 - - -pattern KEY_Cyrillic_ze = 1754 :: Int32 - - -pattern KEY_Cyrillic_yu = 1728 :: Int32 - - -pattern KEY_Cyrillic_yeru = 1753 :: Int32 - - -pattern KEY_Cyrillic_ya = 1745 :: Int32 - - -pattern KEY_Cyrillic_ve = 1751 :: Int32 - - -pattern KEY_Cyrillic_u_straight_bar = 16778417 :: Int32 - - -pattern KEY_Cyrillic_u_straight = 16778415 :: Int32 - - -pattern KEY_Cyrillic_u_macron = 16778479 :: Int32 - - -pattern KEY_Cyrillic_u = 1749 :: Int32 - - -pattern KEY_Cyrillic_tse = 1731 :: Int32 - - -pattern KEY_Cyrillic_te = 1748 :: Int32 - - -pattern KEY_Cyrillic_softsign = 1752 :: Int32 - - -pattern KEY_Cyrillic_shorti = 1738 :: Int32 - - -pattern KEY_Cyrillic_shha = 16778427 :: Int32 - - -pattern KEY_Cyrillic_shcha = 1757 :: Int32 - - -pattern KEY_Cyrillic_sha = 1755 :: Int32 - - -pattern KEY_Cyrillic_schwa = 16778457 :: Int32 - - -pattern KEY_Cyrillic_pe = 1744 :: Int32 - - -pattern KEY_Cyrillic_o_bar = 16778473 :: Int32 - - -pattern KEY_Cyrillic_o = 1743 :: Int32 - - -pattern KEY_Cyrillic_nje = 1706 :: Int32 - - -pattern KEY_Cyrillic_lje = 1705 :: Int32 - - -pattern KEY_Cyrillic_ka_vertstroke = 16778397 :: Int32 - - -pattern KEY_Cyrillic_ka_descender = 16778395 :: Int32 - - -pattern KEY_Cyrillic_ka = 1739 :: Int32 - - -pattern KEY_Cyrillic_je = 1704 :: Int32 - - -pattern KEY_Cyrillic_io = 1699 :: Int32 - - -pattern KEY_Cyrillic_ie = 1733 :: Int32 - - -pattern KEY_Cyrillic_i_macron = 16778467 :: Int32 - - -pattern KEY_Cyrillic_i = 1737 :: Int32 - - -pattern KEY_Cyrillic_hardsign = 1759 :: Int32 - - -pattern KEY_Cyrillic_ha_descender = 16778419 :: Int32 - - -pattern KEY_Cyrillic_ha = 1736 :: Int32 - - -pattern KEY_Cyrillic_ghe_bar = 16778387 :: Int32 - - -pattern KEY_Cyrillic_ghe = 1735 :: Int32 - - -pattern KEY_Cyrillic_es = 1747 :: Int32 - - -pattern KEY_Cyrillic_er = 1746 :: Int32 - - -pattern KEY_Cyrillic_en_descender = 16778403 :: Int32 - - -pattern KEY_Cyrillic_en = 1742 :: Int32 - - -pattern KEY_Cyrillic_em = 1741 :: Int32 - - -pattern KEY_Cyrillic_el = 1740 :: Int32 - - -pattern KEY_Cyrillic_ef = 1734 :: Int32 - - -pattern KEY_Cyrillic_e = 1756 :: Int32 - - -pattern KEY_Cyrillic_dzhe = 1711 :: Int32 - - -pattern KEY_Cyrillic_de = 1732 :: Int32 - - -pattern KEY_Cyrillic_che_vertstroke = 16778425 :: Int32 - - -pattern KEY_Cyrillic_che_descender = 16778423 :: Int32 - - -pattern KEY_Cyrillic_che = 1758 :: Int32 - - -pattern KEY_Cyrillic_be = 1730 :: Int32 - - -pattern KEY_Cyrillic_a = 1729 :: Int32 - - -pattern KEY_Cyrillic_ZHE_descender = 16778390 :: Int32 - - -pattern KEY_Cyrillic_ZHE = 1782 :: Int32 - - -pattern KEY_Cyrillic_ZE = 1786 :: Int32 - - -pattern KEY_Cyrillic_YU = 1760 :: Int32 - - -pattern KEY_Cyrillic_YERU = 1785 :: Int32 - - -pattern KEY_Cyrillic_YA = 1777 :: Int32 - - -pattern KEY_Cyrillic_VE = 1783 :: Int32 - - -pattern KEY_Cyrillic_U_straight_bar = 16778416 :: Int32 - - -pattern KEY_Cyrillic_U_straight = 16778414 :: Int32 - - -pattern KEY_Cyrillic_U_macron = 16778478 :: Int32 - - -pattern KEY_Cyrillic_U = 1781 :: Int32 - - -pattern KEY_Cyrillic_TSE = 1763 :: Int32 - - -pattern KEY_Cyrillic_TE = 1780 :: Int32 - - -pattern KEY_Cyrillic_SOFTSIGN = 1784 :: Int32 - - -pattern KEY_Cyrillic_SHORTI = 1770 :: Int32 - - -pattern KEY_Cyrillic_SHHA = 16778426 :: Int32 - - -pattern KEY_Cyrillic_SHCHA = 1789 :: Int32 - - -pattern KEY_Cyrillic_SHA = 1787 :: Int32 - - -pattern KEY_Cyrillic_SCHWA = 16778456 :: Int32 - - -pattern KEY_Cyrillic_PE = 1776 :: Int32 - - -pattern KEY_Cyrillic_O_bar = 16778472 :: Int32 - - -pattern KEY_Cyrillic_O = 1775 :: Int32 - - -pattern KEY_Cyrillic_NJE = 1722 :: Int32 - - -pattern KEY_Cyrillic_LJE = 1721 :: Int32 - - -pattern KEY_Cyrillic_KA_vertstroke = 16778396 :: Int32 - - -pattern KEY_Cyrillic_KA_descender = 16778394 :: Int32 - - -pattern KEY_Cyrillic_KA = 1771 :: Int32 - - -pattern KEY_Cyrillic_JE = 1720 :: Int32 - - -pattern KEY_Cyrillic_I_macron = 16778466 :: Int32 - - -pattern KEY_Cyrillic_IO = 1715 :: Int32 - - -pattern KEY_Cyrillic_IE = 1765 :: Int32 - - -pattern KEY_Cyrillic_I = 1769 :: Int32 - - -pattern KEY_Cyrillic_HA_descender = 16778418 :: Int32 - - -pattern KEY_Cyrillic_HARDSIGN = 1791 :: Int32 - - -pattern KEY_Cyrillic_HA = 1768 :: Int32 - - -pattern KEY_Cyrillic_GHE_bar = 16778386 :: Int32 - - -pattern KEY_Cyrillic_GHE = 1767 :: Int32 - - -pattern KEY_Cyrillic_ES = 1779 :: Int32 - - -pattern KEY_Cyrillic_ER = 1778 :: Int32 - - -pattern KEY_Cyrillic_EN_descender = 16778402 :: Int32 - - -pattern KEY_Cyrillic_EN = 1774 :: Int32 - - -pattern KEY_Cyrillic_EM = 1773 :: Int32 - - -pattern KEY_Cyrillic_EL = 1772 :: Int32 - - -pattern KEY_Cyrillic_EF = 1766 :: Int32 - - -pattern KEY_Cyrillic_E = 1788 :: Int32 - - -pattern KEY_Cyrillic_DZHE = 1727 :: Int32 - - -pattern KEY_Cyrillic_DE = 1764 :: Int32 - - -pattern KEY_Cyrillic_CHE_vertstroke = 16778424 :: Int32 - - -pattern KEY_Cyrillic_CHE_descender = 16778422 :: Int32 - - -pattern KEY_Cyrillic_CHE = 1790 :: Int32 - - -pattern KEY_Cyrillic_BE = 1762 :: Int32 - - -pattern KEY_Cyrillic_A = 1761 :: Int32 - - -pattern KEY_CycleAngle = 269025180 :: Int32 - - -pattern KEY_Cut = 269025112 :: Int32 - - -pattern KEY_CruzeiroSign = 16785570 :: Int32 - - -pattern KEY_Copy = 269025111 :: Int32 - - -pattern KEY_Control_R = 65508 :: Int32 - - -pattern KEY_Control_L = 65507 :: Int32 - - -pattern KEY_ContrastAdjust = 269025058 :: Int32 - - -pattern KEY_Community = 269025085 :: Int32 - - -pattern KEY_ColonSign = 16785569 :: Int32 - - -pattern KEY_Codeinput = 65335 :: Int32 - - -pattern KEY_Close = 269025110 :: Int32 - - -pattern KEY_ClearGrab = 269024801 :: Int32 - - -pattern KEY_Clear = 65291 :: Int32 - - -pattern KEY_Ch = 65185 :: Int32 - - -pattern KEY_Ccircumflex = 710 :: Int32 - - -pattern KEY_Ccedilla = 199 :: Int32 - - -pattern KEY_Ccaron = 456 :: Int32 - - -pattern KEY_Caps_Lock = 65509 :: Int32 - - -pattern KEY_Cancel = 65385 :: Int32 - - -pattern KEY_Calendar = 269025056 :: Int32 - - -pattern KEY_Calculator = 269025053 :: Int32 - - -pattern KEY_Cacute = 454 :: Int32 - - -pattern KEY_Cabovedot = 709 :: Int32 - - -pattern KEY_C_h = 65188 :: Int32 - - -pattern KEY_C_H = 65189 :: Int32 - - -pattern KEY_CH = 65186 :: Int32 - - -pattern KEY_CD = 269025107 :: Int32 - - -pattern KEY_C = 67 :: Int32 - - -pattern KEY_Byelorussian_shortu = 1710 :: Int32 - - -pattern KEY_Byelorussian_SHORTU = 1726 :: Int32 - - -pattern KEY_BrightnessAdjust = 269025083 :: Int32 - - -pattern KEY_Break = 65387 :: Int32 - - -pattern KEY_BounceKeys_Enable = 65140 :: Int32 - - -pattern KEY_Book = 269025106 :: Int32 - - -pattern KEY_Bluetooth = 269025172 :: Int32 - - -pattern KEY_Blue = 269025190 :: Int32 - - -pattern KEY_Begin = 65368 :: Int32 - - -pattern KEY_Battery = 269025171 :: Int32 - - -pattern KEY_BackSpace = 65288 :: Int32 - - -pattern KEY_BackForward = 269025087 :: Int32 - - -pattern KEY_Back = 269025062 :: Int32 - - -pattern KEY_Babovedot = 16784898 :: Int32 - - -pattern KEY_B = 66 :: Int32 - - -pattern KEY_Away = 269025165 :: Int32 - - -pattern KEY_AudioStop = 269025045 :: Int32 - - -pattern KEY_AudioRewind = 269025086 :: Int32 - - -pattern KEY_AudioRepeat = 269025176 :: Int32 - - -pattern KEY_AudioRecord = 269025052 :: Int32 - - -pattern KEY_AudioRandomPlay = 269025177 :: Int32 - - -pattern KEY_AudioRaiseVolume = 269025043 :: Int32 - - -pattern KEY_AudioPrev = 269025046 :: Int32 - - -pattern KEY_AudioPlay = 269025044 :: Int32 - - -pattern KEY_AudioPause = 269025073 :: Int32 - - -pattern KEY_AudioNext = 269025047 :: Int32 - - -pattern KEY_AudioMute = 269025042 :: Int32 - - -pattern KEY_AudioMicMute = 269025202 :: Int32 - - -pattern KEY_AudioMedia = 269025074 :: Int32 - - -pattern KEY_AudioLowerVolume = 269025041 :: Int32 - - -pattern KEY_AudioForward = 269025175 :: Int32 - - -pattern KEY_AudioCycleTrack = 269025179 :: Int32 - - -pattern KEY_AudibleBell_Enable = 65146 :: Int32 - - -pattern KEY_Atilde = 195 :: Int32 - - -pattern KEY_Armenian_zhe = 16778602 :: Int32 - - -pattern KEY_Armenian_za = 16778598 :: Int32 - - -pattern KEY_Armenian_yentamna = 16778634 :: Int32 - - -pattern KEY_Armenian_yech = 16778597 :: Int32 - - -pattern KEY_Armenian_vyun = 16778626 :: Int32 - - -pattern KEY_Armenian_vo = 16778616 :: Int32 - - -pattern KEY_Armenian_vev = 16778622 :: Int32 - - -pattern KEY_Armenian_verjaket = 16778633 :: Int32 - - -pattern KEY_Armenian_tyun = 16778623 :: Int32 - - -pattern KEY_Armenian_tso = 16778625 :: Int32 - - -pattern KEY_Armenian_tsa = 16778606 :: Int32 - - -pattern KEY_Armenian_to = 16778601 :: Int32 - - -pattern KEY_Armenian_tche = 16778611 :: Int32 - - -pattern KEY_Armenian_shesht = 16778587 :: Int32 - - -pattern KEY_Armenian_sha = 16778615 :: Int32 - - -pattern KEY_Armenian_separation_mark = 16778589 :: Int32 - - -pattern KEY_Armenian_se = 16778621 :: Int32 - - -pattern KEY_Armenian_re = 16778624 :: Int32 - - -pattern KEY_Armenian_ra = 16778620 :: Int32 - - -pattern KEY_Armenian_question = 16778590 :: Int32 - - -pattern KEY_Armenian_pyur = 16778627 :: Int32 - - -pattern KEY_Armenian_pe = 16778618 :: Int32 - - -pattern KEY_Armenian_paruyk = 16778590 :: Int32 - - -pattern KEY_Armenian_o = 16778629 :: Int32 - - -pattern KEY_Armenian_nu = 16778614 :: Int32 - - -pattern KEY_Armenian_men = 16778612 :: Int32 - - -pattern KEY_Armenian_lyun = 16778604 :: Int32 - - -pattern KEY_Armenian_ligature_ew = 16778631 :: Int32 - - -pattern KEY_Armenian_khe = 16778605 :: Int32 - - -pattern KEY_Armenian_ken = 16778607 :: Int32 - - -pattern KEY_Armenian_ke = 16778628 :: Int32 - - -pattern KEY_Armenian_je = 16778619 :: Int32 - - -pattern KEY_Armenian_ini = 16778603 :: Int32 - - -pattern KEY_Armenian_hyphen = 16778634 :: Int32 - - -pattern KEY_Armenian_ho = 16778608 :: Int32 - - -pattern KEY_Armenian_hi = 16778613 :: Int32 - - -pattern KEY_Armenian_gim = 16778595 :: Int32 - - -pattern KEY_Armenian_ghat = 16778610 :: Int32 - - -pattern KEY_Armenian_full_stop = 16778633 :: Int32 - - -pattern KEY_Armenian_fe = 16778630 :: Int32 - - -pattern KEY_Armenian_exclam = 16778588 :: Int32 - - -pattern KEY_Armenian_e = 16778599 :: Int32 - - -pattern KEY_Armenian_dza = 16778609 :: Int32 - - -pattern KEY_Armenian_da = 16778596 :: Int32 - - -pattern KEY_Armenian_cha = 16778617 :: Int32 - - -pattern KEY_Armenian_but = 16778589 :: Int32 - - -pattern KEY_Armenian_ben = 16778594 :: Int32 - - -pattern KEY_Armenian_ayb = 16778593 :: Int32 - - -pattern KEY_Armenian_at = 16778600 :: Int32 - - -pattern KEY_Armenian_apostrophe = 16778586 :: Int32 - - -pattern KEY_Armenian_amanak = 16778588 :: Int32 - - -pattern KEY_Armenian_accent = 16778587 :: Int32 - - -pattern KEY_Armenian_ZHE = 16778554 :: Int32 - - -pattern KEY_Armenian_ZA = 16778550 :: Int32 - - -pattern KEY_Armenian_YECH = 16778549 :: Int32 - - -pattern KEY_Armenian_VYUN = 16778578 :: Int32 - - -pattern KEY_Armenian_VO = 16778568 :: Int32 - - -pattern KEY_Armenian_VEV = 16778574 :: Int32 - - -pattern KEY_Armenian_TYUN = 16778575 :: Int32 - - -pattern KEY_Armenian_TSO = 16778577 :: Int32 - - -pattern KEY_Armenian_TSA = 16778558 :: Int32 - - -pattern KEY_Armenian_TO = 16778553 :: Int32 - - -pattern KEY_Armenian_TCHE = 16778563 :: Int32 - - -pattern KEY_Armenian_SHA = 16778567 :: Int32 - - -pattern KEY_Armenian_SE = 16778573 :: Int32 - - -pattern KEY_Armenian_RE = 16778576 :: Int32 - - -pattern KEY_Armenian_RA = 16778572 :: Int32 - - -pattern KEY_Armenian_PYUR = 16778579 :: Int32 - - -pattern KEY_Armenian_PE = 16778570 :: Int32 - - -pattern KEY_Armenian_O = 16778581 :: Int32 - - -pattern KEY_Armenian_NU = 16778566 :: Int32 - - -pattern KEY_Armenian_MEN = 16778564 :: Int32 - - -pattern KEY_Armenian_LYUN = 16778556 :: Int32 - - -pattern KEY_Armenian_KHE = 16778557 :: Int32 - - -pattern KEY_Armenian_KEN = 16778559 :: Int32 - - -pattern KEY_Armenian_KE = 16778580 :: Int32 - - -pattern KEY_Armenian_JE = 16778571 :: Int32 - - -pattern KEY_Armenian_INI = 16778555 :: Int32 - - -pattern KEY_Armenian_HO = 16778560 :: Int32 - - -pattern KEY_Armenian_HI = 16778565 :: Int32 - - -pattern KEY_Armenian_GIM = 16778547 :: Int32 - - -pattern KEY_Armenian_GHAT = 16778562 :: Int32 - - -pattern KEY_Armenian_FE = 16778582 :: Int32 - - -pattern KEY_Armenian_E = 16778551 :: Int32 - - -pattern KEY_Armenian_DZA = 16778561 :: Int32 - - -pattern KEY_Armenian_DA = 16778548 :: Int32 - - -pattern KEY_Armenian_CHA = 16778569 :: Int32 - - -pattern KEY_Armenian_BEN = 16778546 :: Int32 - - -pattern KEY_Armenian_AYB = 16778545 :: Int32 - - -pattern KEY_Armenian_AT = 16778552 :: Int32 - - -pattern KEY_Aring = 197 :: Int32 - - -pattern KEY_Arabic_zain = 1490 :: Int32 - - -pattern KEY_Arabic_zah = 1496 :: Int32 - - -pattern KEY_Arabic_yeh_baree = 16778962 :: Int32 - - -pattern KEY_Arabic_yeh = 1514 :: Int32 - - -pattern KEY_Arabic_waw = 1512 :: Int32 - - -pattern KEY_Arabic_veh = 16778916 :: Int32 - - -pattern KEY_Arabic_tteh = 16778873 :: Int32 - - -pattern KEY_Arabic_theh = 1483 :: Int32 - - -pattern KEY_Arabic_thal = 1488 :: Int32 - - -pattern KEY_Arabic_tehmarbuta = 1481 :: Int32 - - -pattern KEY_Arabic_teh = 1482 :: Int32 - - -pattern KEY_Arabic_tcheh = 16778886 :: Int32 - - -pattern KEY_Arabic_tatweel = 1504 :: Int32 - - -pattern KEY_Arabic_tah = 1495 :: Int32 - - -pattern KEY_Arabic_switch = 65406 :: Int32 - - -pattern KEY_Arabic_superscript_alef = 16778864 :: Int32 - - -pattern KEY_Arabic_sukun = 1522 :: Int32 - - -pattern KEY_Arabic_sheen = 1492 :: Int32 - - -pattern KEY_Arabic_shadda = 1521 :: Int32 - - -pattern KEY_Arabic_semicolon = 1467 :: Int32 - - -pattern KEY_Arabic_seen = 1491 :: Int32 - - -pattern KEY_Arabic_sad = 1493 :: Int32 - - -pattern KEY_Arabic_rreh = 16778897 :: Int32 - - -pattern KEY_Arabic_ra = 1489 :: Int32 - - -pattern KEY_Arabic_question_mark = 1471 :: Int32 - - -pattern KEY_Arabic_qaf = 1506 :: Int32 - - -pattern KEY_Arabic_percent = 16778858 :: Int32 - - -pattern KEY_Arabic_peh = 16778878 :: Int32 - - -pattern KEY_Arabic_noon_ghunna = 16778938 :: Int32 - - -pattern KEY_Arabic_noon = 1510 :: Int32 - - -pattern KEY_Arabic_meem = 1509 :: Int32 - - -pattern KEY_Arabic_maddaonalef = 1474 :: Int32 - - -pattern KEY_Arabic_madda_above = 16778835 :: Int32 - - -pattern KEY_Arabic_lam = 1508 :: Int32 - - -pattern KEY_Arabic_khah = 1486 :: Int32 - - -pattern KEY_Arabic_keheh = 16778921 :: Int32 - - -pattern KEY_Arabic_kasratan = 1517 :: Int32 - - -pattern KEY_Arabic_kasra = 1520 :: Int32 - - -pattern KEY_Arabic_kaf = 1507 :: Int32 - - -pattern KEY_Arabic_jeh = 16778904 :: Int32 - - -pattern KEY_Arabic_jeem = 1484 :: Int32 - - -pattern KEY_Arabic_heh_goal = 16778945 :: Int32 - - -pattern KEY_Arabic_heh_doachashmee = 16778942 :: Int32 - - -pattern KEY_Arabic_heh = 1511 :: Int32 - - -pattern KEY_Arabic_hamzaunderalef = 1477 :: Int32 - - -pattern KEY_Arabic_hamzaonyeh = 1478 :: Int32 - - -pattern KEY_Arabic_hamzaonwaw = 1476 :: Int32 - - -pattern KEY_Arabic_hamzaonalef = 1475 :: Int32 - - -pattern KEY_Arabic_hamza_below = 16778837 :: Int32 - - -pattern KEY_Arabic_hamza_above = 16778836 :: Int32 - - -pattern KEY_Arabic_hamza = 1473 :: Int32 - - -pattern KEY_Arabic_hah = 1485 :: Int32 - - -pattern KEY_Arabic_ha = 1511 :: Int32 - - -pattern KEY_Arabic_ghain = 1498 :: Int32 - - -pattern KEY_Arabic_gaf = 16778927 :: Int32 - - -pattern KEY_Arabic_fullstop = 16778964 :: Int32 - - -pattern KEY_Arabic_feh = 1505 :: Int32 - - -pattern KEY_Arabic_fathatan = 1515 :: Int32 - - -pattern KEY_Arabic_fatha = 1518 :: Int32 - - -pattern KEY_Arabic_farsi_yeh = 16778956 :: Int32 - - -pattern KEY_Arabic_ddal = 16778888 :: Int32 - - -pattern KEY_Arabic_dammatan = 1516 :: Int32 - - -pattern KEY_Arabic_damma = 1519 :: Int32 - - -pattern KEY_Arabic_dal = 1487 :: Int32 - - -pattern KEY_Arabic_dad = 1494 :: Int32 - - -pattern KEY_Arabic_comma = 1452 :: Int32 - - -pattern KEY_Arabic_beh = 1480 :: Int32 - - -pattern KEY_Arabic_alefmaksura = 1513 :: Int32 - - -pattern KEY_Arabic_alef = 1479 :: Int32 - - -pattern KEY_Arabic_ain = 1497 :: Int32 - - -pattern KEY_Arabic_9 = 16778857 :: Int32 - - -pattern KEY_Arabic_8 = 16778856 :: Int32 - - -pattern KEY_Arabic_7 = 16778855 :: Int32 - - -pattern KEY_Arabic_6 = 16778854 :: Int32 - - -pattern KEY_Arabic_5 = 16778853 :: Int32 - - -pattern KEY_Arabic_4 = 16778852 :: Int32 - - -pattern KEY_Arabic_3 = 16778851 :: Int32 - - -pattern KEY_Arabic_2 = 16778850 :: Int32 - - -pattern KEY_Arabic_1 = 16778849 :: Int32 - - -pattern KEY_Arabic_0 = 16778848 :: Int32 - - -pattern KEY_ApplicationRight = 269025105 :: Int32 - - -pattern KEY_ApplicationLeft = 269025104 :: Int32 - - -pattern KEY_Aogonek = 417 :: Int32 - - -pattern KEY_Amacron = 960 :: Int32 - - -pattern KEY_Alt_R = 65514 :: Int32 - - -pattern KEY_Alt_L = 65513 :: Int32 - - -pattern KEY_Ahook = 16785058 :: Int32 - - -pattern KEY_Agrave = 192 :: Int32 - - -pattern KEY_Adiaeresis = 196 :: Int32 - - -pattern KEY_AddFavorite = 269025081 :: Int32 - - -pattern KEY_Acircumflextilde = 16785066 :: Int32 - - -pattern KEY_Acircumflexhook = 16785064 :: Int32 - - -pattern KEY_Acircumflexgrave = 16785062 :: Int32 - - -pattern KEY_Acircumflexbelowdot = 16785068 :: Int32 - - -pattern KEY_Acircumflexacute = 16785060 :: Int32 - - -pattern KEY_Acircumflex = 194 :: Int32 - - -pattern KEY_AccessX_Feedback_Enable = 65137 :: Int32 - - -pattern KEY_AccessX_Enable = 65136 :: Int32 - - -pattern KEY_Abrevetilde = 16785076 :: Int32 - - -pattern KEY_Abrevehook = 16785074 :: Int32 - - -pattern KEY_Abrevegrave = 16785072 :: Int32 - - -pattern KEY_Abrevebelowdot = 16785078 :: Int32 - - -pattern KEY_Abreveacute = 16785070 :: Int32 - - -pattern KEY_Abreve = 451 :: Int32 - - -pattern KEY_Abelowdot = 16785056 :: Int32 - - -pattern KEY_Aacute = 193 :: Int32 - - -pattern KEY_AE = 198 :: Int32 - - -pattern KEY_A = 65 :: Int32 - - -pattern KEY_9 = 57 :: Int32 - - -pattern KEY_8 = 56 :: Int32 - - -pattern KEY_7 = 55 :: Int32 - - -pattern KEY_6 = 54 :: Int32 - - -pattern KEY_5 = 53 :: Int32 - - -pattern KEY_4 = 52 :: Int32 - - -pattern KEY_3270_Test = 64781 :: Int32 - - -pattern KEY_3270_Setup = 64791 :: Int32 - - -pattern KEY_3270_Rule = 64788 :: Int32 - - -pattern KEY_3270_Right2 = 64771 :: Int32 - - -pattern KEY_3270_Reset = 64776 :: Int32 - - -pattern KEY_3270_Record = 64792 :: Int32 - - -pattern KEY_3270_Quit = 64777 :: Int32 - - -pattern KEY_3270_PrintScreen = 64797 :: Int32 - - -pattern KEY_3270_Play = 64790 :: Int32 - - -pattern KEY_3270_PA3 = 64780 :: Int32 - - -pattern KEY_3270_PA2 = 64779 :: Int32 - - -pattern KEY_3270_PA1 = 64778 :: Int32 - - -pattern KEY_3270_Left2 = 64772 :: Int32 - - -pattern KEY_3270_KeyClick = 64785 :: Int32 - - -pattern KEY_3270_Jump = 64786 :: Int32 - - -pattern KEY_3270_Ident = 64787 :: Int32 - - -pattern KEY_3270_FieldMark = 64770 :: Int32 - - -pattern KEY_3270_ExSelect = 64795 :: Int32 - - -pattern KEY_3270_EraseInput = 64775 :: Int32 - - -pattern KEY_3270_EraseEOF = 64774 :: Int32 - - -pattern KEY_3270_Enter = 64798 :: Int32 - - -pattern KEY_3270_Duplicate = 64769 :: Int32 - - -pattern KEY_3270_DeleteWord = 64794 :: Int32 - - -pattern KEY_3270_CursorSelect = 64796 :: Int32 - - -pattern KEY_3270_CursorBlink = 64783 :: Int32 - - -pattern KEY_3270_Copy = 64789 :: Int32 - - -pattern KEY_3270_ChangeScreen = 64793 :: Int32 - - -pattern KEY_3270_BackTab = 64773 :: Int32 - - -pattern KEY_3270_Attn = 64782 :: Int32 - - -pattern KEY_3270_AltCursor = 64784 :: Int32 - - -pattern KEY_3 = 51 :: Int32 - - -pattern KEY_2 = 50 :: Int32 - - -pattern KEY_1 = 49 :: Int32 - - -pattern KEY_0 = 48 :: Int32 - - -pattern EVENT_STOP = True :: Bool - - -pattern EVENT_PROPAGATE = False :: Bool - - -pattern CURRENT_TIME = 0 :: Int32 - - -pattern BUTTON_SECONDARY = 3 :: Int32 - - -pattern BUTTON_PRIMARY = 1 :: Int32 - - -pattern BUTTON_MIDDLE = 2 :: Int32 - - diff --git a/GI/Gdk/Enums.hs b/GI/Gdk/Enums.hs deleted file mode 100644 --- a/GI/Gdk/Enums.hs +++ /dev/null @@ -1,1395 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Enums - ( - catchGLError , - handleGLError , - --- * Exported types - WindowWindowClass(..) , - WindowTypeHint(..) , - WindowType(..) , - WindowEdge(..) , - VisualType(..) , - VisibilityState(..) , - TouchpadGesturePhase(..) , - Status(..) , - SettingAction(..) , - ScrollDirection(..) , - PropertyState(..) , - PropMode(..) , - OwnerChange(..) , - NotifyType(..) , - ModifierIntent(..) , - InputSource(..) , - InputMode(..) , - Gravity(..) , - GrabStatus(..) , - GrabOwnership(..) , - GLError(..) , - FullscreenMode(..) , - FilterReturn(..) , - EventType(..) , - DragProtocol(..) , - DeviceType(..) , - CursorType(..) , - CrossingMode(..) , - ByteOrder(..) , - AxisUse(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Enum WindowWindowClass - -data WindowWindowClass = - WindowWindowClassInputOutput - | WindowWindowClassInputOnly - | AnotherWindowWindowClass Int - deriving (Show, Eq) - -instance Enum WindowWindowClass where - fromEnum WindowWindowClassInputOutput = 0 - fromEnum WindowWindowClassInputOnly = 1 - fromEnum (AnotherWindowWindowClass k) = k - - toEnum 0 = WindowWindowClassInputOutput - toEnum 1 = WindowWindowClassInputOnly - toEnum k = AnotherWindowWindowClass k - -foreign import ccall "gdk_window_window_class_get_type" c_gdk_window_window_class_get_type :: - IO GType - -instance BoxedEnum WindowWindowClass where - boxedEnumType _ = c_gdk_window_window_class_get_type - --- Enum WindowTypeHint - -data WindowTypeHint = - WindowTypeHintNormal - | WindowTypeHintDialog - | WindowTypeHintMenu - | WindowTypeHintToolbar - | WindowTypeHintSplashscreen - | WindowTypeHintUtility - | WindowTypeHintDock - | WindowTypeHintDesktop - | WindowTypeHintDropdownMenu - | WindowTypeHintPopupMenu - | WindowTypeHintTooltip - | WindowTypeHintNotification - | WindowTypeHintCombo - | WindowTypeHintDnd - | AnotherWindowTypeHint Int - deriving (Show, Eq) - -instance Enum WindowTypeHint where - fromEnum WindowTypeHintNormal = 0 - fromEnum WindowTypeHintDialog = 1 - fromEnum WindowTypeHintMenu = 2 - fromEnum WindowTypeHintToolbar = 3 - fromEnum WindowTypeHintSplashscreen = 4 - fromEnum WindowTypeHintUtility = 5 - fromEnum WindowTypeHintDock = 6 - fromEnum WindowTypeHintDesktop = 7 - fromEnum WindowTypeHintDropdownMenu = 8 - fromEnum WindowTypeHintPopupMenu = 9 - fromEnum WindowTypeHintTooltip = 10 - fromEnum WindowTypeHintNotification = 11 - fromEnum WindowTypeHintCombo = 12 - fromEnum WindowTypeHintDnd = 13 - fromEnum (AnotherWindowTypeHint k) = k - - toEnum 0 = WindowTypeHintNormal - toEnum 1 = WindowTypeHintDialog - toEnum 2 = WindowTypeHintMenu - toEnum 3 = WindowTypeHintToolbar - toEnum 4 = WindowTypeHintSplashscreen - toEnum 5 = WindowTypeHintUtility - toEnum 6 = WindowTypeHintDock - toEnum 7 = WindowTypeHintDesktop - toEnum 8 = WindowTypeHintDropdownMenu - toEnum 9 = WindowTypeHintPopupMenu - toEnum 10 = WindowTypeHintTooltip - toEnum 11 = WindowTypeHintNotification - toEnum 12 = WindowTypeHintCombo - toEnum 13 = WindowTypeHintDnd - toEnum k = AnotherWindowTypeHint k - -foreign import ccall "gdk_window_type_hint_get_type" c_gdk_window_type_hint_get_type :: - IO GType - -instance BoxedEnum WindowTypeHint where - boxedEnumType _ = c_gdk_window_type_hint_get_type - --- Enum WindowType - -data WindowType = - WindowTypeRoot - | WindowTypeToplevel - | WindowTypeChild - | WindowTypeTemp - | WindowTypeForeign - | WindowTypeOffscreen - | WindowTypeSubsurface - | AnotherWindowType Int - deriving (Show, Eq) - -instance Enum WindowType where - fromEnum WindowTypeRoot = 0 - fromEnum WindowTypeToplevel = 1 - fromEnum WindowTypeChild = 2 - fromEnum WindowTypeTemp = 3 - fromEnum WindowTypeForeign = 4 - fromEnum WindowTypeOffscreen = 5 - fromEnum WindowTypeSubsurface = 6 - fromEnum (AnotherWindowType k) = k - - toEnum 0 = WindowTypeRoot - toEnum 1 = WindowTypeToplevel - toEnum 2 = WindowTypeChild - toEnum 3 = WindowTypeTemp - toEnum 4 = WindowTypeForeign - toEnum 5 = WindowTypeOffscreen - toEnum 6 = WindowTypeSubsurface - toEnum k = AnotherWindowType k - -foreign import ccall "gdk_window_type_get_type" c_gdk_window_type_get_type :: - IO GType - -instance BoxedEnum WindowType where - boxedEnumType _ = c_gdk_window_type_get_type - --- Enum WindowEdge - -data WindowEdge = - WindowEdgeNorthWest - | WindowEdgeNorth - | WindowEdgeNorthEast - | WindowEdgeWest - | WindowEdgeEast - | WindowEdgeSouthWest - | WindowEdgeSouth - | WindowEdgeSouthEast - | AnotherWindowEdge Int - deriving (Show, Eq) - -instance Enum WindowEdge where - fromEnum WindowEdgeNorthWest = 0 - fromEnum WindowEdgeNorth = 1 - fromEnum WindowEdgeNorthEast = 2 - fromEnum WindowEdgeWest = 3 - fromEnum WindowEdgeEast = 4 - fromEnum WindowEdgeSouthWest = 5 - fromEnum WindowEdgeSouth = 6 - fromEnum WindowEdgeSouthEast = 7 - fromEnum (AnotherWindowEdge k) = k - - toEnum 0 = WindowEdgeNorthWest - toEnum 1 = WindowEdgeNorth - toEnum 2 = WindowEdgeNorthEast - toEnum 3 = WindowEdgeWest - toEnum 4 = WindowEdgeEast - toEnum 5 = WindowEdgeSouthWest - toEnum 6 = WindowEdgeSouth - toEnum 7 = WindowEdgeSouthEast - toEnum k = AnotherWindowEdge k - -foreign import ccall "gdk_window_edge_get_type" c_gdk_window_edge_get_type :: - IO GType - -instance BoxedEnum WindowEdge where - boxedEnumType _ = c_gdk_window_edge_get_type - --- Enum VisualType - -data VisualType = - VisualTypeStaticGray - | VisualTypeGrayscale - | VisualTypeStaticColor - | VisualTypePseudoColor - | VisualTypeTrueColor - | VisualTypeDirectColor - | AnotherVisualType Int - deriving (Show, Eq) - -instance Enum VisualType where - fromEnum VisualTypeStaticGray = 0 - fromEnum VisualTypeGrayscale = 1 - fromEnum VisualTypeStaticColor = 2 - fromEnum VisualTypePseudoColor = 3 - fromEnum VisualTypeTrueColor = 4 - fromEnum VisualTypeDirectColor = 5 - fromEnum (AnotherVisualType k) = k - - toEnum 0 = VisualTypeStaticGray - toEnum 1 = VisualTypeGrayscale - toEnum 2 = VisualTypeStaticColor - toEnum 3 = VisualTypePseudoColor - toEnum 4 = VisualTypeTrueColor - toEnum 5 = VisualTypeDirectColor - toEnum k = AnotherVisualType k - -foreign import ccall "gdk_visual_type_get_type" c_gdk_visual_type_get_type :: - IO GType - -instance BoxedEnum VisualType where - boxedEnumType _ = c_gdk_visual_type_get_type - --- Enum VisibilityState - -data VisibilityState = - VisibilityStateUnobscured - | VisibilityStatePartial - | VisibilityStateFullyObscured - | AnotherVisibilityState Int - deriving (Show, Eq) - -instance Enum VisibilityState where - fromEnum VisibilityStateUnobscured = 0 - fromEnum VisibilityStatePartial = 1 - fromEnum VisibilityStateFullyObscured = 2 - fromEnum (AnotherVisibilityState k) = k - - toEnum 0 = VisibilityStateUnobscured - toEnum 1 = VisibilityStatePartial - toEnum 2 = VisibilityStateFullyObscured - toEnum k = AnotherVisibilityState k - -foreign import ccall "gdk_visibility_state_get_type" c_gdk_visibility_state_get_type :: - IO GType - -instance BoxedEnum VisibilityState where - boxedEnumType _ = c_gdk_visibility_state_get_type - --- Enum TouchpadGesturePhase - -data TouchpadGesturePhase = - TouchpadGesturePhaseBegin - | TouchpadGesturePhaseUpdate - | TouchpadGesturePhaseEnd - | TouchpadGesturePhaseCancel - | AnotherTouchpadGesturePhase Int - deriving (Show, Eq) - -instance Enum TouchpadGesturePhase where - fromEnum TouchpadGesturePhaseBegin = 0 - fromEnum TouchpadGesturePhaseUpdate = 1 - fromEnum TouchpadGesturePhaseEnd = 2 - fromEnum TouchpadGesturePhaseCancel = 3 - fromEnum (AnotherTouchpadGesturePhase k) = k - - toEnum 0 = TouchpadGesturePhaseBegin - toEnum 1 = TouchpadGesturePhaseUpdate - toEnum 2 = TouchpadGesturePhaseEnd - toEnum 3 = TouchpadGesturePhaseCancel - toEnum k = AnotherTouchpadGesturePhase k - -foreign import ccall "gdk_touchpad_gesture_phase_get_type" c_gdk_touchpad_gesture_phase_get_type :: - IO GType - -instance BoxedEnum TouchpadGesturePhase where - boxedEnumType _ = c_gdk_touchpad_gesture_phase_get_type - --- Enum Status - -data Status = - StatusOk - | StatusError - | StatusErrorParam - | StatusErrorFile - | StatusErrorMem - | AnotherStatus Int - deriving (Show, Eq) - -instance Enum Status where - fromEnum StatusOk = 0 - fromEnum StatusError = -1 - fromEnum StatusErrorParam = -2 - fromEnum StatusErrorFile = -3 - fromEnum StatusErrorMem = -4 - fromEnum (AnotherStatus k) = k - - toEnum -4 = StatusErrorMem - toEnum -3 = StatusErrorFile - toEnum -2 = StatusErrorParam - toEnum -1 = StatusError - toEnum 0 = StatusOk - toEnum k = AnotherStatus k - -foreign import ccall "gdk_status_get_type" c_gdk_status_get_type :: - IO GType - -instance BoxedEnum Status where - boxedEnumType _ = c_gdk_status_get_type - --- Enum SettingAction - -data SettingAction = - SettingActionNew - | SettingActionChanged - | SettingActionDeleted - | AnotherSettingAction Int - deriving (Show, Eq) - -instance Enum SettingAction where - fromEnum SettingActionNew = 0 - fromEnum SettingActionChanged = 1 - fromEnum SettingActionDeleted = 2 - fromEnum (AnotherSettingAction k) = k - - toEnum 0 = SettingActionNew - toEnum 1 = SettingActionChanged - toEnum 2 = SettingActionDeleted - toEnum k = AnotherSettingAction k - -foreign import ccall "gdk_setting_action_get_type" c_gdk_setting_action_get_type :: - IO GType - -instance BoxedEnum SettingAction where - boxedEnumType _ = c_gdk_setting_action_get_type - --- Enum ScrollDirection - -data ScrollDirection = - ScrollDirectionUp - | ScrollDirectionDown - | ScrollDirectionLeft - | ScrollDirectionRight - | ScrollDirectionSmooth - | AnotherScrollDirection Int - deriving (Show, Eq) - -instance Enum ScrollDirection where - fromEnum ScrollDirectionUp = 0 - fromEnum ScrollDirectionDown = 1 - fromEnum ScrollDirectionLeft = 2 - fromEnum ScrollDirectionRight = 3 - fromEnum ScrollDirectionSmooth = 4 - fromEnum (AnotherScrollDirection k) = k - - toEnum 0 = ScrollDirectionUp - toEnum 1 = ScrollDirectionDown - toEnum 2 = ScrollDirectionLeft - toEnum 3 = ScrollDirectionRight - toEnum 4 = ScrollDirectionSmooth - toEnum k = AnotherScrollDirection k - -foreign import ccall "gdk_scroll_direction_get_type" c_gdk_scroll_direction_get_type :: - IO GType - -instance BoxedEnum ScrollDirection where - boxedEnumType _ = c_gdk_scroll_direction_get_type - --- Enum PropertyState - -data PropertyState = - PropertyStateNewValue - | PropertyStateDelete - | AnotherPropertyState Int - deriving (Show, Eq) - -instance Enum PropertyState where - fromEnum PropertyStateNewValue = 0 - fromEnum PropertyStateDelete = 1 - fromEnum (AnotherPropertyState k) = k - - toEnum 0 = PropertyStateNewValue - toEnum 1 = PropertyStateDelete - toEnum k = AnotherPropertyState k - -foreign import ccall "gdk_property_state_get_type" c_gdk_property_state_get_type :: - IO GType - -instance BoxedEnum PropertyState where - boxedEnumType _ = c_gdk_property_state_get_type - --- Enum PropMode - -data PropMode = - PropModeReplace - | PropModePrepend - | PropModeAppend - | AnotherPropMode Int - deriving (Show, Eq) - -instance Enum PropMode where - fromEnum PropModeReplace = 0 - fromEnum PropModePrepend = 1 - fromEnum PropModeAppend = 2 - fromEnum (AnotherPropMode k) = k - - toEnum 0 = PropModeReplace - toEnum 1 = PropModePrepend - toEnum 2 = PropModeAppend - toEnum k = AnotherPropMode k - -foreign import ccall "gdk_prop_mode_get_type" c_gdk_prop_mode_get_type :: - IO GType - -instance BoxedEnum PropMode where - boxedEnumType _ = c_gdk_prop_mode_get_type - --- Enum OwnerChange - -data OwnerChange = - OwnerChangeNewOwner - | OwnerChangeDestroy - | OwnerChangeClose - | AnotherOwnerChange Int - deriving (Show, Eq) - -instance Enum OwnerChange where - fromEnum OwnerChangeNewOwner = 0 - fromEnum OwnerChangeDestroy = 1 - fromEnum OwnerChangeClose = 2 - fromEnum (AnotherOwnerChange k) = k - - toEnum 0 = OwnerChangeNewOwner - toEnum 1 = OwnerChangeDestroy - toEnum 2 = OwnerChangeClose - toEnum k = AnotherOwnerChange k - -foreign import ccall "gdk_owner_change_get_type" c_gdk_owner_change_get_type :: - IO GType - -instance BoxedEnum OwnerChange where - boxedEnumType _ = c_gdk_owner_change_get_type - --- Enum NotifyType - -data NotifyType = - NotifyTypeAncestor - | NotifyTypeVirtual - | NotifyTypeInferior - | NotifyTypeNonlinear - | NotifyTypeNonlinearVirtual - | NotifyTypeUnknown - | AnotherNotifyType Int - deriving (Show, Eq) - -instance Enum NotifyType where - fromEnum NotifyTypeAncestor = 0 - fromEnum NotifyTypeVirtual = 1 - fromEnum NotifyTypeInferior = 2 - fromEnum NotifyTypeNonlinear = 3 - fromEnum NotifyTypeNonlinearVirtual = 4 - fromEnum NotifyTypeUnknown = 5 - fromEnum (AnotherNotifyType k) = k - - toEnum 0 = NotifyTypeAncestor - toEnum 1 = NotifyTypeVirtual - toEnum 2 = NotifyTypeInferior - toEnum 3 = NotifyTypeNonlinear - toEnum 4 = NotifyTypeNonlinearVirtual - toEnum 5 = NotifyTypeUnknown - toEnum k = AnotherNotifyType k - -foreign import ccall "gdk_notify_type_get_type" c_gdk_notify_type_get_type :: - IO GType - -instance BoxedEnum NotifyType where - boxedEnumType _ = c_gdk_notify_type_get_type - --- Enum ModifierIntent - -data ModifierIntent = - ModifierIntentPrimaryAccelerator - | ModifierIntentContextMenu - | ModifierIntentExtendSelection - | ModifierIntentModifySelection - | ModifierIntentNoTextInput - | ModifierIntentShiftGroup - | ModifierIntentDefaultModMask - | AnotherModifierIntent Int - deriving (Show, Eq) - -instance Enum ModifierIntent where - fromEnum ModifierIntentPrimaryAccelerator = 0 - fromEnum ModifierIntentContextMenu = 1 - fromEnum ModifierIntentExtendSelection = 2 - fromEnum ModifierIntentModifySelection = 3 - fromEnum ModifierIntentNoTextInput = 4 - fromEnum ModifierIntentShiftGroup = 5 - fromEnum ModifierIntentDefaultModMask = 6 - fromEnum (AnotherModifierIntent k) = k - - toEnum 0 = ModifierIntentPrimaryAccelerator - toEnum 1 = ModifierIntentContextMenu - toEnum 2 = ModifierIntentExtendSelection - toEnum 3 = ModifierIntentModifySelection - toEnum 4 = ModifierIntentNoTextInput - toEnum 5 = ModifierIntentShiftGroup - toEnum 6 = ModifierIntentDefaultModMask - toEnum k = AnotherModifierIntent k - -foreign import ccall "gdk_modifier_intent_get_type" c_gdk_modifier_intent_get_type :: - IO GType - -instance BoxedEnum ModifierIntent where - boxedEnumType _ = c_gdk_modifier_intent_get_type - --- Enum InputSource - -data InputSource = - InputSourceMouse - | InputSourcePen - | InputSourceEraser - | InputSourceCursor - | InputSourceKeyboard - | InputSourceTouchscreen - | InputSourceTouchpad - | AnotherInputSource Int - deriving (Show, Eq) - -instance Enum InputSource where - fromEnum InputSourceMouse = 0 - fromEnum InputSourcePen = 1 - fromEnum InputSourceEraser = 2 - fromEnum InputSourceCursor = 3 - fromEnum InputSourceKeyboard = 4 - fromEnum InputSourceTouchscreen = 5 - fromEnum InputSourceTouchpad = 6 - fromEnum (AnotherInputSource k) = k - - toEnum 0 = InputSourceMouse - toEnum 1 = InputSourcePen - toEnum 2 = InputSourceEraser - toEnum 3 = InputSourceCursor - toEnum 4 = InputSourceKeyboard - toEnum 5 = InputSourceTouchscreen - toEnum 6 = InputSourceTouchpad - toEnum k = AnotherInputSource k - -foreign import ccall "gdk_input_source_get_type" c_gdk_input_source_get_type :: - IO GType - -instance BoxedEnum InputSource where - boxedEnumType _ = c_gdk_input_source_get_type - --- Enum InputMode - -data InputMode = - InputModeDisabled - | InputModeScreen - | InputModeWindow - | AnotherInputMode Int - deriving (Show, Eq) - -instance Enum InputMode where - fromEnum InputModeDisabled = 0 - fromEnum InputModeScreen = 1 - fromEnum InputModeWindow = 2 - fromEnum (AnotherInputMode k) = k - - toEnum 0 = InputModeDisabled - toEnum 1 = InputModeScreen - toEnum 2 = InputModeWindow - toEnum k = AnotherInputMode k - -foreign import ccall "gdk_input_mode_get_type" c_gdk_input_mode_get_type :: - IO GType - -instance BoxedEnum InputMode where - boxedEnumType _ = c_gdk_input_mode_get_type - --- Enum Gravity - -data Gravity = - GravityNorthWest - | GravityNorth - | GravityNorthEast - | GravityWest - | GravityCenter - | GravityEast - | GravitySouthWest - | GravitySouth - | GravitySouthEast - | GravityStatic - | AnotherGravity Int - deriving (Show, Eq) - -instance Enum Gravity where - fromEnum GravityNorthWest = 1 - fromEnum GravityNorth = 2 - fromEnum GravityNorthEast = 3 - fromEnum GravityWest = 4 - fromEnum GravityCenter = 5 - fromEnum GravityEast = 6 - fromEnum GravitySouthWest = 7 - fromEnum GravitySouth = 8 - fromEnum GravitySouthEast = 9 - fromEnum GravityStatic = 10 - fromEnum (AnotherGravity k) = k - - toEnum 1 = GravityNorthWest - toEnum 2 = GravityNorth - toEnum 3 = GravityNorthEast - toEnum 4 = GravityWest - toEnum 5 = GravityCenter - toEnum 6 = GravityEast - toEnum 7 = GravitySouthWest - toEnum 8 = GravitySouth - toEnum 9 = GravitySouthEast - toEnum 10 = GravityStatic - toEnum k = AnotherGravity k - -foreign import ccall "gdk_gravity_get_type" c_gdk_gravity_get_type :: - IO GType - -instance BoxedEnum Gravity where - boxedEnumType _ = c_gdk_gravity_get_type - --- Enum GrabStatus - -data GrabStatus = - GrabStatusSuccess - | GrabStatusAlreadyGrabbed - | GrabStatusInvalidTime - | GrabStatusNotViewable - | GrabStatusFrozen - | GrabStatusFailed - | AnotherGrabStatus Int - deriving (Show, Eq) - -instance Enum GrabStatus where - fromEnum GrabStatusSuccess = 0 - fromEnum GrabStatusAlreadyGrabbed = 1 - fromEnum GrabStatusInvalidTime = 2 - fromEnum GrabStatusNotViewable = 3 - fromEnum GrabStatusFrozen = 4 - fromEnum GrabStatusFailed = 5 - fromEnum (AnotherGrabStatus k) = k - - toEnum 0 = GrabStatusSuccess - toEnum 1 = GrabStatusAlreadyGrabbed - toEnum 2 = GrabStatusInvalidTime - toEnum 3 = GrabStatusNotViewable - toEnum 4 = GrabStatusFrozen - toEnum 5 = GrabStatusFailed - toEnum k = AnotherGrabStatus k - -foreign import ccall "gdk_grab_status_get_type" c_gdk_grab_status_get_type :: - IO GType - -instance BoxedEnum GrabStatus where - boxedEnumType _ = c_gdk_grab_status_get_type - --- Enum GrabOwnership - -data GrabOwnership = - GrabOwnershipNone - | GrabOwnershipWindow - | GrabOwnershipApplication - | AnotherGrabOwnership Int - deriving (Show, Eq) - -instance Enum GrabOwnership where - fromEnum GrabOwnershipNone = 0 - fromEnum GrabOwnershipWindow = 1 - fromEnum GrabOwnershipApplication = 2 - fromEnum (AnotherGrabOwnership k) = k - - toEnum 0 = GrabOwnershipNone - toEnum 1 = GrabOwnershipWindow - toEnum 2 = GrabOwnershipApplication - toEnum k = AnotherGrabOwnership k - -foreign import ccall "gdk_grab_ownership_get_type" c_gdk_grab_ownership_get_type :: - IO GType - -instance BoxedEnum GrabOwnership where - boxedEnumType _ = c_gdk_grab_ownership_get_type - --- Enum GLError - -data GLError = - GLErrorNotAvailable - | GLErrorUnsupportedFormat - | GLErrorUnsupportedProfile - | AnotherGLError Int - deriving (Show, Eq) - -instance Enum GLError where - fromEnum GLErrorNotAvailable = 0 - fromEnum GLErrorUnsupportedFormat = 1 - fromEnum GLErrorUnsupportedProfile = 2 - fromEnum (AnotherGLError k) = k - - toEnum 0 = GLErrorNotAvailable - toEnum 1 = GLErrorUnsupportedFormat - toEnum 2 = GLErrorUnsupportedProfile - toEnum k = AnotherGLError k - -instance GErrorClass GLError where - gerrorClassDomain _ = "gdk-gl-error-quark" - -catchGLError :: - IO a -> - (GLError -> GErrorMessage -> IO a) -> - IO a -catchGLError = catchGErrorJustDomain - -handleGLError :: - (GLError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleGLError = handleGErrorJustDomain - -foreign import ccall "gdk_gl_error_get_type" c_gdk_gl_error_get_type :: - IO GType - -instance BoxedEnum GLError where - boxedEnumType _ = c_gdk_gl_error_get_type - --- Enum FullscreenMode - -data FullscreenMode = - FullscreenModeCurrentMonitor - | FullscreenModeAllMonitors - | AnotherFullscreenMode Int - deriving (Show, Eq) - -instance Enum FullscreenMode where - fromEnum FullscreenModeCurrentMonitor = 0 - fromEnum FullscreenModeAllMonitors = 1 - fromEnum (AnotherFullscreenMode k) = k - - toEnum 0 = FullscreenModeCurrentMonitor - toEnum 1 = FullscreenModeAllMonitors - toEnum k = AnotherFullscreenMode k - -foreign import ccall "gdk_fullscreen_mode_get_type" c_gdk_fullscreen_mode_get_type :: - IO GType - -instance BoxedEnum FullscreenMode where - boxedEnumType _ = c_gdk_fullscreen_mode_get_type - --- Enum FilterReturn - -data FilterReturn = - FilterReturnContinue - | FilterReturnTranslate - | FilterReturnRemove - | AnotherFilterReturn Int - deriving (Show, Eq) - -instance Enum FilterReturn where - fromEnum FilterReturnContinue = 0 - fromEnum FilterReturnTranslate = 1 - fromEnum FilterReturnRemove = 2 - fromEnum (AnotherFilterReturn k) = k - - toEnum 0 = FilterReturnContinue - toEnum 1 = FilterReturnTranslate - toEnum 2 = FilterReturnRemove - toEnum k = AnotherFilterReturn k - -foreign import ccall "gdk_filter_return_get_type" c_gdk_filter_return_get_type :: - IO GType - -instance BoxedEnum FilterReturn where - boxedEnumType _ = c_gdk_filter_return_get_type - --- Enum EventType - -data EventType = - EventTypeNothing - | EventTypeDelete - | EventTypeDestroy - | EventTypeExpose - | EventTypeMotionNotify - | EventTypeButtonPress - | EventType2buttonPress - | EventTypeDoubleButtonPress - | EventType3buttonPress - | EventTypeTripleButtonPress - | EventTypeButtonRelease - | EventTypeKeyPress - | EventTypeKeyRelease - | EventTypeEnterNotify - | EventTypeLeaveNotify - | EventTypeFocusChange - | EventTypeConfigure - | EventTypeMap - | EventTypeUnmap - | EventTypePropertyNotify - | EventTypeSelectionClear - | EventTypeSelectionRequest - | EventTypeSelectionNotify - | EventTypeProximityIn - | EventTypeProximityOut - | EventTypeDragEnter - | EventTypeDragLeave - | EventTypeDragMotion - | EventTypeDragStatus - | EventTypeDropStart - | EventTypeDropFinished - | EventTypeClientEvent - | EventTypeVisibilityNotify - | EventTypeScroll - | EventTypeWindowState - | EventTypeSetting - | EventTypeOwnerChange - | EventTypeGrabBroken - | EventTypeDamage - | EventTypeTouchBegin - | EventTypeTouchUpdate - | EventTypeTouchEnd - | EventTypeTouchCancel - | EventTypeTouchpadSwipe - | EventTypeTouchpadPinch - | EventTypeEventLast - | AnotherEventType Int - deriving (Show, Eq) - -instance Enum EventType where - fromEnum EventTypeNothing = -1 - fromEnum EventTypeDelete = 0 - fromEnum EventTypeDestroy = 1 - fromEnum EventTypeExpose = 2 - fromEnum EventTypeMotionNotify = 3 - fromEnum EventTypeButtonPress = 4 - fromEnum EventType2buttonPress = 5 - fromEnum EventTypeDoubleButtonPress = 5 - fromEnum EventType3buttonPress = 6 - fromEnum EventTypeTripleButtonPress = 6 - fromEnum EventTypeButtonRelease = 7 - fromEnum EventTypeKeyPress = 8 - fromEnum EventTypeKeyRelease = 9 - fromEnum EventTypeEnterNotify = 10 - fromEnum EventTypeLeaveNotify = 11 - fromEnum EventTypeFocusChange = 12 - fromEnum EventTypeConfigure = 13 - fromEnum EventTypeMap = 14 - fromEnum EventTypeUnmap = 15 - fromEnum EventTypePropertyNotify = 16 - fromEnum EventTypeSelectionClear = 17 - fromEnum EventTypeSelectionRequest = 18 - fromEnum EventTypeSelectionNotify = 19 - fromEnum EventTypeProximityIn = 20 - fromEnum EventTypeProximityOut = 21 - fromEnum EventTypeDragEnter = 22 - fromEnum EventTypeDragLeave = 23 - fromEnum EventTypeDragMotion = 24 - fromEnum EventTypeDragStatus = 25 - fromEnum EventTypeDropStart = 26 - fromEnum EventTypeDropFinished = 27 - fromEnum EventTypeClientEvent = 28 - fromEnum EventTypeVisibilityNotify = 29 - fromEnum EventTypeScroll = 31 - fromEnum EventTypeWindowState = 32 - fromEnum EventTypeSetting = 33 - fromEnum EventTypeOwnerChange = 34 - fromEnum EventTypeGrabBroken = 35 - fromEnum EventTypeDamage = 36 - fromEnum EventTypeTouchBegin = 37 - fromEnum EventTypeTouchUpdate = 38 - fromEnum EventTypeTouchEnd = 39 - fromEnum EventTypeTouchCancel = 40 - fromEnum EventTypeTouchpadSwipe = 41 - fromEnum EventTypeTouchpadPinch = 42 - fromEnum EventTypeEventLast = 43 - fromEnum (AnotherEventType k) = k - - toEnum -1 = EventTypeNothing - toEnum 0 = EventTypeDelete - toEnum 1 = EventTypeDestroy - toEnum 2 = EventTypeExpose - toEnum 3 = EventTypeMotionNotify - toEnum 4 = EventTypeButtonPress - toEnum 5 = EventType2buttonPress - toEnum 6 = EventType3buttonPress - toEnum 7 = EventTypeButtonRelease - toEnum 8 = EventTypeKeyPress - toEnum 9 = EventTypeKeyRelease - toEnum 10 = EventTypeEnterNotify - toEnum 11 = EventTypeLeaveNotify - toEnum 12 = EventTypeFocusChange - toEnum 13 = EventTypeConfigure - toEnum 14 = EventTypeMap - toEnum 15 = EventTypeUnmap - toEnum 16 = EventTypePropertyNotify - toEnum 17 = EventTypeSelectionClear - toEnum 18 = EventTypeSelectionRequest - toEnum 19 = EventTypeSelectionNotify - toEnum 20 = EventTypeProximityIn - toEnum 21 = EventTypeProximityOut - toEnum 22 = EventTypeDragEnter - toEnum 23 = EventTypeDragLeave - toEnum 24 = EventTypeDragMotion - toEnum 25 = EventTypeDragStatus - toEnum 26 = EventTypeDropStart - toEnum 27 = EventTypeDropFinished - toEnum 28 = EventTypeClientEvent - toEnum 29 = EventTypeVisibilityNotify - toEnum 31 = EventTypeScroll - toEnum 32 = EventTypeWindowState - toEnum 33 = EventTypeSetting - toEnum 34 = EventTypeOwnerChange - toEnum 35 = EventTypeGrabBroken - toEnum 36 = EventTypeDamage - toEnum 37 = EventTypeTouchBegin - toEnum 38 = EventTypeTouchUpdate - toEnum 39 = EventTypeTouchEnd - toEnum 40 = EventTypeTouchCancel - toEnum 41 = EventTypeTouchpadSwipe - toEnum 42 = EventTypeTouchpadPinch - toEnum 43 = EventTypeEventLast - toEnum k = AnotherEventType k - -foreign import ccall "gdk_event_type_get_type" c_gdk_event_type_get_type :: - IO GType - -instance BoxedEnum EventType where - boxedEnumType _ = c_gdk_event_type_get_type - --- Enum DragProtocol - -data DragProtocol = - DragProtocolNone - | DragProtocolMotif - | DragProtocolXdnd - | DragProtocolRootwin - | DragProtocolWin32Dropfiles - | DragProtocolOle2 - | DragProtocolLocal - | DragProtocolWayland - | AnotherDragProtocol Int - deriving (Show, Eq) - -instance Enum DragProtocol where - fromEnum DragProtocolNone = 0 - fromEnum DragProtocolMotif = 1 - fromEnum DragProtocolXdnd = 2 - fromEnum DragProtocolRootwin = 3 - fromEnum DragProtocolWin32Dropfiles = 4 - fromEnum DragProtocolOle2 = 5 - fromEnum DragProtocolLocal = 6 - fromEnum DragProtocolWayland = 7 - fromEnum (AnotherDragProtocol k) = k - - toEnum 0 = DragProtocolNone - toEnum 1 = DragProtocolMotif - toEnum 2 = DragProtocolXdnd - toEnum 3 = DragProtocolRootwin - toEnum 4 = DragProtocolWin32Dropfiles - toEnum 5 = DragProtocolOle2 - toEnum 6 = DragProtocolLocal - toEnum 7 = DragProtocolWayland - toEnum k = AnotherDragProtocol k - -foreign import ccall "gdk_drag_protocol_get_type" c_gdk_drag_protocol_get_type :: - IO GType - -instance BoxedEnum DragProtocol where - boxedEnumType _ = c_gdk_drag_protocol_get_type - --- Enum DeviceType - -data DeviceType = - DeviceTypeMaster - | DeviceTypeSlave - | DeviceTypeFloating - | AnotherDeviceType Int - deriving (Show, Eq) - -instance Enum DeviceType where - fromEnum DeviceTypeMaster = 0 - fromEnum DeviceTypeSlave = 1 - fromEnum DeviceTypeFloating = 2 - fromEnum (AnotherDeviceType k) = k - - toEnum 0 = DeviceTypeMaster - toEnum 1 = DeviceTypeSlave - toEnum 2 = DeviceTypeFloating - toEnum k = AnotherDeviceType k - -foreign import ccall "gdk_device_type_get_type" c_gdk_device_type_get_type :: - IO GType - -instance BoxedEnum DeviceType where - boxedEnumType _ = c_gdk_device_type_get_type - --- Enum CursorType - -data CursorType = - CursorTypeXCursor - | CursorTypeArrow - | CursorTypeBasedArrowDown - | CursorTypeBasedArrowUp - | CursorTypeBoat - | CursorTypeBogosity - | CursorTypeBottomLeftCorner - | CursorTypeBottomRightCorner - | CursorTypeBottomSide - | CursorTypeBottomTee - | CursorTypeBoxSpiral - | CursorTypeCenterPtr - | CursorTypeCircle - | CursorTypeClock - | CursorTypeCoffeeMug - | CursorTypeCross - | CursorTypeCrossReverse - | CursorTypeCrosshair - | CursorTypeDiamondCross - | CursorTypeDot - | CursorTypeDotbox - | CursorTypeDoubleArrow - | CursorTypeDraftLarge - | CursorTypeDraftSmall - | CursorTypeDrapedBox - | CursorTypeExchange - | CursorTypeFleur - | CursorTypeGobbler - | CursorTypeGumby - | CursorTypeHand1 - | CursorTypeHand2 - | CursorTypeHeart - | CursorTypeIcon - | CursorTypeIronCross - | CursorTypeLeftPtr - | CursorTypeLeftSide - | CursorTypeLeftTee - | CursorTypeLeftbutton - | CursorTypeLlAngle - | CursorTypeLrAngle - | CursorTypeMan - | CursorTypeMiddlebutton - | CursorTypeMouse - | CursorTypePencil - | CursorTypePirate - | CursorTypePlus - | CursorTypeQuestionArrow - | CursorTypeRightPtr - | CursorTypeRightSide - | CursorTypeRightTee - | CursorTypeRightbutton - | CursorTypeRtlLogo - | CursorTypeSailboat - | CursorTypeSbDownArrow - | CursorTypeSbHDoubleArrow - | CursorTypeSbLeftArrow - | CursorTypeSbRightArrow - | CursorTypeSbUpArrow - | CursorTypeSbVDoubleArrow - | CursorTypeShuttle - | CursorTypeSizing - | CursorTypeSpider - | CursorTypeSpraycan - | CursorTypeStar - | CursorTypeTarget - | CursorTypeTcross - | CursorTypeTopLeftArrow - | CursorTypeTopLeftCorner - | CursorTypeTopRightCorner - | CursorTypeTopSide - | CursorTypeTopTee - | CursorTypeTrek - | CursorTypeUlAngle - | CursorTypeUmbrella - | CursorTypeUrAngle - | CursorTypeWatch - | CursorTypeXterm - | CursorTypeLastCursor - | CursorTypeBlankCursor - | CursorTypeCursorIsPixmap - | AnotherCursorType Int - deriving (Show, Eq) - -instance Enum CursorType where - fromEnum CursorTypeXCursor = 0 - fromEnum CursorTypeArrow = 2 - fromEnum CursorTypeBasedArrowDown = 4 - fromEnum CursorTypeBasedArrowUp = 6 - fromEnum CursorTypeBoat = 8 - fromEnum CursorTypeBogosity = 10 - fromEnum CursorTypeBottomLeftCorner = 12 - fromEnum CursorTypeBottomRightCorner = 14 - fromEnum CursorTypeBottomSide = 16 - fromEnum CursorTypeBottomTee = 18 - fromEnum CursorTypeBoxSpiral = 20 - fromEnum CursorTypeCenterPtr = 22 - fromEnum CursorTypeCircle = 24 - fromEnum CursorTypeClock = 26 - fromEnum CursorTypeCoffeeMug = 28 - fromEnum CursorTypeCross = 30 - fromEnum CursorTypeCrossReverse = 32 - fromEnum CursorTypeCrosshair = 34 - fromEnum CursorTypeDiamondCross = 36 - fromEnum CursorTypeDot = 38 - fromEnum CursorTypeDotbox = 40 - fromEnum CursorTypeDoubleArrow = 42 - fromEnum CursorTypeDraftLarge = 44 - fromEnum CursorTypeDraftSmall = 46 - fromEnum CursorTypeDrapedBox = 48 - fromEnum CursorTypeExchange = 50 - fromEnum CursorTypeFleur = 52 - fromEnum CursorTypeGobbler = 54 - fromEnum CursorTypeGumby = 56 - fromEnum CursorTypeHand1 = 58 - fromEnum CursorTypeHand2 = 60 - fromEnum CursorTypeHeart = 62 - fromEnum CursorTypeIcon = 64 - fromEnum CursorTypeIronCross = 66 - fromEnum CursorTypeLeftPtr = 68 - fromEnum CursorTypeLeftSide = 70 - fromEnum CursorTypeLeftTee = 72 - fromEnum CursorTypeLeftbutton = 74 - fromEnum CursorTypeLlAngle = 76 - fromEnum CursorTypeLrAngle = 78 - fromEnum CursorTypeMan = 80 - fromEnum CursorTypeMiddlebutton = 82 - fromEnum CursorTypeMouse = 84 - fromEnum CursorTypePencil = 86 - fromEnum CursorTypePirate = 88 - fromEnum CursorTypePlus = 90 - fromEnum CursorTypeQuestionArrow = 92 - fromEnum CursorTypeRightPtr = 94 - fromEnum CursorTypeRightSide = 96 - fromEnum CursorTypeRightTee = 98 - fromEnum CursorTypeRightbutton = 100 - fromEnum CursorTypeRtlLogo = 102 - fromEnum CursorTypeSailboat = 104 - fromEnum CursorTypeSbDownArrow = 106 - fromEnum CursorTypeSbHDoubleArrow = 108 - fromEnum CursorTypeSbLeftArrow = 110 - fromEnum CursorTypeSbRightArrow = 112 - fromEnum CursorTypeSbUpArrow = 114 - fromEnum CursorTypeSbVDoubleArrow = 116 - fromEnum CursorTypeShuttle = 118 - fromEnum CursorTypeSizing = 120 - fromEnum CursorTypeSpider = 122 - fromEnum CursorTypeSpraycan = 124 - fromEnum CursorTypeStar = 126 - fromEnum CursorTypeTarget = 128 - fromEnum CursorTypeTcross = 130 - fromEnum CursorTypeTopLeftArrow = 132 - fromEnum CursorTypeTopLeftCorner = 134 - fromEnum CursorTypeTopRightCorner = 136 - fromEnum CursorTypeTopSide = 138 - fromEnum CursorTypeTopTee = 140 - fromEnum CursorTypeTrek = 142 - fromEnum CursorTypeUlAngle = 144 - fromEnum CursorTypeUmbrella = 146 - fromEnum CursorTypeUrAngle = 148 - fromEnum CursorTypeWatch = 150 - fromEnum CursorTypeXterm = 152 - fromEnum CursorTypeLastCursor = 153 - fromEnum CursorTypeBlankCursor = -2 - fromEnum CursorTypeCursorIsPixmap = -1 - fromEnum (AnotherCursorType k) = k - - toEnum -2 = CursorTypeBlankCursor - toEnum -1 = CursorTypeCursorIsPixmap - toEnum 0 = CursorTypeXCursor - toEnum 2 = CursorTypeArrow - toEnum 4 = CursorTypeBasedArrowDown - toEnum 6 = CursorTypeBasedArrowUp - toEnum 8 = CursorTypeBoat - toEnum 10 = CursorTypeBogosity - toEnum 12 = CursorTypeBottomLeftCorner - toEnum 14 = CursorTypeBottomRightCorner - toEnum 16 = CursorTypeBottomSide - toEnum 18 = CursorTypeBottomTee - toEnum 20 = CursorTypeBoxSpiral - toEnum 22 = CursorTypeCenterPtr - toEnum 24 = CursorTypeCircle - toEnum 26 = CursorTypeClock - toEnum 28 = CursorTypeCoffeeMug - toEnum 30 = CursorTypeCross - toEnum 32 = CursorTypeCrossReverse - toEnum 34 = CursorTypeCrosshair - toEnum 36 = CursorTypeDiamondCross - toEnum 38 = CursorTypeDot - toEnum 40 = CursorTypeDotbox - toEnum 42 = CursorTypeDoubleArrow - toEnum 44 = CursorTypeDraftLarge - toEnum 46 = CursorTypeDraftSmall - toEnum 48 = CursorTypeDrapedBox - toEnum 50 = CursorTypeExchange - toEnum 52 = CursorTypeFleur - toEnum 54 = CursorTypeGobbler - toEnum 56 = CursorTypeGumby - toEnum 58 = CursorTypeHand1 - toEnum 60 = CursorTypeHand2 - toEnum 62 = CursorTypeHeart - toEnum 64 = CursorTypeIcon - toEnum 66 = CursorTypeIronCross - toEnum 68 = CursorTypeLeftPtr - toEnum 70 = CursorTypeLeftSide - toEnum 72 = CursorTypeLeftTee - toEnum 74 = CursorTypeLeftbutton - toEnum 76 = CursorTypeLlAngle - toEnum 78 = CursorTypeLrAngle - toEnum 80 = CursorTypeMan - toEnum 82 = CursorTypeMiddlebutton - toEnum 84 = CursorTypeMouse - toEnum 86 = CursorTypePencil - toEnum 88 = CursorTypePirate - toEnum 90 = CursorTypePlus - toEnum 92 = CursorTypeQuestionArrow - toEnum 94 = CursorTypeRightPtr - toEnum 96 = CursorTypeRightSide - toEnum 98 = CursorTypeRightTee - toEnum 100 = CursorTypeRightbutton - toEnum 102 = CursorTypeRtlLogo - toEnum 104 = CursorTypeSailboat - toEnum 106 = CursorTypeSbDownArrow - toEnum 108 = CursorTypeSbHDoubleArrow - toEnum 110 = CursorTypeSbLeftArrow - toEnum 112 = CursorTypeSbRightArrow - toEnum 114 = CursorTypeSbUpArrow - toEnum 116 = CursorTypeSbVDoubleArrow - toEnum 118 = CursorTypeShuttle - toEnum 120 = CursorTypeSizing - toEnum 122 = CursorTypeSpider - toEnum 124 = CursorTypeSpraycan - toEnum 126 = CursorTypeStar - toEnum 128 = CursorTypeTarget - toEnum 130 = CursorTypeTcross - toEnum 132 = CursorTypeTopLeftArrow - toEnum 134 = CursorTypeTopLeftCorner - toEnum 136 = CursorTypeTopRightCorner - toEnum 138 = CursorTypeTopSide - toEnum 140 = CursorTypeTopTee - toEnum 142 = CursorTypeTrek - toEnum 144 = CursorTypeUlAngle - toEnum 146 = CursorTypeUmbrella - toEnum 148 = CursorTypeUrAngle - toEnum 150 = CursorTypeWatch - toEnum 152 = CursorTypeXterm - toEnum 153 = CursorTypeLastCursor - toEnum k = AnotherCursorType k - -foreign import ccall "gdk_cursor_type_get_type" c_gdk_cursor_type_get_type :: - IO GType - -instance BoxedEnum CursorType where - boxedEnumType _ = c_gdk_cursor_type_get_type - --- Enum CrossingMode - -data CrossingMode = - CrossingModeNormal - | CrossingModeGrab - | CrossingModeUngrab - | CrossingModeGtkGrab - | CrossingModeGtkUngrab - | CrossingModeStateChanged - | CrossingModeTouchBegin - | CrossingModeTouchEnd - | CrossingModeDeviceSwitch - | AnotherCrossingMode Int - deriving (Show, Eq) - -instance Enum CrossingMode where - fromEnum CrossingModeNormal = 0 - fromEnum CrossingModeGrab = 1 - fromEnum CrossingModeUngrab = 2 - fromEnum CrossingModeGtkGrab = 3 - fromEnum CrossingModeGtkUngrab = 4 - fromEnum CrossingModeStateChanged = 5 - fromEnum CrossingModeTouchBegin = 6 - fromEnum CrossingModeTouchEnd = 7 - fromEnum CrossingModeDeviceSwitch = 8 - fromEnum (AnotherCrossingMode k) = k - - toEnum 0 = CrossingModeNormal - toEnum 1 = CrossingModeGrab - toEnum 2 = CrossingModeUngrab - toEnum 3 = CrossingModeGtkGrab - toEnum 4 = CrossingModeGtkUngrab - toEnum 5 = CrossingModeStateChanged - toEnum 6 = CrossingModeTouchBegin - toEnum 7 = CrossingModeTouchEnd - toEnum 8 = CrossingModeDeviceSwitch - toEnum k = AnotherCrossingMode k - -foreign import ccall "gdk_crossing_mode_get_type" c_gdk_crossing_mode_get_type :: - IO GType - -instance BoxedEnum CrossingMode where - boxedEnumType _ = c_gdk_crossing_mode_get_type - --- Enum ByteOrder - -data ByteOrder = - ByteOrderLsbFirst - | ByteOrderMsbFirst - | AnotherByteOrder Int - deriving (Show, Eq) - -instance Enum ByteOrder where - fromEnum ByteOrderLsbFirst = 0 - fromEnum ByteOrderMsbFirst = 1 - fromEnum (AnotherByteOrder k) = k - - toEnum 0 = ByteOrderLsbFirst - toEnum 1 = ByteOrderMsbFirst - toEnum k = AnotherByteOrder k - -foreign import ccall "gdk_byte_order_get_type" c_gdk_byte_order_get_type :: - IO GType - -instance BoxedEnum ByteOrder where - boxedEnumType _ = c_gdk_byte_order_get_type - --- Enum AxisUse - -data AxisUse = - AxisUseIgnore - | AxisUseX - | AxisUseY - | AxisUsePressure - | AxisUseXtilt - | AxisUseYtilt - | AxisUseWheel - | AxisUseLast - | AnotherAxisUse Int - deriving (Show, Eq) - -instance Enum AxisUse where - fromEnum AxisUseIgnore = 0 - fromEnum AxisUseX = 1 - fromEnum AxisUseY = 2 - fromEnum AxisUsePressure = 3 - fromEnum AxisUseXtilt = 4 - fromEnum AxisUseYtilt = 5 - fromEnum AxisUseWheel = 6 - fromEnum AxisUseLast = 7 - fromEnum (AnotherAxisUse k) = k - - toEnum 0 = AxisUseIgnore - toEnum 1 = AxisUseX - toEnum 2 = AxisUseY - toEnum 3 = AxisUsePressure - toEnum 4 = AxisUseXtilt - toEnum 5 = AxisUseYtilt - toEnum 6 = AxisUseWheel - toEnum 7 = AxisUseLast - toEnum k = AnotherAxisUse k - -foreign import ccall "gdk_axis_use_get_type" c_gdk_axis_use_get_type :: - IO GType - -instance BoxedEnum AxisUse where - boxedEnumType _ = c_gdk_axis_use_get_type - - diff --git a/GI/Gdk/Flags.hs b/GI/Gdk/Flags.hs deleted file mode 100644 --- a/GI/Gdk/Flags.hs +++ /dev/null @@ -1,537 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Flags - ( - --- * Exported types - WindowState(..) , - WindowHints(..) , - WindowAttributesType(..) , - WMFunction(..) , - WMDecoration(..) , - ModifierType(..) , - FrameClockPhase(..) , - EventMask(..) , - DragAction(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Flags WindowState - -data WindowState = - WindowStateWithdrawn - | WindowStateIconified - | WindowStateMaximized - | WindowStateSticky - | WindowStateFullscreen - | WindowStateAbove - | WindowStateBelow - | WindowStateFocused - | WindowStateTiled - | AnotherWindowState Int - deriving (Show, Eq) - -instance Enum WindowState where - fromEnum WindowStateWithdrawn = 1 - fromEnum WindowStateIconified = 2 - fromEnum WindowStateMaximized = 4 - fromEnum WindowStateSticky = 8 - fromEnum WindowStateFullscreen = 16 - fromEnum WindowStateAbove = 32 - fromEnum WindowStateBelow = 64 - fromEnum WindowStateFocused = 128 - fromEnum WindowStateTiled = 256 - fromEnum (AnotherWindowState k) = k - - toEnum 1 = WindowStateWithdrawn - toEnum 2 = WindowStateIconified - toEnum 4 = WindowStateMaximized - toEnum 8 = WindowStateSticky - toEnum 16 = WindowStateFullscreen - toEnum 32 = WindowStateAbove - toEnum 64 = WindowStateBelow - toEnum 128 = WindowStateFocused - toEnum 256 = WindowStateTiled - toEnum k = AnotherWindowState k - -foreign import ccall "gdk_window_state_get_type" c_gdk_window_state_get_type :: - IO GType - -instance BoxedFlags WindowState where - boxedFlagsType _ = c_gdk_window_state_get_type - -instance IsGFlag WindowState - --- Flags WindowHints - -data WindowHints = - WindowHintsPos - | WindowHintsMinSize - | WindowHintsMaxSize - | WindowHintsBaseSize - | WindowHintsAspect - | WindowHintsResizeInc - | WindowHintsWinGravity - | WindowHintsUserPos - | WindowHintsUserSize - | AnotherWindowHints Int - deriving (Show, Eq) - -instance Enum WindowHints where - fromEnum WindowHintsPos = 1 - fromEnum WindowHintsMinSize = 2 - fromEnum WindowHintsMaxSize = 4 - fromEnum WindowHintsBaseSize = 8 - fromEnum WindowHintsAspect = 16 - fromEnum WindowHintsResizeInc = 32 - fromEnum WindowHintsWinGravity = 64 - fromEnum WindowHintsUserPos = 128 - fromEnum WindowHintsUserSize = 256 - fromEnum (AnotherWindowHints k) = k - - toEnum 1 = WindowHintsPos - toEnum 2 = WindowHintsMinSize - toEnum 4 = WindowHintsMaxSize - toEnum 8 = WindowHintsBaseSize - toEnum 16 = WindowHintsAspect - toEnum 32 = WindowHintsResizeInc - toEnum 64 = WindowHintsWinGravity - toEnum 128 = WindowHintsUserPos - toEnum 256 = WindowHintsUserSize - toEnum k = AnotherWindowHints k - -foreign import ccall "gdk_window_hints_get_type" c_gdk_window_hints_get_type :: - IO GType - -instance BoxedFlags WindowHints where - boxedFlagsType _ = c_gdk_window_hints_get_type - -instance IsGFlag WindowHints - --- Flags WindowAttributesType - -data WindowAttributesType = - WindowAttributesTypeTitle - | WindowAttributesTypeX - | WindowAttributesTypeY - | WindowAttributesTypeCursor - | WindowAttributesTypeVisual - | WindowAttributesTypeWmclass - | WindowAttributesTypeNoredir - | WindowAttributesTypeTypeHint - | AnotherWindowAttributesType Int - deriving (Show, Eq) - -instance Enum WindowAttributesType where - fromEnum WindowAttributesTypeTitle = 2 - fromEnum WindowAttributesTypeX = 4 - fromEnum WindowAttributesTypeY = 8 - fromEnum WindowAttributesTypeCursor = 16 - fromEnum WindowAttributesTypeVisual = 32 - fromEnum WindowAttributesTypeWmclass = 64 - fromEnum WindowAttributesTypeNoredir = 128 - fromEnum WindowAttributesTypeTypeHint = 256 - fromEnum (AnotherWindowAttributesType k) = k - - toEnum 2 = WindowAttributesTypeTitle - toEnum 4 = WindowAttributesTypeX - toEnum 8 = WindowAttributesTypeY - toEnum 16 = WindowAttributesTypeCursor - toEnum 32 = WindowAttributesTypeVisual - toEnum 64 = WindowAttributesTypeWmclass - toEnum 128 = WindowAttributesTypeNoredir - toEnum 256 = WindowAttributesTypeTypeHint - toEnum k = AnotherWindowAttributesType k - -foreign import ccall "gdk_window_attributes_type_get_type" c_gdk_window_attributes_type_get_type :: - IO GType - -instance BoxedFlags WindowAttributesType where - boxedFlagsType _ = c_gdk_window_attributes_type_get_type - -instance IsGFlag WindowAttributesType - --- Flags WMFunction - -data WMFunction = - WMFunctionAll - | WMFunctionResize - | WMFunctionMove - | WMFunctionMinimize - | WMFunctionMaximize - | WMFunctionClose - | AnotherWMFunction Int - deriving (Show, Eq) - -instance Enum WMFunction where - fromEnum WMFunctionAll = 1 - fromEnum WMFunctionResize = 2 - fromEnum WMFunctionMove = 4 - fromEnum WMFunctionMinimize = 8 - fromEnum WMFunctionMaximize = 16 - fromEnum WMFunctionClose = 32 - fromEnum (AnotherWMFunction k) = k - - toEnum 1 = WMFunctionAll - toEnum 2 = WMFunctionResize - toEnum 4 = WMFunctionMove - toEnum 8 = WMFunctionMinimize - toEnum 16 = WMFunctionMaximize - toEnum 32 = WMFunctionClose - toEnum k = AnotherWMFunction k - -foreign import ccall "gdk_wm_function_get_type" c_gdk_wm_function_get_type :: - IO GType - -instance BoxedFlags WMFunction where - boxedFlagsType _ = c_gdk_wm_function_get_type - -instance IsGFlag WMFunction - --- Flags WMDecoration - -data WMDecoration = - WMDecorationAll - | WMDecorationBorder - | WMDecorationResizeh - | WMDecorationTitle - | WMDecorationMenu - | WMDecorationMinimize - | WMDecorationMaximize - | AnotherWMDecoration Int - deriving (Show, Eq) - -instance Enum WMDecoration where - fromEnum WMDecorationAll = 1 - fromEnum WMDecorationBorder = 2 - fromEnum WMDecorationResizeh = 4 - fromEnum WMDecorationTitle = 8 - fromEnum WMDecorationMenu = 16 - fromEnum WMDecorationMinimize = 32 - fromEnum WMDecorationMaximize = 64 - fromEnum (AnotherWMDecoration k) = k - - toEnum 1 = WMDecorationAll - toEnum 2 = WMDecorationBorder - toEnum 4 = WMDecorationResizeh - toEnum 8 = WMDecorationTitle - toEnum 16 = WMDecorationMenu - toEnum 32 = WMDecorationMinimize - toEnum 64 = WMDecorationMaximize - toEnum k = AnotherWMDecoration k - -foreign import ccall "gdk_wm_decoration_get_type" c_gdk_wm_decoration_get_type :: - IO GType - -instance BoxedFlags WMDecoration where - boxedFlagsType _ = c_gdk_wm_decoration_get_type - -instance IsGFlag WMDecoration - --- Flags ModifierType - -data ModifierType = - ModifierTypeShiftMask - | ModifierTypeLockMask - | ModifierTypeControlMask - | ModifierTypeMod1Mask - | ModifierTypeMod2Mask - | ModifierTypeMod3Mask - | ModifierTypeMod4Mask - | ModifierTypeMod5Mask - | ModifierTypeButton1Mask - | ModifierTypeButton2Mask - | ModifierTypeButton3Mask - | ModifierTypeButton4Mask - | ModifierTypeButton5Mask - | ModifierTypeModifierReserved13Mask - | ModifierTypeModifierReserved14Mask - | ModifierTypeModifierReserved15Mask - | ModifierTypeModifierReserved16Mask - | ModifierTypeModifierReserved17Mask - | ModifierTypeModifierReserved18Mask - | ModifierTypeModifierReserved19Mask - | ModifierTypeModifierReserved20Mask - | ModifierTypeModifierReserved21Mask - | ModifierTypeModifierReserved22Mask - | ModifierTypeModifierReserved23Mask - | ModifierTypeModifierReserved24Mask - | ModifierTypeModifierReserved25Mask - | ModifierTypeSuperMask - | ModifierTypeHyperMask - | ModifierTypeMetaMask - | ModifierTypeModifierReserved29Mask - | ModifierTypeReleaseMask - | ModifierTypeModifierMask - | AnotherModifierType Int - deriving (Show, Eq) - -instance Enum ModifierType where - fromEnum ModifierTypeShiftMask = 1 - fromEnum ModifierTypeLockMask = 2 - fromEnum ModifierTypeControlMask = 4 - fromEnum ModifierTypeMod1Mask = 8 - fromEnum ModifierTypeMod2Mask = 16 - fromEnum ModifierTypeMod3Mask = 32 - fromEnum ModifierTypeMod4Mask = 64 - fromEnum ModifierTypeMod5Mask = 128 - fromEnum ModifierTypeButton1Mask = 256 - fromEnum ModifierTypeButton2Mask = 512 - fromEnum ModifierTypeButton3Mask = 1024 - fromEnum ModifierTypeButton4Mask = 2048 - fromEnum ModifierTypeButton5Mask = 4096 - fromEnum ModifierTypeModifierReserved13Mask = 8192 - fromEnum ModifierTypeModifierReserved14Mask = 16384 - fromEnum ModifierTypeModifierReserved15Mask = 32768 - fromEnum ModifierTypeModifierReserved16Mask = 65536 - fromEnum ModifierTypeModifierReserved17Mask = 131072 - fromEnum ModifierTypeModifierReserved18Mask = 262144 - fromEnum ModifierTypeModifierReserved19Mask = 524288 - fromEnum ModifierTypeModifierReserved20Mask = 1048576 - fromEnum ModifierTypeModifierReserved21Mask = 2097152 - fromEnum ModifierTypeModifierReserved22Mask = 4194304 - fromEnum ModifierTypeModifierReserved23Mask = 8388608 - fromEnum ModifierTypeModifierReserved24Mask = 16777216 - fromEnum ModifierTypeModifierReserved25Mask = 33554432 - fromEnum ModifierTypeSuperMask = 67108864 - fromEnum ModifierTypeHyperMask = 134217728 - fromEnum ModifierTypeMetaMask = 268435456 - fromEnum ModifierTypeModifierReserved29Mask = 536870912 - fromEnum ModifierTypeReleaseMask = 1073741824 - fromEnum ModifierTypeModifierMask = 1543512063 - fromEnum (AnotherModifierType k) = k - - toEnum 1 = ModifierTypeShiftMask - toEnum 2 = ModifierTypeLockMask - toEnum 4 = ModifierTypeControlMask - toEnum 8 = ModifierTypeMod1Mask - toEnum 16 = ModifierTypeMod2Mask - toEnum 32 = ModifierTypeMod3Mask - toEnum 64 = ModifierTypeMod4Mask - toEnum 128 = ModifierTypeMod5Mask - toEnum 256 = ModifierTypeButton1Mask - toEnum 512 = ModifierTypeButton2Mask - toEnum 1024 = ModifierTypeButton3Mask - toEnum 2048 = ModifierTypeButton4Mask - toEnum 4096 = ModifierTypeButton5Mask - toEnum 8192 = ModifierTypeModifierReserved13Mask - toEnum 16384 = ModifierTypeModifierReserved14Mask - toEnum 32768 = ModifierTypeModifierReserved15Mask - toEnum 65536 = ModifierTypeModifierReserved16Mask - toEnum 131072 = ModifierTypeModifierReserved17Mask - toEnum 262144 = ModifierTypeModifierReserved18Mask - toEnum 524288 = ModifierTypeModifierReserved19Mask - toEnum 1048576 = ModifierTypeModifierReserved20Mask - toEnum 2097152 = ModifierTypeModifierReserved21Mask - toEnum 4194304 = ModifierTypeModifierReserved22Mask - toEnum 8388608 = ModifierTypeModifierReserved23Mask - toEnum 16777216 = ModifierTypeModifierReserved24Mask - toEnum 33554432 = ModifierTypeModifierReserved25Mask - toEnum 67108864 = ModifierTypeSuperMask - toEnum 134217728 = ModifierTypeHyperMask - toEnum 268435456 = ModifierTypeMetaMask - toEnum 536870912 = ModifierTypeModifierReserved29Mask - toEnum 1073741824 = ModifierTypeReleaseMask - toEnum 1543512063 = ModifierTypeModifierMask - toEnum k = AnotherModifierType k - -foreign import ccall "gdk_modifier_type_get_type" c_gdk_modifier_type_get_type :: - IO GType - -instance BoxedFlags ModifierType where - boxedFlagsType _ = c_gdk_modifier_type_get_type - -instance IsGFlag ModifierType - --- Flags FrameClockPhase - -data FrameClockPhase = - FrameClockPhaseNone - | FrameClockPhaseFlushEvents - | FrameClockPhaseBeforePaint - | FrameClockPhaseUpdate - | FrameClockPhaseLayout - | FrameClockPhasePaint - | FrameClockPhaseResumeEvents - | FrameClockPhaseAfterPaint - | AnotherFrameClockPhase Int - deriving (Show, Eq) - -instance Enum FrameClockPhase where - fromEnum FrameClockPhaseNone = 0 - fromEnum FrameClockPhaseFlushEvents = 1 - fromEnum FrameClockPhaseBeforePaint = 2 - fromEnum FrameClockPhaseUpdate = 4 - fromEnum FrameClockPhaseLayout = 8 - fromEnum FrameClockPhasePaint = 16 - fromEnum FrameClockPhaseResumeEvents = 32 - fromEnum FrameClockPhaseAfterPaint = 64 - fromEnum (AnotherFrameClockPhase k) = k - - toEnum 0 = FrameClockPhaseNone - toEnum 1 = FrameClockPhaseFlushEvents - toEnum 2 = FrameClockPhaseBeforePaint - toEnum 4 = FrameClockPhaseUpdate - toEnum 8 = FrameClockPhaseLayout - toEnum 16 = FrameClockPhasePaint - toEnum 32 = FrameClockPhaseResumeEvents - toEnum 64 = FrameClockPhaseAfterPaint - toEnum k = AnotherFrameClockPhase k - -foreign import ccall "gdk_frame_clock_phase_get_type" c_gdk_frame_clock_phase_get_type :: - IO GType - -instance BoxedFlags FrameClockPhase where - boxedFlagsType _ = c_gdk_frame_clock_phase_get_type - -instance IsGFlag FrameClockPhase - --- Flags EventMask - -data EventMask = - EventMaskExposureMask - | EventMaskPointerMotionMask - | EventMaskPointerMotionHintMask - | EventMaskButtonMotionMask - | EventMaskButton1MotionMask - | EventMaskButton2MotionMask - | EventMaskButton3MotionMask - | EventMaskButtonPressMask - | EventMaskButtonReleaseMask - | EventMaskKeyPressMask - | EventMaskKeyReleaseMask - | EventMaskEnterNotifyMask - | EventMaskLeaveNotifyMask - | EventMaskFocusChangeMask - | EventMaskStructureMask - | EventMaskPropertyChangeMask - | EventMaskVisibilityNotifyMask - | EventMaskProximityInMask - | EventMaskProximityOutMask - | EventMaskSubstructureMask - | EventMaskScrollMask - | EventMaskTouchMask - | EventMaskSmoothScrollMask - | EventMaskTouchpadGestureMask - | EventMaskAllEventsMask - | AnotherEventMask Int - deriving (Show, Eq) - -instance Enum EventMask where - fromEnum EventMaskExposureMask = 2 - fromEnum EventMaskPointerMotionMask = 4 - fromEnum EventMaskPointerMotionHintMask = 8 - fromEnum EventMaskButtonMotionMask = 16 - fromEnum EventMaskButton1MotionMask = 32 - fromEnum EventMaskButton2MotionMask = 64 - fromEnum EventMaskButton3MotionMask = 128 - fromEnum EventMaskButtonPressMask = 256 - fromEnum EventMaskButtonReleaseMask = 512 - fromEnum EventMaskKeyPressMask = 1024 - fromEnum EventMaskKeyReleaseMask = 2048 - fromEnum EventMaskEnterNotifyMask = 4096 - fromEnum EventMaskLeaveNotifyMask = 8192 - fromEnum EventMaskFocusChangeMask = 16384 - fromEnum EventMaskStructureMask = 32768 - fromEnum EventMaskPropertyChangeMask = 65536 - fromEnum EventMaskVisibilityNotifyMask = 131072 - fromEnum EventMaskProximityInMask = 262144 - fromEnum EventMaskProximityOutMask = 524288 - fromEnum EventMaskSubstructureMask = 1048576 - fromEnum EventMaskScrollMask = 2097152 - fromEnum EventMaskTouchMask = 4194304 - fromEnum EventMaskSmoothScrollMask = 8388608 - fromEnum EventMaskTouchpadGestureMask = 16777216 - fromEnum EventMaskAllEventsMask = 16777214 - fromEnum (AnotherEventMask k) = k - - toEnum 2 = EventMaskExposureMask - toEnum 4 = EventMaskPointerMotionMask - toEnum 8 = EventMaskPointerMotionHintMask - toEnum 16 = EventMaskButtonMotionMask - toEnum 32 = EventMaskButton1MotionMask - toEnum 64 = EventMaskButton2MotionMask - toEnum 128 = EventMaskButton3MotionMask - toEnum 256 = EventMaskButtonPressMask - toEnum 512 = EventMaskButtonReleaseMask - toEnum 1024 = EventMaskKeyPressMask - toEnum 2048 = EventMaskKeyReleaseMask - toEnum 4096 = EventMaskEnterNotifyMask - toEnum 8192 = EventMaskLeaveNotifyMask - toEnum 16384 = EventMaskFocusChangeMask - toEnum 32768 = EventMaskStructureMask - toEnum 65536 = EventMaskPropertyChangeMask - toEnum 131072 = EventMaskVisibilityNotifyMask - toEnum 262144 = EventMaskProximityInMask - toEnum 524288 = EventMaskProximityOutMask - toEnum 1048576 = EventMaskSubstructureMask - toEnum 2097152 = EventMaskScrollMask - toEnum 4194304 = EventMaskTouchMask - toEnum 8388608 = EventMaskSmoothScrollMask - toEnum 16777214 = EventMaskAllEventsMask - toEnum 16777216 = EventMaskTouchpadGestureMask - toEnum k = AnotherEventMask k - -foreign import ccall "gdk_event_mask_get_type" c_gdk_event_mask_get_type :: - IO GType - -instance BoxedFlags EventMask where - boxedFlagsType _ = c_gdk_event_mask_get_type - -instance IsGFlag EventMask - --- Flags DragAction - -data DragAction = - DragActionDefault - | DragActionCopy - | DragActionMove - | DragActionLink - | DragActionPrivate - | DragActionAsk - | AnotherDragAction Int - deriving (Show, Eq) - -instance Enum DragAction where - fromEnum DragActionDefault = 1 - fromEnum DragActionCopy = 2 - fromEnum DragActionMove = 4 - fromEnum DragActionLink = 8 - fromEnum DragActionPrivate = 16 - fromEnum DragActionAsk = 32 - fromEnum (AnotherDragAction k) = k - - toEnum 1 = DragActionDefault - toEnum 2 = DragActionCopy - toEnum 4 = DragActionMove - toEnum 8 = DragActionLink - toEnum 16 = DragActionPrivate - toEnum 32 = DragActionAsk - toEnum k = AnotherDragAction k - -foreign import ccall "gdk_drag_action_get_type" c_gdk_drag_action_get_type :: - IO GType - -instance BoxedFlags DragAction where - boxedFlagsType _ = c_gdk_drag_action_get_type - -instance IsGFlag DragAction - - diff --git a/GI/Gdk/Functions.hs b/GI/Gdk/Functions.hs deleted file mode 100644 --- a/GI/Gdk/Functions.hs +++ /dev/null @@ -1,3004 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Functions - ( - - -- * Methods --- ** addOptionEntriesLibgtkOnly - addOptionEntriesLibgtkOnly , - - --- ** beep - beep , - - --- ** cairoCreate - cairoCreate , - - --- ** cairoDrawFromGl - cairoDrawFromGl , - - --- ** cairoGetClipRectangle - cairoGetClipRectangle , - - --- ** cairoRectangle - cairoRectangle , - - --- ** cairoRegion - cairoRegion , - - --- ** cairoRegionCreateFromSurface - cairoRegionCreateFromSurface , - - --- ** cairoSetSourceColor - cairoSetSourceColor , - - --- ** cairoSetSourcePixbuf - cairoSetSourcePixbuf , - - --- ** cairoSetSourceRgba - cairoSetSourceRgba , - - --- ** cairoSetSourceWindow - cairoSetSourceWindow , - - --- ** cairoSurfaceCreateFromPixbuf - cairoSurfaceCreateFromPixbuf , - - --- ** disableMultidevice - disableMultidevice , - - --- ** dragAbort - dragAbort , - - --- ** dragBegin - dragBegin , - - --- ** dragBeginForDevice - dragBeginForDevice , - - --- ** dragDrop - dragDrop , - - --- ** dragDropSucceeded - dragDropSucceeded , - - --- ** dragFindWindowForScreen - dragFindWindowForScreen , - - --- ** dragGetSelection - dragGetSelection , - - --- ** dragMotion - dragMotion , - - --- ** dragStatus - dragStatus , - - --- ** dropFinish - dropFinish , - - --- ** dropReply - dropReply , - - --- ** errorTrapPop - errorTrapPop , - - --- ** errorTrapPopIgnored - errorTrapPopIgnored , - - --- ** errorTrapPush - errorTrapPush , - - --- ** eventsGetAngle - eventsGetAngle , - - --- ** eventsGetCenter - eventsGetCenter , - - --- ** eventsGetDistance - eventsGetDistance , - - --- ** eventsPending - eventsPending , - - --- ** flush - flush , - - --- ** getDefaultRootWindow - getDefaultRootWindow , - - --- ** getDisplay - getDisplay , - - --- ** getDisplayArgName - getDisplayArgName , - - --- ** getProgramClass - getProgramClass , - - --- ** getShowEvents - getShowEvents , - - --- ** init - init , - - --- ** initCheck - initCheck , - - --- ** keyboardGrab - keyboardGrab , - - --- ** keyboardUngrab - keyboardUngrab , - - --- ** keyvalConvertCase - keyvalConvertCase , - - --- ** keyvalFromName - keyvalFromName , - - --- ** keyvalIsLower - keyvalIsLower , - - --- ** keyvalIsUpper - keyvalIsUpper , - - --- ** keyvalName - keyvalName , - - --- ** keyvalToLower - keyvalToLower , - - --- ** keyvalToUnicode - keyvalToUnicode , - - --- ** keyvalToUpper - keyvalToUpper , - - --- ** listVisuals - listVisuals , - - --- ** notifyStartupComplete - notifyStartupComplete , - - --- ** notifyStartupCompleteWithId - notifyStartupCompleteWithId , - - --- ** offscreenWindowGetEmbedder - offscreenWindowGetEmbedder , - - --- ** offscreenWindowGetSurface - offscreenWindowGetSurface , - - --- ** offscreenWindowSetEmbedder - offscreenWindowSetEmbedder , - - --- ** pangoContextGet - pangoContextGet , - - --- ** pangoContextGetForScreen - pangoContextGetForScreen , - - --- ** parseArgs - parseArgs , - - --- ** pixbufGetFromSurface - pixbufGetFromSurface , - - --- ** pixbufGetFromWindow - pixbufGetFromWindow , - - --- ** pointerGrab - pointerGrab , - - --- ** pointerIsGrabbed - pointerIsGrabbed , - - --- ** pointerUngrab - pointerUngrab , - - --- ** preParseLibgtkOnly - preParseLibgtkOnly , - - --- ** propertyDelete - propertyDelete , - - --- ** propertyGet - propertyGet , - - --- ** queryDepths - queryDepths , - - --- ** queryVisualTypes - queryVisualTypes , - - --- ** selectionConvert - selectionConvert , - - --- ** selectionOwnerGet - selectionOwnerGet , - - --- ** selectionOwnerGetForDisplay - selectionOwnerGetForDisplay , - - --- ** selectionOwnerSet - selectionOwnerSet , - - --- ** selectionOwnerSetForDisplay - selectionOwnerSetForDisplay , - - --- ** selectionSendNotify - selectionSendNotify , - - --- ** selectionSendNotifyForDisplay - selectionSendNotifyForDisplay , - - --- ** setAllowedBackends - setAllowedBackends , - - --- ** setDoubleClickTime - setDoubleClickTime , - - --- ** setProgramClass - setProgramClass , - - --- ** setShowEvents - setShowEvents , - - --- ** settingGet - settingGet , - - --- ** synthesizeWindowState - synthesizeWindowState , - - --- ** testRenderSync - testRenderSync , - - --- ** testSimulateButton - testSimulateButton , - - --- ** testSimulateKey - testSimulateKey , - - --- ** textPropertyToUtf8ListForDisplay - textPropertyToUtf8ListForDisplay , - - --- ** threadsAddIdle - threadsAddIdle , - - --- ** threadsAddTimeout - threadsAddTimeout , - - --- ** threadsAddTimeoutSeconds - threadsAddTimeoutSeconds , - - --- ** threadsEnter - threadsEnter , - - --- ** threadsInit - threadsInit , - - --- ** threadsLeave - threadsLeave , - - --- ** unicodeToKeyval - unicodeToKeyval , - - --- ** utf8ToStringTarget - utf8ToStringTarget , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GLib as GLib -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Pango as Pango -import qualified GI.Cairo as Cairo - --- function gdk_utf8_to_string_target --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_utf8_to_string_target" gdk_utf8_to_string_target :: - CString -> -- str : TBasicType TUTF8 - IO CString - - -utf8ToStringTarget :: - (MonadIO m) => - T.Text -- str - -> m (Maybe T.Text) -- result -utf8ToStringTarget str = liftIO $ do - str' <- textToCString str - result <- gdk_utf8_to_string_target str' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - freeMem str' - return maybeResult - - --- function gdk_unicode_to_keyval --- Args : [Arg {argCName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_unicode_to_keyval" gdk_unicode_to_keyval :: - Word32 -> -- wc : TBasicType TUInt32 - IO Word32 - - -unicodeToKeyval :: - (MonadIO m) => - Word32 -- wc - -> m Word32 -- result -unicodeToKeyval wc = liftIO $ do - result <- gdk_unicode_to_keyval wc - return result - - --- function gdk_threads_leave --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_threads_leave" gdk_threads_leave :: - IO () - -{-# DEPRECATED threadsLeave ["(Since version 3.6)","All GDK and GTK+ calls should be made from the main"," thread"]#-} -threadsLeave :: - (MonadIO m) => - m () -- result -threadsLeave = liftIO $ do - gdk_threads_leave - return () - - --- function gdk_threads_init --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_threads_init" gdk_threads_init :: - IO () - -{-# DEPRECATED threadsInit ["(Since version 3.6)","All GDK and GTK+ calls should be made from the main"," thread"]#-} -threadsInit :: - (MonadIO m) => - m () -- result -threadsInit = liftIO $ do - gdk_threads_init - return () - - --- function gdk_threads_enter --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_threads_enter" gdk_threads_enter :: - IO () - -{-# DEPRECATED threadsEnter ["(Since version 3.6)","All GDK and GTK+ calls should be made from the main"," thread"]#-} -threadsEnter :: - (MonadIO m) => - m () -- result -threadsEnter = liftIO $ do - gdk_threads_enter - return () - - --- function gdk_threads_add_timeout_seconds_full --- Args : [Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_threads_add_timeout_seconds_full" gdk_threads_add_timeout_seconds_full :: - Int32 -> -- priority : TBasicType TInt - Word32 -> -- interval : TBasicType TUInt - FunPtr GLib.SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -threadsAddTimeoutSeconds :: - (MonadIO m) => - Int32 -- priority - -> Word32 -- interval - -> GLib.SourceFunc -- function - -> m Word32 -- result -threadsAddTimeoutSeconds priority interval function = liftIO $ do - function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function) - let data_ = castFunPtrToPtr function' - let notify = safeFreeFunPtrPtr - result <- gdk_threads_add_timeout_seconds_full priority interval function' data_ notify - return result - - --- function gdk_threads_add_timeout_full --- Args : [Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_threads_add_timeout_full" gdk_threads_add_timeout_full :: - Int32 -> -- priority : TBasicType TInt - Word32 -> -- interval : TBasicType TUInt - FunPtr GLib.SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -threadsAddTimeout :: - (MonadIO m) => - Int32 -- priority - -> Word32 -- interval - -> GLib.SourceFunc -- function - -> m Word32 -- result -threadsAddTimeout priority interval function = liftIO $ do - function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function) - let data_ = castFunPtrToPtr function' - let notify = safeFreeFunPtrPtr - result <- gdk_threads_add_timeout_full priority interval function' data_ notify - return result - - --- function gdk_threads_add_idle_full --- Args : [Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_threads_add_idle_full" gdk_threads_add_idle_full :: - Int32 -> -- priority : TBasicType TInt - FunPtr GLib.SourceFuncC -> -- function : TInterface "GLib" "SourceFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO Word32 - - -threadsAddIdle :: - (MonadIO m) => - Int32 -- priority - -> GLib.SourceFunc -- function - -> m Word32 -- result -threadsAddIdle priority function = liftIO $ do - function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function) - let data_ = castFunPtrToPtr function' - let notify = safeFreeFunPtrPtr - result <- gdk_threads_add_idle_full priority function' data_ notify - return result - - --- function gdk_text_property_to_utf8_list_for_display --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_text_property_to_utf8_list_for_display" gdk_text_property_to_utf8_list_for_display :: - Ptr Display -> -- display : TInterface "Gdk" "Display" - Ptr Atom -> -- encoding : TInterface "Gdk" "Atom" - Int32 -> -- format : TBasicType TInt - Ptr Word8 -> -- text : TCArray False (-1) 4 (TBasicType TUInt8) - Int32 -> -- length : TBasicType TInt - Ptr (Ptr CString) -> -- list : TCArray True (-1) (-1) (TBasicType TUTF8) - IO Int32 - - -textPropertyToUtf8ListForDisplay :: - (MonadIO m, DisplayK a) => - a -- display - -> Atom -- encoding - -> Int32 -- format - -> ByteString -- text - -> m (Int32,[T.Text]) -- result -textPropertyToUtf8ListForDisplay display encoding format text = liftIO $ do - let length_ = fromIntegral $ B.length text - let display' = unsafeManagedPtrCastPtr display - let encoding' = unsafeManagedPtrGetPtr encoding - text' <- packByteString text - list <- allocMem :: IO (Ptr (Ptr CString)) - result <- gdk_text_property_to_utf8_list_for_display display' encoding' format text' length_ list - list' <- peek list - list'' <- unpackZeroTerminatedUTF8CArray list' - mapZeroTerminatedCArray freeMem list' - freeMem list' - touchManagedPtr display - touchManagedPtr encoding - freeMem text' - freeMem list - return (result, list'') - - --- function gdk_test_simulate_key --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_test_simulate_key" gdk_test_simulate_key :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Word32 -> -- keyval : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - CUInt -> -- key_pressrelease : TInterface "Gdk" "EventType" - IO CInt - - -testSimulateKey :: - (MonadIO m, WindowK a) => - a -- window - -> Int32 -- x - -> Int32 -- y - -> Word32 -- keyval - -> [ModifierType] -- modifiers - -> EventType -- keyPressrelease - -> m Bool -- result -testSimulateKey window x y keyval modifiers keyPressrelease = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - let modifiers' = gflagsToWord modifiers - let keyPressrelease' = (fromIntegral . fromEnum) keyPressrelease - result <- gdk_test_simulate_key window' x y keyval modifiers' keyPressrelease' - let result' = (/= 0) result - touchManagedPtr window - return result' - - --- function gdk_test_simulate_button --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_test_simulate_button" gdk_test_simulate_button :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Word32 -> -- button : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - CUInt -> -- button_pressrelease : TInterface "Gdk" "EventType" - IO CInt - - -testSimulateButton :: - (MonadIO m, WindowK a) => - a -- window - -> Int32 -- x - -> Int32 -- y - -> Word32 -- button - -> [ModifierType] -- modifiers - -> EventType -- buttonPressrelease - -> m Bool -- result -testSimulateButton window x y button modifiers buttonPressrelease = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - let modifiers' = gflagsToWord modifiers - let buttonPressrelease' = (fromIntegral . fromEnum) buttonPressrelease - result <- gdk_test_simulate_button window' x y button modifiers' buttonPressrelease' - let result' = (/= 0) result - touchManagedPtr window - return result' - - --- function gdk_test_render_sync --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_test_render_sync" gdk_test_render_sync :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - IO () - - -testRenderSync :: - (MonadIO m, WindowK a) => - a -- window - -> m () -- result -testRenderSync window = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - gdk_test_render_sync window' - touchManagedPtr window - return () - - --- function gdk_synthesize_window_state --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unset_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_synthesize_window_state" gdk_synthesize_window_state :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - CUInt -> -- unset_flags : TInterface "Gdk" "WindowState" - CUInt -> -- set_flags : TInterface "Gdk" "WindowState" - IO () - - -synthesizeWindowState :: - (MonadIO m, WindowK a) => - a -- window - -> [WindowState] -- unsetFlags - -> [WindowState] -- setFlags - -> m () -- result -synthesizeWindowState window unsetFlags setFlags = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - let unsetFlags' = gflagsToWord unsetFlags - let setFlags' = gflagsToWord setFlags - gdk_synthesize_window_state window' unsetFlags' setFlags' - touchManagedPtr window - return () - - --- function gdk_setting_get --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_setting_get" gdk_setting_get :: - CString -> -- name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO CInt - - -settingGet :: - (MonadIO m) => - T.Text -- name - -> GValue -- value - -> m Bool -- result -settingGet name value = liftIO $ do - name' <- textToCString name - let value' = unsafeManagedPtrGetPtr value - result <- gdk_setting_get name' value' - let result' = (/= 0) result - touchManagedPtr value - freeMem name' - return result' - - --- function gdk_set_show_events --- Args : [Arg {argCName = "show_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_set_show_events" gdk_set_show_events :: - CInt -> -- show_events : TBasicType TBoolean - IO () - - -setShowEvents :: - (MonadIO m) => - Bool -- showEvents - -> m () -- result -setShowEvents showEvents = liftIO $ do - let showEvents' = (fromIntegral . fromEnum) showEvents - gdk_set_show_events showEvents' - return () - - --- function gdk_set_program_class --- Args : [Arg {argCName = "program_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_set_program_class" gdk_set_program_class :: - CString -> -- program_class : TBasicType TUTF8 - IO () - - -setProgramClass :: - (MonadIO m) => - T.Text -- programClass - -> m () -- result -setProgramClass programClass = liftIO $ do - programClass' <- textToCString programClass - gdk_set_program_class programClass' - freeMem programClass' - return () - - --- function gdk_set_double_click_time --- Args : [Arg {argCName = "msec", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_set_double_click_time" gdk_set_double_click_time :: - Word32 -> -- msec : TBasicType TUInt - IO () - - -setDoubleClickTime :: - (MonadIO m) => - Word32 -- msec - -> m () -- result -setDoubleClickTime msec = liftIO $ do - gdk_set_double_click_time msec - return () - - --- function gdk_set_allowed_backends --- Args : [Arg {argCName = "backends", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_set_allowed_backends" gdk_set_allowed_backends :: - CString -> -- backends : TBasicType TUTF8 - IO () - - -setAllowedBackends :: - (MonadIO m) => - T.Text -- backends - -> m () -- result -setAllowedBackends backends = liftIO $ do - backends' <- textToCString backends - gdk_set_allowed_backends backends' - freeMem backends' - return () - - --- function gdk_selection_send_notify_for_display --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_selection_send_notify_for_display" gdk_selection_send_notify_for_display :: - Ptr Display -> -- display : TInterface "Gdk" "Display" - Ptr Window -> -- requestor : TInterface "Gdk" "Window" - Ptr Atom -> -- selection : TInterface "Gdk" "Atom" - Ptr Atom -> -- target : TInterface "Gdk" "Atom" - Ptr Atom -> -- property : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -selectionSendNotifyForDisplay :: - (MonadIO m, DisplayK a, WindowK b) => - a -- display - -> b -- requestor - -> Atom -- selection - -> Atom -- target - -> Atom -- property - -> Word32 -- time_ - -> m () -- result -selectionSendNotifyForDisplay display requestor selection target property time_ = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - let requestor' = unsafeManagedPtrCastPtr requestor - let selection' = unsafeManagedPtrGetPtr selection - let target' = unsafeManagedPtrGetPtr target - let property' = unsafeManagedPtrGetPtr property - gdk_selection_send_notify_for_display display' requestor' selection' target' property' time_ - touchManagedPtr display - touchManagedPtr requestor - touchManagedPtr selection - touchManagedPtr target - touchManagedPtr property - return () - - --- function gdk_selection_send_notify --- Args : [Arg {argCName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_selection_send_notify" gdk_selection_send_notify :: - Ptr Window -> -- requestor : TInterface "Gdk" "Window" - Ptr Atom -> -- selection : TInterface "Gdk" "Atom" - Ptr Atom -> -- target : TInterface "Gdk" "Atom" - Ptr Atom -> -- property : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -selectionSendNotify :: - (MonadIO m, WindowK a) => - a -- requestor - -> Atom -- selection - -> Atom -- target - -> Atom -- property - -> Word32 -- time_ - -> m () -- result -selectionSendNotify requestor selection target property time_ = liftIO $ do - let requestor' = unsafeManagedPtrCastPtr requestor - let selection' = unsafeManagedPtrGetPtr selection - let target' = unsafeManagedPtrGetPtr target - let property' = unsafeManagedPtrGetPtr property - gdk_selection_send_notify requestor' selection' target' property' time_ - touchManagedPtr requestor - touchManagedPtr selection - touchManagedPtr target - touchManagedPtr property - return () - - --- function gdk_selection_owner_set_for_display --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_selection_owner_set_for_display" gdk_selection_owner_set_for_display :: - Ptr Display -> -- display : TInterface "Gdk" "Display" - Ptr Window -> -- owner : TInterface "Gdk" "Window" - Ptr Atom -> -- selection : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - CInt -> -- send_event : TBasicType TBoolean - IO CInt - - -selectionOwnerSetForDisplay :: - (MonadIO m, DisplayK a, WindowK b) => - a -- display - -> Maybe (b) -- owner - -> Atom -- selection - -> Word32 -- time_ - -> Bool -- sendEvent - -> m Bool -- result -selectionOwnerSetForDisplay display owner selection time_ sendEvent = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - maybeOwner <- case owner of - Nothing -> return nullPtr - Just jOwner -> do - let jOwner' = unsafeManagedPtrCastPtr jOwner - return jOwner' - let selection' = unsafeManagedPtrGetPtr selection - let sendEvent' = (fromIntegral . fromEnum) sendEvent - result <- gdk_selection_owner_set_for_display display' maybeOwner selection' time_ sendEvent' - let result' = (/= 0) result - touchManagedPtr display - whenJust owner touchManagedPtr - touchManagedPtr selection - return result' - - --- function gdk_selection_owner_set --- Args : [Arg {argCName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_selection_owner_set" gdk_selection_owner_set :: - Ptr Window -> -- owner : TInterface "Gdk" "Window" - Ptr Atom -> -- selection : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - CInt -> -- send_event : TBasicType TBoolean - IO CInt - - -selectionOwnerSet :: - (MonadIO m, WindowK a) => - Maybe (a) -- owner - -> Atom -- selection - -> Word32 -- time_ - -> Bool -- sendEvent - -> m Bool -- result -selectionOwnerSet owner selection time_ sendEvent = liftIO $ do - maybeOwner <- case owner of - Nothing -> return nullPtr - Just jOwner -> do - let jOwner' = unsafeManagedPtrCastPtr jOwner - return jOwner' - let selection' = unsafeManagedPtrGetPtr selection - let sendEvent' = (fromIntegral . fromEnum) sendEvent - result <- gdk_selection_owner_set maybeOwner selection' time_ sendEvent' - let result' = (/= 0) result - whenJust owner touchManagedPtr - touchManagedPtr selection - return result' - - --- function gdk_selection_owner_get_for_display --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_selection_owner_get_for_display" gdk_selection_owner_get_for_display :: - Ptr Display -> -- display : TInterface "Gdk" "Display" - Ptr Atom -> -- selection : TInterface "Gdk" "Atom" - IO (Ptr Window) - - -selectionOwnerGetForDisplay :: - (MonadIO m, DisplayK a) => - a -- display - -> Atom -- selection - -> m (Maybe Window) -- result -selectionOwnerGetForDisplay display selection = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - let selection' = unsafeManagedPtrGetPtr selection - result <- gdk_selection_owner_get_for_display display' selection' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Window) result' - return result'' - touchManagedPtr display - touchManagedPtr selection - return maybeResult - - --- function gdk_selection_owner_get --- Args : [Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_selection_owner_get" gdk_selection_owner_get :: - Ptr Atom -> -- selection : TInterface "Gdk" "Atom" - IO (Ptr Window) - - -selectionOwnerGet :: - (MonadIO m) => - Atom -- selection - -> m (Maybe Window) -- result -selectionOwnerGet selection = liftIO $ do - let selection' = unsafeManagedPtrGetPtr selection - result <- gdk_selection_owner_get selection' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Window) result' - return result'' - touchManagedPtr selection - return maybeResult - - --- function gdk_selection_convert --- Args : [Arg {argCName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_selection_convert" gdk_selection_convert :: - Ptr Window -> -- requestor : TInterface "Gdk" "Window" - Ptr Atom -> -- selection : TInterface "Gdk" "Atom" - Ptr Atom -> -- target : TInterface "Gdk" "Atom" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -selectionConvert :: - (MonadIO m, WindowK a) => - a -- requestor - -> Atom -- selection - -> Atom -- target - -> Word32 -- time_ - -> m () -- result -selectionConvert requestor selection target time_ = liftIO $ do - let requestor' = unsafeManagedPtrCastPtr requestor - let selection' = unsafeManagedPtrGetPtr selection - let target' = unsafeManagedPtrGetPtr target - gdk_selection_convert requestor' selection' target' time_ - touchManagedPtr requestor - touchManagedPtr selection - touchManagedPtr target - return () - - --- function gdk_query_visual_types --- Args : [Arg {argCName = "visual_types", argType = TCArray False (-1) 1 (TInterface "Gdk" "VisualType"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_query_visual_types" gdk_query_visual_types :: - Ptr (Ptr CUInt) -> -- visual_types : TCArray False (-1) 1 (TInterface "Gdk" "VisualType") - Ptr Int32 -> -- count : TBasicType TInt - IO () - - -queryVisualTypes :: - (MonadIO m) => - m ([VisualType]) -- result -queryVisualTypes = liftIO $ do - visualTypes <- allocMem :: IO (Ptr (Ptr CUInt)) - count <- allocMem :: IO (Ptr Int32) - gdk_query_visual_types visualTypes count - count' <- peek count - visualTypes' <- peek visualTypes - visualTypes'' <- (unpackStorableArrayWithLength count') visualTypes' - let visualTypes''' = map (toEnum . fromIntegral) visualTypes'' - freeMem visualTypes - freeMem count - return visualTypes''' - - --- function gdk_query_depths --- Args : [Arg {argCName = "depths", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_query_depths" gdk_query_depths :: - Ptr (Ptr Int32) -> -- depths : TCArray False (-1) 1 (TBasicType TInt) - Ptr Int32 -> -- count : TBasicType TInt - IO () - - -queryDepths :: - (MonadIO m) => - m ([Int32]) -- result -queryDepths = liftIO $ do - depths <- allocMem :: IO (Ptr (Ptr Int32)) - count <- allocMem :: IO (Ptr Int32) - gdk_query_depths depths count - count' <- peek count - depths' <- peek depths - depths'' <- (unpackStorableArrayWithLength count') depths' - freeMem depths - freeMem count - return depths'' - - --- function gdk_property_get --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pdelete", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actual_property_type", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "actual_format", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "actual_length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "data", argType = TCArray False (-1) 8 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "actual_length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_property_get" gdk_property_get :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - Ptr Atom -> -- property : TInterface "Gdk" "Atom" - Ptr Atom -> -- type : TInterface "Gdk" "Atom" - CULong -> -- offset : TBasicType TULong - CULong -> -- length : TBasicType TULong - Int32 -> -- pdelete : TBasicType TInt - Ptr (Ptr Atom) -> -- actual_property_type : TInterface "Gdk" "Atom" - Ptr Int32 -> -- actual_format : TBasicType TInt - Ptr Int32 -> -- actual_length : TBasicType TInt - Ptr (Ptr Word8) -> -- data : TCArray False (-1) 8 (TBasicType TUInt8) - IO CInt - - -propertyGet :: - (MonadIO m, WindowK a) => - a -- window - -> Atom -- property - -> Atom -- type_ - -> CULong -- offset - -> CULong -- length_ - -> Int32 -- pdelete - -> m (Bool,Atom,Int32,ByteString) -- result -propertyGet window property type_ offset length_ pdelete = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - let property' = unsafeManagedPtrGetPtr property - let type_' = unsafeManagedPtrGetPtr type_ - actualPropertyType <- allocMem :: IO (Ptr (Ptr Atom)) - actualFormat <- allocMem :: IO (Ptr Int32) - actualLength <- allocMem :: IO (Ptr Int32) - data_ <- allocMem :: IO (Ptr (Ptr Word8)) - result <- gdk_property_get window' property' type_' offset length_ pdelete actualPropertyType actualFormat actualLength data_ - actualLength' <- peek actualLength - let result' = (/= 0) result - actualPropertyType' <- peek actualPropertyType - actualPropertyType'' <- (newPtr Atom) actualPropertyType' - actualFormat' <- peek actualFormat - data_' <- peek data_ - data_'' <- (unpackByteStringWithLength actualLength') data_' - freeMem data_' - touchManagedPtr window - touchManagedPtr property - touchManagedPtr type_ - freeMem actualPropertyType - freeMem actualFormat - freeMem actualLength - freeMem data_ - return (result', actualPropertyType'', actualFormat', data_'') - - --- function gdk_property_delete --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_property_delete" gdk_property_delete :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - Ptr Atom -> -- property : TInterface "Gdk" "Atom" - IO () - - -propertyDelete :: - (MonadIO m, WindowK a) => - a -- window - -> Atom -- property - -> m () -- result -propertyDelete window property = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - let property' = unsafeManagedPtrGetPtr property - gdk_property_delete window' property' - touchManagedPtr window - touchManagedPtr property - return () - - --- function gdk_pre_parse_libgtk_only --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_pre_parse_libgtk_only" gdk_pre_parse_libgtk_only :: - IO () - -{-# DEPRECATED preParseLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside"," of GTK+"]#-} -preParseLibgtkOnly :: - (MonadIO m) => - m () -- result -preParseLibgtkOnly = liftIO $ do - gdk_pre_parse_libgtk_only - return () - - --- function gdk_pointer_ungrab --- Args : [Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_pointer_ungrab" gdk_pointer_ungrab :: - Word32 -> -- time_ : TBasicType TUInt32 - IO () - -{-# DEPRECATED pointerUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()"," instead."]#-} -pointerUngrab :: - (MonadIO m) => - Word32 -- time_ - -> m () -- result -pointerUngrab time_ = liftIO $ do - gdk_pointer_ungrab time_ - return () - - --- function gdk_pointer_is_grabbed --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_pointer_is_grabbed" gdk_pointer_is_grabbed :: - IO CInt - -{-# DEPRECATED pointerIsGrabbed ["(Since version 3.0)","Use gdk_display_device_is_grabbed() instead."]#-} -pointerIsGrabbed :: - (MonadIO m) => - m Bool -- result -pointerIsGrabbed = liftIO $ do - result <- gdk_pointer_is_grabbed - let result' = (/= 0) result - return result' - - --- function gdk_pointer_grab --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "confine_to", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "GrabStatus") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pointer_grab" gdk_pointer_grab :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - CInt -> -- owner_events : TBasicType TBoolean - CUInt -> -- event_mask : TInterface "Gdk" "EventMask" - Ptr Window -> -- confine_to : TInterface "Gdk" "Window" - Ptr Cursor -> -- cursor : TInterface "Gdk" "Cursor" - Word32 -> -- time_ : TBasicType TUInt32 - IO CUInt - -{-# DEPRECATED pointerGrab ["(Since version 3.0)","Use gdk_device_grab() instead."]#-} -pointerGrab :: - (MonadIO m, WindowK a, WindowK b, CursorK c) => - a -- window - -> Bool -- ownerEvents - -> [EventMask] -- eventMask - -> Maybe (b) -- confineTo - -> Maybe (c) -- cursor - -> Word32 -- time_ - -> m GrabStatus -- result -pointerGrab window ownerEvents eventMask confineTo cursor time_ = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - let ownerEvents' = (fromIntegral . fromEnum) ownerEvents - let eventMask' = gflagsToWord eventMask - maybeConfineTo <- case confineTo of - Nothing -> return nullPtr - Just jConfineTo -> do - let jConfineTo' = unsafeManagedPtrCastPtr jConfineTo - return jConfineTo' - maybeCursor <- case cursor of - Nothing -> return nullPtr - Just jCursor -> do - let jCursor' = unsafeManagedPtrCastPtr jCursor - return jCursor' - result <- gdk_pointer_grab window' ownerEvents' eventMask' maybeConfineTo maybeCursor time_ - let result' = (toEnum . fromIntegral) result - touchManagedPtr window - whenJust confineTo touchManagedPtr - whenJust cursor touchManagedPtr - return result' - - --- function gdk_pixbuf_get_from_window --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_from_window" gdk_pixbuf_get_from_window :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - Int32 -> -- src_x : TBasicType TInt - Int32 -> -- src_y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO (Ptr GdkPixbuf.Pixbuf) - - -pixbufGetFromWindow :: - (MonadIO m, WindowK a) => - a -- window - -> Int32 -- srcX - -> Int32 -- srcY - -> Int32 -- width - -> Int32 -- height - -> m (Maybe GdkPixbuf.Pixbuf) -- result -pixbufGetFromWindow window srcX srcY width height = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - result <- gdk_pixbuf_get_from_window window' srcX srcY width height - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject GdkPixbuf.Pixbuf) result' - return result'' - touchManagedPtr window - return maybeResult - - --- function gdk_pixbuf_get_from_surface --- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pixbuf_get_from_surface" gdk_pixbuf_get_from_surface :: - Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface" - Int32 -> -- src_x : TBasicType TInt - Int32 -> -- src_y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO (Ptr GdkPixbuf.Pixbuf) - - -pixbufGetFromSurface :: - (MonadIO m) => - Cairo.Surface -- surface - -> Int32 -- srcX - -> Int32 -- srcY - -> Int32 -- width - -> Int32 -- height - -> m (Maybe GdkPixbuf.Pixbuf) -- result -pixbufGetFromSurface surface srcX srcY width height = liftIO $ do - let surface' = unsafeManagedPtrGetPtr surface - result <- gdk_pixbuf_get_from_surface surface' srcX srcY width height - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject GdkPixbuf.Pixbuf) result' - return result'' - touchManagedPtr surface - return maybeResult - - --- function gdk_parse_args --- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_parse_args" gdk_parse_args :: - Ptr Int32 -> -- argc : TBasicType TInt - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) - IO () - - -parseArgs :: - (MonadIO m) => - [T.Text] -- argv - -> m ([T.Text]) -- result -parseArgs argv = liftIO $ do - let argc = fromIntegral $ length argv - argc' <- allocMem :: IO (Ptr Int32) - poke argc' argc - argv' <- packUTF8CArray argv - argv'' <- allocMem :: IO (Ptr (Ptr CString)) - poke argv'' argv' - gdk_parse_args argc' argv'' - argc'' <- peek argc' - argv''' <- peek argv'' - argv'''' <- (unpackUTF8CArrayWithLength argc'') argv''' - (mapCArrayWithLength argc'') freeMem argv''' - freeMem argv''' - freeMem argc' - freeMem argv'' - return argv'''' - - --- function gdk_pango_context_get_for_screen --- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Context") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pango_context_get_for_screen" gdk_pango_context_get_for_screen :: - Ptr Screen -> -- screen : TInterface "Gdk" "Screen" - IO (Ptr Pango.Context) - - -pangoContextGetForScreen :: - (MonadIO m, ScreenK a) => - a -- screen - -> m Pango.Context -- result -pangoContextGetForScreen screen = liftIO $ do - let screen' = unsafeManagedPtrCastPtr screen - result <- gdk_pango_context_get_for_screen screen' - checkUnexpectedReturnNULL "gdk_pango_context_get_for_screen" result - result' <- (wrapObject Pango.Context) result - touchManagedPtr screen - return result' - - --- function gdk_pango_context_get --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Context") --- throws : False --- Skip return : False - -foreign import ccall "gdk_pango_context_get" gdk_pango_context_get :: - IO (Ptr Pango.Context) - - -pangoContextGet :: - (MonadIO m) => - m Pango.Context -- result -pangoContextGet = liftIO $ do - result <- gdk_pango_context_get - checkUnexpectedReturnNULL "gdk_pango_context_get" result - result' <- (wrapObject Pango.Context) result - return result' - - --- function gdk_offscreen_window_set_embedder --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "embedder", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_offscreen_window_set_embedder" gdk_offscreen_window_set_embedder :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - Ptr Window -> -- embedder : TInterface "Gdk" "Window" - IO () - - -offscreenWindowSetEmbedder :: - (MonadIO m, WindowK a, WindowK b) => - a -- window - -> b -- embedder - -> m () -- result -offscreenWindowSetEmbedder window embedder = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - let embedder' = unsafeManagedPtrCastPtr embedder - gdk_offscreen_window_set_embedder window' embedder' - touchManagedPtr window - touchManagedPtr embedder - return () - - --- function gdk_offscreen_window_get_surface --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "gdk_offscreen_window_get_surface" gdk_offscreen_window_get_surface :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - IO (Ptr Cairo.Surface) - - -offscreenWindowGetSurface :: - (MonadIO m, WindowK a) => - a -- window - -> m (Maybe Cairo.Surface) -- result -offscreenWindowGetSurface window = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - result <- gdk_offscreen_window_get_surface window' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed Cairo.Surface) result' - return result'' - touchManagedPtr window - return maybeResult - - --- function gdk_offscreen_window_get_embedder --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_offscreen_window_get_embedder" gdk_offscreen_window_get_embedder :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - IO (Ptr Window) - - -offscreenWindowGetEmbedder :: - (MonadIO m, WindowK a) => - a -- window - -> m (Maybe Window) -- result -offscreenWindowGetEmbedder window = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - result <- gdk_offscreen_window_get_embedder window' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Window) result' - return result'' - touchManagedPtr window - return maybeResult - - --- function gdk_notify_startup_complete_with_id --- Args : [Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_notify_startup_complete_with_id" gdk_notify_startup_complete_with_id :: - CString -> -- startup_id : TBasicType TUTF8 - IO () - - -notifyStartupCompleteWithId :: - (MonadIO m) => - T.Text -- startupId - -> m () -- result -notifyStartupCompleteWithId startupId = liftIO $ do - startupId' <- textToCString startupId - gdk_notify_startup_complete_with_id startupId' - freeMem startupId' - return () - - --- function gdk_notify_startup_complete --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_notify_startup_complete" gdk_notify_startup_complete :: - IO () - - -notifyStartupComplete :: - (MonadIO m) => - m () -- result -notifyStartupComplete = liftIO $ do - gdk_notify_startup_complete - return () - - --- function gdk_list_visuals --- Args : [] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Visual")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_list_visuals" gdk_list_visuals :: - IO (Ptr (GList (Ptr Visual))) - - -listVisuals :: - (MonadIO m) => - m [Visual] -- result -listVisuals = liftIO $ do - result <- gdk_list_visuals - result' <- unpackGList result - result'' <- mapM (newObject Visual) result' - g_list_free result - return result'' - - --- function gdk_keyval_to_upper --- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keyval_to_upper" gdk_keyval_to_upper :: - Word32 -> -- keyval : TBasicType TUInt - IO Word32 - - -keyvalToUpper :: - (MonadIO m) => - Word32 -- keyval - -> m Word32 -- result -keyvalToUpper keyval = liftIO $ do - result <- gdk_keyval_to_upper keyval - return result - - --- function gdk_keyval_to_unicode --- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keyval_to_unicode" gdk_keyval_to_unicode :: - Word32 -> -- keyval : TBasicType TUInt - IO Word32 - - -keyvalToUnicode :: - (MonadIO m) => - Word32 -- keyval - -> m Word32 -- result -keyvalToUnicode keyval = liftIO $ do - result <- gdk_keyval_to_unicode keyval - return result - - --- function gdk_keyval_to_lower --- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keyval_to_lower" gdk_keyval_to_lower :: - Word32 -> -- keyval : TBasicType TUInt - IO Word32 - - -keyvalToLower :: - (MonadIO m) => - Word32 -- keyval - -> m Word32 -- result -keyvalToLower keyval = liftIO $ do - result <- gdk_keyval_to_lower keyval - return result - - --- function gdk_keyval_name --- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keyval_name" gdk_keyval_name :: - Word32 -> -- keyval : TBasicType TUInt - IO CString - - -keyvalName :: - (MonadIO m) => - Word32 -- keyval - -> m (Maybe T.Text) -- result -keyvalName keyval = liftIO $ do - result <- gdk_keyval_name keyval - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - return maybeResult - - --- function gdk_keyval_is_upper --- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keyval_is_upper" gdk_keyval_is_upper :: - Word32 -> -- keyval : TBasicType TUInt - IO CInt - - -keyvalIsUpper :: - (MonadIO m) => - Word32 -- keyval - -> m Bool -- result -keyvalIsUpper keyval = liftIO $ do - result <- gdk_keyval_is_upper keyval - let result' = (/= 0) result - return result' - - --- function gdk_keyval_is_lower --- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keyval_is_lower" gdk_keyval_is_lower :: - Word32 -> -- keyval : TBasicType TUInt - IO CInt - - -keyvalIsLower :: - (MonadIO m) => - Word32 -- keyval - -> m Bool -- result -keyvalIsLower keyval = liftIO $ do - result <- gdk_keyval_is_lower keyval - let result' = (/= 0) result - return result' - - --- function gdk_keyval_from_name --- Args : [Arg {argCName = "keyval_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keyval_from_name" gdk_keyval_from_name :: - CString -> -- keyval_name : TBasicType TUTF8 - IO Word32 - - -keyvalFromName :: - (MonadIO m) => - T.Text -- keyvalName - -> m Word32 -- result -keyvalFromName keyvalName = liftIO $ do - keyvalName' <- textToCString keyvalName - result <- gdk_keyval_from_name keyvalName' - freeMem keyvalName' - return result - - --- function gdk_keyval_convert_case --- Args : [Arg {argCName = "symbol", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "upper", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_keyval_convert_case" gdk_keyval_convert_case :: - Word32 -> -- symbol : TBasicType TUInt - Ptr Word32 -> -- lower : TBasicType TUInt - Ptr Word32 -> -- upper : TBasicType TUInt - IO () - - -keyvalConvertCase :: - (MonadIO m) => - Word32 -- symbol - -> m (Word32,Word32) -- result -keyvalConvertCase symbol = liftIO $ do - lower <- allocMem :: IO (Ptr Word32) - upper <- allocMem :: IO (Ptr Word32) - gdk_keyval_convert_case symbol lower upper - lower' <- peek lower - upper' <- peek upper - freeMem lower - freeMem upper - return (lower', upper') - - --- function gdk_keyboard_ungrab --- Args : [Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_keyboard_ungrab" gdk_keyboard_ungrab :: - Word32 -> -- time_ : TBasicType TUInt32 - IO () - -{-# DEPRECATED keyboardUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()"," instead."]#-} -keyboardUngrab :: - (MonadIO m) => - Word32 -- time_ - -> m () -- result -keyboardUngrab time_ = liftIO $ do - gdk_keyboard_ungrab time_ - return () - - --- function gdk_keyboard_grab --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "GrabStatus") --- throws : False --- Skip return : False - -foreign import ccall "gdk_keyboard_grab" gdk_keyboard_grab :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - CInt -> -- owner_events : TBasicType TBoolean - Word32 -> -- time_ : TBasicType TUInt32 - IO CUInt - -{-# DEPRECATED keyboardGrab ["(Since version 3.0)","Use gdk_device_grab() instead."]#-} -keyboardGrab :: - (MonadIO m, WindowK a) => - a -- window - -> Bool -- ownerEvents - -> Word32 -- time_ - -> m GrabStatus -- result -keyboardGrab window ownerEvents time_ = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - let ownerEvents' = (fromIntegral . fromEnum) ownerEvents - result <- gdk_keyboard_grab window' ownerEvents' time_ - let result' = (toEnum . fromIntegral) result - touchManagedPtr window - return result' - - --- function gdk_init_check --- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_init_check" gdk_init_check :: - Ptr Int32 -> -- argc : TBasicType TInt - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) - IO CInt - - -initCheck :: - (MonadIO m) => - [T.Text] -- argv - -> m (Bool,[T.Text]) -- result -initCheck argv = liftIO $ do - let argc = fromIntegral $ length argv - argc' <- allocMem :: IO (Ptr Int32) - poke argc' argc - argv' <- packUTF8CArray argv - argv'' <- allocMem :: IO (Ptr (Ptr CString)) - poke argv'' argv' - result <- gdk_init_check argc' argv'' - argc'' <- peek argc' - let result' = (/= 0) result - argv''' <- peek argv'' - argv'''' <- (unpackUTF8CArrayWithLength argc'') argv''' - (mapCArrayWithLength argc'') freeMem argv''' - freeMem argv''' - freeMem argc' - freeMem argv'' - return (result', argv'''') - - --- function gdk_init --- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_init" gdk_init :: - Ptr Int32 -> -- argc : TBasicType TInt - Ptr (Ptr CString) -> -- argv : TCArray False (-1) 0 (TBasicType TUTF8) - IO () - - -init :: - (MonadIO m) => - [T.Text] -- argv - -> m ([T.Text]) -- result -init argv = liftIO $ do - let argc = fromIntegral $ length argv - argc' <- allocMem :: IO (Ptr Int32) - poke argc' argc - argv' <- packUTF8CArray argv - argv'' <- allocMem :: IO (Ptr (Ptr CString)) - poke argv'' argv' - gdk_init argc' argv'' - argc'' <- peek argc' - argv''' <- peek argv'' - argv'''' <- (unpackUTF8CArrayWithLength argc'') argv''' - (mapCArrayWithLength argc'') freeMem argv''' - freeMem argv''' - freeMem argc' - freeMem argv'' - return argv'''' - - --- function gdk_get_show_events --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_get_show_events" gdk_get_show_events :: - IO CInt - - -getShowEvents :: - (MonadIO m) => - m Bool -- result -getShowEvents = liftIO $ do - result <- gdk_get_show_events - let result' = (/= 0) result - return result' - - --- function gdk_get_program_class --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_get_program_class" gdk_get_program_class :: - IO CString - - -getProgramClass :: - (MonadIO m) => - m T.Text -- result -getProgramClass = liftIO $ do - result <- gdk_get_program_class - checkUnexpectedReturnNULL "gdk_get_program_class" result - result' <- cstringToText result - return result' - - --- function gdk_get_display_arg_name --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_get_display_arg_name" gdk_get_display_arg_name :: - IO CString - - -getDisplayArgName :: - (MonadIO m) => - m (Maybe T.Text) -- result -getDisplayArgName = liftIO $ do - result <- gdk_get_display_arg_name - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - return maybeResult - - --- function gdk_get_display --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_get_display" gdk_get_display :: - IO CString - -{-# DEPRECATED getDisplay ["(Since version 3.8)","Call gdk_display_get_name (gdk_display_get_default ()))"," instead."]#-} -getDisplay :: - (MonadIO m) => - m T.Text -- result -getDisplay = liftIO $ do - result <- gdk_get_display - checkUnexpectedReturnNULL "gdk_get_display" result - result' <- cstringToText result - freeMem result - return result' - - --- function gdk_get_default_root_window --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_get_default_root_window" gdk_get_default_root_window :: - IO (Ptr Window) - - -getDefaultRootWindow :: - (MonadIO m) => - m Window -- result -getDefaultRootWindow = liftIO $ do - result <- gdk_get_default_root_window - checkUnexpectedReturnNULL "gdk_get_default_root_window" result - result' <- (newObject Window) result - return result' - - --- function gdk_flush --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_flush" gdk_flush :: - IO () - - -flush :: - (MonadIO m) => - m () -- result -flush = liftIO $ do - gdk_flush - return () - - --- function gdk_events_pending --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_events_pending" gdk_events_pending :: - IO CInt - - -eventsPending :: - (MonadIO m) => - m Bool -- result -eventsPending = liftIO $ do - result <- gdk_events_pending - let result' = (/= 0) result - return result' - - --- function gdk_events_get_distance --- Args : [Arg {argCName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "distance", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_events_get_distance" gdk_events_get_distance :: - Ptr Event -> -- event1 : TInterface "Gdk" "Event" - Ptr Event -> -- event2 : TInterface "Gdk" "Event" - Ptr CDouble -> -- distance : TBasicType TDouble - IO CInt - - -eventsGetDistance :: - (MonadIO m) => - Event -- event1 - -> Event -- event2 - -> m (Bool,Double) -- result -eventsGetDistance event1 event2 = liftIO $ do - let event1' = unsafeManagedPtrGetPtr event1 - let event2' = unsafeManagedPtrGetPtr event2 - distance <- allocMem :: IO (Ptr CDouble) - result <- gdk_events_get_distance event1' event2' distance - let result' = (/= 0) result - distance' <- peek distance - let distance'' = realToFrac distance' - touchManagedPtr event1 - touchManagedPtr event2 - freeMem distance - return (result', distance'') - - --- function gdk_events_get_center --- Args : [Arg {argCName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_events_get_center" gdk_events_get_center :: - Ptr Event -> -- event1 : TInterface "Gdk" "Event" - Ptr Event -> -- event2 : TInterface "Gdk" "Event" - Ptr CDouble -> -- x : TBasicType TDouble - Ptr CDouble -> -- y : TBasicType TDouble - IO CInt - - -eventsGetCenter :: - (MonadIO m) => - Event -- event1 - -> Event -- event2 - -> m (Bool,Double,Double) -- result -eventsGetCenter event1 event2 = liftIO $ do - let event1' = unsafeManagedPtrGetPtr event1 - let event2' = unsafeManagedPtrGetPtr event2 - x <- allocMem :: IO (Ptr CDouble) - y <- allocMem :: IO (Ptr CDouble) - result <- gdk_events_get_center event1' event2' x y - let result' = (/= 0) result - x' <- peek x - let x'' = realToFrac x' - y' <- peek y - let y'' = realToFrac y' - touchManagedPtr event1 - touchManagedPtr event2 - freeMem x - freeMem y - return (result', x'', y'') - - --- function gdk_events_get_angle --- Args : [Arg {argCName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_events_get_angle" gdk_events_get_angle :: - Ptr Event -> -- event1 : TInterface "Gdk" "Event" - Ptr Event -> -- event2 : TInterface "Gdk" "Event" - Ptr CDouble -> -- angle : TBasicType TDouble - IO CInt - - -eventsGetAngle :: - (MonadIO m) => - Event -- event1 - -> Event -- event2 - -> m (Bool,Double) -- result -eventsGetAngle event1 event2 = liftIO $ do - let event1' = unsafeManagedPtrGetPtr event1 - let event2' = unsafeManagedPtrGetPtr event2 - angle <- allocMem :: IO (Ptr CDouble) - result <- gdk_events_get_angle event1' event2' angle - let result' = (/= 0) result - angle' <- peek angle - let angle'' = realToFrac angle' - touchManagedPtr event1 - touchManagedPtr event2 - freeMem angle - return (result', angle'') - - --- function gdk_error_trap_push --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_error_trap_push" gdk_error_trap_push :: - IO () - - -errorTrapPush :: - (MonadIO m) => - m () -- result -errorTrapPush = liftIO $ do - gdk_error_trap_push - return () - - --- function gdk_error_trap_pop_ignored --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_error_trap_pop_ignored" gdk_error_trap_pop_ignored :: - IO () - - -errorTrapPopIgnored :: - (MonadIO m) => - m () -- result -errorTrapPopIgnored = liftIO $ do - gdk_error_trap_pop_ignored - return () - - --- function gdk_error_trap_pop --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_error_trap_pop" gdk_error_trap_pop :: - IO Int32 - - -errorTrapPop :: - (MonadIO m) => - m Int32 -- result -errorTrapPop = liftIO $ do - result <- gdk_error_trap_pop - return result - - --- function gdk_drop_reply --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accepted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_drop_reply" gdk_drop_reply :: - Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" - CInt -> -- accepted : TBasicType TBoolean - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -dropReply :: - (MonadIO m, DragContextK a) => - a -- context - -> Bool -- accepted - -> Word32 -- time_ - -> m () -- result -dropReply context accepted time_ = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let accepted' = (fromIntegral . fromEnum) accepted - gdk_drop_reply context' accepted' time_ - touchManagedPtr context - return () - - --- function gdk_drop_finish --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_drop_finish" gdk_drop_finish :: - Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" - CInt -> -- success : TBasicType TBoolean - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -dropFinish :: - (MonadIO m, DragContextK a) => - a -- context - -> Bool -- success - -> Word32 -- time_ - -> m () -- result -dropFinish context success time_ = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let success' = (fromIntegral . fromEnum) success - gdk_drop_finish context' success' time_ - touchManagedPtr context - return () - - --- function gdk_drag_status --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_status" gdk_drag_status :: - Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" - CUInt -> -- action : TInterface "Gdk" "DragAction" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -dragStatus :: - (MonadIO m, DragContextK a) => - a -- context - -> [DragAction] -- action - -> Word32 -- time_ - -> m () -- result -dragStatus context action time_ = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let action' = gflagsToWord action - gdk_drag_status context' action' time_ - touchManagedPtr context - return () - - --- function gdk_drag_motion --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "suggested_action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "possible_actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_motion" gdk_drag_motion :: - Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr Window -> -- dest_window : TInterface "Gdk" "Window" - CUInt -> -- protocol : TInterface "Gdk" "DragProtocol" - Int32 -> -- x_root : TBasicType TInt - Int32 -> -- y_root : TBasicType TInt - CUInt -> -- suggested_action : TInterface "Gdk" "DragAction" - CUInt -> -- possible_actions : TInterface "Gdk" "DragAction" - Word32 -> -- time_ : TBasicType TUInt32 - IO CInt - - -dragMotion :: - (MonadIO m, DragContextK a, WindowK b) => - a -- context - -> b -- destWindow - -> DragProtocol -- protocol - -> Int32 -- xRoot - -> Int32 -- yRoot - -> [DragAction] -- suggestedAction - -> [DragAction] -- possibleActions - -> Word32 -- time_ - -> m Bool -- result -dragMotion context destWindow protocol xRoot yRoot suggestedAction possibleActions time_ = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let destWindow' = unsafeManagedPtrCastPtr destWindow - let protocol' = (fromIntegral . fromEnum) protocol - let suggestedAction' = gflagsToWord suggestedAction - let possibleActions' = gflagsToWord possibleActions - result <- gdk_drag_motion context' destWindow' protocol' xRoot yRoot suggestedAction' possibleActions' time_ - let result' = (/= 0) result - touchManagedPtr context - touchManagedPtr destWindow - return result' - - --- function gdk_drag_get_selection --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_get_selection" gdk_drag_get_selection :: - Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" - IO (Ptr Atom) - - -dragGetSelection :: - (MonadIO m, DragContextK a) => - a -- context - -> m Atom -- result -dragGetSelection context = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - result <- gdk_drag_get_selection context' - checkUnexpectedReturnNULL "gdk_drag_get_selection" result - result' <- (newPtr Atom) result - touchManagedPtr context - return result' - - --- function gdk_drag_find_window_for_screen --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_find_window_for_screen" gdk_drag_find_window_for_screen :: - Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" - Ptr Window -> -- drag_window : TInterface "Gdk" "Window" - Ptr Screen -> -- screen : TInterface "Gdk" "Screen" - Int32 -> -- x_root : TBasicType TInt - Int32 -> -- y_root : TBasicType TInt - Ptr (Ptr Window) -> -- dest_window : TInterface "Gdk" "Window" - Ptr CUInt -> -- protocol : TInterface "Gdk" "DragProtocol" - IO () - - -dragFindWindowForScreen :: - (MonadIO m, DragContextK a, WindowK b, ScreenK c) => - a -- context - -> b -- dragWindow - -> c -- screen - -> Int32 -- xRoot - -> Int32 -- yRoot - -> m (Window,DragProtocol) -- result -dragFindWindowForScreen context dragWindow screen xRoot yRoot = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - let dragWindow' = unsafeManagedPtrCastPtr dragWindow - let screen' = unsafeManagedPtrCastPtr screen - destWindow <- allocMem :: IO (Ptr (Ptr Window)) - protocol <- allocMem :: IO (Ptr CUInt) - gdk_drag_find_window_for_screen context' dragWindow' screen' xRoot yRoot destWindow protocol - destWindow' <- peek destWindow - destWindow'' <- (wrapObject Window) destWindow' - protocol' <- peek protocol - let protocol'' = (toEnum . fromIntegral) protocol' - touchManagedPtr context - touchManagedPtr dragWindow - touchManagedPtr screen - freeMem destWindow - freeMem protocol - return (destWindow'', protocol'') - - --- function gdk_drag_drop_succeeded --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_drop_succeeded" gdk_drag_drop_succeeded :: - Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" - IO CInt - - -dragDropSucceeded :: - (MonadIO m, DragContextK a) => - a -- context - -> m Bool -- result -dragDropSucceeded context = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - result <- gdk_drag_drop_succeeded context' - let result' = (/= 0) result - touchManagedPtr context - return result' - - --- function gdk_drag_drop --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_drop" gdk_drag_drop :: - Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -dragDrop :: - (MonadIO m, DragContextK a) => - a -- context - -> Word32 -- time_ - -> m () -- result -dragDrop context time_ = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - gdk_drag_drop context' time_ - touchManagedPtr context - return () - - --- function gdk_drag_begin_for_device --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DragContext") --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_begin_for_device" gdk_drag_begin_for_device :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - Ptr Device -> -- device : TInterface "Gdk" "Device" - Ptr (GList (Ptr Atom)) -> -- targets : TGList (TInterface "Gdk" "Atom") - IO (Ptr DragContext) - - -dragBeginForDevice :: - (MonadIO m, WindowK a, DeviceK b) => - a -- window - -> b -- device - -> [Atom] -- targets - -> m DragContext -- result -dragBeginForDevice window device targets = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - let device' = unsafeManagedPtrCastPtr device - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packGList targets' - result <- gdk_drag_begin_for_device window' device' targets'' - checkUnexpectedReturnNULL "gdk_drag_begin_for_device" result - result' <- (wrapObject DragContext) result - touchManagedPtr window - touchManagedPtr device - mapM_ touchManagedPtr targets - g_list_free targets'' - return result' - - --- function gdk_drag_begin --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DragContext") --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_begin" gdk_drag_begin :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - Ptr (GList (Ptr Atom)) -> -- targets : TGList (TInterface "Gdk" "Atom") - IO (Ptr DragContext) - - -dragBegin :: - (MonadIO m, WindowK a) => - a -- window - -> [Atom] -- targets - -> m DragContext -- result -dragBegin window targets = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packGList targets' - result <- gdk_drag_begin window' targets'' - checkUnexpectedReturnNULL "gdk_drag_begin" result - result' <- (wrapObject DragContext) result - touchManagedPtr window - mapM_ touchManagedPtr targets - g_list_free targets'' - return result' - - --- function gdk_drag_abort --- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_abort" gdk_drag_abort :: - Ptr DragContext -> -- context : TInterface "Gdk" "DragContext" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -dragAbort :: - (MonadIO m, DragContextK a) => - a -- context - -> Word32 -- time_ - -> m () -- result -dragAbort context time_ = liftIO $ do - let context' = unsafeManagedPtrCastPtr context - gdk_drag_abort context' time_ - touchManagedPtr context - return () - - --- function gdk_disable_multidevice --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_disable_multidevice" gdk_disable_multidevice :: - IO () - - -disableMultidevice :: - (MonadIO m) => - m () -- result -disableMultidevice = liftIO $ do - gdk_disable_multidevice - return () - - --- function gdk_cairo_surface_create_from_pixbuf --- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_surface_create_from_pixbuf" gdk_cairo_surface_create_from_pixbuf :: - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- scale : TBasicType TInt - Ptr Window -> -- for_window : TInterface "Gdk" "Window" - IO (Ptr Cairo.Surface) - - -cairoSurfaceCreateFromPixbuf :: - (MonadIO m, GdkPixbuf.PixbufK a, WindowK b) => - a -- pixbuf - -> Int32 -- scale - -> Maybe (b) -- forWindow - -> m Cairo.Surface -- result -cairoSurfaceCreateFromPixbuf pixbuf scale forWindow = liftIO $ do - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - maybeForWindow <- case forWindow of - Nothing -> return nullPtr - Just jForWindow -> do - let jForWindow' = unsafeManagedPtrCastPtr jForWindow - return jForWindow' - result <- gdk_cairo_surface_create_from_pixbuf pixbuf' scale maybeForWindow - checkUnexpectedReturnNULL "gdk_cairo_surface_create_from_pixbuf" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr pixbuf - whenJust forWindow touchManagedPtr - return result' - - --- function gdk_cairo_set_source_window --- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_set_source_window" gdk_cairo_set_source_window :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Window -> -- window : TInterface "Gdk" "Window" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - IO () - - -cairoSetSourceWindow :: - (MonadIO m, WindowK a) => - Cairo.Context -- cr - -> a -- window - -> Double -- x - -> Double -- y - -> m () -- result -cairoSetSourceWindow cr window x y = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - let window' = unsafeManagedPtrCastPtr window - let x' = realToFrac x - let y' = realToFrac y - gdk_cairo_set_source_window cr' window' x' y' - touchManagedPtr cr - touchManagedPtr window - return () - - --- function gdk_cairo_set_source_rgba --- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_set_source_rgba" gdk_cairo_set_source_rgba :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -cairoSetSourceRgba :: - (MonadIO m) => - Cairo.Context -- cr - -> RGBA -- rgba - -> m () -- result -cairoSetSourceRgba cr rgba = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - let rgba' = unsafeManagedPtrGetPtr rgba - gdk_cairo_set_source_rgba cr' rgba' - touchManagedPtr cr - touchManagedPtr rgba - return () - - --- function gdk_cairo_set_source_pixbuf --- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_set_source_pixbuf" gdk_cairo_set_source_pixbuf :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - CDouble -> -- pixbuf_x : TBasicType TDouble - CDouble -> -- pixbuf_y : TBasicType TDouble - IO () - - -cairoSetSourcePixbuf :: - (MonadIO m, GdkPixbuf.PixbufK a) => - Cairo.Context -- cr - -> a -- pixbuf - -> Double -- pixbufX - -> Double -- pixbufY - -> m () -- result -cairoSetSourcePixbuf cr pixbuf pixbufX pixbufY = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - let pixbufX' = realToFrac pixbufX - let pixbufY' = realToFrac pixbufY - gdk_cairo_set_source_pixbuf cr' pixbuf' pixbufX' pixbufY' - touchManagedPtr cr - touchManagedPtr pixbuf - return () - - --- function gdk_cairo_set_source_color --- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_set_source_color" gdk_cairo_set_source_color :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED cairoSetSourceColor ["(Since version 3.4)","Use gdk_cairo_set_source_rgba() instead"]#-} -cairoSetSourceColor :: - (MonadIO m) => - Cairo.Context -- cr - -> Color -- color - -> m () -- result -cairoSetSourceColor cr color = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - let color' = unsafeManagedPtrGetPtr color - gdk_cairo_set_source_color cr' color' - touchManagedPtr cr - touchManagedPtr color - return () - - --- function gdk_cairo_region_create_from_surface --- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Region") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_region_create_from_surface" gdk_cairo_region_create_from_surface :: - Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface" - IO (Ptr Cairo.Region) - - -cairoRegionCreateFromSurface :: - (MonadIO m) => - Cairo.Surface -- surface - -> m Cairo.Region -- result -cairoRegionCreateFromSurface surface = liftIO $ do - let surface' = unsafeManagedPtrGetPtr surface - result <- gdk_cairo_region_create_from_surface surface' - checkUnexpectedReturnNULL "gdk_cairo_region_create_from_surface" result - result' <- (wrapBoxed Cairo.Region) result - touchManagedPtr surface - return result' - - --- function gdk_cairo_region --- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_region" gdk_cairo_region :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -cairoRegion :: - (MonadIO m) => - Cairo.Context -- cr - -> Cairo.Region -- region - -> m () -- result -cairoRegion cr region = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - let region' = unsafeManagedPtrGetPtr region - gdk_cairo_region cr' region' - touchManagedPtr cr - touchManagedPtr region - return () - - --- function gdk_cairo_rectangle --- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_rectangle" gdk_cairo_rectangle :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Rectangle -> -- rectangle : TInterface "Gdk" "Rectangle" - IO () - - -cairoRectangle :: - (MonadIO m) => - Cairo.Context -- cr - -> Rectangle -- rectangle - -> m () -- result -cairoRectangle cr rectangle = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - let rectangle' = unsafeManagedPtrGetPtr rectangle - gdk_cairo_rectangle cr' rectangle' - touchManagedPtr cr - touchManagedPtr rectangle - return () - - --- function gdk_cairo_get_clip_rectangle --- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_get_clip_rectangle" gdk_cairo_get_clip_rectangle :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO CInt - - -cairoGetClipRectangle :: - (MonadIO m) => - Cairo.Context -- cr - -> m (Bool,Rectangle) -- result -cairoGetClipRectangle cr = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - rect <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - result <- gdk_cairo_get_clip_rectangle cr' rect - let result' = (/= 0) result - rect' <- (wrapBoxed Rectangle) rect - touchManagedPtr cr - return (result', rect') - - --- function gdk_cairo_draw_from_gl --- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_type", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_draw_from_gl" gdk_cairo_draw_from_gl :: - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - Ptr Window -> -- window : TInterface "Gdk" "Window" - Int32 -> -- source : TBasicType TInt - Int32 -> -- source_type : TBasicType TInt - Int32 -> -- buffer_scale : TBasicType TInt - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -cairoDrawFromGl :: - (MonadIO m, WindowK a) => - Cairo.Context -- cr - -> a -- window - -> Int32 -- source - -> Int32 -- sourceType - -> Int32 -- bufferScale - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -cairoDrawFromGl cr window source sourceType bufferScale x y width height = liftIO $ do - let cr' = unsafeManagedPtrGetPtr cr - let window' = unsafeManagedPtrCastPtr window - gdk_cairo_draw_from_gl cr' window' source sourceType bufferScale x y width height - touchManagedPtr cr - touchManagedPtr window - return () - - --- function gdk_cairo_create --- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Context") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cairo_create" gdk_cairo_create :: - Ptr Window -> -- window : TInterface "Gdk" "Window" - IO (Ptr Cairo.Context) - - -cairoCreate :: - (MonadIO m, WindowK a) => - a -- window - -> m Cairo.Context -- result -cairoCreate window = liftIO $ do - let window' = unsafeManagedPtrCastPtr window - result <- gdk_cairo_create window' - checkUnexpectedReturnNULL "gdk_cairo_create" result - result' <- (wrapBoxed Cairo.Context) result - touchManagedPtr window - return result' - - --- function gdk_beep --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_beep" gdk_beep :: - IO () - - -beep :: - (MonadIO m) => - m () -- result -beep = liftIO $ do - gdk_beep - return () - - --- function gdk_add_option_entries_libgtk_only --- Args : [Arg {argCName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_add_option_entries_libgtk_only" gdk_add_option_entries_libgtk_only :: - Ptr GLib.OptionGroup -> -- group : TInterface "GLib" "OptionGroup" - IO () - -{-# DEPRECATED addOptionEntriesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside"," of GTK+"]#-} -addOptionEntriesLibgtkOnly :: - (MonadIO m) => - GLib.OptionGroup -- group - -> m () -- result -addOptionEntriesLibgtkOnly group = liftIO $ do - let group' = unsafeManagedPtrGetPtr group - gdk_add_option_entries_libgtk_only group' - touchManagedPtr group - return () - - - diff --git a/GI/Gdk/Objects.hs b/GI/Gdk/Objects.hs deleted file mode 100644 --- a/GI/Gdk/Objects.hs +++ /dev/null @@ -1,51 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects - ( module GI.Gdk.Objects.AppLaunchContext , - module GI.Gdk.Objects.Cursor , - module GI.Gdk.Objects.Device , - module GI.Gdk.Objects.DeviceManager , - module GI.Gdk.Objects.Display , - module GI.Gdk.Objects.DisplayManager , - module GI.Gdk.Objects.DragContext , - module GI.Gdk.Objects.FrameClock , - module GI.Gdk.Objects.GLContext , - module GI.Gdk.Objects.Keymap , - module GI.Gdk.Objects.Screen , - module GI.Gdk.Objects.Visual , - module GI.Gdk.Objects.Window , - - - ) where - -import GI.Gdk.Objects.AppLaunchContext -import GI.Gdk.Objects.Cursor -import GI.Gdk.Objects.Device -import GI.Gdk.Objects.DeviceManager -import GI.Gdk.Objects.Display -import GI.Gdk.Objects.DisplayManager -import GI.Gdk.Objects.DragContext -import GI.Gdk.Objects.FrameClock -import GI.Gdk.Objects.GLContext -import GI.Gdk.Objects.Keymap -import GI.Gdk.Objects.Screen -import GI.Gdk.Objects.Visual -import GI.Gdk.Objects.Window - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - - diff --git a/GI/Gdk/Objects/AppLaunchContext.hs b/GI/Gdk/Objects/AppLaunchContext.hs deleted file mode 100644 --- a/GI/Gdk/Objects/AppLaunchContext.hs +++ /dev/null @@ -1,389 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.AppLaunchContext - ( - --- * Exported types - AppLaunchContext(..) , - AppLaunchContextK , - toAppLaunchContext , - noAppLaunchContext , - - - -- * Methods --- ** appLaunchContextNew - appLaunchContextNew , - - --- ** appLaunchContextSetDesktop - AppLaunchContextSetDesktopMethodInfo , - appLaunchContextSetDesktop , - - --- ** appLaunchContextSetDisplay - AppLaunchContextSetDisplayMethodInfo , - appLaunchContextSetDisplay , - - --- ** appLaunchContextSetIcon - AppLaunchContextSetIconMethodInfo , - appLaunchContextSetIcon , - - --- ** appLaunchContextSetIconName - AppLaunchContextSetIconNameMethodInfo , - appLaunchContextSetIconName , - - --- ** appLaunchContextSetScreen - AppLaunchContextSetScreenMethodInfo , - appLaunchContextSetScreen , - - --- ** appLaunchContextSetTimestamp - AppLaunchContextSetTimestampMethodInfo , - appLaunchContextSetTimestamp , - - - - - -- * Properties --- ** Display - AppLaunchContextDisplayPropertyInfo , - appLaunchContextDisplay , - constructAppLaunchContextDisplay , - getAppLaunchContextDisplay , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext) -foreign import ccall "gdk_app_launch_context_get_type" - c_gdk_app_launch_context_get_type :: IO GType - -type instance ParentTypes AppLaunchContext = AppLaunchContextParentTypes -type AppLaunchContextParentTypes = '[Gio.AppLaunchContext, GObject.Object] - -instance GObject AppLaunchContext where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_app_launch_context_get_type - - -class GObject o => AppLaunchContextK o -instance (GObject o, IsDescendantOf AppLaunchContext o) => AppLaunchContextK o - -toAppLaunchContext :: AppLaunchContextK o => o -> IO AppLaunchContext -toAppLaunchContext = unsafeCastTo AppLaunchContext - -noAppLaunchContext :: Maybe AppLaunchContext -noAppLaunchContext = Nothing - -type family ResolveAppLaunchContextMethod (t :: Symbol) (o :: *) :: * where - ResolveAppLaunchContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAppLaunchContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAppLaunchContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAppLaunchContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAppLaunchContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAppLaunchContextMethod "launchFailed" o = Gio.AppLaunchContextLaunchFailedMethodInfo - ResolveAppLaunchContextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAppLaunchContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAppLaunchContextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAppLaunchContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAppLaunchContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAppLaunchContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAppLaunchContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAppLaunchContextMethod "setenv" o = Gio.AppLaunchContextSetenvMethodInfo - ResolveAppLaunchContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAppLaunchContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAppLaunchContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAppLaunchContextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAppLaunchContextMethod "unsetenv" o = Gio.AppLaunchContextUnsetenvMethodInfo - ResolveAppLaunchContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAppLaunchContextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAppLaunchContextMethod "getDisplay" o = Gio.AppLaunchContextGetDisplayMethodInfo - ResolveAppLaunchContextMethod "getEnvironment" o = Gio.AppLaunchContextGetEnvironmentMethodInfo - ResolveAppLaunchContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAppLaunchContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAppLaunchContextMethod "getStartupNotifyId" o = Gio.AppLaunchContextGetStartupNotifyIdMethodInfo - ResolveAppLaunchContextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAppLaunchContextMethod "setDesktop" o = AppLaunchContextSetDesktopMethodInfo - ResolveAppLaunchContextMethod "setDisplay" o = AppLaunchContextSetDisplayMethodInfo - ResolveAppLaunchContextMethod "setIcon" o = AppLaunchContextSetIconMethodInfo - ResolveAppLaunchContextMethod "setIconName" o = AppLaunchContextSetIconNameMethodInfo - ResolveAppLaunchContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAppLaunchContextMethod "setScreen" o = AppLaunchContextSetScreenMethodInfo - ResolveAppLaunchContextMethod "setTimestamp" o = AppLaunchContextSetTimestampMethodInfo - ResolveAppLaunchContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAppLaunchContextMethod t AppLaunchContext, MethodInfo info AppLaunchContext p) => IsLabelProxy t (AppLaunchContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAppLaunchContextMethod t AppLaunchContext, MethodInfo info AppLaunchContext p) => IsLabel t (AppLaunchContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Just False) - -getAppLaunchContextDisplay :: (MonadIO m, AppLaunchContextK o) => o -> m (Maybe Display) -getAppLaunchContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display - -constructAppLaunchContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructAppLaunchContextDisplay val = constructObjectPropertyObject "display" (Just val) - -data AppLaunchContextDisplayPropertyInfo -instance AttrInfo AppLaunchContextDisplayPropertyInfo where - type AttrAllowedOps AppLaunchContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AppLaunchContextDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint AppLaunchContextDisplayPropertyInfo = AppLaunchContextK - type AttrGetType AppLaunchContextDisplayPropertyInfo = (Maybe Display) - type AttrLabel AppLaunchContextDisplayPropertyInfo = "display" - attrGet _ = getAppLaunchContextDisplay - attrSet _ = undefined - attrConstruct _ = constructAppLaunchContextDisplay - attrClear _ = undefined - -type instance AttributeList AppLaunchContext = AppLaunchContextAttributeList -type AppLaunchContextAttributeList = ('[ '("display", AppLaunchContextDisplayPropertyInfo)] :: [(Symbol, *)]) - -appLaunchContextDisplay :: AttrLabelProxy "display" -appLaunchContextDisplay = AttrLabelProxy - -type instance SignalList AppLaunchContext = AppLaunchContextSignalList -type AppLaunchContextSignalList = ('[ '("launchFailed", Gio.AppLaunchContextLaunchFailedSignalInfo), '("launched", Gio.AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AppLaunchContext::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "AppLaunchContext") --- throws : False --- Skip return : False - -foreign import ccall "gdk_app_launch_context_new" gdk_app_launch_context_new :: - IO (Ptr AppLaunchContext) - -{-# DEPRECATED appLaunchContextNew ["(Since version 3.0)","Use gdk_display_get_app_launch_context() instead"]#-} -appLaunchContextNew :: - (MonadIO m) => - m AppLaunchContext -- result -appLaunchContextNew = liftIO $ do - result <- gdk_app_launch_context_new - checkUnexpectedReturnNULL "gdk_app_launch_context_new" result - result' <- (wrapObject AppLaunchContext) result - return result' - --- method AppLaunchContext::set_desktop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desktop", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_app_launch_context_set_desktop" gdk_app_launch_context_set_desktop :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" - Int32 -> -- desktop : TBasicType TInt - IO () - - -appLaunchContextSetDesktop :: - (MonadIO m, AppLaunchContextK a) => - a -- _obj - -> Int32 -- desktop - -> m () -- result -appLaunchContextSetDesktop _obj desktop = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_app_launch_context_set_desktop _obj' desktop - touchManagedPtr _obj - return () - -data AppLaunchContextSetDesktopMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextSetDesktopMethodInfo a signature where - overloadedMethod _ = appLaunchContextSetDesktop - --- method AppLaunchContext::set_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_app_launch_context_set_display" gdk_app_launch_context_set_display :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" - Ptr Display -> -- display : TInterface "Gdk" "Display" - IO () - -{-# DEPRECATED appLaunchContextSetDisplay ["(Since version 3.0)","Use gdk_display_get_app_launch_context() instead"]#-} -appLaunchContextSetDisplay :: - (MonadIO m, AppLaunchContextK a, DisplayK b) => - a -- _obj - -> b -- display - -> m () -- result -appLaunchContextSetDisplay _obj display = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let display' = unsafeManagedPtrCastPtr display - gdk_app_launch_context_set_display _obj' display' - touchManagedPtr _obj - touchManagedPtr display - return () - -data AppLaunchContextSetDisplayMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, AppLaunchContextK a, DisplayK b) => MethodInfo AppLaunchContextSetDisplayMethodInfo a signature where - overloadedMethod _ = appLaunchContextSetDisplay - --- method AppLaunchContext::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_app_launch_context_set_icon" gdk_app_launch_context_set_icon :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" - Ptr Gio.Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -appLaunchContextSetIcon :: - (MonadIO m, AppLaunchContextK a, Gio.IconK b) => - a -- _obj - -> Maybe (b) -- icon - -> m () -- result -appLaunchContextSetIcon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon <- case icon of - Nothing -> return nullPtr - Just jIcon -> do - let jIcon' = unsafeManagedPtrCastPtr jIcon - return jIcon' - gdk_app_launch_context_set_icon _obj' maybeIcon - touchManagedPtr _obj - whenJust icon touchManagedPtr - return () - -data AppLaunchContextSetIconMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, AppLaunchContextK a, Gio.IconK b) => MethodInfo AppLaunchContextSetIconMethodInfo a signature where - overloadedMethod _ = appLaunchContextSetIcon - --- method AppLaunchContext::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_app_launch_context_set_icon_name" gdk_app_launch_context_set_icon_name :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" - CString -> -- icon_name : TBasicType TUTF8 - IO () - - -appLaunchContextSetIconName :: - (MonadIO m, AppLaunchContextK a) => - a -- _obj - -> Maybe (T.Text) -- iconName - -> m () -- result -appLaunchContextSetIconName _obj iconName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIconName <- case iconName of - Nothing -> return nullPtr - Just jIconName -> do - jIconName' <- textToCString jIconName - return jIconName' - gdk_app_launch_context_set_icon_name _obj' maybeIconName - touchManagedPtr _obj - freeMem maybeIconName - return () - -data AppLaunchContextSetIconNameMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextSetIconNameMethodInfo a signature where - overloadedMethod _ = appLaunchContextSetIconName - --- method AppLaunchContext::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_app_launch_context_set_screen" gdk_app_launch_context_set_screen :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" - Ptr Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - - -appLaunchContextSetScreen :: - (MonadIO m, AppLaunchContextK a, ScreenK b) => - a -- _obj - -> b -- screen - -> m () -- result -appLaunchContextSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gdk_app_launch_context_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - -data AppLaunchContextSetScreenMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, AppLaunchContextK a, ScreenK b) => MethodInfo AppLaunchContextSetScreenMethodInfo a signature where - overloadedMethod _ = appLaunchContextSetScreen - --- method AppLaunchContext::set_timestamp --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_app_launch_context_set_timestamp" gdk_app_launch_context_set_timestamp :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gdk" "AppLaunchContext" - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -appLaunchContextSetTimestamp :: - (MonadIO m, AppLaunchContextK a) => - a -- _obj - -> Word32 -- timestamp - -> m () -- result -appLaunchContextSetTimestamp _obj timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_app_launch_context_set_timestamp _obj' timestamp - touchManagedPtr _obj - return () - -data AppLaunchContextSetTimestampMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextSetTimestampMethodInfo a signature where - overloadedMethod _ = appLaunchContextSetTimestamp - - diff --git a/GI/Gdk/Objects/AppLaunchContext.hs-boot b/GI/Gdk/Objects/AppLaunchContext.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/AppLaunchContext.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gdk.Objects.AppLaunchContext where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext) -instance GObject AppLaunchContext where -class GObject o => AppLaunchContextK o -instance (GObject o, IsDescendantOf AppLaunchContext o) => AppLaunchContextK o -data AppLaunchContextDisplayPropertyInfo -data AppLaunchContextSetDesktopMethodInfo -data AppLaunchContextSetDisplayMethodInfo -data AppLaunchContextSetIconMethodInfo -data AppLaunchContextSetIconNameMethodInfo -data AppLaunchContextSetScreenMethodInfo -data AppLaunchContextSetTimestampMethodInfo diff --git a/GI/Gdk/Objects/Cursor.hs b/GI/Gdk/Objects/Cursor.hs deleted file mode 100644 --- a/GI/Gdk/Objects/Cursor.hs +++ /dev/null @@ -1,551 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.Cursor - ( - --- * Exported types - Cursor(..) , - CursorK , - toCursor , - noCursor , - - - -- * Methods --- ** cursorGetCursorType - CursorGetCursorTypeMethodInfo , - cursorGetCursorType , - - --- ** cursorGetDisplay - CursorGetDisplayMethodInfo , - cursorGetDisplay , - - --- ** cursorGetImage - CursorGetImageMethodInfo , - cursorGetImage , - - --- ** cursorGetSurface - CursorGetSurfaceMethodInfo , - cursorGetSurface , - - --- ** cursorNew - cursorNew , - - --- ** cursorNewForDisplay - cursorNewForDisplay , - - --- ** cursorNewFromName - cursorNewFromName , - - --- ** cursorNewFromPixbuf - cursorNewFromPixbuf , - - --- ** cursorNewFromSurface - cursorNewFromSurface , - - --- ** cursorRef - CursorRefMethodInfo , - cursorRef , - - --- ** cursorUnref - CursorUnrefMethodInfo , - cursorUnref , - - - - - -- * Properties --- ** CursorType - CursorCursorTypePropertyInfo , - constructCursorCursorType , - cursorCursorType , - getCursorCursorType , - - --- ** Display - CursorDisplayPropertyInfo , - constructCursorDisplay , - cursorDisplay , - getCursorDisplay , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Cairo as Cairo - -newtype Cursor = Cursor (ForeignPtr Cursor) -foreign import ccall "gdk_cursor_get_type" - c_gdk_cursor_get_type :: IO GType - -type instance ParentTypes Cursor = CursorParentTypes -type CursorParentTypes = '[GObject.Object] - -instance GObject Cursor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_cursor_get_type - - -class GObject o => CursorK o -instance (GObject o, IsDescendantOf Cursor o) => CursorK o - -toCursor :: CursorK o => o -> IO Cursor -toCursor = unsafeCastTo Cursor - -noCursor :: Maybe Cursor -noCursor = Nothing - -type family ResolveCursorMethod (t :: Symbol) (o :: *) :: * where - ResolveCursorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCursorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCursorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCursorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCursorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCursorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCursorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCursorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCursorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCursorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCursorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCursorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCursorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCursorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCursorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCursorMethod "getCursorType" o = CursorGetCursorTypeMethodInfo - ResolveCursorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCursorMethod "getDisplay" o = CursorGetDisplayMethodInfo - ResolveCursorMethod "getImage" o = CursorGetImageMethodInfo - ResolveCursorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCursorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCursorMethod "getSurface" o = CursorGetSurfaceMethodInfo - ResolveCursorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCursorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCursorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCursorMethod t Cursor, MethodInfo info Cursor p) => IsLabelProxy t (Cursor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCursorMethod t Cursor, MethodInfo info Cursor p) => IsLabel t (Cursor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "cursor-type" - -- Type: TInterface "Gdk" "CursorType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getCursorCursorType :: (MonadIO m, CursorK o) => o -> m CursorType -getCursorCursorType obj = liftIO $ getObjectPropertyEnum obj "cursor-type" - -constructCursorCursorType :: CursorType -> IO ([Char], GValue) -constructCursorCursorType val = constructObjectPropertyEnum "cursor-type" val - -data CursorCursorTypePropertyInfo -instance AttrInfo CursorCursorTypePropertyInfo where - type AttrAllowedOps CursorCursorTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CursorCursorTypePropertyInfo = (~) CursorType - type AttrBaseTypeConstraint CursorCursorTypePropertyInfo = CursorK - type AttrGetType CursorCursorTypePropertyInfo = CursorType - type AttrLabel CursorCursorTypePropertyInfo = "cursor-type" - attrGet _ = getCursorCursorType - attrSet _ = undefined - attrConstruct _ = constructCursorCursorType - attrClear _ = undefined - --- VVV Prop "display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getCursorDisplay :: (MonadIO m, CursorK o) => o -> m Display -getCursorDisplay obj = liftIO $ checkUnexpectedNothing "getCursorDisplay" $ getObjectPropertyObject obj "display" Display - -constructCursorDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructCursorDisplay val = constructObjectPropertyObject "display" (Just val) - -data CursorDisplayPropertyInfo -instance AttrInfo CursorDisplayPropertyInfo where - type AttrAllowedOps CursorDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CursorDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint CursorDisplayPropertyInfo = CursorK - type AttrGetType CursorDisplayPropertyInfo = Display - type AttrLabel CursorDisplayPropertyInfo = "display" - attrGet _ = getCursorDisplay - attrSet _ = undefined - attrConstruct _ = constructCursorDisplay - attrClear _ = undefined - -type instance AttributeList Cursor = CursorAttributeList -type CursorAttributeList = ('[ '("cursorType", CursorCursorTypePropertyInfo), '("display", CursorDisplayPropertyInfo)] :: [(Symbol, *)]) - -cursorCursorType :: AttrLabelProxy "cursorType" -cursorCursorType = AttrLabelProxy - -cursorDisplay :: AttrLabelProxy "display" -cursorDisplay = AttrLabelProxy - -type instance SignalList Cursor = CursorSignalList -type CursorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Cursor::new --- method type : Constructor --- Args : [Arg {argCName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Cursor") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_new" gdk_cursor_new :: - CUInt -> -- cursor_type : TInterface "Gdk" "CursorType" - IO (Ptr Cursor) - -{-# DEPRECATED cursorNew ["(Since version 3.16)","Use gdk_cursor_new_for_display() instead."]#-} -cursorNew :: - (MonadIO m) => - CursorType -- cursorType - -> m Cursor -- result -cursorNew cursorType = liftIO $ do - let cursorType' = (fromIntegral . fromEnum) cursorType - result <- gdk_cursor_new cursorType' - checkUnexpectedReturnNULL "gdk_cursor_new" result - result' <- (wrapObject Cursor) result - return result' - --- method Cursor::new_for_display --- method type : Constructor --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Cursor") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_new_for_display" gdk_cursor_new_for_display :: - Ptr Display -> -- display : TInterface "Gdk" "Display" - CUInt -> -- cursor_type : TInterface "Gdk" "CursorType" - IO (Ptr Cursor) - - -cursorNewForDisplay :: - (MonadIO m, DisplayK a) => - a -- display - -> CursorType -- cursorType - -> m Cursor -- result -cursorNewForDisplay display cursorType = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - let cursorType' = (fromIntegral . fromEnum) cursorType - result <- gdk_cursor_new_for_display display' cursorType' - checkUnexpectedReturnNULL "gdk_cursor_new_for_display" result - result' <- (wrapObject Cursor) result - touchManagedPtr display - return result' - --- method Cursor::new_from_name --- method type : Constructor --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Cursor") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_new_from_name" gdk_cursor_new_from_name :: - Ptr Display -> -- display : TInterface "Gdk" "Display" - CString -> -- name : TBasicType TUTF8 - IO (Ptr Cursor) - - -cursorNewFromName :: - (MonadIO m, DisplayK a) => - a -- display - -> T.Text -- name - -> m (Maybe Cursor) -- result -cursorNewFromName display name = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - name' <- textToCString name - result <- gdk_cursor_new_from_name display' name' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject Cursor) result' - return result'' - touchManagedPtr display - freeMem name' - return maybeResult - --- method Cursor::new_from_pixbuf --- method type : Constructor --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Cursor") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_new_from_pixbuf" gdk_cursor_new_from_pixbuf :: - Ptr Display -> -- display : TInterface "Gdk" "Display" - Ptr GdkPixbuf.Pixbuf -> -- pixbuf : TInterface "GdkPixbuf" "Pixbuf" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO (Ptr Cursor) - - -cursorNewFromPixbuf :: - (MonadIO m, DisplayK a, GdkPixbuf.PixbufK b) => - a -- display - -> b -- pixbuf - -> Int32 -- x - -> Int32 -- y - -> m Cursor -- result -cursorNewFromPixbuf display pixbuf x y = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - let pixbuf' = unsafeManagedPtrCastPtr pixbuf - result <- gdk_cursor_new_from_pixbuf display' pixbuf' x y - checkUnexpectedReturnNULL "gdk_cursor_new_from_pixbuf" result - result' <- (wrapObject Cursor) result - touchManagedPtr display - touchManagedPtr pixbuf - return result' - --- method Cursor::new_from_surface --- method type : Constructor --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Cursor") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_new_from_surface" gdk_cursor_new_from_surface :: - Ptr Display -> -- display : TInterface "Gdk" "Display" - Ptr Cairo.Surface -> -- surface : TInterface "cairo" "Surface" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - IO (Ptr Cursor) - - -cursorNewFromSurface :: - (MonadIO m, DisplayK a) => - a -- display - -> Cairo.Surface -- surface - -> Double -- x - -> Double -- y - -> m Cursor -- result -cursorNewFromSurface display surface x y = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - let surface' = unsafeManagedPtrGetPtr surface - let x' = realToFrac x - let y' = realToFrac y - result <- gdk_cursor_new_from_surface display' surface' x' y' - checkUnexpectedReturnNULL "gdk_cursor_new_from_surface" result - result' <- (wrapObject Cursor) result - touchManagedPtr display - touchManagedPtr surface - return result' - --- method Cursor::get_cursor_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "CursorType") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_get_cursor_type" gdk_cursor_get_cursor_type :: - Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" - IO CUInt - - -cursorGetCursorType :: - (MonadIO m, CursorK a) => - a -- _obj - -> m CursorType -- result -cursorGetCursorType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_cursor_get_cursor_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data CursorGetCursorTypeMethodInfo -instance (signature ~ (m CursorType), MonadIO m, CursorK a) => MethodInfo CursorGetCursorTypeMethodInfo a signature where - overloadedMethod _ = cursorGetCursorType - --- method Cursor::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_get_display" gdk_cursor_get_display :: - Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" - IO (Ptr Display) - - -cursorGetDisplay :: - (MonadIO m, CursorK a) => - a -- _obj - -> m Display -- result -cursorGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_cursor_get_display _obj' - checkUnexpectedReturnNULL "gdk_cursor_get_display" result - result' <- (newObject Display) result - touchManagedPtr _obj - return result' - -data CursorGetDisplayMethodInfo -instance (signature ~ (m Display), MonadIO m, CursorK a) => MethodInfo CursorGetDisplayMethodInfo a signature where - overloadedMethod _ = cursorGetDisplay - --- method Cursor::get_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_get_image" gdk_cursor_get_image :: - Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" - IO (Ptr GdkPixbuf.Pixbuf) - - -cursorGetImage :: - (MonadIO m, CursorK a) => - a -- _obj - -> m (Maybe GdkPixbuf.Pixbuf) -- result -cursorGetImage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_cursor_get_image _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject GdkPixbuf.Pixbuf) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data CursorGetImageMethodInfo -instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, CursorK a) => MethodInfo CursorGetImageMethodInfo a signature where - overloadedMethod _ = cursorGetImage - --- method Cursor::get_surface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_get_surface" gdk_cursor_get_surface :: - Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" - Ptr CDouble -> -- x_hot : TBasicType TDouble - Ptr CDouble -> -- y_hot : TBasicType TDouble - IO (Ptr Cairo.Surface) - - -cursorGetSurface :: - (MonadIO m, CursorK a) => - a -- _obj - -> m ((Maybe Cairo.Surface),Double,Double)-- result -cursorGetSurface _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - xHot <- allocMem :: IO (Ptr CDouble) - yHot <- allocMem :: IO (Ptr CDouble) - result <- gdk_cursor_get_surface _obj' xHot yHot - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Cairo.Surface) result' - return result'' - xHot' <- peek xHot - let xHot'' = realToFrac xHot' - yHot' <- peek yHot - let yHot'' = realToFrac yHot' - touchManagedPtr _obj - freeMem xHot - freeMem yHot - return (maybeResult, xHot'', yHot'') - -data CursorGetSurfaceMethodInfo -instance (signature ~ (m ((Maybe Cairo.Surface),Double,Double)), MonadIO m, CursorK a) => MethodInfo CursorGetSurfaceMethodInfo a signature where - overloadedMethod _ = cursorGetSurface - --- method Cursor::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Cursor") --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_ref" gdk_cursor_ref :: - Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" - IO (Ptr Cursor) - -{-# DEPRECATED cursorRef ["(Since version 3.0)","Use g_object_ref() instead"]#-} -cursorRef :: - (MonadIO m, CursorK a) => - a -- _obj - -> m Cursor -- result -cursorRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_cursor_ref _obj' - checkUnexpectedReturnNULL "gdk_cursor_ref" result - result' <- (wrapObject Cursor) result - touchManagedPtr _obj - return result' - -data CursorRefMethodInfo -instance (signature ~ (m Cursor), MonadIO m, CursorK a) => MethodInfo CursorRefMethodInfo a signature where - overloadedMethod _ = cursorRef - --- method Cursor::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_cursor_unref" gdk_cursor_unref :: - Ptr Cursor -> -- _obj : TInterface "Gdk" "Cursor" - IO () - -{-# DEPRECATED cursorUnref ["(Since version 3.0)","Use g_object_unref() instead"]#-} -cursorUnref :: - (MonadIO m, CursorK a) => - a -- _obj - -> m () -- result -cursorUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_cursor_unref _obj' - touchManagedPtr _obj - return () - -data CursorUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m, CursorK a) => MethodInfo CursorUnrefMethodInfo a signature where - overloadedMethod _ = cursorUnref - - diff --git a/GI/Gdk/Objects/Cursor.hs-boot b/GI/Gdk/Objects/Cursor.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/Cursor.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gdk.Objects.Cursor where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Cursor = Cursor (ForeignPtr Cursor) -instance GObject Cursor where -class GObject o => CursorK o -instance (GObject o, IsDescendantOf Cursor o) => CursorK o -data CursorCursorTypePropertyInfo -data CursorDisplayPropertyInfo -data CursorGetCursorTypeMethodInfo -data CursorGetDisplayMethodInfo -data CursorGetImageMethodInfo -data CursorGetSurfaceMethodInfo -data CursorRefMethodInfo -data CursorUnrefMethodInfo diff --git a/GI/Gdk/Objects/Device.hs b/GI/Gdk/Objects/Device.hs deleted file mode 100644 --- a/GI/Gdk/Objects/Device.hs +++ /dev/null @@ -1,1557 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.Device - ( - --- * Exported types - Device(..) , - DeviceK , - toDevice , - noDevice , - - - -- * Methods --- ** deviceGetAssociatedDevice - DeviceGetAssociatedDeviceMethodInfo , - deviceGetAssociatedDevice , - - --- ** deviceGetAxisUse - DeviceGetAxisUseMethodInfo , - deviceGetAxisUse , - - --- ** deviceGetDeviceType - DeviceGetDeviceTypeMethodInfo , - deviceGetDeviceType , - - --- ** deviceGetDisplay - DeviceGetDisplayMethodInfo , - deviceGetDisplay , - - --- ** deviceGetHasCursor - DeviceGetHasCursorMethodInfo , - deviceGetHasCursor , - - --- ** deviceGetKey - DeviceGetKeyMethodInfo , - deviceGetKey , - - --- ** deviceGetLastEventWindow - DeviceGetLastEventWindowMethodInfo , - deviceGetLastEventWindow , - - --- ** deviceGetMode - DeviceGetModeMethodInfo , - deviceGetMode , - - --- ** deviceGetNAxes - DeviceGetNAxesMethodInfo , - deviceGetNAxes , - - --- ** deviceGetNKeys - DeviceGetNKeysMethodInfo , - deviceGetNKeys , - - --- ** deviceGetName - DeviceGetNameMethodInfo , - deviceGetName , - - --- ** deviceGetPosition - DeviceGetPositionMethodInfo , - deviceGetPosition , - - --- ** deviceGetPositionDouble - DeviceGetPositionDoubleMethodInfo , - deviceGetPositionDouble , - - --- ** deviceGetProductId - DeviceGetProductIdMethodInfo , - deviceGetProductId , - - --- ** deviceGetSource - DeviceGetSourceMethodInfo , - deviceGetSource , - - --- ** deviceGetVendorId - DeviceGetVendorIdMethodInfo , - deviceGetVendorId , - - --- ** deviceGetWindowAtPosition - DeviceGetWindowAtPositionMethodInfo , - deviceGetWindowAtPosition , - - --- ** deviceGetWindowAtPositionDouble - DeviceGetWindowAtPositionDoubleMethodInfo, - deviceGetWindowAtPositionDouble , - - --- ** deviceGrab - DeviceGrabMethodInfo , - deviceGrab , - - --- ** deviceGrabInfoLibgtkOnly - deviceGrabInfoLibgtkOnly , - - --- ** deviceListAxes - DeviceListAxesMethodInfo , - deviceListAxes , - - --- ** deviceListSlaveDevices - DeviceListSlaveDevicesMethodInfo , - deviceListSlaveDevices , - - --- ** deviceSetAxisUse - DeviceSetAxisUseMethodInfo , - deviceSetAxisUse , - - --- ** deviceSetKey - DeviceSetKeyMethodInfo , - deviceSetKey , - - --- ** deviceSetMode - DeviceSetModeMethodInfo , - deviceSetMode , - - --- ** deviceUngrab - DeviceUngrabMethodInfo , - deviceUngrab , - - --- ** deviceWarp - DeviceWarpMethodInfo , - deviceWarp , - - - - - -- * Properties --- ** AssociatedDevice - DeviceAssociatedDevicePropertyInfo , - deviceAssociatedDevice , - getDeviceAssociatedDevice , - - --- ** DeviceManager - DeviceDeviceManagerPropertyInfo , - constructDeviceDeviceManager , - deviceDeviceManager , - getDeviceDeviceManager , - - --- ** Display - DeviceDisplayPropertyInfo , - constructDeviceDisplay , - deviceDisplay , - getDeviceDisplay , - - --- ** HasCursor - DeviceHasCursorPropertyInfo , - constructDeviceHasCursor , - deviceHasCursor , - getDeviceHasCursor , - - --- ** InputMode - DeviceInputModePropertyInfo , - constructDeviceInputMode , - deviceInputMode , - getDeviceInputMode , - setDeviceInputMode , - - --- ** InputSource - DeviceInputSourcePropertyInfo , - constructDeviceInputSource , - deviceInputSource , - getDeviceInputSource , - - --- ** NAxes - DeviceNAxesPropertyInfo , - deviceNAxes , - getDeviceNAxes , - - --- ** Name - DeviceNamePropertyInfo , - constructDeviceName , - deviceName , - getDeviceName , - - --- ** ProductId - DeviceProductIdPropertyInfo , - constructDeviceProductId , - deviceProductId , - getDeviceProductId , - - --- ** Type - DeviceTypePropertyInfo , - constructDeviceType , - deviceType , - getDeviceType , - - --- ** VendorId - DeviceVendorIdPropertyInfo , - constructDeviceVendorId , - deviceVendorId , - getDeviceVendorId , - - - - - -- * Signals --- ** Changed - DeviceChangedCallback , - DeviceChangedCallbackC , - DeviceChangedSignalInfo , - afterDeviceChanged , - deviceChangedCallbackWrapper , - deviceChangedClosure , - mkDeviceChangedCallback , - noDeviceChangedCallback , - onDeviceChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject - -newtype Device = Device (ForeignPtr Device) -foreign import ccall "gdk_device_get_type" - c_gdk_device_get_type :: IO GType - -type instance ParentTypes Device = DeviceParentTypes -type DeviceParentTypes = '[GObject.Object] - -instance GObject Device where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_device_get_type - - -class GObject o => DeviceK o -instance (GObject o, IsDescendantOf Device o) => DeviceK o - -toDevice :: DeviceK o => o -> IO Device -toDevice = unsafeCastTo Device - -noDevice :: Maybe Device -noDevice = Nothing - -type family ResolveDeviceMethod (t :: Symbol) (o :: *) :: * where - ResolveDeviceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDeviceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDeviceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDeviceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDeviceMethod "grab" o = DeviceGrabMethodInfo - ResolveDeviceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDeviceMethod "listAxes" o = DeviceListAxesMethodInfo - ResolveDeviceMethod "listSlaveDevices" o = DeviceListSlaveDevicesMethodInfo - ResolveDeviceMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDeviceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDeviceMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDeviceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDeviceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDeviceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDeviceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDeviceMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDeviceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDeviceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDeviceMethod "ungrab" o = DeviceUngrabMethodInfo - ResolveDeviceMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDeviceMethod "warp" o = DeviceWarpMethodInfo - ResolveDeviceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDeviceMethod "getAssociatedDevice" o = DeviceGetAssociatedDeviceMethodInfo - ResolveDeviceMethod "getAxisUse" o = DeviceGetAxisUseMethodInfo - ResolveDeviceMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDeviceMethod "getDeviceType" o = DeviceGetDeviceTypeMethodInfo - ResolveDeviceMethod "getDisplay" o = DeviceGetDisplayMethodInfo - ResolveDeviceMethod "getHasCursor" o = DeviceGetHasCursorMethodInfo - ResolveDeviceMethod "getKey" o = DeviceGetKeyMethodInfo - ResolveDeviceMethod "getLastEventWindow" o = DeviceGetLastEventWindowMethodInfo - ResolveDeviceMethod "getMode" o = DeviceGetModeMethodInfo - ResolveDeviceMethod "getNAxes" o = DeviceGetNAxesMethodInfo - ResolveDeviceMethod "getNKeys" o = DeviceGetNKeysMethodInfo - ResolveDeviceMethod "getName" o = DeviceGetNameMethodInfo - ResolveDeviceMethod "getPosition" o = DeviceGetPositionMethodInfo - ResolveDeviceMethod "getPositionDouble" o = DeviceGetPositionDoubleMethodInfo - ResolveDeviceMethod "getProductId" o = DeviceGetProductIdMethodInfo - ResolveDeviceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDeviceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDeviceMethod "getSource" o = DeviceGetSourceMethodInfo - ResolveDeviceMethod "getVendorId" o = DeviceGetVendorIdMethodInfo - ResolveDeviceMethod "getWindowAtPosition" o = DeviceGetWindowAtPositionMethodInfo - ResolveDeviceMethod "getWindowAtPositionDouble" o = DeviceGetWindowAtPositionDoubleMethodInfo - ResolveDeviceMethod "setAxisUse" o = DeviceSetAxisUseMethodInfo - ResolveDeviceMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDeviceMethod "setKey" o = DeviceSetKeyMethodInfo - ResolveDeviceMethod "setMode" o = DeviceSetModeMethodInfo - ResolveDeviceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDeviceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDeviceMethod t Device, MethodInfo info Device p) => IsLabelProxy t (Device -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDeviceMethod t Device, MethodInfo info Device p) => IsLabel t (Device -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Device::changed -type DeviceChangedCallback = - IO () - -noDeviceChangedCallback :: Maybe DeviceChangedCallback -noDeviceChangedCallback = Nothing - -type DeviceChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDeviceChangedCallback :: DeviceChangedCallbackC -> IO (FunPtr DeviceChangedCallbackC) - -deviceChangedClosure :: DeviceChangedCallback -> IO Closure -deviceChangedClosure cb = newCClosure =<< mkDeviceChangedCallback wrapped - where wrapped = deviceChangedCallbackWrapper cb - -deviceChangedCallbackWrapper :: - DeviceChangedCallback -> - Ptr () -> - Ptr () -> - IO () -deviceChangedCallbackWrapper _cb _ _ = do - _cb - -onDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceChangedCallback -> m SignalHandlerId -onDeviceChanged obj cb = liftIO $ connectDeviceChanged obj cb SignalConnectBefore -afterDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceChangedCallback -> m SignalHandlerId -afterDeviceChanged obj cb = connectDeviceChanged obj cb SignalConnectAfter - -connectDeviceChanged :: (GObject a, MonadIO m) => - a -> DeviceChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectDeviceChanged obj cb after = liftIO $ do - cb' <- mkDeviceChangedCallback (deviceChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- VVV Prop "associated-device" - -- Type: TInterface "Gdk" "Device" - -- Flags: [PropertyReadable] - -- Nullable: (Just True,Nothing) - -getDeviceAssociatedDevice :: (MonadIO m, DeviceK o) => o -> m (Maybe Device) -getDeviceAssociatedDevice obj = liftIO $ getObjectPropertyObject obj "associated-device" Device - -data DeviceAssociatedDevicePropertyInfo -instance AttrInfo DeviceAssociatedDevicePropertyInfo where - type AttrAllowedOps DeviceAssociatedDevicePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DeviceAssociatedDevicePropertyInfo = (~) () - type AttrBaseTypeConstraint DeviceAssociatedDevicePropertyInfo = DeviceK - type AttrGetType DeviceAssociatedDevicePropertyInfo = (Maybe Device) - type AttrLabel DeviceAssociatedDevicePropertyInfo = "associated-device" - attrGet _ = getDeviceAssociatedDevice - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "device-manager" - -- Type: TInterface "Gdk" "DeviceManager" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDeviceDeviceManager :: (MonadIO m, DeviceK o) => o -> m (Maybe DeviceManager) -getDeviceDeviceManager obj = liftIO $ getObjectPropertyObject obj "device-manager" DeviceManager - -constructDeviceDeviceManager :: (DeviceManagerK a) => a -> IO ([Char], GValue) -constructDeviceDeviceManager val = constructObjectPropertyObject "device-manager" (Just val) - -data DeviceDeviceManagerPropertyInfo -instance AttrInfo DeviceDeviceManagerPropertyInfo where - type AttrAllowedOps DeviceDeviceManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceManagerK - type AttrBaseTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceK - type AttrGetType DeviceDeviceManagerPropertyInfo = (Maybe DeviceManager) - type AttrLabel DeviceDeviceManagerPropertyInfo = "device-manager" - attrGet _ = getDeviceDeviceManager - attrSet _ = undefined - attrConstruct _ = constructDeviceDeviceManager - attrClear _ = undefined - --- VVV Prop "display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDeviceDisplay :: (MonadIO m, DeviceK o) => o -> m Display -getDeviceDisplay obj = liftIO $ checkUnexpectedNothing "getDeviceDisplay" $ getObjectPropertyObject obj "display" Display - -constructDeviceDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructDeviceDisplay val = constructObjectPropertyObject "display" (Just val) - -data DeviceDisplayPropertyInfo -instance AttrInfo DeviceDisplayPropertyInfo where - type AttrAllowedOps DeviceDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DeviceDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint DeviceDisplayPropertyInfo = DeviceK - type AttrGetType DeviceDisplayPropertyInfo = Display - type AttrLabel DeviceDisplayPropertyInfo = "display" - attrGet _ = getDeviceDisplay - attrSet _ = undefined - attrConstruct _ = constructDeviceDisplay - attrClear _ = undefined - --- VVV Prop "has-cursor" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDeviceHasCursor :: (MonadIO m, DeviceK o) => o -> m Bool -getDeviceHasCursor obj = liftIO $ getObjectPropertyBool obj "has-cursor" - -constructDeviceHasCursor :: Bool -> IO ([Char], GValue) -constructDeviceHasCursor val = constructObjectPropertyBool "has-cursor" val - -data DeviceHasCursorPropertyInfo -instance AttrInfo DeviceHasCursorPropertyInfo where - type AttrAllowedOps DeviceHasCursorPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceHasCursorPropertyInfo = (~) Bool - type AttrBaseTypeConstraint DeviceHasCursorPropertyInfo = DeviceK - type AttrGetType DeviceHasCursorPropertyInfo = Bool - type AttrLabel DeviceHasCursorPropertyInfo = "has-cursor" - attrGet _ = getDeviceHasCursor - attrSet _ = undefined - attrConstruct _ = constructDeviceHasCursor - attrClear _ = undefined - --- VVV Prop "input-mode" - -- Type: TInterface "Gdk" "InputMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDeviceInputMode :: (MonadIO m, DeviceK o) => o -> m InputMode -getDeviceInputMode obj = liftIO $ getObjectPropertyEnum obj "input-mode" - -setDeviceInputMode :: (MonadIO m, DeviceK o) => o -> InputMode -> m () -setDeviceInputMode obj val = liftIO $ setObjectPropertyEnum obj "input-mode" val - -constructDeviceInputMode :: InputMode -> IO ([Char], GValue) -constructDeviceInputMode val = constructObjectPropertyEnum "input-mode" val - -data DeviceInputModePropertyInfo -instance AttrInfo DeviceInputModePropertyInfo where - type AttrAllowedOps DeviceInputModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceInputModePropertyInfo = (~) InputMode - type AttrBaseTypeConstraint DeviceInputModePropertyInfo = DeviceK - type AttrGetType DeviceInputModePropertyInfo = InputMode - type AttrLabel DeviceInputModePropertyInfo = "input-mode" - attrGet _ = getDeviceInputMode - attrSet _ = setDeviceInputMode - attrConstruct _ = constructDeviceInputMode - attrClear _ = undefined - --- VVV Prop "input-source" - -- Type: TInterface "Gdk" "InputSource" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDeviceInputSource :: (MonadIO m, DeviceK o) => o -> m InputSource -getDeviceInputSource obj = liftIO $ getObjectPropertyEnum obj "input-source" - -constructDeviceInputSource :: InputSource -> IO ([Char], GValue) -constructDeviceInputSource val = constructObjectPropertyEnum "input-source" val - -data DeviceInputSourcePropertyInfo -instance AttrInfo DeviceInputSourcePropertyInfo where - type AttrAllowedOps DeviceInputSourcePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceInputSourcePropertyInfo = (~) InputSource - type AttrBaseTypeConstraint DeviceInputSourcePropertyInfo = DeviceK - type AttrGetType DeviceInputSourcePropertyInfo = InputSource - type AttrLabel DeviceInputSourcePropertyInfo = "input-source" - attrGet _ = getDeviceInputSource - attrSet _ = undefined - attrConstruct _ = constructDeviceInputSource - attrClear _ = undefined - --- VVV Prop "n-axes" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDeviceNAxes :: (MonadIO m, DeviceK o) => o -> m Word32 -getDeviceNAxes obj = liftIO $ getObjectPropertyUInt32 obj "n-axes" - -data DeviceNAxesPropertyInfo -instance AttrInfo DeviceNAxesPropertyInfo where - type AttrAllowedOps DeviceNAxesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DeviceNAxesPropertyInfo = (~) () - type AttrBaseTypeConstraint DeviceNAxesPropertyInfo = DeviceK - type AttrGetType DeviceNAxesPropertyInfo = Word32 - type AttrLabel DeviceNAxesPropertyInfo = "n-axes" - attrGet _ = getDeviceNAxes - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDeviceName :: (MonadIO m, DeviceK o) => o -> m T.Text -getDeviceName obj = liftIO $ checkUnexpectedNothing "getDeviceName" $ getObjectPropertyString obj "name" - -constructDeviceName :: T.Text -> IO ([Char], GValue) -constructDeviceName val = constructObjectPropertyString "name" (Just val) - -data DeviceNamePropertyInfo -instance AttrInfo DeviceNamePropertyInfo where - type AttrAllowedOps DeviceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DeviceNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DeviceNamePropertyInfo = DeviceK - type AttrGetType DeviceNamePropertyInfo = T.Text - type AttrLabel DeviceNamePropertyInfo = "name" - attrGet _ = getDeviceName - attrSet _ = undefined - attrConstruct _ = constructDeviceName - attrClear _ = undefined - --- VVV Prop "product-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just True,Nothing) - -getDeviceProductId :: (MonadIO m, DeviceK o) => o -> m (Maybe T.Text) -getDeviceProductId obj = liftIO $ getObjectPropertyString obj "product-id" - -constructDeviceProductId :: T.Text -> IO ([Char], GValue) -constructDeviceProductId val = constructObjectPropertyString "product-id" (Just val) - -data DeviceProductIdPropertyInfo -instance AttrInfo DeviceProductIdPropertyInfo where - type AttrAllowedOps DeviceProductIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DeviceProductIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DeviceProductIdPropertyInfo = DeviceK - type AttrGetType DeviceProductIdPropertyInfo = (Maybe T.Text) - type AttrLabel DeviceProductIdPropertyInfo = "product-id" - attrGet _ = getDeviceProductId - attrSet _ = undefined - attrConstruct _ = constructDeviceProductId - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TInterface "Gdk" "DeviceType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDeviceType :: (MonadIO m, DeviceK o) => o -> m DeviceType -getDeviceType obj = liftIO $ getObjectPropertyEnum obj "type" - -constructDeviceType :: DeviceType -> IO ([Char], GValue) -constructDeviceType val = constructObjectPropertyEnum "type" val - -data DeviceTypePropertyInfo -instance AttrInfo DeviceTypePropertyInfo where - type AttrAllowedOps DeviceTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DeviceTypePropertyInfo = (~) DeviceType - type AttrBaseTypeConstraint DeviceTypePropertyInfo = DeviceK - type AttrGetType DeviceTypePropertyInfo = DeviceType - type AttrLabel DeviceTypePropertyInfo = "type" - attrGet _ = getDeviceType - attrSet _ = undefined - attrConstruct _ = constructDeviceType - attrClear _ = undefined - --- VVV Prop "vendor-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just True,Nothing) - -getDeviceVendorId :: (MonadIO m, DeviceK o) => o -> m (Maybe T.Text) -getDeviceVendorId obj = liftIO $ getObjectPropertyString obj "vendor-id" - -constructDeviceVendorId :: T.Text -> IO ([Char], GValue) -constructDeviceVendorId val = constructObjectPropertyString "vendor-id" (Just val) - -data DeviceVendorIdPropertyInfo -instance AttrInfo DeviceVendorIdPropertyInfo where - type AttrAllowedOps DeviceVendorIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DeviceVendorIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DeviceVendorIdPropertyInfo = DeviceK - type AttrGetType DeviceVendorIdPropertyInfo = (Maybe T.Text) - type AttrLabel DeviceVendorIdPropertyInfo = "vendor-id" - attrGet _ = getDeviceVendorId - attrSet _ = undefined - attrConstruct _ = constructDeviceVendorId - attrClear _ = undefined - -type instance AttributeList Device = DeviceAttributeList -type DeviceAttributeList = ('[ '("associatedDevice", DeviceAssociatedDevicePropertyInfo), '("deviceManager", DeviceDeviceManagerPropertyInfo), '("display", DeviceDisplayPropertyInfo), '("hasCursor", DeviceHasCursorPropertyInfo), '("inputMode", DeviceInputModePropertyInfo), '("inputSource", DeviceInputSourcePropertyInfo), '("nAxes", DeviceNAxesPropertyInfo), '("name", DeviceNamePropertyInfo), '("productId", DeviceProductIdPropertyInfo), '("type", DeviceTypePropertyInfo), '("vendorId", DeviceVendorIdPropertyInfo)] :: [(Symbol, *)]) - -deviceAssociatedDevice :: AttrLabelProxy "associatedDevice" -deviceAssociatedDevice = AttrLabelProxy - -deviceDeviceManager :: AttrLabelProxy "deviceManager" -deviceDeviceManager = AttrLabelProxy - -deviceDisplay :: AttrLabelProxy "display" -deviceDisplay = AttrLabelProxy - -deviceHasCursor :: AttrLabelProxy "hasCursor" -deviceHasCursor = AttrLabelProxy - -deviceInputMode :: AttrLabelProxy "inputMode" -deviceInputMode = AttrLabelProxy - -deviceInputSource :: AttrLabelProxy "inputSource" -deviceInputSource = AttrLabelProxy - -deviceNAxes :: AttrLabelProxy "nAxes" -deviceNAxes = AttrLabelProxy - -deviceName :: AttrLabelProxy "name" -deviceName = AttrLabelProxy - -deviceProductId :: AttrLabelProxy "productId" -deviceProductId = AttrLabelProxy - -deviceType :: AttrLabelProxy "type" -deviceType = AttrLabelProxy - -deviceVendorId :: AttrLabelProxy "vendorId" -deviceVendorId = AttrLabelProxy - -data DeviceChangedSignalInfo -instance SignalInfo DeviceChangedSignalInfo where - type HaskellCallbackType DeviceChangedSignalInfo = DeviceChangedCallback - connectSignal _ = connectDeviceChanged - -type instance SignalList Device = DeviceSignalList -type DeviceSignalList = ('[ '("changed", DeviceChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Device::get_associated_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Device") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_associated_device" gdk_device_get_associated_device :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO (Ptr Device) - - -deviceGetAssociatedDevice :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m (Maybe Device) -- result -deviceGetAssociatedDevice _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_associated_device _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Device) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data DeviceGetAssociatedDeviceMethodInfo -instance (signature ~ (m (Maybe Device)), MonadIO m, DeviceK a) => MethodInfo DeviceGetAssociatedDeviceMethodInfo a signature where - overloadedMethod _ = deviceGetAssociatedDevice - --- method Device::get_axis_use --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "AxisUse") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_axis_use" gdk_device_get_axis_use :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Word32 -> -- index_ : TBasicType TUInt - IO CUInt - - -deviceGetAxisUse :: - (MonadIO m, DeviceK a) => - a -- _obj - -> Word32 -- index_ - -> m AxisUse -- result -deviceGetAxisUse _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_axis_use _obj' index_ - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DeviceGetAxisUseMethodInfo -instance (signature ~ (Word32 -> m AxisUse), MonadIO m, DeviceK a) => MethodInfo DeviceGetAxisUseMethodInfo a signature where - overloadedMethod _ = deviceGetAxisUse - --- method Device::get_device_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DeviceType") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_device_type" gdk_device_get_device_type :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO CUInt - - -deviceGetDeviceType :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m DeviceType -- result -deviceGetDeviceType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_device_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DeviceGetDeviceTypeMethodInfo -instance (signature ~ (m DeviceType), MonadIO m, DeviceK a) => MethodInfo DeviceGetDeviceTypeMethodInfo a signature where - overloadedMethod _ = deviceGetDeviceType - --- method Device::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_display" gdk_device_get_display :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO (Ptr Display) - - -deviceGetDisplay :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m Display -- result -deviceGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_display _obj' - checkUnexpectedReturnNULL "gdk_device_get_display" result - result' <- (newObject Display) result - touchManagedPtr _obj - return result' - -data DeviceGetDisplayMethodInfo -instance (signature ~ (m Display), MonadIO m, DeviceK a) => MethodInfo DeviceGetDisplayMethodInfo a signature where - overloadedMethod _ = deviceGetDisplay - --- method Device::get_has_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_has_cursor" gdk_device_get_has_cursor :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO CInt - - -deviceGetHasCursor :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m Bool -- result -deviceGetHasCursor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_has_cursor _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DeviceGetHasCursorMethodInfo -instance (signature ~ (m Bool), MonadIO m, DeviceK a) => MethodInfo DeviceGetHasCursorMethodInfo a signature where - overloadedMethod _ = deviceGetHasCursor - --- method Device::get_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_key" gdk_device_get_key :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Word32 -> -- index_ : TBasicType TUInt - Ptr Word32 -> -- keyval : TBasicType TUInt - Ptr CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO CInt - - -deviceGetKey :: - (MonadIO m, DeviceK a) => - a -- _obj - -> Word32 -- index_ - -> m (Bool,Word32,[ModifierType]) -- result -deviceGetKey _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - keyval <- allocMem :: IO (Ptr Word32) - modifiers <- allocMem :: IO (Ptr CUInt) - result <- gdk_device_get_key _obj' index_ keyval modifiers - let result' = (/= 0) result - keyval' <- peek keyval - modifiers' <- peek modifiers - let modifiers'' = wordToGFlags modifiers' - touchManagedPtr _obj - freeMem keyval - freeMem modifiers - return (result', keyval', modifiers'') - -data DeviceGetKeyMethodInfo -instance (signature ~ (Word32 -> m (Bool,Word32,[ModifierType])), MonadIO m, DeviceK a) => MethodInfo DeviceGetKeyMethodInfo a signature where - overloadedMethod _ = deviceGetKey - --- method Device::get_last_event_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_last_event_window" gdk_device_get_last_event_window :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO (Ptr Window) - - -deviceGetLastEventWindow :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m Window -- result -deviceGetLastEventWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_last_event_window _obj' - checkUnexpectedReturnNULL "gdk_device_get_last_event_window" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data DeviceGetLastEventWindowMethodInfo -instance (signature ~ (m Window), MonadIO m, DeviceK a) => MethodInfo DeviceGetLastEventWindowMethodInfo a signature where - overloadedMethod _ = deviceGetLastEventWindow - --- method Device::get_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "InputMode") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_mode" gdk_device_get_mode :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO CUInt - - -deviceGetMode :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m InputMode -- result -deviceGetMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DeviceGetModeMethodInfo -instance (signature ~ (m InputMode), MonadIO m, DeviceK a) => MethodInfo DeviceGetModeMethodInfo a signature where - overloadedMethod _ = deviceGetMode - --- method Device::get_n_axes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_n_axes" gdk_device_get_n_axes :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO Int32 - - -deviceGetNAxes :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m Int32 -- result -deviceGetNAxes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_n_axes _obj' - touchManagedPtr _obj - return result - -data DeviceGetNAxesMethodInfo -instance (signature ~ (m Int32), MonadIO m, DeviceK a) => MethodInfo DeviceGetNAxesMethodInfo a signature where - overloadedMethod _ = deviceGetNAxes - --- method Device::get_n_keys --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_n_keys" gdk_device_get_n_keys :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO Int32 - - -deviceGetNKeys :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m Int32 -- result -deviceGetNKeys _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_n_keys _obj' - touchManagedPtr _obj - return result - -data DeviceGetNKeysMethodInfo -instance (signature ~ (m Int32), MonadIO m, DeviceK a) => MethodInfo DeviceGetNKeysMethodInfo a signature where - overloadedMethod _ = deviceGetNKeys - --- method Device::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_name" gdk_device_get_name :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO CString - - -deviceGetName :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m T.Text -- result -deviceGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_name _obj' - checkUnexpectedReturnNULL "gdk_device_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DeviceGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DeviceK a) => MethodInfo DeviceGetNameMethodInfo a signature where - overloadedMethod _ = deviceGetName - --- method Device::get_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_position" gdk_device_get_position :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Ptr (Ptr Screen) -> -- screen : TInterface "Gdk" "Screen" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - IO () - - -deviceGetPosition :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m (Screen,Int32,Int32) -- result -deviceGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - screen <- allocMem :: IO (Ptr (Ptr Screen)) - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gdk_device_get_position _obj' screen x y - screen' <- peek screen - screen'' <- (newObject Screen) screen' - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem screen - freeMem x - freeMem y - return (screen'', x', y') - -data DeviceGetPositionMethodInfo -instance (signature ~ (m (Screen,Int32,Int32)), MonadIO m, DeviceK a) => MethodInfo DeviceGetPositionMethodInfo a signature where - overloadedMethod _ = deviceGetPosition - --- method Device::get_position_double --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_position_double" gdk_device_get_position_double :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Ptr (Ptr Screen) -> -- screen : TInterface "Gdk" "Screen" - Ptr CDouble -> -- x : TBasicType TDouble - Ptr CDouble -> -- y : TBasicType TDouble - IO () - - -deviceGetPositionDouble :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m (Screen,Double,Double) -- result -deviceGetPositionDouble _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - screen <- allocMem :: IO (Ptr (Ptr Screen)) - x <- allocMem :: IO (Ptr CDouble) - y <- allocMem :: IO (Ptr CDouble) - gdk_device_get_position_double _obj' screen x y - screen' <- peek screen - screen'' <- (newObject Screen) screen' - x' <- peek x - let x'' = realToFrac x' - y' <- peek y - let y'' = realToFrac y' - touchManagedPtr _obj - freeMem screen - freeMem x - freeMem y - return (screen'', x'', y'') - -data DeviceGetPositionDoubleMethodInfo -instance (signature ~ (m (Screen,Double,Double)), MonadIO m, DeviceK a) => MethodInfo DeviceGetPositionDoubleMethodInfo a signature where - overloadedMethod _ = deviceGetPositionDouble - --- method Device::get_product_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_product_id" gdk_device_get_product_id :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO CString - - -deviceGetProductId :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m (Maybe T.Text) -- result -deviceGetProductId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_product_id _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data DeviceGetProductIdMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, DeviceK a) => MethodInfo DeviceGetProductIdMethodInfo a signature where - overloadedMethod _ = deviceGetProductId - --- method Device::get_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "InputSource") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_source" gdk_device_get_source :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO CUInt - - -deviceGetSource :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m InputSource -- result -deviceGetSource _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_source _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DeviceGetSourceMethodInfo -instance (signature ~ (m InputSource), MonadIO m, DeviceK a) => MethodInfo DeviceGetSourceMethodInfo a signature where - overloadedMethod _ = deviceGetSource - --- method Device::get_vendor_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_vendor_id" gdk_device_get_vendor_id :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO CString - - -deviceGetVendorId :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m (Maybe T.Text) -- result -deviceGetVendorId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_get_vendor_id _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data DeviceGetVendorIdMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, DeviceK a) => MethodInfo DeviceGetVendorIdMethodInfo a signature where - overloadedMethod _ = deviceGetVendorId - --- method Device::get_window_at_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_window_at_position" gdk_device_get_window_at_position :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Ptr Int32 -> -- win_x : TBasicType TInt - Ptr Int32 -> -- win_y : TBasicType TInt - IO (Ptr Window) - - -deviceGetWindowAtPosition :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m ((Maybe Window),Int32,Int32) -- result -deviceGetWindowAtPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - winX <- allocMem :: IO (Ptr Int32) - winY <- allocMem :: IO (Ptr Int32) - result <- gdk_device_get_window_at_position _obj' winX winY - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Window) result' - return result'' - winX' <- peek winX - winY' <- peek winY - touchManagedPtr _obj - freeMem winX - freeMem winY - return (maybeResult, winX', winY') - -data DeviceGetWindowAtPositionMethodInfo -instance (signature ~ (m ((Maybe Window),Int32,Int32)), MonadIO m, DeviceK a) => MethodInfo DeviceGetWindowAtPositionMethodInfo a signature where - overloadedMethod _ = deviceGetWindowAtPosition - --- method Device::get_window_at_position_double --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_get_window_at_position_double" gdk_device_get_window_at_position_double :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Ptr CDouble -> -- win_x : TBasicType TDouble - Ptr CDouble -> -- win_y : TBasicType TDouble - IO (Ptr Window) - - -deviceGetWindowAtPositionDouble :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m ((Maybe Window),Double,Double) -- result -deviceGetWindowAtPositionDouble _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - winX <- allocMem :: IO (Ptr CDouble) - winY <- allocMem :: IO (Ptr CDouble) - result <- gdk_device_get_window_at_position_double _obj' winX winY - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Window) result' - return result'' - winX' <- peek winX - let winX'' = realToFrac winX' - winY' <- peek winY - let winY'' = realToFrac winY' - touchManagedPtr _obj - freeMem winX - freeMem winY - return (maybeResult, winX'', winY'') - -data DeviceGetWindowAtPositionDoubleMethodInfo -instance (signature ~ (m ((Maybe Window),Double,Double)), MonadIO m, DeviceK a) => MethodInfo DeviceGetWindowAtPositionDoubleMethodInfo a signature where - overloadedMethod _ = deviceGetWindowAtPositionDouble - --- method Device::grab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "grab_ownership", argType = TInterface "Gdk" "GrabOwnership", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "GrabStatus") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_grab" gdk_device_grab :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Ptr Window -> -- window : TInterface "Gdk" "Window" - CUInt -> -- grab_ownership : TInterface "Gdk" "GrabOwnership" - CInt -> -- owner_events : TBasicType TBoolean - CUInt -> -- event_mask : TInterface "Gdk" "EventMask" - Ptr Cursor -> -- cursor : TInterface "Gdk" "Cursor" - Word32 -> -- time_ : TBasicType TUInt32 - IO CUInt - - -deviceGrab :: - (MonadIO m, DeviceK a, WindowK b, CursorK c) => - a -- _obj - -> b -- window - -> GrabOwnership -- grabOwnership - -> Bool -- ownerEvents - -> [EventMask] -- eventMask - -> Maybe (c) -- cursor - -> Word32 -- time_ - -> m GrabStatus -- result -deviceGrab _obj window grabOwnership ownerEvents eventMask cursor time_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - let grabOwnership' = (fromIntegral . fromEnum) grabOwnership - let ownerEvents' = (fromIntegral . fromEnum) ownerEvents - let eventMask' = gflagsToWord eventMask - maybeCursor <- case cursor of - Nothing -> return nullPtr - Just jCursor -> do - let jCursor' = unsafeManagedPtrCastPtr jCursor - return jCursor' - result <- gdk_device_grab _obj' window' grabOwnership' ownerEvents' eventMask' maybeCursor time_ - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr window - whenJust cursor touchManagedPtr - return result' - -data DeviceGrabMethodInfo -instance (signature ~ (b -> GrabOwnership -> Bool -> [EventMask] -> Maybe (c) -> Word32 -> m GrabStatus), MonadIO m, DeviceK a, WindowK b, CursorK c) => MethodInfo DeviceGrabMethodInfo a signature where - overloadedMethod _ = deviceGrab - --- method Device::list_axes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Atom")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_list_axes" gdk_device_list_axes :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO (Ptr (GList (Ptr Atom))) - - -deviceListAxes :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m [Atom] -- result -deviceListAxes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_list_axes _obj' - result' <- unpackGList result - result'' <- mapM (newPtr Atom) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data DeviceListAxesMethodInfo -instance (signature ~ (m [Atom]), MonadIO m, DeviceK a) => MethodInfo DeviceListAxesMethodInfo a signature where - overloadedMethod _ = deviceListAxes - --- method Device::list_slave_devices --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Device")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_list_slave_devices" gdk_device_list_slave_devices :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - IO (Ptr (GList (Ptr Device))) - - -deviceListSlaveDevices :: - (MonadIO m, DeviceK a) => - a -- _obj - -> m [Device] -- result -deviceListSlaveDevices _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_list_slave_devices _obj' - result' <- unpackGList result - result'' <- mapM (newObject Device) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data DeviceListSlaveDevicesMethodInfo -instance (signature ~ (m [Device]), MonadIO m, DeviceK a) => MethodInfo DeviceListSlaveDevicesMethodInfo a signature where - overloadedMethod _ = deviceListSlaveDevices - --- method Device::set_axis_use --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_set_axis_use" gdk_device_set_axis_use :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Word32 -> -- index_ : TBasicType TUInt - CUInt -> -- use : TInterface "Gdk" "AxisUse" - IO () - - -deviceSetAxisUse :: - (MonadIO m, DeviceK a) => - a -- _obj - -> Word32 -- index_ - -> AxisUse -- use - -> m () -- result -deviceSetAxisUse _obj index_ use = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let use' = (fromIntegral . fromEnum) use - gdk_device_set_axis_use _obj' index_ use' - touchManagedPtr _obj - return () - -data DeviceSetAxisUseMethodInfo -instance (signature ~ (Word32 -> AxisUse -> m ()), MonadIO m, DeviceK a) => MethodInfo DeviceSetAxisUseMethodInfo a signature where - overloadedMethod _ = deviceSetAxisUse - --- method Device::set_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_set_key" gdk_device_set_key :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Word32 -> -- index_ : TBasicType TUInt - Word32 -> -- keyval : TBasicType TUInt - CUInt -> -- modifiers : TInterface "Gdk" "ModifierType" - IO () - - -deviceSetKey :: - (MonadIO m, DeviceK a) => - a -- _obj - -> Word32 -- index_ - -> Word32 -- keyval - -> [ModifierType] -- modifiers - -> m () -- result -deviceSetKey _obj index_ keyval modifiers = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modifiers' = gflagsToWord modifiers - gdk_device_set_key _obj' index_ keyval modifiers' - touchManagedPtr _obj - return () - -data DeviceSetKeyMethodInfo -instance (signature ~ (Word32 -> Word32 -> [ModifierType] -> m ()), MonadIO m, DeviceK a) => MethodInfo DeviceSetKeyMethodInfo a signature where - overloadedMethod _ = deviceSetKey - --- method Device::set_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gdk" "InputMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_set_mode" gdk_device_set_mode :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - CUInt -> -- mode : TInterface "Gdk" "InputMode" - IO CInt - - -deviceSetMode :: - (MonadIO m, DeviceK a) => - a -- _obj - -> InputMode -- mode - -> m Bool -- result -deviceSetMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - result <- gdk_device_set_mode _obj' mode' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DeviceSetModeMethodInfo -instance (signature ~ (InputMode -> m Bool), MonadIO m, DeviceK a) => MethodInfo DeviceSetModeMethodInfo a signature where - overloadedMethod _ = deviceSetMode - --- method Device::ungrab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_ungrab" gdk_device_ungrab :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - - -deviceUngrab :: - (MonadIO m, DeviceK a) => - a -- _obj - -> Word32 -- time_ - -> m () -- result -deviceUngrab _obj time_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_device_ungrab _obj' time_ - touchManagedPtr _obj - return () - -data DeviceUngrabMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DeviceK a) => MethodInfo DeviceUngrabMethodInfo a signature where - overloadedMethod _ = deviceUngrab - --- method Device::warp --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_warp" gdk_device_warp :: - Ptr Device -> -- _obj : TInterface "Gdk" "Device" - Ptr Screen -> -- screen : TInterface "Gdk" "Screen" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - - -deviceWarp :: - (MonadIO m, DeviceK a, ScreenK b) => - a -- _obj - -> b -- screen - -> Int32 -- x - -> Int32 -- y - -> m () -- result -deviceWarp _obj screen x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gdk_device_warp _obj' screen' x y - touchManagedPtr _obj - touchManagedPtr screen - return () - -data DeviceWarpMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, DeviceK a, ScreenK b) => MethodInfo DeviceWarpMethodInfo a signature where - overloadedMethod _ = deviceWarp - --- method Device::grab_info_libgtk_only --- method type : MemberFunction --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "grab_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_grab_info_libgtk_only" gdk_device_grab_info_libgtk_only :: - Ptr Display -> -- display : TInterface "Gdk" "Display" - Ptr Device -> -- device : TInterface "Gdk" "Device" - Ptr (Ptr Window) -> -- grab_window : TInterface "Gdk" "Window" - Ptr CInt -> -- owner_events : TBasicType TBoolean - IO CInt - -{-# DEPRECATED deviceGrabInfoLibgtkOnly ["(Since version 3.16)","The symbol was never meant to be used outside"," of GTK+"]#-} -deviceGrabInfoLibgtkOnly :: - (MonadIO m, DisplayK a, DeviceK b) => - a -- display - -> b -- device - -> m (Bool,Window,Bool) -- result -deviceGrabInfoLibgtkOnly display device = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - let device' = unsafeManagedPtrCastPtr device - grabWindow <- allocMem :: IO (Ptr (Ptr Window)) - ownerEvents <- allocMem :: IO (Ptr CInt) - result <- gdk_device_grab_info_libgtk_only display' device' grabWindow ownerEvents - let result' = (/= 0) result - grabWindow' <- peek grabWindow - grabWindow'' <- (newObject Window) grabWindow' - ownerEvents' <- peek ownerEvents - let ownerEvents'' = (/= 0) ownerEvents' - touchManagedPtr display - touchManagedPtr device - freeMem grabWindow - freeMem ownerEvents - return (result', grabWindow'', ownerEvents'') - - diff --git a/GI/Gdk/Objects/Device.hs-boot b/GI/Gdk/Objects/Device.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/Device.hs-boot +++ /dev/null @@ -1,51 +0,0 @@ -module GI.Gdk.Objects.Device where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Device = Device (ForeignPtr Device) -instance GObject Device where -class GObject o => DeviceK o -instance (GObject o, IsDescendantOf Device o) => DeviceK o -data DeviceAssociatedDevicePropertyInfo -data DeviceDeviceManagerPropertyInfo -data DeviceDisplayPropertyInfo -data DeviceHasCursorPropertyInfo -data DeviceInputModePropertyInfo -data DeviceInputSourcePropertyInfo -data DeviceNAxesPropertyInfo -data DeviceNamePropertyInfo -data DeviceProductIdPropertyInfo -data DeviceTypePropertyInfo -data DeviceVendorIdPropertyInfo -data DeviceChangedSignalInfo -data DeviceGetAssociatedDeviceMethodInfo -data DeviceGetAxisUseMethodInfo -data DeviceGetDeviceTypeMethodInfo -data DeviceGetDisplayMethodInfo -data DeviceGetHasCursorMethodInfo -data DeviceGetKeyMethodInfo -data DeviceGetLastEventWindowMethodInfo -data DeviceGetModeMethodInfo -data DeviceGetNAxesMethodInfo -data DeviceGetNKeysMethodInfo -data DeviceGetNameMethodInfo -data DeviceGetPositionMethodInfo -data DeviceGetPositionDoubleMethodInfo -data DeviceGetProductIdMethodInfo -data DeviceGetSourceMethodInfo -data DeviceGetVendorIdMethodInfo -data DeviceGetWindowAtPositionMethodInfo -data DeviceGetWindowAtPositionDoubleMethodInfo -data DeviceGrabMethodInfo -data DeviceListAxesMethodInfo -data DeviceListSlaveDevicesMethodInfo -data DeviceSetAxisUseMethodInfo -data DeviceSetKeyMethodInfo -data DeviceSetModeMethodInfo -data DeviceUngrabMethodInfo -data DeviceWarpMethodInfo diff --git a/GI/Gdk/Objects/DeviceManager.hs b/GI/Gdk/Objects/DeviceManager.hs deleted file mode 100644 --- a/GI/Gdk/Objects/DeviceManager.hs +++ /dev/null @@ -1,421 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.DeviceManager - ( - --- * Exported types - DeviceManager(..) , - DeviceManagerK , - toDeviceManager , - noDeviceManager , - - - -- * Methods --- ** deviceManagerGetClientPointer - DeviceManagerGetClientPointerMethodInfo , - deviceManagerGetClientPointer , - - --- ** deviceManagerGetDisplay - DeviceManagerGetDisplayMethodInfo , - deviceManagerGetDisplay , - - --- ** deviceManagerListDevices - DeviceManagerListDevicesMethodInfo , - deviceManagerListDevices , - - - - - -- * Properties --- ** Display - DeviceManagerDisplayPropertyInfo , - constructDeviceManagerDisplay , - deviceManagerDisplay , - getDeviceManagerDisplay , - - - - - -- * Signals --- ** DeviceAdded - DeviceManagerDeviceAddedCallback , - DeviceManagerDeviceAddedCallbackC , - DeviceManagerDeviceAddedSignalInfo , - afterDeviceManagerDeviceAdded , - deviceManagerDeviceAddedCallbackWrapper , - deviceManagerDeviceAddedClosure , - mkDeviceManagerDeviceAddedCallback , - noDeviceManagerDeviceAddedCallback , - onDeviceManagerDeviceAdded , - - --- ** DeviceChanged - DeviceManagerDeviceChangedCallback , - DeviceManagerDeviceChangedCallbackC , - DeviceManagerDeviceChangedSignalInfo , - afterDeviceManagerDeviceChanged , - deviceManagerDeviceChangedCallbackWrapper, - deviceManagerDeviceChangedClosure , - mkDeviceManagerDeviceChangedCallback , - noDeviceManagerDeviceChangedCallback , - onDeviceManagerDeviceChanged , - - --- ** DeviceRemoved - DeviceManagerDeviceRemovedCallback , - DeviceManagerDeviceRemovedCallbackC , - DeviceManagerDeviceRemovedSignalInfo , - afterDeviceManagerDeviceRemoved , - deviceManagerDeviceRemovedCallbackWrapper, - deviceManagerDeviceRemovedClosure , - mkDeviceManagerDeviceRemovedCallback , - noDeviceManagerDeviceRemovedCallback , - onDeviceManagerDeviceRemoved , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject - -newtype DeviceManager = DeviceManager (ForeignPtr DeviceManager) -foreign import ccall "gdk_device_manager_get_type" - c_gdk_device_manager_get_type :: IO GType - -type instance ParentTypes DeviceManager = DeviceManagerParentTypes -type DeviceManagerParentTypes = '[GObject.Object] - -instance GObject DeviceManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_device_manager_get_type - - -class GObject o => DeviceManagerK o -instance (GObject o, IsDescendantOf DeviceManager o) => DeviceManagerK o - -toDeviceManager :: DeviceManagerK o => o -> IO DeviceManager -toDeviceManager = unsafeCastTo DeviceManager - -noDeviceManager :: Maybe DeviceManager -noDeviceManager = Nothing - -type family ResolveDeviceManagerMethod (t :: Symbol) (o :: *) :: * where - ResolveDeviceManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDeviceManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDeviceManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDeviceManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDeviceManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDeviceManagerMethod "listDevices" o = DeviceManagerListDevicesMethodInfo - ResolveDeviceManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDeviceManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDeviceManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDeviceManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDeviceManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDeviceManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDeviceManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDeviceManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDeviceManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDeviceManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDeviceManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDeviceManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDeviceManagerMethod "getClientPointer" o = DeviceManagerGetClientPointerMethodInfo - ResolveDeviceManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDeviceManagerMethod "getDisplay" o = DeviceManagerGetDisplayMethodInfo - ResolveDeviceManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDeviceManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDeviceManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDeviceManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDeviceManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDeviceManagerMethod t DeviceManager, MethodInfo info DeviceManager p) => IsLabelProxy t (DeviceManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDeviceManagerMethod t DeviceManager, MethodInfo info DeviceManager p) => IsLabel t (DeviceManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DeviceManager::device-added -type DeviceManagerDeviceAddedCallback = - Device -> - IO () - -noDeviceManagerDeviceAddedCallback :: Maybe DeviceManagerDeviceAddedCallback -noDeviceManagerDeviceAddedCallback = Nothing - -type DeviceManagerDeviceAddedCallbackC = - Ptr () -> -- object - Ptr Device -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDeviceManagerDeviceAddedCallback :: DeviceManagerDeviceAddedCallbackC -> IO (FunPtr DeviceManagerDeviceAddedCallbackC) - -deviceManagerDeviceAddedClosure :: DeviceManagerDeviceAddedCallback -> IO Closure -deviceManagerDeviceAddedClosure cb = newCClosure =<< mkDeviceManagerDeviceAddedCallback wrapped - where wrapped = deviceManagerDeviceAddedCallbackWrapper cb - -deviceManagerDeviceAddedCallbackWrapper :: - DeviceManagerDeviceAddedCallback -> - Ptr () -> - Ptr Device -> - Ptr () -> - IO () -deviceManagerDeviceAddedCallbackWrapper _cb _ device _ = do - device' <- (newObject Device) device - _cb device' - -onDeviceManagerDeviceAdded :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceAddedCallback -> m SignalHandlerId -onDeviceManagerDeviceAdded obj cb = liftIO $ connectDeviceManagerDeviceAdded obj cb SignalConnectBefore -afterDeviceManagerDeviceAdded :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceAddedCallback -> m SignalHandlerId -afterDeviceManagerDeviceAdded obj cb = connectDeviceManagerDeviceAdded obj cb SignalConnectAfter - -connectDeviceManagerDeviceAdded :: (GObject a, MonadIO m) => - a -> DeviceManagerDeviceAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectDeviceManagerDeviceAdded obj cb after = liftIO $ do - cb' <- mkDeviceManagerDeviceAddedCallback (deviceManagerDeviceAddedCallbackWrapper cb) - connectSignalFunPtr obj "device-added" cb' after - --- signal DeviceManager::device-changed -type DeviceManagerDeviceChangedCallback = - Device -> - IO () - -noDeviceManagerDeviceChangedCallback :: Maybe DeviceManagerDeviceChangedCallback -noDeviceManagerDeviceChangedCallback = Nothing - -type DeviceManagerDeviceChangedCallbackC = - Ptr () -> -- object - Ptr Device -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDeviceManagerDeviceChangedCallback :: DeviceManagerDeviceChangedCallbackC -> IO (FunPtr DeviceManagerDeviceChangedCallbackC) - -deviceManagerDeviceChangedClosure :: DeviceManagerDeviceChangedCallback -> IO Closure -deviceManagerDeviceChangedClosure cb = newCClosure =<< mkDeviceManagerDeviceChangedCallback wrapped - where wrapped = deviceManagerDeviceChangedCallbackWrapper cb - -deviceManagerDeviceChangedCallbackWrapper :: - DeviceManagerDeviceChangedCallback -> - Ptr () -> - Ptr Device -> - Ptr () -> - IO () -deviceManagerDeviceChangedCallbackWrapper _cb _ device _ = do - device' <- (newObject Device) device - _cb device' - -onDeviceManagerDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceChangedCallback -> m SignalHandlerId -onDeviceManagerDeviceChanged obj cb = liftIO $ connectDeviceManagerDeviceChanged obj cb SignalConnectBefore -afterDeviceManagerDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceChangedCallback -> m SignalHandlerId -afterDeviceManagerDeviceChanged obj cb = connectDeviceManagerDeviceChanged obj cb SignalConnectAfter - -connectDeviceManagerDeviceChanged :: (GObject a, MonadIO m) => - a -> DeviceManagerDeviceChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectDeviceManagerDeviceChanged obj cb after = liftIO $ do - cb' <- mkDeviceManagerDeviceChangedCallback (deviceManagerDeviceChangedCallbackWrapper cb) - connectSignalFunPtr obj "device-changed" cb' after - --- signal DeviceManager::device-removed -type DeviceManagerDeviceRemovedCallback = - Device -> - IO () - -noDeviceManagerDeviceRemovedCallback :: Maybe DeviceManagerDeviceRemovedCallback -noDeviceManagerDeviceRemovedCallback = Nothing - -type DeviceManagerDeviceRemovedCallbackC = - Ptr () -> -- object - Ptr Device -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDeviceManagerDeviceRemovedCallback :: DeviceManagerDeviceRemovedCallbackC -> IO (FunPtr DeviceManagerDeviceRemovedCallbackC) - -deviceManagerDeviceRemovedClosure :: DeviceManagerDeviceRemovedCallback -> IO Closure -deviceManagerDeviceRemovedClosure cb = newCClosure =<< mkDeviceManagerDeviceRemovedCallback wrapped - where wrapped = deviceManagerDeviceRemovedCallbackWrapper cb - -deviceManagerDeviceRemovedCallbackWrapper :: - DeviceManagerDeviceRemovedCallback -> - Ptr () -> - Ptr Device -> - Ptr () -> - IO () -deviceManagerDeviceRemovedCallbackWrapper _cb _ device _ = do - device' <- (newObject Device) device - _cb device' - -onDeviceManagerDeviceRemoved :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceRemovedCallback -> m SignalHandlerId -onDeviceManagerDeviceRemoved obj cb = liftIO $ connectDeviceManagerDeviceRemoved obj cb SignalConnectBefore -afterDeviceManagerDeviceRemoved :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceRemovedCallback -> m SignalHandlerId -afterDeviceManagerDeviceRemoved obj cb = connectDeviceManagerDeviceRemoved obj cb SignalConnectAfter - -connectDeviceManagerDeviceRemoved :: (GObject a, MonadIO m) => - a -> DeviceManagerDeviceRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectDeviceManagerDeviceRemoved obj cb after = liftIO $ do - cb' <- mkDeviceManagerDeviceRemovedCallback (deviceManagerDeviceRemovedCallbackWrapper cb) - connectSignalFunPtr obj "device-removed" cb' after - --- VVV Prop "display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just True,Nothing) - -getDeviceManagerDisplay :: (MonadIO m, DeviceManagerK o) => o -> m (Maybe Display) -getDeviceManagerDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display - -constructDeviceManagerDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructDeviceManagerDisplay val = constructObjectPropertyObject "display" (Just val) - -data DeviceManagerDisplayPropertyInfo -instance AttrInfo DeviceManagerDisplayPropertyInfo where - type AttrAllowedOps DeviceManagerDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DeviceManagerDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint DeviceManagerDisplayPropertyInfo = DeviceManagerK - type AttrGetType DeviceManagerDisplayPropertyInfo = (Maybe Display) - type AttrLabel DeviceManagerDisplayPropertyInfo = "display" - attrGet _ = getDeviceManagerDisplay - attrSet _ = undefined - attrConstruct _ = constructDeviceManagerDisplay - attrClear _ = undefined - -type instance AttributeList DeviceManager = DeviceManagerAttributeList -type DeviceManagerAttributeList = ('[ '("display", DeviceManagerDisplayPropertyInfo)] :: [(Symbol, *)]) - -deviceManagerDisplay :: AttrLabelProxy "display" -deviceManagerDisplay = AttrLabelProxy - -data DeviceManagerDeviceAddedSignalInfo -instance SignalInfo DeviceManagerDeviceAddedSignalInfo where - type HaskellCallbackType DeviceManagerDeviceAddedSignalInfo = DeviceManagerDeviceAddedCallback - connectSignal _ = connectDeviceManagerDeviceAdded - -data DeviceManagerDeviceChangedSignalInfo -instance SignalInfo DeviceManagerDeviceChangedSignalInfo where - type HaskellCallbackType DeviceManagerDeviceChangedSignalInfo = DeviceManagerDeviceChangedCallback - connectSignal _ = connectDeviceManagerDeviceChanged - -data DeviceManagerDeviceRemovedSignalInfo -instance SignalInfo DeviceManagerDeviceRemovedSignalInfo where - type HaskellCallbackType DeviceManagerDeviceRemovedSignalInfo = DeviceManagerDeviceRemovedCallback - connectSignal _ = connectDeviceManagerDeviceRemoved - -type instance SignalList DeviceManager = DeviceManagerSignalList -type DeviceManagerSignalList = ('[ '("deviceAdded", DeviceManagerDeviceAddedSignalInfo), '("deviceChanged", DeviceManagerDeviceChangedSignalInfo), '("deviceRemoved", DeviceManagerDeviceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DeviceManager::get_client_pointer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Device") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_manager_get_client_pointer" gdk_device_manager_get_client_pointer :: - Ptr DeviceManager -> -- _obj : TInterface "Gdk" "DeviceManager" - IO (Ptr Device) - - -deviceManagerGetClientPointer :: - (MonadIO m, DeviceManagerK a) => - a -- _obj - -> m Device -- result -deviceManagerGetClientPointer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_manager_get_client_pointer _obj' - checkUnexpectedReturnNULL "gdk_device_manager_get_client_pointer" result - result' <- (newObject Device) result - touchManagedPtr _obj - return result' - -data DeviceManagerGetClientPointerMethodInfo -instance (signature ~ (m Device), MonadIO m, DeviceManagerK a) => MethodInfo DeviceManagerGetClientPointerMethodInfo a signature where - overloadedMethod _ = deviceManagerGetClientPointer - --- method DeviceManager::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_manager_get_display" gdk_device_manager_get_display :: - Ptr DeviceManager -> -- _obj : TInterface "Gdk" "DeviceManager" - IO (Ptr Display) - - -deviceManagerGetDisplay :: - (MonadIO m, DeviceManagerK a) => - a -- _obj - -> m (Maybe Display) -- result -deviceManagerGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_device_manager_get_display _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Display) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data DeviceManagerGetDisplayMethodInfo -instance (signature ~ (m (Maybe Display)), MonadIO m, DeviceManagerK a) => MethodInfo DeviceManagerGetDisplayMethodInfo a signature where - overloadedMethod _ = deviceManagerGetDisplay - --- method DeviceManager::list_devices --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gdk" "DeviceType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Device")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_device_manager_list_devices" gdk_device_manager_list_devices :: - Ptr DeviceManager -> -- _obj : TInterface "Gdk" "DeviceManager" - CUInt -> -- type : TInterface "Gdk" "DeviceType" - IO (Ptr (GList (Ptr Device))) - - -deviceManagerListDevices :: - (MonadIO m, DeviceManagerK a) => - a -- _obj - -> DeviceType -- type_ - -> m [Device] -- result -deviceManagerListDevices _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - result <- gdk_device_manager_list_devices _obj' type_' - result' <- unpackGList result - result'' <- mapM (newObject Device) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data DeviceManagerListDevicesMethodInfo -instance (signature ~ (DeviceType -> m [Device]), MonadIO m, DeviceManagerK a) => MethodInfo DeviceManagerListDevicesMethodInfo a signature where - overloadedMethod _ = deviceManagerListDevices - - diff --git a/GI/Gdk/Objects/DeviceManager.hs-boot b/GI/Gdk/Objects/DeviceManager.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/DeviceManager.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gdk.Objects.DeviceManager where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DeviceManager = DeviceManager (ForeignPtr DeviceManager) -instance GObject DeviceManager where -class GObject o => DeviceManagerK o -instance (GObject o, IsDescendantOf DeviceManager o) => DeviceManagerK o -data DeviceManagerDisplayPropertyInfo -data DeviceManagerDeviceAddedSignalInfo -data DeviceManagerDeviceChangedSignalInfo -data DeviceManagerDeviceRemovedSignalInfo -data DeviceManagerGetClientPointerMethodInfo -data DeviceManagerGetDisplayMethodInfo -data DeviceManagerListDevicesMethodInfo diff --git a/GI/Gdk/Objects/Display.hs b/GI/Gdk/Objects/Display.hs deleted file mode 100644 --- a/GI/Gdk/Objects/Display.hs +++ /dev/null @@ -1,1666 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.Display - ( - --- * Exported types - Display(..) , - DisplayK , - toDisplay , - noDisplay , - - - -- * Methods --- ** displayBeep - DisplayBeepMethodInfo , - displayBeep , - - --- ** displayClose - DisplayCloseMethodInfo , - displayClose , - - --- ** displayDeviceIsGrabbed - DisplayDeviceIsGrabbedMethodInfo , - displayDeviceIsGrabbed , - - --- ** displayFlush - DisplayFlushMethodInfo , - displayFlush , - - --- ** displayGetAppLaunchContext - DisplayGetAppLaunchContextMethodInfo , - displayGetAppLaunchContext , - - --- ** displayGetDefault - displayGetDefault , - - --- ** displayGetDefaultCursorSize - DisplayGetDefaultCursorSizeMethodInfo , - displayGetDefaultCursorSize , - - --- ** displayGetDefaultGroup - DisplayGetDefaultGroupMethodInfo , - displayGetDefaultGroup , - - --- ** displayGetDefaultScreen - DisplayGetDefaultScreenMethodInfo , - displayGetDefaultScreen , - - --- ** displayGetDeviceManager - DisplayGetDeviceManagerMethodInfo , - displayGetDeviceManager , - - --- ** displayGetEvent - DisplayGetEventMethodInfo , - displayGetEvent , - - --- ** displayGetMaximalCursorSize - DisplayGetMaximalCursorSizeMethodInfo , - displayGetMaximalCursorSize , - - --- ** displayGetNScreens - DisplayGetNScreensMethodInfo , - displayGetNScreens , - - --- ** displayGetName - DisplayGetNameMethodInfo , - displayGetName , - - --- ** displayGetPointer - DisplayGetPointerMethodInfo , - displayGetPointer , - - --- ** displayGetScreen - DisplayGetScreenMethodInfo , - displayGetScreen , - - --- ** displayGetWindowAtPointer - DisplayGetWindowAtPointerMethodInfo , - displayGetWindowAtPointer , - - --- ** displayHasPending - DisplayHasPendingMethodInfo , - displayHasPending , - - --- ** displayIsClosed - DisplayIsClosedMethodInfo , - displayIsClosed , - - --- ** displayKeyboardUngrab - DisplayKeyboardUngrabMethodInfo , - displayKeyboardUngrab , - - --- ** displayListDevices - DisplayListDevicesMethodInfo , - displayListDevices , - - --- ** displayNotifyStartupComplete - DisplayNotifyStartupCompleteMethodInfo , - displayNotifyStartupComplete , - - --- ** displayOpen - displayOpen , - - --- ** displayOpenDefaultLibgtkOnly - displayOpenDefaultLibgtkOnly , - - --- ** displayPeekEvent - DisplayPeekEventMethodInfo , - displayPeekEvent , - - --- ** displayPointerIsGrabbed - DisplayPointerIsGrabbedMethodInfo , - displayPointerIsGrabbed , - - --- ** displayPointerUngrab - DisplayPointerUngrabMethodInfo , - displayPointerUngrab , - - --- ** displayPutEvent - DisplayPutEventMethodInfo , - displayPutEvent , - - --- ** displayRequestSelectionNotification - DisplayRequestSelectionNotificationMethodInfo, - displayRequestSelectionNotification , - - --- ** displaySetDoubleClickDistance - DisplaySetDoubleClickDistanceMethodInfo , - displaySetDoubleClickDistance , - - --- ** displaySetDoubleClickTime - DisplaySetDoubleClickTimeMethodInfo , - displaySetDoubleClickTime , - - --- ** displayStoreClipboard - DisplayStoreClipboardMethodInfo , - displayStoreClipboard , - - --- ** displaySupportsClipboardPersistence - DisplaySupportsClipboardPersistenceMethodInfo, - displaySupportsClipboardPersistence , - - --- ** displaySupportsComposite - DisplaySupportsCompositeMethodInfo , - displaySupportsComposite , - - --- ** displaySupportsCursorAlpha - DisplaySupportsCursorAlphaMethodInfo , - displaySupportsCursorAlpha , - - --- ** displaySupportsCursorColor - DisplaySupportsCursorColorMethodInfo , - displaySupportsCursorColor , - - --- ** displaySupportsInputShapes - DisplaySupportsInputShapesMethodInfo , - displaySupportsInputShapes , - - --- ** displaySupportsSelectionNotification - DisplaySupportsSelectionNotificationMethodInfo, - displaySupportsSelectionNotification , - - --- ** displaySupportsShapes - DisplaySupportsShapesMethodInfo , - displaySupportsShapes , - - --- ** displaySync - DisplaySyncMethodInfo , - displaySync , - - --- ** displayWarpPointer - DisplayWarpPointerMethodInfo , - displayWarpPointer , - - - - - -- * Signals --- ** Closed - DisplayClosedCallback , - DisplayClosedCallbackC , - DisplayClosedSignalInfo , - afterDisplayClosed , - displayClosedCallbackWrapper , - displayClosedClosure , - mkDisplayClosedCallback , - noDisplayClosedCallback , - onDisplayClosed , - - --- ** Opened - DisplayOpenedCallback , - DisplayOpenedCallbackC , - DisplayOpenedSignalInfo , - afterDisplayOpened , - displayOpenedCallbackWrapper , - displayOpenedClosure , - mkDisplayOpenedCallback , - noDisplayOpenedCallback , - onDisplayOpened , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject - -newtype Display = Display (ForeignPtr Display) -foreign import ccall "gdk_display_get_type" - c_gdk_display_get_type :: IO GType - -type instance ParentTypes Display = DisplayParentTypes -type DisplayParentTypes = '[GObject.Object] - -instance GObject Display where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_display_get_type - - -class GObject o => DisplayK o -instance (GObject o, IsDescendantOf Display o) => DisplayK o - -toDisplay :: DisplayK o => o -> IO Display -toDisplay = unsafeCastTo Display - -noDisplay :: Maybe Display -noDisplay = Nothing - -type family ResolveDisplayMethod (t :: Symbol) (o :: *) :: * where - ResolveDisplayMethod "beep" o = DisplayBeepMethodInfo - ResolveDisplayMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDisplayMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDisplayMethod "close" o = DisplayCloseMethodInfo - ResolveDisplayMethod "deviceIsGrabbed" o = DisplayDeviceIsGrabbedMethodInfo - ResolveDisplayMethod "flush" o = DisplayFlushMethodInfo - ResolveDisplayMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDisplayMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDisplayMethod "hasPending" o = DisplayHasPendingMethodInfo - ResolveDisplayMethod "isClosed" o = DisplayIsClosedMethodInfo - ResolveDisplayMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDisplayMethod "keyboardUngrab" o = DisplayKeyboardUngrabMethodInfo - ResolveDisplayMethod "listDevices" o = DisplayListDevicesMethodInfo - ResolveDisplayMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDisplayMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDisplayMethod "notifyStartupComplete" o = DisplayNotifyStartupCompleteMethodInfo - ResolveDisplayMethod "peekEvent" o = DisplayPeekEventMethodInfo - ResolveDisplayMethod "pointerIsGrabbed" o = DisplayPointerIsGrabbedMethodInfo - ResolveDisplayMethod "pointerUngrab" o = DisplayPointerUngrabMethodInfo - ResolveDisplayMethod "putEvent" o = DisplayPutEventMethodInfo - ResolveDisplayMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDisplayMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDisplayMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDisplayMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDisplayMethod "requestSelectionNotification" o = DisplayRequestSelectionNotificationMethodInfo - ResolveDisplayMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDisplayMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDisplayMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDisplayMethod "storeClipboard" o = DisplayStoreClipboardMethodInfo - ResolveDisplayMethod "supportsClipboardPersistence" o = DisplaySupportsClipboardPersistenceMethodInfo - ResolveDisplayMethod "supportsComposite" o = DisplaySupportsCompositeMethodInfo - ResolveDisplayMethod "supportsCursorAlpha" o = DisplaySupportsCursorAlphaMethodInfo - ResolveDisplayMethod "supportsCursorColor" o = DisplaySupportsCursorColorMethodInfo - ResolveDisplayMethod "supportsInputShapes" o = DisplaySupportsInputShapesMethodInfo - ResolveDisplayMethod "supportsSelectionNotification" o = DisplaySupportsSelectionNotificationMethodInfo - ResolveDisplayMethod "supportsShapes" o = DisplaySupportsShapesMethodInfo - ResolveDisplayMethod "sync" o = DisplaySyncMethodInfo - ResolveDisplayMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDisplayMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDisplayMethod "warpPointer" o = DisplayWarpPointerMethodInfo - ResolveDisplayMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDisplayMethod "getAppLaunchContext" o = DisplayGetAppLaunchContextMethodInfo - ResolveDisplayMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDisplayMethod "getDefaultCursorSize" o = DisplayGetDefaultCursorSizeMethodInfo - ResolveDisplayMethod "getDefaultGroup" o = DisplayGetDefaultGroupMethodInfo - ResolveDisplayMethod "getDefaultScreen" o = DisplayGetDefaultScreenMethodInfo - ResolveDisplayMethod "getDeviceManager" o = DisplayGetDeviceManagerMethodInfo - ResolveDisplayMethod "getEvent" o = DisplayGetEventMethodInfo - ResolveDisplayMethod "getMaximalCursorSize" o = DisplayGetMaximalCursorSizeMethodInfo - ResolveDisplayMethod "getNScreens" o = DisplayGetNScreensMethodInfo - ResolveDisplayMethod "getName" o = DisplayGetNameMethodInfo - ResolveDisplayMethod "getPointer" o = DisplayGetPointerMethodInfo - ResolveDisplayMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDisplayMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDisplayMethod "getScreen" o = DisplayGetScreenMethodInfo - ResolveDisplayMethod "getWindowAtPointer" o = DisplayGetWindowAtPointerMethodInfo - ResolveDisplayMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDisplayMethod "setDoubleClickDistance" o = DisplaySetDoubleClickDistanceMethodInfo - ResolveDisplayMethod "setDoubleClickTime" o = DisplaySetDoubleClickTimeMethodInfo - ResolveDisplayMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDisplayMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDisplayMethod t Display, MethodInfo info Display p) => IsLabelProxy t (Display -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDisplayMethod t Display, MethodInfo info Display p) => IsLabel t (Display -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Display::closed -type DisplayClosedCallback = - Bool -> - IO () - -noDisplayClosedCallback :: Maybe DisplayClosedCallback -noDisplayClosedCallback = Nothing - -type DisplayClosedCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDisplayClosedCallback :: DisplayClosedCallbackC -> IO (FunPtr DisplayClosedCallbackC) - -displayClosedClosure :: DisplayClosedCallback -> IO Closure -displayClosedClosure cb = newCClosure =<< mkDisplayClosedCallback wrapped - where wrapped = displayClosedCallbackWrapper cb - -displayClosedCallbackWrapper :: - DisplayClosedCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO () -displayClosedCallbackWrapper _cb _ isError _ = do - let isError' = (/= 0) isError - _cb isError' - -onDisplayClosed :: (GObject a, MonadIO m) => a -> DisplayClosedCallback -> m SignalHandlerId -onDisplayClosed obj cb = liftIO $ connectDisplayClosed obj cb SignalConnectBefore -afterDisplayClosed :: (GObject a, MonadIO m) => a -> DisplayClosedCallback -> m SignalHandlerId -afterDisplayClosed obj cb = connectDisplayClosed obj cb SignalConnectAfter - -connectDisplayClosed :: (GObject a, MonadIO m) => - a -> DisplayClosedCallback -> SignalConnectMode -> m SignalHandlerId -connectDisplayClosed obj cb after = liftIO $ do - cb' <- mkDisplayClosedCallback (displayClosedCallbackWrapper cb) - connectSignalFunPtr obj "closed" cb' after - --- signal Display::opened -type DisplayOpenedCallback = - IO () - -noDisplayOpenedCallback :: Maybe DisplayOpenedCallback -noDisplayOpenedCallback = Nothing - -type DisplayOpenedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDisplayOpenedCallback :: DisplayOpenedCallbackC -> IO (FunPtr DisplayOpenedCallbackC) - -displayOpenedClosure :: DisplayOpenedCallback -> IO Closure -displayOpenedClosure cb = newCClosure =<< mkDisplayOpenedCallback wrapped - where wrapped = displayOpenedCallbackWrapper cb - -displayOpenedCallbackWrapper :: - DisplayOpenedCallback -> - Ptr () -> - Ptr () -> - IO () -displayOpenedCallbackWrapper _cb _ _ = do - _cb - -onDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayOpenedCallback -> m SignalHandlerId -onDisplayOpened obj cb = liftIO $ connectDisplayOpened obj cb SignalConnectBefore -afterDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayOpenedCallback -> m SignalHandlerId -afterDisplayOpened obj cb = connectDisplayOpened obj cb SignalConnectAfter - -connectDisplayOpened :: (GObject a, MonadIO m) => - a -> DisplayOpenedCallback -> SignalConnectMode -> m SignalHandlerId -connectDisplayOpened obj cb after = liftIO $ do - cb' <- mkDisplayOpenedCallback (displayOpenedCallbackWrapper cb) - connectSignalFunPtr obj "opened" cb' after - -type instance AttributeList Display = DisplayAttributeList -type DisplayAttributeList = ('[ ] :: [(Symbol, *)]) - -data DisplayClosedSignalInfo -instance SignalInfo DisplayClosedSignalInfo where - type HaskellCallbackType DisplayClosedSignalInfo = DisplayClosedCallback - connectSignal _ = connectDisplayClosed - -data DisplayOpenedSignalInfo -instance SignalInfo DisplayOpenedSignalInfo where - type HaskellCallbackType DisplayOpenedSignalInfo = DisplayOpenedCallback - connectSignal _ = connectDisplayOpened - -type instance SignalList Display = DisplaySignalList -type DisplaySignalList = ('[ '("closed", DisplayClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("opened", DisplayOpenedSignalInfo)] :: [(Symbol, *)]) - --- method Display::beep --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_beep" gdk_display_beep :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO () - - -displayBeep :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m () -- result -displayBeep _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_display_beep _obj' - touchManagedPtr _obj - return () - -data DisplayBeepMethodInfo -instance (signature ~ (m ()), MonadIO m, DisplayK a) => MethodInfo DisplayBeepMethodInfo a signature where - overloadedMethod _ = displayBeep - --- method Display::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_close" gdk_display_close :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO () - - -displayClose :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m () -- result -displayClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_display_close _obj' - touchManagedPtr _obj - return () - -data DisplayCloseMethodInfo -instance (signature ~ (m ()), MonadIO m, DisplayK a) => MethodInfo DisplayCloseMethodInfo a signature where - overloadedMethod _ = displayClose - --- method Display::device_is_grabbed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_device_is_grabbed" gdk_display_device_is_grabbed :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Ptr Device -> -- device : TInterface "Gdk" "Device" - IO CInt - - -displayDeviceIsGrabbed :: - (MonadIO m, DisplayK a, DeviceK b) => - a -- _obj - -> b -- device - -> m Bool -- result -displayDeviceIsGrabbed _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gdk_display_device_is_grabbed _obj' device' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr device - return result' - -data DisplayDeviceIsGrabbedMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, DisplayK a, DeviceK b) => MethodInfo DisplayDeviceIsGrabbedMethodInfo a signature where - overloadedMethod _ = displayDeviceIsGrabbed - --- method Display::flush --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_flush" gdk_display_flush :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO () - - -displayFlush :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m () -- result -displayFlush _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_display_flush _obj' - touchManagedPtr _obj - return () - -data DisplayFlushMethodInfo -instance (signature ~ (m ()), MonadIO m, DisplayK a) => MethodInfo DisplayFlushMethodInfo a signature where - overloadedMethod _ = displayFlush - --- method Display::get_app_launch_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "AppLaunchContext") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_app_launch_context" gdk_display_get_app_launch_context :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO (Ptr AppLaunchContext) - - -displayGetAppLaunchContext :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m AppLaunchContext -- result -displayGetAppLaunchContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_get_app_launch_context _obj' - checkUnexpectedReturnNULL "gdk_display_get_app_launch_context" result - result' <- (wrapObject AppLaunchContext) result - touchManagedPtr _obj - return result' - -data DisplayGetAppLaunchContextMethodInfo -instance (signature ~ (m AppLaunchContext), MonadIO m, DisplayK a) => MethodInfo DisplayGetAppLaunchContextMethodInfo a signature where - overloadedMethod _ = displayGetAppLaunchContext - --- method Display::get_default_cursor_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_default_cursor_size" gdk_display_get_default_cursor_size :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO Word32 - - -displayGetDefaultCursorSize :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Word32 -- result -displayGetDefaultCursorSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_get_default_cursor_size _obj' - touchManagedPtr _obj - return result - -data DisplayGetDefaultCursorSizeMethodInfo -instance (signature ~ (m Word32), MonadIO m, DisplayK a) => MethodInfo DisplayGetDefaultCursorSizeMethodInfo a signature where - overloadedMethod _ = displayGetDefaultCursorSize - --- method Display::get_default_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_default_group" gdk_display_get_default_group :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO (Ptr Window) - - -displayGetDefaultGroup :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Window -- result -displayGetDefaultGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_get_default_group _obj' - checkUnexpectedReturnNULL "gdk_display_get_default_group" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data DisplayGetDefaultGroupMethodInfo -instance (signature ~ (m Window), MonadIO m, DisplayK a) => MethodInfo DisplayGetDefaultGroupMethodInfo a signature where - overloadedMethod _ = displayGetDefaultGroup - --- method Display::get_default_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_default_screen" gdk_display_get_default_screen :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO (Ptr Screen) - - -displayGetDefaultScreen :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Screen -- result -displayGetDefaultScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_get_default_screen _obj' - checkUnexpectedReturnNULL "gdk_display_get_default_screen" result - result' <- (newObject Screen) result - touchManagedPtr _obj - return result' - -data DisplayGetDefaultScreenMethodInfo -instance (signature ~ (m Screen), MonadIO m, DisplayK a) => MethodInfo DisplayGetDefaultScreenMethodInfo a signature where - overloadedMethod _ = displayGetDefaultScreen - --- method Display::get_device_manager --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DeviceManager") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_device_manager" gdk_display_get_device_manager :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO (Ptr DeviceManager) - - -displayGetDeviceManager :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m (Maybe DeviceManager) -- result -displayGetDeviceManager _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_get_device_manager _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject DeviceManager) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data DisplayGetDeviceManagerMethodInfo -instance (signature ~ (m (Maybe DeviceManager)), MonadIO m, DisplayK a) => MethodInfo DisplayGetDeviceManagerMethodInfo a signature where - overloadedMethod _ = displayGetDeviceManager - --- method Display::get_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Event") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_event" gdk_display_get_event :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO (Ptr Event) - - -displayGetEvent :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m (Maybe Event) -- result -displayGetEvent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_get_event _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Event) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data DisplayGetEventMethodInfo -instance (signature ~ (m (Maybe Event)), MonadIO m, DisplayK a) => MethodInfo DisplayGetEventMethodInfo a signature where - overloadedMethod _ = displayGetEvent - --- method Display::get_maximal_cursor_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_maximal_cursor_size" gdk_display_get_maximal_cursor_size :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Ptr Word32 -> -- width : TBasicType TUInt - Ptr Word32 -> -- height : TBasicType TUInt - IO () - - -displayGetMaximalCursorSize :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m (Word32,Word32) -- result -displayGetMaximalCursorSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Word32) - height <- allocMem :: IO (Ptr Word32) - gdk_display_get_maximal_cursor_size _obj' width height - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (width', height') - -data DisplayGetMaximalCursorSizeMethodInfo -instance (signature ~ (m (Word32,Word32)), MonadIO m, DisplayK a) => MethodInfo DisplayGetMaximalCursorSizeMethodInfo a signature where - overloadedMethod _ = displayGetMaximalCursorSize - --- method Display::get_n_screens --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_n_screens" gdk_display_get_n_screens :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO Int32 - -{-# DEPRECATED displayGetNScreens ["(Since version 3.10)","The number of screens is always 1."]#-} -displayGetNScreens :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Int32 -- result -displayGetNScreens _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_get_n_screens _obj' - touchManagedPtr _obj - return result - -data DisplayGetNScreensMethodInfo -instance (signature ~ (m Int32), MonadIO m, DisplayK a) => MethodInfo DisplayGetNScreensMethodInfo a signature where - overloadedMethod _ = displayGetNScreens - --- method Display::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_name" gdk_display_get_name :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CString - - -displayGetName :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m T.Text -- result -displayGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_get_name _obj' - checkUnexpectedReturnNULL "gdk_display_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DisplayGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DisplayK a) => MethodInfo DisplayGetNameMethodInfo a signature where - overloadedMethod _ = displayGetName - --- method Display::get_pointer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_pointer" gdk_display_get_pointer :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Ptr (Ptr Screen) -> -- screen : TInterface "Gdk" "Screen" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType" - IO () - -{-# DEPRECATED displayGetPointer ["(Since version 3.0)","Use gdk_device_get_position() instead."]#-} -displayGetPointer :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m (Screen,Int32,Int32,[ModifierType])-- result -displayGetPointer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - screen <- allocMem :: IO (Ptr (Ptr Screen)) - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - mask <- allocMem :: IO (Ptr CUInt) - gdk_display_get_pointer _obj' screen x y mask - screen' <- peek screen - screen'' <- (newObject Screen) screen' - x' <- peek x - y' <- peek y - mask' <- peek mask - let mask'' = wordToGFlags mask' - touchManagedPtr _obj - freeMem screen - freeMem x - freeMem y - freeMem mask - return (screen'', x', y', mask'') - -data DisplayGetPointerMethodInfo -instance (signature ~ (m (Screen,Int32,Int32,[ModifierType])), MonadIO m, DisplayK a) => MethodInfo DisplayGetPointerMethodInfo a signature where - overloadedMethod _ = displayGetPointer - --- method Display::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_screen" gdk_display_get_screen :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Int32 -> -- screen_num : TBasicType TInt - IO (Ptr Screen) - - -displayGetScreen :: - (MonadIO m, DisplayK a) => - a -- _obj - -> Int32 -- screenNum - -> m Screen -- result -displayGetScreen _obj screenNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_get_screen _obj' screenNum - checkUnexpectedReturnNULL "gdk_display_get_screen" result - result' <- (newObject Screen) result - touchManagedPtr _obj - return result' - -data DisplayGetScreenMethodInfo -instance (signature ~ (Int32 -> m Screen), MonadIO m, DisplayK a) => MethodInfo DisplayGetScreenMethodInfo a signature where - overloadedMethod _ = displayGetScreen - --- method Display::get_window_at_pointer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_window_at_pointer" gdk_display_get_window_at_pointer :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Ptr Int32 -> -- win_x : TBasicType TInt - Ptr Int32 -> -- win_y : TBasicType TInt - IO (Ptr Window) - -{-# DEPRECATED displayGetWindowAtPointer ["(Since version 3.0)","Use gdk_device_get_window_at_position() instead."]#-} -displayGetWindowAtPointer :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m ((Maybe Window),Int32,Int32) -- result -displayGetWindowAtPointer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - winX <- allocMem :: IO (Ptr Int32) - winY <- allocMem :: IO (Ptr Int32) - result <- gdk_display_get_window_at_pointer _obj' winX winY - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Window) result' - return result'' - winX' <- peek winX - winY' <- peek winY - touchManagedPtr _obj - freeMem winX - freeMem winY - return (maybeResult, winX', winY') - -data DisplayGetWindowAtPointerMethodInfo -instance (signature ~ (m ((Maybe Window),Int32,Int32)), MonadIO m, DisplayK a) => MethodInfo DisplayGetWindowAtPointerMethodInfo a signature where - overloadedMethod _ = displayGetWindowAtPointer - --- method Display::has_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_has_pending" gdk_display_has_pending :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CInt - - -displayHasPending :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Bool -- result -displayHasPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_has_pending _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DisplayHasPendingMethodInfo -instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplayHasPendingMethodInfo a signature where - overloadedMethod _ = displayHasPending - --- method Display::is_closed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_is_closed" gdk_display_is_closed :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CInt - - -displayIsClosed :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Bool -- result -displayIsClosed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_is_closed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DisplayIsClosedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplayIsClosedMethodInfo a signature where - overloadedMethod _ = displayIsClosed - --- method Display::keyboard_ungrab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_keyboard_ungrab" gdk_display_keyboard_ungrab :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - -{-# DEPRECATED displayKeyboardUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()"," instead."]#-} -displayKeyboardUngrab :: - (MonadIO m, DisplayK a) => - a -- _obj - -> Word32 -- time_ - -> m () -- result -displayKeyboardUngrab _obj time_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_display_keyboard_ungrab _obj' time_ - touchManagedPtr _obj - return () - -data DisplayKeyboardUngrabMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplayKeyboardUngrabMethodInfo a signature where - overloadedMethod _ = displayKeyboardUngrab - --- method Display::list_devices --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Device")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_list_devices" gdk_display_list_devices :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO (Ptr (GList (Ptr Device))) - -{-# DEPRECATED displayListDevices ["(Since version 3.0)","Use gdk_device_manager_list_devices() instead."]#-} -displayListDevices :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m [Device] -- result -displayListDevices _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_list_devices _obj' - result' <- unpackGList result - result'' <- mapM (newObject Device) result' - touchManagedPtr _obj - return result'' - -data DisplayListDevicesMethodInfo -instance (signature ~ (m [Device]), MonadIO m, DisplayK a) => MethodInfo DisplayListDevicesMethodInfo a signature where - overloadedMethod _ = displayListDevices - --- method Display::notify_startup_complete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_notify_startup_complete" gdk_display_notify_startup_complete :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - CString -> -- startup_id : TBasicType TUTF8 - IO () - - -displayNotifyStartupComplete :: - (MonadIO m, DisplayK a) => - a -- _obj - -> T.Text -- startupId - -> m () -- result -displayNotifyStartupComplete _obj startupId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - startupId' <- textToCString startupId - gdk_display_notify_startup_complete _obj' startupId' - touchManagedPtr _obj - freeMem startupId' - return () - -data DisplayNotifyStartupCompleteMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplayNotifyStartupCompleteMethodInfo a signature where - overloadedMethod _ = displayNotifyStartupComplete - --- method Display::peek_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Event") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_peek_event" gdk_display_peek_event :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO (Ptr Event) - - -displayPeekEvent :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m (Maybe Event) -- result -displayPeekEvent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_peek_event _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Event) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data DisplayPeekEventMethodInfo -instance (signature ~ (m (Maybe Event)), MonadIO m, DisplayK a) => MethodInfo DisplayPeekEventMethodInfo a signature where - overloadedMethod _ = displayPeekEvent - --- method Display::pointer_is_grabbed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_pointer_is_grabbed" gdk_display_pointer_is_grabbed :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CInt - -{-# DEPRECATED displayPointerIsGrabbed ["(Since version 3.0)","Use gdk_display_device_is_grabbed() instead."]#-} -displayPointerIsGrabbed :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Bool -- result -displayPointerIsGrabbed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_pointer_is_grabbed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DisplayPointerIsGrabbedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplayPointerIsGrabbedMethodInfo a signature where - overloadedMethod _ = displayPointerIsGrabbed - --- method Display::pointer_ungrab --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_pointer_ungrab" gdk_display_pointer_ungrab :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Word32 -> -- time_ : TBasicType TUInt32 - IO () - -{-# DEPRECATED displayPointerUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()"," instead."]#-} -displayPointerUngrab :: - (MonadIO m, DisplayK a) => - a -- _obj - -> Word32 -- time_ - -> m () -- result -displayPointerUngrab _obj time_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_display_pointer_ungrab _obj' time_ - touchManagedPtr _obj - return () - -data DisplayPointerUngrabMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplayPointerUngrabMethodInfo a signature where - overloadedMethod _ = displayPointerUngrab - --- method Display::put_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_put_event" gdk_display_put_event :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Ptr Event -> -- event : TInterface "Gdk" "Event" - IO () - - -displayPutEvent :: - (MonadIO m, DisplayK a) => - a -- _obj - -> Event -- event - -> m () -- result -displayPutEvent _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - gdk_display_put_event _obj' event' - touchManagedPtr _obj - touchManagedPtr event - return () - -data DisplayPutEventMethodInfo -instance (signature ~ (Event -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplayPutEventMethodInfo a signature where - overloadedMethod _ = displayPutEvent - --- method Display::request_selection_notification --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_request_selection_notification" gdk_display_request_selection_notification :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Ptr Atom -> -- selection : TInterface "Gdk" "Atom" - IO CInt - - -displayRequestSelectionNotification :: - (MonadIO m, DisplayK a) => - a -- _obj - -> Atom -- selection - -> m Bool -- result -displayRequestSelectionNotification _obj selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let selection' = unsafeManagedPtrGetPtr selection - result <- gdk_display_request_selection_notification _obj' selection' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr selection - return result' - -data DisplayRequestSelectionNotificationMethodInfo -instance (signature ~ (Atom -> m Bool), MonadIO m, DisplayK a) => MethodInfo DisplayRequestSelectionNotificationMethodInfo a signature where - overloadedMethod _ = displayRequestSelectionNotification - --- method Display::set_double_click_distance --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "distance", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_set_double_click_distance" gdk_display_set_double_click_distance :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Word32 -> -- distance : TBasicType TUInt - IO () - - -displaySetDoubleClickDistance :: - (MonadIO m, DisplayK a) => - a -- _obj - -> Word32 -- distance - -> m () -- result -displaySetDoubleClickDistance _obj distance = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_display_set_double_click_distance _obj' distance - touchManagedPtr _obj - return () - -data DisplaySetDoubleClickDistanceMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplaySetDoubleClickDistanceMethodInfo a signature where - overloadedMethod _ = displaySetDoubleClickDistance - --- method Display::set_double_click_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msec", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_set_double_click_time" gdk_display_set_double_click_time :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Word32 -> -- msec : TBasicType TUInt - IO () - - -displaySetDoubleClickTime :: - (MonadIO m, DisplayK a) => - a -- _obj - -> Word32 -- msec - -> m () -- result -displaySetDoubleClickTime _obj msec = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_display_set_double_click_time _obj' msec - touchManagedPtr _obj - return () - -data DisplaySetDoubleClickTimeMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplaySetDoubleClickTimeMethodInfo a signature where - overloadedMethod _ = displaySetDoubleClickTime - --- method Display::store_clipboard --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 4 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_store_clipboard" gdk_display_store_clipboard :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Ptr Window -> -- clipboard_window : TInterface "Gdk" "Window" - Word32 -> -- time_ : TBasicType TUInt32 - Ptr (Ptr Atom) -> -- targets : TCArray False (-1) 4 (TInterface "Gdk" "Atom") - Int32 -> -- n_targets : TBasicType TInt - IO () - - -displayStoreClipboard :: - (MonadIO m, DisplayK a, WindowK b) => - a -- _obj - -> b -- clipboardWindow - -> Word32 -- time_ - -> [Atom] -- targets - -> m () -- result -displayStoreClipboard _obj clipboardWindow time_ targets = liftIO $ do - let nTargets = fromIntegral $ length targets - let _obj' = unsafeManagedPtrCastPtr _obj - let clipboardWindow' = unsafeManagedPtrCastPtr clipboardWindow - let targets' = map unsafeManagedPtrGetPtr targets - targets'' <- packPtrArray targets' - gdk_display_store_clipboard _obj' clipboardWindow' time_ targets'' nTargets - touchManagedPtr _obj - touchManagedPtr clipboardWindow - mapM_ touchManagedPtr targets - freeMem targets'' - return () - -data DisplayStoreClipboardMethodInfo -instance (signature ~ (b -> Word32 -> [Atom] -> m ()), MonadIO m, DisplayK a, WindowK b) => MethodInfo DisplayStoreClipboardMethodInfo a signature where - overloadedMethod _ = displayStoreClipboard - --- method Display::supports_clipboard_persistence --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_supports_clipboard_persistence" gdk_display_supports_clipboard_persistence :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CInt - - -displaySupportsClipboardPersistence :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Bool -- result -displaySupportsClipboardPersistence _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_supports_clipboard_persistence _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DisplaySupportsClipboardPersistenceMethodInfo -instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsClipboardPersistenceMethodInfo a signature where - overloadedMethod _ = displaySupportsClipboardPersistence - --- method Display::supports_composite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_supports_composite" gdk_display_supports_composite :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CInt - -{-# DEPRECATED displaySupportsComposite ["(Since version 3.16)","Compositing is an outdated technology that"," only ever worked on X11."]#-} -displaySupportsComposite :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Bool -- result -displaySupportsComposite _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_supports_composite _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DisplaySupportsCompositeMethodInfo -instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsCompositeMethodInfo a signature where - overloadedMethod _ = displaySupportsComposite - --- method Display::supports_cursor_alpha --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_supports_cursor_alpha" gdk_display_supports_cursor_alpha :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CInt - - -displaySupportsCursorAlpha :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Bool -- result -displaySupportsCursorAlpha _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_supports_cursor_alpha _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DisplaySupportsCursorAlphaMethodInfo -instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsCursorAlphaMethodInfo a signature where - overloadedMethod _ = displaySupportsCursorAlpha - --- method Display::supports_cursor_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_supports_cursor_color" gdk_display_supports_cursor_color :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CInt - - -displaySupportsCursorColor :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Bool -- result -displaySupportsCursorColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_supports_cursor_color _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DisplaySupportsCursorColorMethodInfo -instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsCursorColorMethodInfo a signature where - overloadedMethod _ = displaySupportsCursorColor - --- method Display::supports_input_shapes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_supports_input_shapes" gdk_display_supports_input_shapes :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CInt - - -displaySupportsInputShapes :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Bool -- result -displaySupportsInputShapes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_supports_input_shapes _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DisplaySupportsInputShapesMethodInfo -instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsInputShapesMethodInfo a signature where - overloadedMethod _ = displaySupportsInputShapes - --- method Display::supports_selection_notification --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_supports_selection_notification" gdk_display_supports_selection_notification :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CInt - - -displaySupportsSelectionNotification :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Bool -- result -displaySupportsSelectionNotification _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_supports_selection_notification _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DisplaySupportsSelectionNotificationMethodInfo -instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsSelectionNotificationMethodInfo a signature where - overloadedMethod _ = displaySupportsSelectionNotification - --- method Display::supports_shapes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_supports_shapes" gdk_display_supports_shapes :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO CInt - - -displaySupportsShapes :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m Bool -- result -displaySupportsShapes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_supports_shapes _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DisplaySupportsShapesMethodInfo -instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsShapesMethodInfo a signature where - overloadedMethod _ = displaySupportsShapes - --- method Display::sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_sync" gdk_display_sync :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - IO () - - -displaySync :: - (MonadIO m, DisplayK a) => - a -- _obj - -> m () -- result -displaySync _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_display_sync _obj' - touchManagedPtr _obj - return () - -data DisplaySyncMethodInfo -instance (signature ~ (m ()), MonadIO m, DisplayK a) => MethodInfo DisplaySyncMethodInfo a signature where - overloadedMethod _ = displaySync - --- method Display::warp_pointer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_warp_pointer" gdk_display_warp_pointer :: - Ptr Display -> -- _obj : TInterface "Gdk" "Display" - Ptr Screen -> -- screen : TInterface "Gdk" "Screen" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - -{-# DEPRECATED displayWarpPointer ["(Since version 3.0)","Use gdk_device_warp() instead."]#-} -displayWarpPointer :: - (MonadIO m, DisplayK a, ScreenK b) => - a -- _obj - -> b -- screen - -> Int32 -- x - -> Int32 -- y - -> m () -- result -displayWarpPointer _obj screen x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gdk_display_warp_pointer _obj' screen' x y - touchManagedPtr _obj - touchManagedPtr screen - return () - -data DisplayWarpPointerMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, DisplayK a, ScreenK b) => MethodInfo DisplayWarpPointerMethodInfo a signature where - overloadedMethod _ = displayWarpPointer - --- method Display::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_get_default" gdk_display_get_default :: - IO (Ptr Display) - - -displayGetDefault :: - (MonadIO m) => - m (Maybe Display) -- result -displayGetDefault = liftIO $ do - result <- gdk_display_get_default - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Display) result' - return result'' - return maybeResult - --- method Display::open --- method type : MemberFunction --- Args : [Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_open" gdk_display_open :: - CString -> -- display_name : TBasicType TUTF8 - IO (Ptr Display) - - -displayOpen :: - (MonadIO m) => - T.Text -- displayName - -> m (Maybe Display) -- result -displayOpen displayName = liftIO $ do - displayName' <- textToCString displayName - result <- gdk_display_open displayName' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Display) result' - return result'' - freeMem displayName' - return maybeResult - --- method Display::open_default_libgtk_only --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_open_default_libgtk_only" gdk_display_open_default_libgtk_only :: - IO (Ptr Display) - -{-# DEPRECATED displayOpenDefaultLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside"," of GTK+"]#-} -displayOpenDefaultLibgtkOnly :: - (MonadIO m) => - m (Maybe Display) -- result -displayOpenDefaultLibgtkOnly = liftIO $ do - result <- gdk_display_open_default_libgtk_only - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Display) result' - return result'' - return maybeResult - - diff --git a/GI/Gdk/Objects/Display.hs-boot b/GI/Gdk/Objects/Display.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/Display.hs-boot +++ /dev/null @@ -1,53 +0,0 @@ -module GI.Gdk.Objects.Display where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Display = Display (ForeignPtr Display) -instance GObject Display where -class GObject o => DisplayK o -instance (GObject o, IsDescendantOf Display o) => DisplayK o -data DisplayClosedSignalInfo -data DisplayOpenedSignalInfo -data DisplayBeepMethodInfo -data DisplayCloseMethodInfo -data DisplayDeviceIsGrabbedMethodInfo -data DisplayFlushMethodInfo -data DisplayGetAppLaunchContextMethodInfo -data DisplayGetDefaultCursorSizeMethodInfo -data DisplayGetDefaultGroupMethodInfo -data DisplayGetDefaultScreenMethodInfo -data DisplayGetDeviceManagerMethodInfo -data DisplayGetEventMethodInfo -data DisplayGetMaximalCursorSizeMethodInfo -data DisplayGetNScreensMethodInfo -data DisplayGetNameMethodInfo -data DisplayGetPointerMethodInfo -data DisplayGetScreenMethodInfo -data DisplayGetWindowAtPointerMethodInfo -data DisplayHasPendingMethodInfo -data DisplayIsClosedMethodInfo -data DisplayKeyboardUngrabMethodInfo -data DisplayListDevicesMethodInfo -data DisplayNotifyStartupCompleteMethodInfo -data DisplayPeekEventMethodInfo -data DisplayPointerIsGrabbedMethodInfo -data DisplayPointerUngrabMethodInfo -data DisplayPutEventMethodInfo -data DisplayRequestSelectionNotificationMethodInfo -data DisplaySetDoubleClickDistanceMethodInfo -data DisplaySetDoubleClickTimeMethodInfo -data DisplayStoreClipboardMethodInfo -data DisplaySupportsClipboardPersistenceMethodInfo -data DisplaySupportsCompositeMethodInfo -data DisplaySupportsCursorAlphaMethodInfo -data DisplaySupportsCursorColorMethodInfo -data DisplaySupportsInputShapesMethodInfo -data DisplaySupportsSelectionNotificationMethodInfo -data DisplaySupportsShapesMethodInfo -data DisplaySyncMethodInfo -data DisplayWarpPointerMethodInfo diff --git a/GI/Gdk/Objects/DisplayManager.hs b/GI/Gdk/Objects/DisplayManager.hs deleted file mode 100644 --- a/GI/Gdk/Objects/DisplayManager.hs +++ /dev/null @@ -1,371 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.DisplayManager - ( - --- * Exported types - DisplayManager(..) , - DisplayManagerK , - toDisplayManager , - noDisplayManager , - - - -- * Methods --- ** displayManagerGet - displayManagerGet , - - --- ** displayManagerGetDefaultDisplay - DisplayManagerGetDefaultDisplayMethodInfo, - displayManagerGetDefaultDisplay , - - --- ** displayManagerListDisplays - DisplayManagerListDisplaysMethodInfo , - displayManagerListDisplays , - - --- ** displayManagerOpenDisplay - DisplayManagerOpenDisplayMethodInfo , - displayManagerOpenDisplay , - - --- ** displayManagerSetDefaultDisplay - DisplayManagerSetDefaultDisplayMethodInfo, - displayManagerSetDefaultDisplay , - - - - - -- * Properties --- ** DefaultDisplay - DisplayManagerDefaultDisplayPropertyInfo, - constructDisplayManagerDefaultDisplay , - displayManagerDefaultDisplay , - getDisplayManagerDefaultDisplay , - setDisplayManagerDefaultDisplay , - - - - - -- * Signals --- ** DisplayOpened - DisplayManagerDisplayOpenedCallback , - DisplayManagerDisplayOpenedCallbackC , - DisplayManagerDisplayOpenedSignalInfo , - afterDisplayManagerDisplayOpened , - displayManagerDisplayOpenedCallbackWrapper, - displayManagerDisplayOpenedClosure , - mkDisplayManagerDisplayOpenedCallback , - noDisplayManagerDisplayOpenedCallback , - onDisplayManagerDisplayOpened , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject - -newtype DisplayManager = DisplayManager (ForeignPtr DisplayManager) -foreign import ccall "gdk_display_manager_get_type" - c_gdk_display_manager_get_type :: IO GType - -type instance ParentTypes DisplayManager = DisplayManagerParentTypes -type DisplayManagerParentTypes = '[GObject.Object] - -instance GObject DisplayManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_display_manager_get_type - - -class GObject o => DisplayManagerK o -instance (GObject o, IsDescendantOf DisplayManager o) => DisplayManagerK o - -toDisplayManager :: DisplayManagerK o => o -> IO DisplayManager -toDisplayManager = unsafeCastTo DisplayManager - -noDisplayManager :: Maybe DisplayManager -noDisplayManager = Nothing - -type family ResolveDisplayManagerMethod (t :: Symbol) (o :: *) :: * where - ResolveDisplayManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDisplayManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDisplayManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDisplayManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDisplayManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDisplayManagerMethod "listDisplays" o = DisplayManagerListDisplaysMethodInfo - ResolveDisplayManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDisplayManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDisplayManagerMethod "openDisplay" o = DisplayManagerOpenDisplayMethodInfo - ResolveDisplayManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDisplayManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDisplayManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDisplayManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDisplayManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDisplayManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDisplayManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDisplayManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDisplayManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDisplayManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDisplayManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDisplayManagerMethod "getDefaultDisplay" o = DisplayManagerGetDefaultDisplayMethodInfo - ResolveDisplayManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDisplayManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDisplayManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDisplayManagerMethod "setDefaultDisplay" o = DisplayManagerSetDefaultDisplayMethodInfo - ResolveDisplayManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDisplayManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDisplayManagerMethod t DisplayManager, MethodInfo info DisplayManager p) => IsLabelProxy t (DisplayManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDisplayManagerMethod t DisplayManager, MethodInfo info DisplayManager p) => IsLabel t (DisplayManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DisplayManager::display-opened -type DisplayManagerDisplayOpenedCallback = - Display -> - IO () - -noDisplayManagerDisplayOpenedCallback :: Maybe DisplayManagerDisplayOpenedCallback -noDisplayManagerDisplayOpenedCallback = Nothing - -type DisplayManagerDisplayOpenedCallbackC = - Ptr () -> -- object - Ptr Display -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDisplayManagerDisplayOpenedCallback :: DisplayManagerDisplayOpenedCallbackC -> IO (FunPtr DisplayManagerDisplayOpenedCallbackC) - -displayManagerDisplayOpenedClosure :: DisplayManagerDisplayOpenedCallback -> IO Closure -displayManagerDisplayOpenedClosure cb = newCClosure =<< mkDisplayManagerDisplayOpenedCallback wrapped - where wrapped = displayManagerDisplayOpenedCallbackWrapper cb - -displayManagerDisplayOpenedCallbackWrapper :: - DisplayManagerDisplayOpenedCallback -> - Ptr () -> - Ptr Display -> - Ptr () -> - IO () -displayManagerDisplayOpenedCallbackWrapper _cb _ display _ = do - display' <- (newObject Display) display - _cb display' - -onDisplayManagerDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayManagerDisplayOpenedCallback -> m SignalHandlerId -onDisplayManagerDisplayOpened obj cb = liftIO $ connectDisplayManagerDisplayOpened obj cb SignalConnectBefore -afterDisplayManagerDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayManagerDisplayOpenedCallback -> m SignalHandlerId -afterDisplayManagerDisplayOpened obj cb = connectDisplayManagerDisplayOpened obj cb SignalConnectAfter - -connectDisplayManagerDisplayOpened :: (GObject a, MonadIO m) => - a -> DisplayManagerDisplayOpenedCallback -> SignalConnectMode -> m SignalHandlerId -connectDisplayManagerDisplayOpened obj cb after = liftIO $ do - cb' <- mkDisplayManagerDisplayOpenedCallback (displayManagerDisplayOpenedCallbackWrapper cb) - connectSignalFunPtr obj "display-opened" cb' after - --- VVV Prop "default-display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just True,Just False) - -getDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o) => o -> m (Maybe Display) -getDisplayManagerDefaultDisplay obj = liftIO $ getObjectPropertyObject obj "default-display" Display - -setDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o, DisplayK a) => o -> a -> m () -setDisplayManagerDefaultDisplay obj val = liftIO $ setObjectPropertyObject obj "default-display" (Just val) - -constructDisplayManagerDefaultDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructDisplayManagerDefaultDisplay val = constructObjectPropertyObject "default-display" (Just val) - -data DisplayManagerDefaultDisplayPropertyInfo -instance AttrInfo DisplayManagerDefaultDisplayPropertyInfo where - type AttrAllowedOps DisplayManagerDefaultDisplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayManagerK - type AttrGetType DisplayManagerDefaultDisplayPropertyInfo = (Maybe Display) - type AttrLabel DisplayManagerDefaultDisplayPropertyInfo = "default-display" - attrGet _ = getDisplayManagerDefaultDisplay - attrSet _ = setDisplayManagerDefaultDisplay - attrConstruct _ = constructDisplayManagerDefaultDisplay - attrClear _ = undefined - -type instance AttributeList DisplayManager = DisplayManagerAttributeList -type DisplayManagerAttributeList = ('[ '("defaultDisplay", DisplayManagerDefaultDisplayPropertyInfo)] :: [(Symbol, *)]) - -displayManagerDefaultDisplay :: AttrLabelProxy "defaultDisplay" -displayManagerDefaultDisplay = AttrLabelProxy - -data DisplayManagerDisplayOpenedSignalInfo -instance SignalInfo DisplayManagerDisplayOpenedSignalInfo where - type HaskellCallbackType DisplayManagerDisplayOpenedSignalInfo = DisplayManagerDisplayOpenedCallback - connectSignal _ = connectDisplayManagerDisplayOpened - -type instance SignalList DisplayManager = DisplayManagerSignalList -type DisplayManagerSignalList = ('[ '("displayOpened", DisplayManagerDisplayOpenedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DisplayManager::get_default_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_manager_get_default_display" gdk_display_manager_get_default_display :: - Ptr DisplayManager -> -- _obj : TInterface "Gdk" "DisplayManager" - IO (Ptr Display) - - -displayManagerGetDefaultDisplay :: - (MonadIO m, DisplayManagerK a) => - a -- _obj - -> m (Maybe Display) -- result -displayManagerGetDefaultDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_manager_get_default_display _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Display) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data DisplayManagerGetDefaultDisplayMethodInfo -instance (signature ~ (m (Maybe Display)), MonadIO m, DisplayManagerK a) => MethodInfo DisplayManagerGetDefaultDisplayMethodInfo a signature where - overloadedMethod _ = displayManagerGetDefaultDisplay - --- method DisplayManager::list_displays --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGSList (TInterface "Gdk" "Display")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_manager_list_displays" gdk_display_manager_list_displays :: - Ptr DisplayManager -> -- _obj : TInterface "Gdk" "DisplayManager" - IO (Ptr (GSList (Ptr Display))) - - -displayManagerListDisplays :: - (MonadIO m, DisplayManagerK a) => - a -- _obj - -> m [Display] -- result -displayManagerListDisplays _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_display_manager_list_displays _obj' - result' <- unpackGSList result - result'' <- mapM (newObject Display) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data DisplayManagerListDisplaysMethodInfo -instance (signature ~ (m [Display]), MonadIO m, DisplayManagerK a) => MethodInfo DisplayManagerListDisplaysMethodInfo a signature where - overloadedMethod _ = displayManagerListDisplays - --- method DisplayManager::open_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_manager_open_display" gdk_display_manager_open_display :: - Ptr DisplayManager -> -- _obj : TInterface "Gdk" "DisplayManager" - CString -> -- name : TBasicType TUTF8 - IO (Ptr Display) - - -displayManagerOpenDisplay :: - (MonadIO m, DisplayManagerK a) => - a -- _obj - -> T.Text -- name - -> m (Maybe Display) -- result -displayManagerOpenDisplay _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- gdk_display_manager_open_display _obj' name' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Display) result' - return result'' - touchManagedPtr _obj - freeMem name' - return maybeResult - -data DisplayManagerOpenDisplayMethodInfo -instance (signature ~ (T.Text -> m (Maybe Display)), MonadIO m, DisplayManagerK a) => MethodInfo DisplayManagerOpenDisplayMethodInfo a signature where - overloadedMethod _ = displayManagerOpenDisplay - --- method DisplayManager::set_default_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_manager_set_default_display" gdk_display_manager_set_default_display :: - Ptr DisplayManager -> -- _obj : TInterface "Gdk" "DisplayManager" - Ptr Display -> -- display : TInterface "Gdk" "Display" - IO () - - -displayManagerSetDefaultDisplay :: - (MonadIO m, DisplayManagerK a, DisplayK b) => - a -- _obj - -> b -- display - -> m () -- result -displayManagerSetDefaultDisplay _obj display = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let display' = unsafeManagedPtrCastPtr display - gdk_display_manager_set_default_display _obj' display' - touchManagedPtr _obj - touchManagedPtr display - return () - -data DisplayManagerSetDefaultDisplayMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DisplayManagerK a, DisplayK b) => MethodInfo DisplayManagerSetDefaultDisplayMethodInfo a signature where - overloadedMethod _ = displayManagerSetDefaultDisplay - --- method DisplayManager::get --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DisplayManager") --- throws : False --- Skip return : False - -foreign import ccall "gdk_display_manager_get" gdk_display_manager_get :: - IO (Ptr DisplayManager) - - -displayManagerGet :: - (MonadIO m) => - m DisplayManager -- result -displayManagerGet = liftIO $ do - result <- gdk_display_manager_get - checkUnexpectedReturnNULL "gdk_display_manager_get" result - result' <- (newObject DisplayManager) result - return result' - - diff --git a/GI/Gdk/Objects/DisplayManager.hs-boot b/GI/Gdk/Objects/DisplayManager.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/DisplayManager.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gdk.Objects.DisplayManager where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DisplayManager = DisplayManager (ForeignPtr DisplayManager) -instance GObject DisplayManager where -class GObject o => DisplayManagerK o -instance (GObject o, IsDescendantOf DisplayManager o) => DisplayManagerK o -data DisplayManagerDefaultDisplayPropertyInfo -data DisplayManagerDisplayOpenedSignalInfo -data DisplayManagerGetDefaultDisplayMethodInfo -data DisplayManagerListDisplaysMethodInfo -data DisplayManagerOpenDisplayMethodInfo -data DisplayManagerSetDefaultDisplayMethodInfo diff --git a/GI/Gdk/Objects/DragContext.hs b/GI/Gdk/Objects/DragContext.hs deleted file mode 100644 --- a/GI/Gdk/Objects/DragContext.hs +++ /dev/null @@ -1,408 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.DragContext - ( - --- * Exported types - DragContext(..) , - DragContextK , - toDragContext , - noDragContext , - - - -- * Methods --- ** dragContextGetActions - DragContextGetActionsMethodInfo , - dragContextGetActions , - - --- ** dragContextGetDestWindow - DragContextGetDestWindowMethodInfo , - dragContextGetDestWindow , - - --- ** dragContextGetDevice - DragContextGetDeviceMethodInfo , - dragContextGetDevice , - - --- ** dragContextGetProtocol - DragContextGetProtocolMethodInfo , - dragContextGetProtocol , - - --- ** dragContextGetSelectedAction - DragContextGetSelectedActionMethodInfo , - dragContextGetSelectedAction , - - --- ** dragContextGetSourceWindow - DragContextGetSourceWindowMethodInfo , - dragContextGetSourceWindow , - - --- ** dragContextGetSuggestedAction - DragContextGetSuggestedActionMethodInfo , - dragContextGetSuggestedAction , - - --- ** dragContextListTargets - DragContextListTargetsMethodInfo , - dragContextListTargets , - - --- ** dragContextSetDevice - DragContextSetDeviceMethodInfo , - dragContextSetDevice , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject - -newtype DragContext = DragContext (ForeignPtr DragContext) -foreign import ccall "gdk_drag_context_get_type" - c_gdk_drag_context_get_type :: IO GType - -type instance ParentTypes DragContext = DragContextParentTypes -type DragContextParentTypes = '[GObject.Object] - -instance GObject DragContext where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_drag_context_get_type - - -class GObject o => DragContextK o -instance (GObject o, IsDescendantOf DragContext o) => DragContextK o - -toDragContext :: DragContextK o => o -> IO DragContext -toDragContext = unsafeCastTo DragContext - -noDragContext :: Maybe DragContext -noDragContext = Nothing - -type family ResolveDragContextMethod (t :: Symbol) (o :: *) :: * where - ResolveDragContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDragContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDragContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDragContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDragContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDragContextMethod "listTargets" o = DragContextListTargetsMethodInfo - ResolveDragContextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDragContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDragContextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDragContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDragContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDragContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDragContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDragContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDragContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDragContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDragContextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDragContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDragContextMethod "getActions" o = DragContextGetActionsMethodInfo - ResolveDragContextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDragContextMethod "getDestWindow" o = DragContextGetDestWindowMethodInfo - ResolveDragContextMethod "getDevice" o = DragContextGetDeviceMethodInfo - ResolveDragContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDragContextMethod "getProtocol" o = DragContextGetProtocolMethodInfo - ResolveDragContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDragContextMethod "getSelectedAction" o = DragContextGetSelectedActionMethodInfo - ResolveDragContextMethod "getSourceWindow" o = DragContextGetSourceWindowMethodInfo - ResolveDragContextMethod "getSuggestedAction" o = DragContextGetSuggestedActionMethodInfo - ResolveDragContextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDragContextMethod "setDevice" o = DragContextSetDeviceMethodInfo - ResolveDragContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDragContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDragContextMethod t DragContext, MethodInfo info DragContext p) => IsLabelProxy t (DragContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDragContextMethod t DragContext, MethodInfo info DragContext p) => IsLabel t (DragContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DragContext = DragContextAttributeList -type DragContextAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList DragContext = DragContextSignalList -type DragContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DragContext::get_actions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DragAction") --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_context_get_actions" gdk_drag_context_get_actions :: - Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" - IO CUInt - - -dragContextGetActions :: - (MonadIO m, DragContextK a) => - a -- _obj - -> m [DragAction] -- result -dragContextGetActions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_drag_context_get_actions _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data DragContextGetActionsMethodInfo -instance (signature ~ (m [DragAction]), MonadIO m, DragContextK a) => MethodInfo DragContextGetActionsMethodInfo a signature where - overloadedMethod _ = dragContextGetActions - --- method DragContext::get_dest_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_context_get_dest_window" gdk_drag_context_get_dest_window :: - Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" - IO (Ptr Window) - - -dragContextGetDestWindow :: - (MonadIO m, DragContextK a) => - a -- _obj - -> m Window -- result -dragContextGetDestWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_drag_context_get_dest_window _obj' - checkUnexpectedReturnNULL "gdk_drag_context_get_dest_window" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data DragContextGetDestWindowMethodInfo -instance (signature ~ (m Window), MonadIO m, DragContextK a) => MethodInfo DragContextGetDestWindowMethodInfo a signature where - overloadedMethod _ = dragContextGetDestWindow - --- method DragContext::get_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Device") --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_context_get_device" gdk_drag_context_get_device :: - Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" - IO (Ptr Device) - - -dragContextGetDevice :: - (MonadIO m, DragContextK a) => - a -- _obj - -> m Device -- result -dragContextGetDevice _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_drag_context_get_device _obj' - checkUnexpectedReturnNULL "gdk_drag_context_get_device" result - result' <- (newObject Device) result - touchManagedPtr _obj - return result' - -data DragContextGetDeviceMethodInfo -instance (signature ~ (m Device), MonadIO m, DragContextK a) => MethodInfo DragContextGetDeviceMethodInfo a signature where - overloadedMethod _ = dragContextGetDevice - --- method DragContext::get_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DragProtocol") --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_context_get_protocol" gdk_drag_context_get_protocol :: - Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" - IO CUInt - - -dragContextGetProtocol :: - (MonadIO m, DragContextK a) => - a -- _obj - -> m DragProtocol -- result -dragContextGetProtocol _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_drag_context_get_protocol _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DragContextGetProtocolMethodInfo -instance (signature ~ (m DragProtocol), MonadIO m, DragContextK a) => MethodInfo DragContextGetProtocolMethodInfo a signature where - overloadedMethod _ = dragContextGetProtocol - --- method DragContext::get_selected_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DragAction") --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_context_get_selected_action" gdk_drag_context_get_selected_action :: - Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" - IO CUInt - - -dragContextGetSelectedAction :: - (MonadIO m, DragContextK a) => - a -- _obj - -> m [DragAction] -- result -dragContextGetSelectedAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_drag_context_get_selected_action _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data DragContextGetSelectedActionMethodInfo -instance (signature ~ (m [DragAction]), MonadIO m, DragContextK a) => MethodInfo DragContextGetSelectedActionMethodInfo a signature where - overloadedMethod _ = dragContextGetSelectedAction - --- method DragContext::get_source_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_context_get_source_window" gdk_drag_context_get_source_window :: - Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" - IO (Ptr Window) - - -dragContextGetSourceWindow :: - (MonadIO m, DragContextK a) => - a -- _obj - -> m Window -- result -dragContextGetSourceWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_drag_context_get_source_window _obj' - checkUnexpectedReturnNULL "gdk_drag_context_get_source_window" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data DragContextGetSourceWindowMethodInfo -instance (signature ~ (m Window), MonadIO m, DragContextK a) => MethodInfo DragContextGetSourceWindowMethodInfo a signature where - overloadedMethod _ = dragContextGetSourceWindow - --- method DragContext::get_suggested_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DragAction") --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_context_get_suggested_action" gdk_drag_context_get_suggested_action :: - Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" - IO CUInt - - -dragContextGetSuggestedAction :: - (MonadIO m, DragContextK a) => - a -- _obj - -> m [DragAction] -- result -dragContextGetSuggestedAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_drag_context_get_suggested_action _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data DragContextGetSuggestedActionMethodInfo -instance (signature ~ (m [DragAction]), MonadIO m, DragContextK a) => MethodInfo DragContextGetSuggestedActionMethodInfo a signature where - overloadedMethod _ = dragContextGetSuggestedAction - --- method DragContext::list_targets --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Atom")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_context_list_targets" gdk_drag_context_list_targets :: - Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" - IO (Ptr (GList (Ptr Atom))) - - -dragContextListTargets :: - (MonadIO m, DragContextK a) => - a -- _obj - -> m [Atom] -- result -dragContextListTargets _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_drag_context_list_targets _obj' - result' <- unpackGList result - result'' <- mapM (newPtr Atom) result' - touchManagedPtr _obj - return result'' - -data DragContextListTargetsMethodInfo -instance (signature ~ (m [Atom]), MonadIO m, DragContextK a) => MethodInfo DragContextListTargetsMethodInfo a signature where - overloadedMethod _ = dragContextListTargets - --- method DragContext::set_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_drag_context_set_device" gdk_drag_context_set_device :: - Ptr DragContext -> -- _obj : TInterface "Gdk" "DragContext" - Ptr Device -> -- device : TInterface "Gdk" "Device" - IO () - - -dragContextSetDevice :: - (MonadIO m, DragContextK a, DeviceK b) => - a -- _obj - -> b -- device - -> m () -- result -dragContextSetDevice _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - gdk_drag_context_set_device _obj' device' - touchManagedPtr _obj - touchManagedPtr device - return () - -data DragContextSetDeviceMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DragContextK a, DeviceK b) => MethodInfo DragContextSetDeviceMethodInfo a signature where - overloadedMethod _ = dragContextSetDevice - - diff --git a/GI/Gdk/Objects/DragContext.hs-boot b/GI/Gdk/Objects/DragContext.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/DragContext.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gdk.Objects.DragContext where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DragContext = DragContext (ForeignPtr DragContext) -instance GObject DragContext where -class GObject o => DragContextK o -instance (GObject o, IsDescendantOf DragContext o) => DragContextK o -data DragContextGetActionsMethodInfo -data DragContextGetDestWindowMethodInfo -data DragContextGetDeviceMethodInfo -data DragContextGetProtocolMethodInfo -data DragContextGetSelectedActionMethodInfo -data DragContextGetSourceWindowMethodInfo -data DragContextGetSuggestedActionMethodInfo -data DragContextListTargetsMethodInfo -data DragContextSetDeviceMethodInfo diff --git a/GI/Gdk/Objects/FrameClock.hs b/GI/Gdk/Objects/FrameClock.hs deleted file mode 100644 --- a/GI/Gdk/Objects/FrameClock.hs +++ /dev/null @@ -1,797 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.FrameClock - ( - --- * Exported types - FrameClock(..) , - FrameClockK , - toFrameClock , - noFrameClock , - - - -- * Methods --- ** frameClockBeginUpdating - FrameClockBeginUpdatingMethodInfo , - frameClockBeginUpdating , - - --- ** frameClockEndUpdating - FrameClockEndUpdatingMethodInfo , - frameClockEndUpdating , - - --- ** frameClockGetCurrentTimings - FrameClockGetCurrentTimingsMethodInfo , - frameClockGetCurrentTimings , - - --- ** frameClockGetFrameCounter - FrameClockGetFrameCounterMethodInfo , - frameClockGetFrameCounter , - - --- ** frameClockGetFrameTime - FrameClockGetFrameTimeMethodInfo , - frameClockGetFrameTime , - - --- ** frameClockGetHistoryStart - FrameClockGetHistoryStartMethodInfo , - frameClockGetHistoryStart , - - --- ** frameClockGetRefreshInfo - FrameClockGetRefreshInfoMethodInfo , - frameClockGetRefreshInfo , - - --- ** frameClockGetTimings - FrameClockGetTimingsMethodInfo , - frameClockGetTimings , - - --- ** frameClockRequestPhase - FrameClockRequestPhaseMethodInfo , - frameClockRequestPhase , - - - - - -- * Signals --- ** AfterPaint - FrameClockAfterPaintCallback , - FrameClockAfterPaintCallbackC , - FrameClockAfterPaintSignalInfo , - afterFrameClockAfterPaint , - frameClockAfterPaintCallbackWrapper , - frameClockAfterPaintClosure , - mkFrameClockAfterPaintCallback , - noFrameClockAfterPaintCallback , - onFrameClockAfterPaint , - - --- ** BeforePaint - FrameClockBeforePaintCallback , - FrameClockBeforePaintCallbackC , - FrameClockBeforePaintSignalInfo , - afterFrameClockBeforePaint , - frameClockBeforePaintCallbackWrapper , - frameClockBeforePaintClosure , - mkFrameClockBeforePaintCallback , - noFrameClockBeforePaintCallback , - onFrameClockBeforePaint , - - --- ** FlushEvents - FrameClockFlushEventsCallback , - FrameClockFlushEventsCallbackC , - FrameClockFlushEventsSignalInfo , - afterFrameClockFlushEvents , - frameClockFlushEventsCallbackWrapper , - frameClockFlushEventsClosure , - mkFrameClockFlushEventsCallback , - noFrameClockFlushEventsCallback , - onFrameClockFlushEvents , - - --- ** Layout - FrameClockLayoutCallback , - FrameClockLayoutCallbackC , - FrameClockLayoutSignalInfo , - afterFrameClockLayout , - frameClockLayoutCallbackWrapper , - frameClockLayoutClosure , - mkFrameClockLayoutCallback , - noFrameClockLayoutCallback , - onFrameClockLayout , - - --- ** Paint - FrameClockPaintCallback , - FrameClockPaintCallbackC , - FrameClockPaintSignalInfo , - afterFrameClockPaint , - frameClockPaintCallbackWrapper , - frameClockPaintClosure , - mkFrameClockPaintCallback , - noFrameClockPaintCallback , - onFrameClockPaint , - - --- ** ResumeEvents - FrameClockResumeEventsCallback , - FrameClockResumeEventsCallbackC , - FrameClockResumeEventsSignalInfo , - afterFrameClockResumeEvents , - frameClockResumeEventsCallbackWrapper , - frameClockResumeEventsClosure , - mkFrameClockResumeEventsCallback , - noFrameClockResumeEventsCallback , - onFrameClockResumeEvents , - - --- ** Update - FrameClockUpdateCallback , - FrameClockUpdateCallbackC , - FrameClockUpdateSignalInfo , - afterFrameClockUpdate , - frameClockUpdateCallbackWrapper , - frameClockUpdateClosure , - mkFrameClockUpdateCallback , - noFrameClockUpdateCallback , - onFrameClockUpdate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject - -newtype FrameClock = FrameClock (ForeignPtr FrameClock) -foreign import ccall "gdk_frame_clock_get_type" - c_gdk_frame_clock_get_type :: IO GType - -type instance ParentTypes FrameClock = FrameClockParentTypes -type FrameClockParentTypes = '[GObject.Object] - -instance GObject FrameClock where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_frame_clock_get_type - - -class GObject o => FrameClockK o -instance (GObject o, IsDescendantOf FrameClock o) => FrameClockK o - -toFrameClock :: FrameClockK o => o -> IO FrameClock -toFrameClock = unsafeCastTo FrameClock - -noFrameClock :: Maybe FrameClock -noFrameClock = Nothing - -type family ResolveFrameClockMethod (t :: Symbol) (o :: *) :: * where - ResolveFrameClockMethod "beginUpdating" o = FrameClockBeginUpdatingMethodInfo - ResolveFrameClockMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFrameClockMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFrameClockMethod "endUpdating" o = FrameClockEndUpdatingMethodInfo - ResolveFrameClockMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFrameClockMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFrameClockMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFrameClockMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFrameClockMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFrameClockMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFrameClockMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFrameClockMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFrameClockMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFrameClockMethod "requestPhase" o = FrameClockRequestPhaseMethodInfo - ResolveFrameClockMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFrameClockMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFrameClockMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFrameClockMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFrameClockMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFrameClockMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFrameClockMethod "getCurrentTimings" o = FrameClockGetCurrentTimingsMethodInfo - ResolveFrameClockMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFrameClockMethod "getFrameCounter" o = FrameClockGetFrameCounterMethodInfo - ResolveFrameClockMethod "getFrameTime" o = FrameClockGetFrameTimeMethodInfo - ResolveFrameClockMethod "getHistoryStart" o = FrameClockGetHistoryStartMethodInfo - ResolveFrameClockMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFrameClockMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFrameClockMethod "getRefreshInfo" o = FrameClockGetRefreshInfoMethodInfo - ResolveFrameClockMethod "getTimings" o = FrameClockGetTimingsMethodInfo - ResolveFrameClockMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFrameClockMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFrameClockMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFrameClockMethod t FrameClock, MethodInfo info FrameClock p) => IsLabelProxy t (FrameClock -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFrameClockMethod t FrameClock, MethodInfo info FrameClock p) => IsLabel t (FrameClock -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FrameClock::after-paint -type FrameClockAfterPaintCallback = - IO () - -noFrameClockAfterPaintCallback :: Maybe FrameClockAfterPaintCallback -noFrameClockAfterPaintCallback = Nothing - -type FrameClockAfterPaintCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFrameClockAfterPaintCallback :: FrameClockAfterPaintCallbackC -> IO (FunPtr FrameClockAfterPaintCallbackC) - -frameClockAfterPaintClosure :: FrameClockAfterPaintCallback -> IO Closure -frameClockAfterPaintClosure cb = newCClosure =<< mkFrameClockAfterPaintCallback wrapped - where wrapped = frameClockAfterPaintCallbackWrapper cb - -frameClockAfterPaintCallbackWrapper :: - FrameClockAfterPaintCallback -> - Ptr () -> - Ptr () -> - IO () -frameClockAfterPaintCallbackWrapper _cb _ _ = do - _cb - -onFrameClockAfterPaint :: (GObject a, MonadIO m) => a -> FrameClockAfterPaintCallback -> m SignalHandlerId -onFrameClockAfterPaint obj cb = liftIO $ connectFrameClockAfterPaint obj cb SignalConnectBefore -afterFrameClockAfterPaint :: (GObject a, MonadIO m) => a -> FrameClockAfterPaintCallback -> m SignalHandlerId -afterFrameClockAfterPaint obj cb = connectFrameClockAfterPaint obj cb SignalConnectAfter - -connectFrameClockAfterPaint :: (GObject a, MonadIO m) => - a -> FrameClockAfterPaintCallback -> SignalConnectMode -> m SignalHandlerId -connectFrameClockAfterPaint obj cb after = liftIO $ do - cb' <- mkFrameClockAfterPaintCallback (frameClockAfterPaintCallbackWrapper cb) - connectSignalFunPtr obj "after-paint" cb' after - --- signal FrameClock::before-paint -type FrameClockBeforePaintCallback = - IO () - -noFrameClockBeforePaintCallback :: Maybe FrameClockBeforePaintCallback -noFrameClockBeforePaintCallback = Nothing - -type FrameClockBeforePaintCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFrameClockBeforePaintCallback :: FrameClockBeforePaintCallbackC -> IO (FunPtr FrameClockBeforePaintCallbackC) - -frameClockBeforePaintClosure :: FrameClockBeforePaintCallback -> IO Closure -frameClockBeforePaintClosure cb = newCClosure =<< mkFrameClockBeforePaintCallback wrapped - where wrapped = frameClockBeforePaintCallbackWrapper cb - -frameClockBeforePaintCallbackWrapper :: - FrameClockBeforePaintCallback -> - Ptr () -> - Ptr () -> - IO () -frameClockBeforePaintCallbackWrapper _cb _ _ = do - _cb - -onFrameClockBeforePaint :: (GObject a, MonadIO m) => a -> FrameClockBeforePaintCallback -> m SignalHandlerId -onFrameClockBeforePaint obj cb = liftIO $ connectFrameClockBeforePaint obj cb SignalConnectBefore -afterFrameClockBeforePaint :: (GObject a, MonadIO m) => a -> FrameClockBeforePaintCallback -> m SignalHandlerId -afterFrameClockBeforePaint obj cb = connectFrameClockBeforePaint obj cb SignalConnectAfter - -connectFrameClockBeforePaint :: (GObject a, MonadIO m) => - a -> FrameClockBeforePaintCallback -> SignalConnectMode -> m SignalHandlerId -connectFrameClockBeforePaint obj cb after = liftIO $ do - cb' <- mkFrameClockBeforePaintCallback (frameClockBeforePaintCallbackWrapper cb) - connectSignalFunPtr obj "before-paint" cb' after - --- signal FrameClock::flush-events -type FrameClockFlushEventsCallback = - IO () - -noFrameClockFlushEventsCallback :: Maybe FrameClockFlushEventsCallback -noFrameClockFlushEventsCallback = Nothing - -type FrameClockFlushEventsCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFrameClockFlushEventsCallback :: FrameClockFlushEventsCallbackC -> IO (FunPtr FrameClockFlushEventsCallbackC) - -frameClockFlushEventsClosure :: FrameClockFlushEventsCallback -> IO Closure -frameClockFlushEventsClosure cb = newCClosure =<< mkFrameClockFlushEventsCallback wrapped - where wrapped = frameClockFlushEventsCallbackWrapper cb - -frameClockFlushEventsCallbackWrapper :: - FrameClockFlushEventsCallback -> - Ptr () -> - Ptr () -> - IO () -frameClockFlushEventsCallbackWrapper _cb _ _ = do - _cb - -onFrameClockFlushEvents :: (GObject a, MonadIO m) => a -> FrameClockFlushEventsCallback -> m SignalHandlerId -onFrameClockFlushEvents obj cb = liftIO $ connectFrameClockFlushEvents obj cb SignalConnectBefore -afterFrameClockFlushEvents :: (GObject a, MonadIO m) => a -> FrameClockFlushEventsCallback -> m SignalHandlerId -afterFrameClockFlushEvents obj cb = connectFrameClockFlushEvents obj cb SignalConnectAfter - -connectFrameClockFlushEvents :: (GObject a, MonadIO m) => - a -> FrameClockFlushEventsCallback -> SignalConnectMode -> m SignalHandlerId -connectFrameClockFlushEvents obj cb after = liftIO $ do - cb' <- mkFrameClockFlushEventsCallback (frameClockFlushEventsCallbackWrapper cb) - connectSignalFunPtr obj "flush-events" cb' after - --- signal FrameClock::layout -type FrameClockLayoutCallback = - IO () - -noFrameClockLayoutCallback :: Maybe FrameClockLayoutCallback -noFrameClockLayoutCallback = Nothing - -type FrameClockLayoutCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFrameClockLayoutCallback :: FrameClockLayoutCallbackC -> IO (FunPtr FrameClockLayoutCallbackC) - -frameClockLayoutClosure :: FrameClockLayoutCallback -> IO Closure -frameClockLayoutClosure cb = newCClosure =<< mkFrameClockLayoutCallback wrapped - where wrapped = frameClockLayoutCallbackWrapper cb - -frameClockLayoutCallbackWrapper :: - FrameClockLayoutCallback -> - Ptr () -> - Ptr () -> - IO () -frameClockLayoutCallbackWrapper _cb _ _ = do - _cb - -onFrameClockLayout :: (GObject a, MonadIO m) => a -> FrameClockLayoutCallback -> m SignalHandlerId -onFrameClockLayout obj cb = liftIO $ connectFrameClockLayout obj cb SignalConnectBefore -afterFrameClockLayout :: (GObject a, MonadIO m) => a -> FrameClockLayoutCallback -> m SignalHandlerId -afterFrameClockLayout obj cb = connectFrameClockLayout obj cb SignalConnectAfter - -connectFrameClockLayout :: (GObject a, MonadIO m) => - a -> FrameClockLayoutCallback -> SignalConnectMode -> m SignalHandlerId -connectFrameClockLayout obj cb after = liftIO $ do - cb' <- mkFrameClockLayoutCallback (frameClockLayoutCallbackWrapper cb) - connectSignalFunPtr obj "layout" cb' after - --- signal FrameClock::paint -type FrameClockPaintCallback = - IO () - -noFrameClockPaintCallback :: Maybe FrameClockPaintCallback -noFrameClockPaintCallback = Nothing - -type FrameClockPaintCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFrameClockPaintCallback :: FrameClockPaintCallbackC -> IO (FunPtr FrameClockPaintCallbackC) - -frameClockPaintClosure :: FrameClockPaintCallback -> IO Closure -frameClockPaintClosure cb = newCClosure =<< mkFrameClockPaintCallback wrapped - where wrapped = frameClockPaintCallbackWrapper cb - -frameClockPaintCallbackWrapper :: - FrameClockPaintCallback -> - Ptr () -> - Ptr () -> - IO () -frameClockPaintCallbackWrapper _cb _ _ = do - _cb - -onFrameClockPaint :: (GObject a, MonadIO m) => a -> FrameClockPaintCallback -> m SignalHandlerId -onFrameClockPaint obj cb = liftIO $ connectFrameClockPaint obj cb SignalConnectBefore -afterFrameClockPaint :: (GObject a, MonadIO m) => a -> FrameClockPaintCallback -> m SignalHandlerId -afterFrameClockPaint obj cb = connectFrameClockPaint obj cb SignalConnectAfter - -connectFrameClockPaint :: (GObject a, MonadIO m) => - a -> FrameClockPaintCallback -> SignalConnectMode -> m SignalHandlerId -connectFrameClockPaint obj cb after = liftIO $ do - cb' <- mkFrameClockPaintCallback (frameClockPaintCallbackWrapper cb) - connectSignalFunPtr obj "paint" cb' after - --- signal FrameClock::resume-events -type FrameClockResumeEventsCallback = - IO () - -noFrameClockResumeEventsCallback :: Maybe FrameClockResumeEventsCallback -noFrameClockResumeEventsCallback = Nothing - -type FrameClockResumeEventsCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFrameClockResumeEventsCallback :: FrameClockResumeEventsCallbackC -> IO (FunPtr FrameClockResumeEventsCallbackC) - -frameClockResumeEventsClosure :: FrameClockResumeEventsCallback -> IO Closure -frameClockResumeEventsClosure cb = newCClosure =<< mkFrameClockResumeEventsCallback wrapped - where wrapped = frameClockResumeEventsCallbackWrapper cb - -frameClockResumeEventsCallbackWrapper :: - FrameClockResumeEventsCallback -> - Ptr () -> - Ptr () -> - IO () -frameClockResumeEventsCallbackWrapper _cb _ _ = do - _cb - -onFrameClockResumeEvents :: (GObject a, MonadIO m) => a -> FrameClockResumeEventsCallback -> m SignalHandlerId -onFrameClockResumeEvents obj cb = liftIO $ connectFrameClockResumeEvents obj cb SignalConnectBefore -afterFrameClockResumeEvents :: (GObject a, MonadIO m) => a -> FrameClockResumeEventsCallback -> m SignalHandlerId -afterFrameClockResumeEvents obj cb = connectFrameClockResumeEvents obj cb SignalConnectAfter - -connectFrameClockResumeEvents :: (GObject a, MonadIO m) => - a -> FrameClockResumeEventsCallback -> SignalConnectMode -> m SignalHandlerId -connectFrameClockResumeEvents obj cb after = liftIO $ do - cb' <- mkFrameClockResumeEventsCallback (frameClockResumeEventsCallbackWrapper cb) - connectSignalFunPtr obj "resume-events" cb' after - --- signal FrameClock::update -type FrameClockUpdateCallback = - IO () - -noFrameClockUpdateCallback :: Maybe FrameClockUpdateCallback -noFrameClockUpdateCallback = Nothing - -type FrameClockUpdateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFrameClockUpdateCallback :: FrameClockUpdateCallbackC -> IO (FunPtr FrameClockUpdateCallbackC) - -frameClockUpdateClosure :: FrameClockUpdateCallback -> IO Closure -frameClockUpdateClosure cb = newCClosure =<< mkFrameClockUpdateCallback wrapped - where wrapped = frameClockUpdateCallbackWrapper cb - -frameClockUpdateCallbackWrapper :: - FrameClockUpdateCallback -> - Ptr () -> - Ptr () -> - IO () -frameClockUpdateCallbackWrapper _cb _ _ = do - _cb - -onFrameClockUpdate :: (GObject a, MonadIO m) => a -> FrameClockUpdateCallback -> m SignalHandlerId -onFrameClockUpdate obj cb = liftIO $ connectFrameClockUpdate obj cb SignalConnectBefore -afterFrameClockUpdate :: (GObject a, MonadIO m) => a -> FrameClockUpdateCallback -> m SignalHandlerId -afterFrameClockUpdate obj cb = connectFrameClockUpdate obj cb SignalConnectAfter - -connectFrameClockUpdate :: (GObject a, MonadIO m) => - a -> FrameClockUpdateCallback -> SignalConnectMode -> m SignalHandlerId -connectFrameClockUpdate obj cb after = liftIO $ do - cb' <- mkFrameClockUpdateCallback (frameClockUpdateCallbackWrapper cb) - connectSignalFunPtr obj "update" cb' after - -type instance AttributeList FrameClock = FrameClockAttributeList -type FrameClockAttributeList = ('[ ] :: [(Symbol, *)]) - -data FrameClockAfterPaintSignalInfo -instance SignalInfo FrameClockAfterPaintSignalInfo where - type HaskellCallbackType FrameClockAfterPaintSignalInfo = FrameClockAfterPaintCallback - connectSignal _ = connectFrameClockAfterPaint - -data FrameClockBeforePaintSignalInfo -instance SignalInfo FrameClockBeforePaintSignalInfo where - type HaskellCallbackType FrameClockBeforePaintSignalInfo = FrameClockBeforePaintCallback - connectSignal _ = connectFrameClockBeforePaint - -data FrameClockFlushEventsSignalInfo -instance SignalInfo FrameClockFlushEventsSignalInfo where - type HaskellCallbackType FrameClockFlushEventsSignalInfo = FrameClockFlushEventsCallback - connectSignal _ = connectFrameClockFlushEvents - -data FrameClockLayoutSignalInfo -instance SignalInfo FrameClockLayoutSignalInfo where - type HaskellCallbackType FrameClockLayoutSignalInfo = FrameClockLayoutCallback - connectSignal _ = connectFrameClockLayout - -data FrameClockPaintSignalInfo -instance SignalInfo FrameClockPaintSignalInfo where - type HaskellCallbackType FrameClockPaintSignalInfo = FrameClockPaintCallback - connectSignal _ = connectFrameClockPaint - -data FrameClockResumeEventsSignalInfo -instance SignalInfo FrameClockResumeEventsSignalInfo where - type HaskellCallbackType FrameClockResumeEventsSignalInfo = FrameClockResumeEventsCallback - connectSignal _ = connectFrameClockResumeEvents - -data FrameClockUpdateSignalInfo -instance SignalInfo FrameClockUpdateSignalInfo where - type HaskellCallbackType FrameClockUpdateSignalInfo = FrameClockUpdateCallback - connectSignal _ = connectFrameClockUpdate - -type instance SignalList FrameClock = FrameClockSignalList -type FrameClockSignalList = ('[ '("afterPaint", FrameClockAfterPaintSignalInfo), '("beforePaint", FrameClockBeforePaintSignalInfo), '("flushEvents", FrameClockFlushEventsSignalInfo), '("layout", FrameClockLayoutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paint", FrameClockPaintSignalInfo), '("resumeEvents", FrameClockResumeEventsSignalInfo), '("update", FrameClockUpdateSignalInfo)] :: [(Symbol, *)]) - --- method FrameClock::begin_updating --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_clock_begin_updating" gdk_frame_clock_begin_updating :: - Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" - IO () - - -frameClockBeginUpdating :: - (MonadIO m, FrameClockK a) => - a -- _obj - -> m () -- result -frameClockBeginUpdating _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_frame_clock_begin_updating _obj' - touchManagedPtr _obj - return () - -data FrameClockBeginUpdatingMethodInfo -instance (signature ~ (m ()), MonadIO m, FrameClockK a) => MethodInfo FrameClockBeginUpdatingMethodInfo a signature where - overloadedMethod _ = frameClockBeginUpdating - --- method FrameClock::end_updating --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_clock_end_updating" gdk_frame_clock_end_updating :: - Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" - IO () - - -frameClockEndUpdating :: - (MonadIO m, FrameClockK a) => - a -- _obj - -> m () -- result -frameClockEndUpdating _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_frame_clock_end_updating _obj' - touchManagedPtr _obj - return () - -data FrameClockEndUpdatingMethodInfo -instance (signature ~ (m ()), MonadIO m, FrameClockK a) => MethodInfo FrameClockEndUpdatingMethodInfo a signature where - overloadedMethod _ = frameClockEndUpdating - --- method FrameClock::get_current_timings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "FrameTimings") --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_clock_get_current_timings" gdk_frame_clock_get_current_timings :: - Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" - IO (Ptr FrameTimings) - - -frameClockGetCurrentTimings :: - (MonadIO m, FrameClockK a) => - a -- _obj - -> m (Maybe FrameTimings) -- result -frameClockGetCurrentTimings _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_frame_clock_get_current_timings _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed FrameTimings) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data FrameClockGetCurrentTimingsMethodInfo -instance (signature ~ (m (Maybe FrameTimings)), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetCurrentTimingsMethodInfo a signature where - overloadedMethod _ = frameClockGetCurrentTimings - --- method FrameClock::get_frame_counter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_clock_get_frame_counter" gdk_frame_clock_get_frame_counter :: - Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" - IO Int64 - - -frameClockGetFrameCounter :: - (MonadIO m, FrameClockK a) => - a -- _obj - -> m Int64 -- result -frameClockGetFrameCounter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_frame_clock_get_frame_counter _obj' - touchManagedPtr _obj - return result - -data FrameClockGetFrameCounterMethodInfo -instance (signature ~ (m Int64), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetFrameCounterMethodInfo a signature where - overloadedMethod _ = frameClockGetFrameCounter - --- method FrameClock::get_frame_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_clock_get_frame_time" gdk_frame_clock_get_frame_time :: - Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" - IO Int64 - - -frameClockGetFrameTime :: - (MonadIO m, FrameClockK a) => - a -- _obj - -> m Int64 -- result -frameClockGetFrameTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_frame_clock_get_frame_time _obj' - touchManagedPtr _obj - return result - -data FrameClockGetFrameTimeMethodInfo -instance (signature ~ (m Int64), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetFrameTimeMethodInfo a signature where - overloadedMethod _ = frameClockGetFrameTime - --- method FrameClock::get_history_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_clock_get_history_start" gdk_frame_clock_get_history_start :: - Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" - IO Int64 - - -frameClockGetHistoryStart :: - (MonadIO m, FrameClockK a) => - a -- _obj - -> m Int64 -- result -frameClockGetHistoryStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_frame_clock_get_history_start _obj' - touchManagedPtr _obj - return result - -data FrameClockGetHistoryStartMethodInfo -instance (signature ~ (m Int64), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetHistoryStartMethodInfo a signature where - overloadedMethod _ = frameClockGetHistoryStart - --- method FrameClock::get_refresh_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refresh_interval_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "presentation_time_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_clock_get_refresh_info" gdk_frame_clock_get_refresh_info :: - Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" - Int64 -> -- base_time : TBasicType TInt64 - Int64 -> -- refresh_interval_return : TBasicType TInt64 - Int64 -> -- presentation_time_return : TBasicType TInt64 - IO () - - -frameClockGetRefreshInfo :: - (MonadIO m, FrameClockK a) => - a -- _obj - -> Int64 -- baseTime - -> Int64 -- refreshIntervalReturn - -> Int64 -- presentationTimeReturn - -> m () -- result -frameClockGetRefreshInfo _obj baseTime refreshIntervalReturn presentationTimeReturn = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_frame_clock_get_refresh_info _obj' baseTime refreshIntervalReturn presentationTimeReturn - touchManagedPtr _obj - return () - -data FrameClockGetRefreshInfoMethodInfo -instance (signature ~ (Int64 -> Int64 -> Int64 -> m ()), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetRefreshInfoMethodInfo a signature where - overloadedMethod _ = frameClockGetRefreshInfo - --- method FrameClock::get_timings --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "frame_counter", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "FrameTimings") --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_clock_get_timings" gdk_frame_clock_get_timings :: - Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" - Int64 -> -- frame_counter : TBasicType TInt64 - IO (Ptr FrameTimings) - - -frameClockGetTimings :: - (MonadIO m, FrameClockK a) => - a -- _obj - -> Int64 -- frameCounter - -> m (Maybe FrameTimings) -- result -frameClockGetTimings _obj frameCounter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_frame_clock_get_timings _obj' frameCounter - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed FrameTimings) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data FrameClockGetTimingsMethodInfo -instance (signature ~ (Int64 -> m (Maybe FrameTimings)), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetTimingsMethodInfo a signature where - overloadedMethod _ = frameClockGetTimings - --- method FrameClock::request_phase --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "phase", argType = TInterface "Gdk" "FrameClockPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_clock_request_phase" gdk_frame_clock_request_phase :: - Ptr FrameClock -> -- _obj : TInterface "Gdk" "FrameClock" - CUInt -> -- phase : TInterface "Gdk" "FrameClockPhase" - IO () - - -frameClockRequestPhase :: - (MonadIO m, FrameClockK a) => - a -- _obj - -> [FrameClockPhase] -- phase - -> m () -- result -frameClockRequestPhase _obj phase = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let phase' = gflagsToWord phase - gdk_frame_clock_request_phase _obj' phase' - touchManagedPtr _obj - return () - -data FrameClockRequestPhaseMethodInfo -instance (signature ~ ([FrameClockPhase] -> m ()), MonadIO m, FrameClockK a) => MethodInfo FrameClockRequestPhaseMethodInfo a signature where - overloadedMethod _ = frameClockRequestPhase - - diff --git a/GI/Gdk/Objects/FrameClock.hs-boot b/GI/Gdk/Objects/FrameClock.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/FrameClock.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.Gdk.Objects.FrameClock where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FrameClock = FrameClock (ForeignPtr FrameClock) -instance GObject FrameClock where -class GObject o => FrameClockK o -instance (GObject o, IsDescendantOf FrameClock o) => FrameClockK o -data FrameClockAfterPaintSignalInfo -data FrameClockBeforePaintSignalInfo -data FrameClockFlushEventsSignalInfo -data FrameClockLayoutSignalInfo -data FrameClockPaintSignalInfo -data FrameClockResumeEventsSignalInfo -data FrameClockUpdateSignalInfo -data FrameClockBeginUpdatingMethodInfo -data FrameClockEndUpdatingMethodInfo -data FrameClockGetCurrentTimingsMethodInfo -data FrameClockGetFrameCounterMethodInfo -data FrameClockGetFrameTimeMethodInfo -data FrameClockGetHistoryStartMethodInfo -data FrameClockGetRefreshInfoMethodInfo -data FrameClockGetTimingsMethodInfo -data FrameClockRequestPhaseMethodInfo diff --git a/GI/Gdk/Objects/GLContext.hs b/GI/Gdk/Objects/GLContext.hs deleted file mode 100644 --- a/GI/Gdk/Objects/GLContext.hs +++ /dev/null @@ -1,680 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.GLContext - ( - --- * Exported types - GLContext(..) , - GLContextK , - toGLContext , - noGLContext , - - - -- * Methods --- ** gLContextClearCurrent - gLContextClearCurrent , - - --- ** gLContextGetCurrent - gLContextGetCurrent , - - --- ** gLContextGetDebugEnabled - GLContextGetDebugEnabledMethodInfo , - gLContextGetDebugEnabled , - - --- ** gLContextGetDisplay - GLContextGetDisplayMethodInfo , - gLContextGetDisplay , - - --- ** gLContextGetForwardCompatible - GLContextGetForwardCompatibleMethodInfo , - gLContextGetForwardCompatible , - - --- ** gLContextGetRequiredVersion - GLContextGetRequiredVersionMethodInfo , - gLContextGetRequiredVersion , - - --- ** gLContextGetSharedContext - GLContextGetSharedContextMethodInfo , - gLContextGetSharedContext , - - --- ** gLContextGetVersion - GLContextGetVersionMethodInfo , - gLContextGetVersion , - - --- ** gLContextGetWindow - GLContextGetWindowMethodInfo , - gLContextGetWindow , - - --- ** gLContextMakeCurrent - GLContextMakeCurrentMethodInfo , - gLContextMakeCurrent , - - --- ** gLContextRealize - GLContextRealizeMethodInfo , - gLContextRealize , - - --- ** gLContextSetDebugEnabled - GLContextSetDebugEnabledMethodInfo , - gLContextSetDebugEnabled , - - --- ** gLContextSetForwardCompatible - GLContextSetForwardCompatibleMethodInfo , - gLContextSetForwardCompatible , - - --- ** gLContextSetRequiredVersion - GLContextSetRequiredVersionMethodInfo , - gLContextSetRequiredVersion , - - - - - -- * Properties --- ** Display - GLContextDisplayPropertyInfo , - constructGLContextDisplay , - gLContextDisplay , - getGLContextDisplay , - - --- ** SharedContext - GLContextSharedContextPropertyInfo , - constructGLContextSharedContext , - gLContextSharedContext , - getGLContextSharedContext , - - --- ** Window - GLContextWindowPropertyInfo , - constructGLContextWindow , - gLContextWindow , - getGLContextWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject - -newtype GLContext = GLContext (ForeignPtr GLContext) -foreign import ccall "gdk_gl_context_get_type" - c_gdk_gl_context_get_type :: IO GType - -type instance ParentTypes GLContext = GLContextParentTypes -type GLContextParentTypes = '[GObject.Object] - -instance GObject GLContext where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_gl_context_get_type - - -class GObject o => GLContextK o -instance (GObject o, IsDescendantOf GLContext o) => GLContextK o - -toGLContext :: GLContextK o => o -> IO GLContext -toGLContext = unsafeCastTo GLContext - -noGLContext :: Maybe GLContext -noGLContext = Nothing - -type family ResolveGLContextMethod (t :: Symbol) (o :: *) :: * where - ResolveGLContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveGLContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveGLContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveGLContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveGLContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveGLContextMethod "makeCurrent" o = GLContextMakeCurrentMethodInfo - ResolveGLContextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveGLContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveGLContextMethod "realize" o = GLContextRealizeMethodInfo - ResolveGLContextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveGLContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveGLContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveGLContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveGLContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveGLContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveGLContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveGLContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveGLContextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveGLContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveGLContextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveGLContextMethod "getDebugEnabled" o = GLContextGetDebugEnabledMethodInfo - ResolveGLContextMethod "getDisplay" o = GLContextGetDisplayMethodInfo - ResolveGLContextMethod "getForwardCompatible" o = GLContextGetForwardCompatibleMethodInfo - ResolveGLContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveGLContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveGLContextMethod "getRequiredVersion" o = GLContextGetRequiredVersionMethodInfo - ResolveGLContextMethod "getSharedContext" o = GLContextGetSharedContextMethodInfo - ResolveGLContextMethod "getVersion" o = GLContextGetVersionMethodInfo - ResolveGLContextMethod "getWindow" o = GLContextGetWindowMethodInfo - ResolveGLContextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveGLContextMethod "setDebugEnabled" o = GLContextSetDebugEnabledMethodInfo - ResolveGLContextMethod "setForwardCompatible" o = GLContextSetForwardCompatibleMethodInfo - ResolveGLContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveGLContextMethod "setRequiredVersion" o = GLContextSetRequiredVersionMethodInfo - ResolveGLContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGLContextMethod t GLContext, MethodInfo info GLContext p) => IsLabelProxy t (GLContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGLContextMethod t GLContext, MethodInfo info GLContext p) => IsLabel t (GLContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "display" - -- Type: TInterface "Gdk" "Display" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getGLContextDisplay :: (MonadIO m, GLContextK o) => o -> m Display -getGLContextDisplay obj = liftIO $ checkUnexpectedNothing "getGLContextDisplay" $ getObjectPropertyObject obj "display" Display - -constructGLContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue) -constructGLContextDisplay val = constructObjectPropertyObject "display" (Just val) - -data GLContextDisplayPropertyInfo -instance AttrInfo GLContextDisplayPropertyInfo where - type AttrAllowedOps GLContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint GLContextDisplayPropertyInfo = DisplayK - type AttrBaseTypeConstraint GLContextDisplayPropertyInfo = GLContextK - type AttrGetType GLContextDisplayPropertyInfo = Display - type AttrLabel GLContextDisplayPropertyInfo = "display" - attrGet _ = getGLContextDisplay - attrSet _ = undefined - attrConstruct _ = constructGLContextDisplay - attrClear _ = undefined - --- VVV Prop "shared-context" - -- Type: TInterface "Gdk" "GLContext" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getGLContextSharedContext :: (MonadIO m, GLContextK o) => o -> m GLContext -getGLContextSharedContext obj = liftIO $ checkUnexpectedNothing "getGLContextSharedContext" $ getObjectPropertyObject obj "shared-context" GLContext - -constructGLContextSharedContext :: (GLContextK a) => a -> IO ([Char], GValue) -constructGLContextSharedContext val = constructObjectPropertyObject "shared-context" (Just val) - -data GLContextSharedContextPropertyInfo -instance AttrInfo GLContextSharedContextPropertyInfo where - type AttrAllowedOps GLContextSharedContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint GLContextSharedContextPropertyInfo = GLContextK - type AttrBaseTypeConstraint GLContextSharedContextPropertyInfo = GLContextK - type AttrGetType GLContextSharedContextPropertyInfo = GLContext - type AttrLabel GLContextSharedContextPropertyInfo = "shared-context" - attrGet _ = getGLContextSharedContext - attrSet _ = undefined - attrConstruct _ = constructGLContextSharedContext - attrClear _ = undefined - --- VVV Prop "window" - -- Type: TInterface "Gdk" "Window" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getGLContextWindow :: (MonadIO m, GLContextK o) => o -> m Window -getGLContextWindow obj = liftIO $ checkUnexpectedNothing "getGLContextWindow" $ getObjectPropertyObject obj "window" Window - -constructGLContextWindow :: (WindowK a) => a -> IO ([Char], GValue) -constructGLContextWindow val = constructObjectPropertyObject "window" (Just val) - -data GLContextWindowPropertyInfo -instance AttrInfo GLContextWindowPropertyInfo where - type AttrAllowedOps GLContextWindowPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint GLContextWindowPropertyInfo = WindowK - type AttrBaseTypeConstraint GLContextWindowPropertyInfo = GLContextK - type AttrGetType GLContextWindowPropertyInfo = Window - type AttrLabel GLContextWindowPropertyInfo = "window" - attrGet _ = getGLContextWindow - attrSet _ = undefined - attrConstruct _ = constructGLContextWindow - attrClear _ = undefined - -type instance AttributeList GLContext = GLContextAttributeList -type GLContextAttributeList = ('[ '("display", GLContextDisplayPropertyInfo), '("sharedContext", GLContextSharedContextPropertyInfo), '("window", GLContextWindowPropertyInfo)] :: [(Symbol, *)]) - -gLContextDisplay :: AttrLabelProxy "display" -gLContextDisplay = AttrLabelProxy - -gLContextSharedContext :: AttrLabelProxy "sharedContext" -gLContextSharedContext = AttrLabelProxy - -gLContextWindow :: AttrLabelProxy "window" -gLContextWindow = AttrLabelProxy - -type instance SignalList GLContext = GLContextSignalList -type GLContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method GLContext::get_debug_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_get_debug_enabled" gdk_gl_context_get_debug_enabled :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - IO CInt - - -gLContextGetDebugEnabled :: - (MonadIO m, GLContextK a) => - a -- _obj - -> m Bool -- result -gLContextGetDebugEnabled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_gl_context_get_debug_enabled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GLContextGetDebugEnabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, GLContextK a) => MethodInfo GLContextGetDebugEnabledMethodInfo a signature where - overloadedMethod _ = gLContextGetDebugEnabled - --- method GLContext::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_get_display" gdk_gl_context_get_display :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - IO (Ptr Display) - - -gLContextGetDisplay :: - (MonadIO m, GLContextK a) => - a -- _obj - -> m Display -- result -gLContextGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_gl_context_get_display _obj' - checkUnexpectedReturnNULL "gdk_gl_context_get_display" result - result' <- (newObject Display) result - touchManagedPtr _obj - return result' - -data GLContextGetDisplayMethodInfo -instance (signature ~ (m Display), MonadIO m, GLContextK a) => MethodInfo GLContextGetDisplayMethodInfo a signature where - overloadedMethod _ = gLContextGetDisplay - --- method GLContext::get_forward_compatible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_get_forward_compatible" gdk_gl_context_get_forward_compatible :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - IO CInt - - -gLContextGetForwardCompatible :: - (MonadIO m, GLContextK a) => - a -- _obj - -> m Bool -- result -gLContextGetForwardCompatible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_gl_context_get_forward_compatible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data GLContextGetForwardCompatibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, GLContextK a) => MethodInfo GLContextGetForwardCompatibleMethodInfo a signature where - overloadedMethod _ = gLContextGetForwardCompatible - --- method GLContext::get_required_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_get_required_version" gdk_gl_context_get_required_version :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - Ptr Int32 -> -- major : TBasicType TInt - Ptr Int32 -> -- minor : TBasicType TInt - IO () - - -gLContextGetRequiredVersion :: - (MonadIO m, GLContextK a) => - a -- _obj - -> m (Int32,Int32) -- result -gLContextGetRequiredVersion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - major <- allocMem :: IO (Ptr Int32) - minor <- allocMem :: IO (Ptr Int32) - gdk_gl_context_get_required_version _obj' major minor - major' <- peek major - minor' <- peek minor - touchManagedPtr _obj - freeMem major - freeMem minor - return (major', minor') - -data GLContextGetRequiredVersionMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, GLContextK a) => MethodInfo GLContextGetRequiredVersionMethodInfo a signature where - overloadedMethod _ = gLContextGetRequiredVersion - --- method GLContext::get_shared_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "GLContext") --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_get_shared_context" gdk_gl_context_get_shared_context :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - IO (Ptr GLContext) - - -gLContextGetSharedContext :: - (MonadIO m, GLContextK a) => - a -- _obj - -> m GLContext -- result -gLContextGetSharedContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_gl_context_get_shared_context _obj' - checkUnexpectedReturnNULL "gdk_gl_context_get_shared_context" result - result' <- (newObject GLContext) result - touchManagedPtr _obj - return result' - -data GLContextGetSharedContextMethodInfo -instance (signature ~ (m GLContext), MonadIO m, GLContextK a) => MethodInfo GLContextGetSharedContextMethodInfo a signature where - overloadedMethod _ = gLContextGetSharedContext - --- method GLContext::get_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_get_version" gdk_gl_context_get_version :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - Ptr Int32 -> -- major : TBasicType TInt - Ptr Int32 -> -- minor : TBasicType TInt - IO () - - -gLContextGetVersion :: - (MonadIO m, GLContextK a) => - a -- _obj - -> m (Int32,Int32) -- result -gLContextGetVersion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - major <- allocMem :: IO (Ptr Int32) - minor <- allocMem :: IO (Ptr Int32) - gdk_gl_context_get_version _obj' major minor - major' <- peek major - minor' <- peek minor - touchManagedPtr _obj - freeMem major - freeMem minor - return (major', minor') - -data GLContextGetVersionMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, GLContextK a) => MethodInfo GLContextGetVersionMethodInfo a signature where - overloadedMethod _ = gLContextGetVersion - --- method GLContext::get_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_get_window" gdk_gl_context_get_window :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - IO (Ptr Window) - - -gLContextGetWindow :: - (MonadIO m, GLContextK a) => - a -- _obj - -> m Window -- result -gLContextGetWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_gl_context_get_window _obj' - checkUnexpectedReturnNULL "gdk_gl_context_get_window" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data GLContextGetWindowMethodInfo -instance (signature ~ (m Window), MonadIO m, GLContextK a) => MethodInfo GLContextGetWindowMethodInfo a signature where - overloadedMethod _ = gLContextGetWindow - --- method GLContext::make_current --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_make_current" gdk_gl_context_make_current :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - IO () - - -gLContextMakeCurrent :: - (MonadIO m, GLContextK a) => - a -- _obj - -> m () -- result -gLContextMakeCurrent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_gl_context_make_current _obj' - touchManagedPtr _obj - return () - -data GLContextMakeCurrentMethodInfo -instance (signature ~ (m ()), MonadIO m, GLContextK a) => MethodInfo GLContextMakeCurrentMethodInfo a signature where - overloadedMethod _ = gLContextMakeCurrent - --- method GLContext::realize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "gdk_gl_context_realize" gdk_gl_context_realize :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - Ptr (Ptr GError) -> -- error - IO CInt - - -gLContextRealize :: - (MonadIO m, GLContextK a) => - a -- _obj - -> m () -- result -gLContextRealize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ gdk_gl_context_realize _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data GLContextRealizeMethodInfo -instance (signature ~ (m ()), MonadIO m, GLContextK a) => MethodInfo GLContextRealizeMethodInfo a signature where - overloadedMethod _ = gLContextRealize - --- method GLContext::set_debug_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_set_debug_enabled" gdk_gl_context_set_debug_enabled :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -gLContextSetDebugEnabled :: - (MonadIO m, GLContextK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -gLContextSetDebugEnabled _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - gdk_gl_context_set_debug_enabled _obj' enabled' - touchManagedPtr _obj - return () - -data GLContextSetDebugEnabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, GLContextK a) => MethodInfo GLContextSetDebugEnabledMethodInfo a signature where - overloadedMethod _ = gLContextSetDebugEnabled - --- method GLContext::set_forward_compatible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compatible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_set_forward_compatible" gdk_gl_context_set_forward_compatible :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - CInt -> -- compatible : TBasicType TBoolean - IO () - - -gLContextSetForwardCompatible :: - (MonadIO m, GLContextK a) => - a -- _obj - -> Bool -- compatible - -> m () -- result -gLContextSetForwardCompatible _obj compatible = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let compatible' = (fromIntegral . fromEnum) compatible - gdk_gl_context_set_forward_compatible _obj' compatible' - touchManagedPtr _obj - return () - -data GLContextSetForwardCompatibleMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, GLContextK a) => MethodInfo GLContextSetForwardCompatibleMethodInfo a signature where - overloadedMethod _ = gLContextSetForwardCompatible - --- method GLContext::set_required_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minor", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_set_required_version" gdk_gl_context_set_required_version :: - Ptr GLContext -> -- _obj : TInterface "Gdk" "GLContext" - Int32 -> -- major : TBasicType TInt - Int32 -> -- minor : TBasicType TInt - IO () - - -gLContextSetRequiredVersion :: - (MonadIO m, GLContextK a) => - a -- _obj - -> Int32 -- major - -> Int32 -- minor - -> m () -- result -gLContextSetRequiredVersion _obj major minor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_gl_context_set_required_version _obj' major minor - touchManagedPtr _obj - return () - -data GLContextSetRequiredVersionMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, GLContextK a) => MethodInfo GLContextSetRequiredVersionMethodInfo a signature where - overloadedMethod _ = gLContextSetRequiredVersion - --- method GLContext::clear_current --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_clear_current" gdk_gl_context_clear_current :: - IO () - - -gLContextClearCurrent :: - (MonadIO m) => - m () -- result -gLContextClearCurrent = liftIO $ do - gdk_gl_context_clear_current - return () - --- method GLContext::get_current --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "GLContext") --- throws : False --- Skip return : False - -foreign import ccall "gdk_gl_context_get_current" gdk_gl_context_get_current :: - IO (Ptr GLContext) - - -gLContextGetCurrent :: - (MonadIO m) => - m GLContext -- result -gLContextGetCurrent = liftIO $ do - result <- gdk_gl_context_get_current - checkUnexpectedReturnNULL "gdk_gl_context_get_current" result - result' <- (newObject GLContext) result - return result' - - diff --git a/GI/Gdk/Objects/GLContext.hs-boot b/GI/Gdk/Objects/GLContext.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/GLContext.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gdk.Objects.GLContext where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype GLContext = GLContext (ForeignPtr GLContext) -instance GObject GLContext where -class GObject o => GLContextK o -instance (GObject o, IsDescendantOf GLContext o) => GLContextK o -data GLContextDisplayPropertyInfo -data GLContextSharedContextPropertyInfo -data GLContextWindowPropertyInfo -data GLContextGetDebugEnabledMethodInfo -data GLContextGetDisplayMethodInfo -data GLContextGetForwardCompatibleMethodInfo -data GLContextGetRequiredVersionMethodInfo -data GLContextGetSharedContextMethodInfo -data GLContextGetVersionMethodInfo -data GLContextGetWindowMethodInfo -data GLContextMakeCurrentMethodInfo -data GLContextRealizeMethodInfo -data GLContextSetDebugEnabledMethodInfo -data GLContextSetForwardCompatibleMethodInfo -data GLContextSetRequiredVersionMethodInfo diff --git a/GI/Gdk/Objects/Keymap.hs b/GI/Gdk/Objects/Keymap.hs deleted file mode 100644 --- a/GI/Gdk/Objects/Keymap.hs +++ /dev/null @@ -1,836 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.Keymap - ( - --- * Exported types - Keymap(..) , - KeymapK , - toKeymap , - noKeymap , - - - -- * Methods --- ** keymapAddVirtualModifiers - KeymapAddVirtualModifiersMethodInfo , - keymapAddVirtualModifiers , - - --- ** keymapGetCapsLockState - KeymapGetCapsLockStateMethodInfo , - keymapGetCapsLockState , - - --- ** keymapGetDefault - keymapGetDefault , - - --- ** keymapGetDirection - KeymapGetDirectionMethodInfo , - keymapGetDirection , - - --- ** keymapGetEntriesForKeycode - KeymapGetEntriesForKeycodeMethodInfo , - keymapGetEntriesForKeycode , - - --- ** keymapGetEntriesForKeyval - KeymapGetEntriesForKeyvalMethodInfo , - keymapGetEntriesForKeyval , - - --- ** keymapGetForDisplay - keymapGetForDisplay , - - --- ** keymapGetModifierMask - KeymapGetModifierMaskMethodInfo , - keymapGetModifierMask , - - --- ** keymapGetModifierState - KeymapGetModifierStateMethodInfo , - keymapGetModifierState , - - --- ** keymapGetNumLockState - KeymapGetNumLockStateMethodInfo , - keymapGetNumLockState , - - --- ** keymapGetScrollLockState - KeymapGetScrollLockStateMethodInfo , - keymapGetScrollLockState , - - --- ** keymapHaveBidiLayouts - KeymapHaveBidiLayoutsMethodInfo , - keymapHaveBidiLayouts , - - --- ** keymapLookupKey - KeymapLookupKeyMethodInfo , - keymapLookupKey , - - --- ** keymapMapVirtualModifiers - KeymapMapVirtualModifiersMethodInfo , - keymapMapVirtualModifiers , - - --- ** keymapTranslateKeyboardState - KeymapTranslateKeyboardStateMethodInfo , - keymapTranslateKeyboardState , - - - - - -- * Signals --- ** DirectionChanged - KeymapDirectionChangedCallback , - KeymapDirectionChangedCallbackC , - KeymapDirectionChangedSignalInfo , - afterKeymapDirectionChanged , - keymapDirectionChangedCallbackWrapper , - keymapDirectionChangedClosure , - mkKeymapDirectionChangedCallback , - noKeymapDirectionChangedCallback , - onKeymapDirectionChanged , - - --- ** KeysChanged - KeymapKeysChangedCallback , - KeymapKeysChangedCallbackC , - KeymapKeysChangedSignalInfo , - afterKeymapKeysChanged , - keymapKeysChangedCallbackWrapper , - keymapKeysChangedClosure , - mkKeymapKeysChangedCallback , - noKeymapKeysChangedCallback , - onKeymapKeysChanged , - - --- ** StateChanged - KeymapStateChangedCallback , - KeymapStateChangedCallbackC , - KeymapStateChangedSignalInfo , - afterKeymapStateChanged , - keymapStateChangedCallbackWrapper , - keymapStateChangedClosure , - mkKeymapStateChangedCallback , - noKeymapStateChangedCallback , - onKeymapStateChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Pango as Pango - -newtype Keymap = Keymap (ForeignPtr Keymap) -foreign import ccall "gdk_keymap_get_type" - c_gdk_keymap_get_type :: IO GType - -type instance ParentTypes Keymap = KeymapParentTypes -type KeymapParentTypes = '[GObject.Object] - -instance GObject Keymap where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_keymap_get_type - - -class GObject o => KeymapK o -instance (GObject o, IsDescendantOf Keymap o) => KeymapK o - -toKeymap :: KeymapK o => o -> IO Keymap -toKeymap = unsafeCastTo Keymap - -noKeymap :: Maybe Keymap -noKeymap = Nothing - -type family ResolveKeymapMethod (t :: Symbol) (o :: *) :: * where - ResolveKeymapMethod "addVirtualModifiers" o = KeymapAddVirtualModifiersMethodInfo - ResolveKeymapMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveKeymapMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveKeymapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveKeymapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveKeymapMethod "haveBidiLayouts" o = KeymapHaveBidiLayoutsMethodInfo - ResolveKeymapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveKeymapMethod "lookupKey" o = KeymapLookupKeyMethodInfo - ResolveKeymapMethod "mapVirtualModifiers" o = KeymapMapVirtualModifiersMethodInfo - ResolveKeymapMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveKeymapMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveKeymapMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveKeymapMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveKeymapMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveKeymapMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveKeymapMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveKeymapMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveKeymapMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveKeymapMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveKeymapMethod "translateKeyboardState" o = KeymapTranslateKeyboardStateMethodInfo - ResolveKeymapMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveKeymapMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveKeymapMethod "getCapsLockState" o = KeymapGetCapsLockStateMethodInfo - ResolveKeymapMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveKeymapMethod "getDirection" o = KeymapGetDirectionMethodInfo - ResolveKeymapMethod "getEntriesForKeycode" o = KeymapGetEntriesForKeycodeMethodInfo - ResolveKeymapMethod "getEntriesForKeyval" o = KeymapGetEntriesForKeyvalMethodInfo - ResolveKeymapMethod "getModifierMask" o = KeymapGetModifierMaskMethodInfo - ResolveKeymapMethod "getModifierState" o = KeymapGetModifierStateMethodInfo - ResolveKeymapMethod "getNumLockState" o = KeymapGetNumLockStateMethodInfo - ResolveKeymapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveKeymapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveKeymapMethod "getScrollLockState" o = KeymapGetScrollLockStateMethodInfo - ResolveKeymapMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveKeymapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveKeymapMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveKeymapMethod t Keymap, MethodInfo info Keymap p) => IsLabelProxy t (Keymap -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveKeymapMethod t Keymap, MethodInfo info Keymap p) => IsLabel t (Keymap -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Keymap::direction-changed -type KeymapDirectionChangedCallback = - IO () - -noKeymapDirectionChangedCallback :: Maybe KeymapDirectionChangedCallback -noKeymapDirectionChangedCallback = Nothing - -type KeymapDirectionChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkKeymapDirectionChangedCallback :: KeymapDirectionChangedCallbackC -> IO (FunPtr KeymapDirectionChangedCallbackC) - -keymapDirectionChangedClosure :: KeymapDirectionChangedCallback -> IO Closure -keymapDirectionChangedClosure cb = newCClosure =<< mkKeymapDirectionChangedCallback wrapped - where wrapped = keymapDirectionChangedCallbackWrapper cb - -keymapDirectionChangedCallbackWrapper :: - KeymapDirectionChangedCallback -> - Ptr () -> - Ptr () -> - IO () -keymapDirectionChangedCallbackWrapper _cb _ _ = do - _cb - -onKeymapDirectionChanged :: (GObject a, MonadIO m) => a -> KeymapDirectionChangedCallback -> m SignalHandlerId -onKeymapDirectionChanged obj cb = liftIO $ connectKeymapDirectionChanged obj cb SignalConnectBefore -afterKeymapDirectionChanged :: (GObject a, MonadIO m) => a -> KeymapDirectionChangedCallback -> m SignalHandlerId -afterKeymapDirectionChanged obj cb = connectKeymapDirectionChanged obj cb SignalConnectAfter - -connectKeymapDirectionChanged :: (GObject a, MonadIO m) => - a -> KeymapDirectionChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectKeymapDirectionChanged obj cb after = liftIO $ do - cb' <- mkKeymapDirectionChangedCallback (keymapDirectionChangedCallbackWrapper cb) - connectSignalFunPtr obj "direction-changed" cb' after - --- signal Keymap::keys-changed -type KeymapKeysChangedCallback = - IO () - -noKeymapKeysChangedCallback :: Maybe KeymapKeysChangedCallback -noKeymapKeysChangedCallback = Nothing - -type KeymapKeysChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkKeymapKeysChangedCallback :: KeymapKeysChangedCallbackC -> IO (FunPtr KeymapKeysChangedCallbackC) - -keymapKeysChangedClosure :: KeymapKeysChangedCallback -> IO Closure -keymapKeysChangedClosure cb = newCClosure =<< mkKeymapKeysChangedCallback wrapped - where wrapped = keymapKeysChangedCallbackWrapper cb - -keymapKeysChangedCallbackWrapper :: - KeymapKeysChangedCallback -> - Ptr () -> - Ptr () -> - IO () -keymapKeysChangedCallbackWrapper _cb _ _ = do - _cb - -onKeymapKeysChanged :: (GObject a, MonadIO m) => a -> KeymapKeysChangedCallback -> m SignalHandlerId -onKeymapKeysChanged obj cb = liftIO $ connectKeymapKeysChanged obj cb SignalConnectBefore -afterKeymapKeysChanged :: (GObject a, MonadIO m) => a -> KeymapKeysChangedCallback -> m SignalHandlerId -afterKeymapKeysChanged obj cb = connectKeymapKeysChanged obj cb SignalConnectAfter - -connectKeymapKeysChanged :: (GObject a, MonadIO m) => - a -> KeymapKeysChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectKeymapKeysChanged obj cb after = liftIO $ do - cb' <- mkKeymapKeysChangedCallback (keymapKeysChangedCallbackWrapper cb) - connectSignalFunPtr obj "keys-changed" cb' after - --- signal Keymap::state-changed -type KeymapStateChangedCallback = - IO () - -noKeymapStateChangedCallback :: Maybe KeymapStateChangedCallback -noKeymapStateChangedCallback = Nothing - -type KeymapStateChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkKeymapStateChangedCallback :: KeymapStateChangedCallbackC -> IO (FunPtr KeymapStateChangedCallbackC) - -keymapStateChangedClosure :: KeymapStateChangedCallback -> IO Closure -keymapStateChangedClosure cb = newCClosure =<< mkKeymapStateChangedCallback wrapped - where wrapped = keymapStateChangedCallbackWrapper cb - -keymapStateChangedCallbackWrapper :: - KeymapStateChangedCallback -> - Ptr () -> - Ptr () -> - IO () -keymapStateChangedCallbackWrapper _cb _ _ = do - _cb - -onKeymapStateChanged :: (GObject a, MonadIO m) => a -> KeymapStateChangedCallback -> m SignalHandlerId -onKeymapStateChanged obj cb = liftIO $ connectKeymapStateChanged obj cb SignalConnectBefore -afterKeymapStateChanged :: (GObject a, MonadIO m) => a -> KeymapStateChangedCallback -> m SignalHandlerId -afterKeymapStateChanged obj cb = connectKeymapStateChanged obj cb SignalConnectAfter - -connectKeymapStateChanged :: (GObject a, MonadIO m) => - a -> KeymapStateChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectKeymapStateChanged obj cb after = liftIO $ do - cb' <- mkKeymapStateChangedCallback (keymapStateChangedCallbackWrapper cb) - connectSignalFunPtr obj "state-changed" cb' after - -type instance AttributeList Keymap = KeymapAttributeList -type KeymapAttributeList = ('[ ] :: [(Symbol, *)]) - -data KeymapDirectionChangedSignalInfo -instance SignalInfo KeymapDirectionChangedSignalInfo where - type HaskellCallbackType KeymapDirectionChangedSignalInfo = KeymapDirectionChangedCallback - connectSignal _ = connectKeymapDirectionChanged - -data KeymapKeysChangedSignalInfo -instance SignalInfo KeymapKeysChangedSignalInfo where - type HaskellCallbackType KeymapKeysChangedSignalInfo = KeymapKeysChangedCallback - connectSignal _ = connectKeymapKeysChanged - -data KeymapStateChangedSignalInfo -instance SignalInfo KeymapStateChangedSignalInfo where - type HaskellCallbackType KeymapStateChangedSignalInfo = KeymapStateChangedCallback - connectSignal _ = connectKeymapStateChanged - -type instance SignalList Keymap = KeymapSignalList -type KeymapSignalList = ('[ '("directionChanged", KeymapDirectionChangedSignalInfo), '("keysChanged", KeymapKeysChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("stateChanged", KeymapStateChangedSignalInfo)] :: [(Symbol, *)]) - --- method Keymap::add_virtual_modifiers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_add_virtual_modifiers" gdk_keymap_add_virtual_modifiers :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - Ptr CUInt -> -- state : TInterface "Gdk" "ModifierType" - IO () - - -keymapAddVirtualModifiers :: - (MonadIO m, KeymapK a) => - a -- _obj - -> [ModifierType] -- state - -> m ([ModifierType]) -- result -keymapAddVirtualModifiers _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - state'' <- allocMem :: IO (Ptr CUInt) - poke state'' state' - gdk_keymap_add_virtual_modifiers _obj' state'' - state''' <- peek state'' - let state'''' = wordToGFlags state''' - touchManagedPtr _obj - freeMem state'' - return state'''' - -data KeymapAddVirtualModifiersMethodInfo -instance (signature ~ ([ModifierType] -> m ([ModifierType])), MonadIO m, KeymapK a) => MethodInfo KeymapAddVirtualModifiersMethodInfo a signature where - overloadedMethod _ = keymapAddVirtualModifiers - --- method Keymap::get_caps_lock_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_get_caps_lock_state" gdk_keymap_get_caps_lock_state :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - IO CInt - - -keymapGetCapsLockState :: - (MonadIO m, KeymapK a) => - a -- _obj - -> m Bool -- result -keymapGetCapsLockState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_keymap_get_caps_lock_state _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data KeymapGetCapsLockStateMethodInfo -instance (signature ~ (m Bool), MonadIO m, KeymapK a) => MethodInfo KeymapGetCapsLockStateMethodInfo a signature where - overloadedMethod _ = keymapGetCapsLockState - --- method Keymap::get_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Pango" "Direction") --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_get_direction" gdk_keymap_get_direction :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - IO CUInt - - -keymapGetDirection :: - (MonadIO m, KeymapK a) => - a -- _obj - -> m Pango.Direction -- result -keymapGetDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_keymap_get_direction _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data KeymapGetDirectionMethodInfo -instance (signature ~ (m Pango.Direction), MonadIO m, KeymapK a) => MethodInfo KeymapGetDirectionMethodInfo a signature where - overloadedMethod _ = keymapGetDirection - --- method Keymap::get_entries_for_keycode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hardware_keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keys", argType = TCArray False (-1) 4 (TInterface "Gdk" "KeymapKey"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyvals", argType = TCArray False (-1) 4 (TBasicType TUInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_get_entries_for_keycode" gdk_keymap_get_entries_for_keycode :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - Word32 -> -- hardware_keycode : TBasicType TUInt - Ptr (Ptr KeymapKey) -> -- keys : TCArray False (-1) 4 (TInterface "Gdk" "KeymapKey") - Ptr (Ptr Word32) -> -- keyvals : TCArray False (-1) 4 (TBasicType TUInt) - Ptr Int32 -> -- n_entries : TBasicType TInt - IO CInt - - -keymapGetEntriesForKeycode :: - (MonadIO m, KeymapK a) => - a -- _obj - -> Word32 -- hardwareKeycode - -> m (Bool,[KeymapKey],[Word32]) -- result -keymapGetEntriesForKeycode _obj hardwareKeycode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - keys <- allocMem :: IO (Ptr (Ptr KeymapKey)) - keyvals <- allocMem :: IO (Ptr (Ptr Word32)) - nEntries <- allocMem :: IO (Ptr Int32) - result <- gdk_keymap_get_entries_for_keycode _obj' hardwareKeycode keys keyvals nEntries - nEntries' <- peek nEntries - let result' = (/= 0) result - keys' <- peek keys - keys'' <- (unpackBlockArrayWithLength 12 nEntries') keys' - keys''' <- mapM (wrapPtr KeymapKey) keys'' - freeMem keys' - keyvals' <- peek keyvals - keyvals'' <- (unpackStorableArrayWithLength nEntries') keyvals' - freeMem keyvals' - touchManagedPtr _obj - freeMem keys - freeMem keyvals - freeMem nEntries - return (result', keys''', keyvals'') - -data KeymapGetEntriesForKeycodeMethodInfo -instance (signature ~ (Word32 -> m (Bool,[KeymapKey],[Word32])), MonadIO m, KeymapK a) => MethodInfo KeymapGetEntriesForKeycodeMethodInfo a signature where - overloadedMethod _ = keymapGetEntriesForKeycode - --- method Keymap::get_entries_for_keyval --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keys", argType = TCArray False (-1) 3 (TInterface "Gdk" "KeymapKey"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_keys", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_keys", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_get_entries_for_keyval" gdk_keymap_get_entries_for_keyval :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - Word32 -> -- keyval : TBasicType TUInt - Ptr (Ptr KeymapKey) -> -- keys : TCArray False (-1) 3 (TInterface "Gdk" "KeymapKey") - Ptr Int32 -> -- n_keys : TBasicType TInt - IO CInt - - -keymapGetEntriesForKeyval :: - (MonadIO m, KeymapK a) => - a -- _obj - -> Word32 -- keyval - -> m (Bool,[KeymapKey]) -- result -keymapGetEntriesForKeyval _obj keyval = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - keys <- allocMem :: IO (Ptr (Ptr KeymapKey)) - nKeys <- allocMem :: IO (Ptr Int32) - result <- gdk_keymap_get_entries_for_keyval _obj' keyval keys nKeys - nKeys' <- peek nKeys - let result' = (/= 0) result - keys' <- peek keys - keys'' <- (unpackBlockArrayWithLength 12 nKeys') keys' - keys''' <- mapM (wrapPtr KeymapKey) keys'' - freeMem keys' - touchManagedPtr _obj - freeMem keys - freeMem nKeys - return (result', keys''') - -data KeymapGetEntriesForKeyvalMethodInfo -instance (signature ~ (Word32 -> m (Bool,[KeymapKey])), MonadIO m, KeymapK a) => MethodInfo KeymapGetEntriesForKeyvalMethodInfo a signature where - overloadedMethod _ = keymapGetEntriesForKeyval - --- method Keymap::get_modifier_mask --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "ModifierType") --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_get_modifier_mask" gdk_keymap_get_modifier_mask :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - CUInt -> -- intent : TInterface "Gdk" "ModifierIntent" - IO CUInt - - -keymapGetModifierMask :: - (MonadIO m, KeymapK a) => - a -- _obj - -> ModifierIntent -- intent - -> m [ModifierType] -- result -keymapGetModifierMask _obj intent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let intent' = (fromIntegral . fromEnum) intent - result <- gdk_keymap_get_modifier_mask _obj' intent' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data KeymapGetModifierMaskMethodInfo -instance (signature ~ (ModifierIntent -> m [ModifierType]), MonadIO m, KeymapK a) => MethodInfo KeymapGetModifierMaskMethodInfo a signature where - overloadedMethod _ = keymapGetModifierMask - --- method Keymap::get_modifier_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_get_modifier_state" gdk_keymap_get_modifier_state :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - IO Word32 - - -keymapGetModifierState :: - (MonadIO m, KeymapK a) => - a -- _obj - -> m Word32 -- result -keymapGetModifierState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_keymap_get_modifier_state _obj' - touchManagedPtr _obj - return result - -data KeymapGetModifierStateMethodInfo -instance (signature ~ (m Word32), MonadIO m, KeymapK a) => MethodInfo KeymapGetModifierStateMethodInfo a signature where - overloadedMethod _ = keymapGetModifierState - --- method Keymap::get_num_lock_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_get_num_lock_state" gdk_keymap_get_num_lock_state :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - IO CInt - - -keymapGetNumLockState :: - (MonadIO m, KeymapK a) => - a -- _obj - -> m Bool -- result -keymapGetNumLockState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_keymap_get_num_lock_state _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data KeymapGetNumLockStateMethodInfo -instance (signature ~ (m Bool), MonadIO m, KeymapK a) => MethodInfo KeymapGetNumLockStateMethodInfo a signature where - overloadedMethod _ = keymapGetNumLockState - --- method Keymap::get_scroll_lock_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_get_scroll_lock_state" gdk_keymap_get_scroll_lock_state :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - IO CInt - - -keymapGetScrollLockState :: - (MonadIO m, KeymapK a) => - a -- _obj - -> m Bool -- result -keymapGetScrollLockState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_keymap_get_scroll_lock_state _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data KeymapGetScrollLockStateMethodInfo -instance (signature ~ (m Bool), MonadIO m, KeymapK a) => MethodInfo KeymapGetScrollLockStateMethodInfo a signature where - overloadedMethod _ = keymapGetScrollLockState - --- method Keymap::have_bidi_layouts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_have_bidi_layouts" gdk_keymap_have_bidi_layouts :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - IO CInt - - -keymapHaveBidiLayouts :: - (MonadIO m, KeymapK a) => - a -- _obj - -> m Bool -- result -keymapHaveBidiLayouts _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_keymap_have_bidi_layouts _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data KeymapHaveBidiLayoutsMethodInfo -instance (signature ~ (m Bool), MonadIO m, KeymapK a) => MethodInfo KeymapHaveBidiLayoutsMethodInfo a signature where - overloadedMethod _ = keymapHaveBidiLayouts - --- method Keymap::lookup_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TInterface "Gdk" "KeymapKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_lookup_key" gdk_keymap_lookup_key :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - Ptr KeymapKey -> -- key : TInterface "Gdk" "KeymapKey" - IO Word32 - - -keymapLookupKey :: - (MonadIO m, KeymapK a) => - a -- _obj - -> KeymapKey -- key - -> m Word32 -- result -keymapLookupKey _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let key' = unsafeManagedPtrGetPtr key - result <- gdk_keymap_lookup_key _obj' key' - touchManagedPtr _obj - touchManagedPtr key - return result - -data KeymapLookupKeyMethodInfo -instance (signature ~ (KeymapKey -> m Word32), MonadIO m, KeymapK a) => MethodInfo KeymapLookupKeyMethodInfo a signature where - overloadedMethod _ = keymapLookupKey - --- method Keymap::map_virtual_modifiers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_map_virtual_modifiers" gdk_keymap_map_virtual_modifiers :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - Ptr CUInt -> -- state : TInterface "Gdk" "ModifierType" - IO CInt - - -keymapMapVirtualModifiers :: - (MonadIO m, KeymapK a) => - a -- _obj - -> [ModifierType] -- state - -> m (Bool,[ModifierType]) -- result -keymapMapVirtualModifiers _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - state'' <- allocMem :: IO (Ptr CUInt) - poke state'' state' - result <- gdk_keymap_map_virtual_modifiers _obj' state'' - let result' = (/= 0) result - state''' <- peek state'' - let state'''' = wordToGFlags state''' - touchManagedPtr _obj - freeMem state'' - return (result', state'''') - -data KeymapMapVirtualModifiersMethodInfo -instance (signature ~ ([ModifierType] -> m (Bool,[ModifierType])), MonadIO m, KeymapK a) => MethodInfo KeymapMapVirtualModifiersMethodInfo a signature where - overloadedMethod _ = keymapMapVirtualModifiers - --- method Keymap::translate_keyboard_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hardware_keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "effective_group", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "consumed_modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_translate_keyboard_state" gdk_keymap_translate_keyboard_state :: - Ptr Keymap -> -- _obj : TInterface "Gdk" "Keymap" - Word32 -> -- hardware_keycode : TBasicType TUInt - CUInt -> -- state : TInterface "Gdk" "ModifierType" - Int32 -> -- group : TBasicType TInt - Ptr Word32 -> -- keyval : TBasicType TUInt - Ptr Int32 -> -- effective_group : TBasicType TInt - Ptr Int32 -> -- level : TBasicType TInt - Ptr CUInt -> -- consumed_modifiers : TInterface "Gdk" "ModifierType" - IO CInt - - -keymapTranslateKeyboardState :: - (MonadIO m, KeymapK a) => - a -- _obj - -> Word32 -- hardwareKeycode - -> [ModifierType] -- state - -> Int32 -- group - -> m (Bool,Word32,Int32,Int32,[ModifierType])-- result -keymapTranslateKeyboardState _obj hardwareKeycode state group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = gflagsToWord state - keyval <- allocMem :: IO (Ptr Word32) - effectiveGroup <- allocMem :: IO (Ptr Int32) - level <- allocMem :: IO (Ptr Int32) - consumedModifiers <- allocMem :: IO (Ptr CUInt) - result <- gdk_keymap_translate_keyboard_state _obj' hardwareKeycode state' group keyval effectiveGroup level consumedModifiers - let result' = (/= 0) result - keyval' <- peek keyval - effectiveGroup' <- peek effectiveGroup - level' <- peek level - consumedModifiers' <- peek consumedModifiers - let consumedModifiers'' = wordToGFlags consumedModifiers' - touchManagedPtr _obj - freeMem keyval - freeMem effectiveGroup - freeMem level - freeMem consumedModifiers - return (result', keyval', effectiveGroup', level', consumedModifiers'') - -data KeymapTranslateKeyboardStateMethodInfo -instance (signature ~ (Word32 -> [ModifierType] -> Int32 -> m (Bool,Word32,Int32,Int32,[ModifierType])), MonadIO m, KeymapK a) => MethodInfo KeymapTranslateKeyboardStateMethodInfo a signature where - overloadedMethod _ = keymapTranslateKeyboardState - --- method Keymap::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Keymap") --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_get_default" gdk_keymap_get_default :: - IO (Ptr Keymap) - - -keymapGetDefault :: - (MonadIO m) => - m Keymap -- result -keymapGetDefault = liftIO $ do - result <- gdk_keymap_get_default - checkUnexpectedReturnNULL "gdk_keymap_get_default" result - result' <- (newObject Keymap) result - return result' - --- method Keymap::get_for_display --- method type : MemberFunction --- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Keymap") --- throws : False --- Skip return : False - -foreign import ccall "gdk_keymap_get_for_display" gdk_keymap_get_for_display :: - Ptr Display -> -- display : TInterface "Gdk" "Display" - IO (Ptr Keymap) - - -keymapGetForDisplay :: - (MonadIO m, DisplayK a) => - a -- display - -> m Keymap -- result -keymapGetForDisplay display = liftIO $ do - let display' = unsafeManagedPtrCastPtr display - result <- gdk_keymap_get_for_display display' - checkUnexpectedReturnNULL "gdk_keymap_get_for_display" result - result' <- (newObject Keymap) result - touchManagedPtr display - return result' - - diff --git a/GI/Gdk/Objects/Keymap.hs-boot b/GI/Gdk/Objects/Keymap.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/Keymap.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.Gdk.Objects.Keymap where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Keymap = Keymap (ForeignPtr Keymap) -instance GObject Keymap where -class GObject o => KeymapK o -instance (GObject o, IsDescendantOf Keymap o) => KeymapK o -data KeymapDirectionChangedSignalInfo -data KeymapKeysChangedSignalInfo -data KeymapStateChangedSignalInfo -data KeymapAddVirtualModifiersMethodInfo -data KeymapGetCapsLockStateMethodInfo -data KeymapGetDirectionMethodInfo -data KeymapGetEntriesForKeycodeMethodInfo -data KeymapGetEntriesForKeyvalMethodInfo -data KeymapGetModifierMaskMethodInfo -data KeymapGetModifierStateMethodInfo -data KeymapGetNumLockStateMethodInfo -data KeymapGetScrollLockStateMethodInfo -data KeymapHaveBidiLayoutsMethodInfo -data KeymapLookupKeyMethodInfo -data KeymapMapVirtualModifiersMethodInfo -data KeymapTranslateKeyboardStateMethodInfo diff --git a/GI/Gdk/Objects/Screen.hs b/GI/Gdk/Objects/Screen.hs deleted file mode 100644 --- a/GI/Gdk/Objects/Screen.hs +++ /dev/null @@ -1,1528 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.Screen - ( - --- * Exported types - Screen(..) , - ScreenK , - toScreen , - noScreen , - - - -- * Methods --- ** screenGetActiveWindow - ScreenGetActiveWindowMethodInfo , - screenGetActiveWindow , - - --- ** screenGetDefault - screenGetDefault , - - --- ** screenGetDisplay - ScreenGetDisplayMethodInfo , - screenGetDisplay , - - --- ** screenGetFontOptions - ScreenGetFontOptionsMethodInfo , - screenGetFontOptions , - - --- ** screenGetHeight - ScreenGetHeightMethodInfo , - screenGetHeight , - - --- ** screenGetHeightMm - ScreenGetHeightMmMethodInfo , - screenGetHeightMm , - - --- ** screenGetMonitorAtPoint - ScreenGetMonitorAtPointMethodInfo , - screenGetMonitorAtPoint , - - --- ** screenGetMonitorAtWindow - ScreenGetMonitorAtWindowMethodInfo , - screenGetMonitorAtWindow , - - --- ** screenGetMonitorGeometry - ScreenGetMonitorGeometryMethodInfo , - screenGetMonitorGeometry , - - --- ** screenGetMonitorHeightMm - ScreenGetMonitorHeightMmMethodInfo , - screenGetMonitorHeightMm , - - --- ** screenGetMonitorPlugName - ScreenGetMonitorPlugNameMethodInfo , - screenGetMonitorPlugName , - - --- ** screenGetMonitorScaleFactor - ScreenGetMonitorScaleFactorMethodInfo , - screenGetMonitorScaleFactor , - - --- ** screenGetMonitorWidthMm - ScreenGetMonitorWidthMmMethodInfo , - screenGetMonitorWidthMm , - - --- ** screenGetMonitorWorkarea - ScreenGetMonitorWorkareaMethodInfo , - screenGetMonitorWorkarea , - - --- ** screenGetNMonitors - ScreenGetNMonitorsMethodInfo , - screenGetNMonitors , - - --- ** screenGetNumber - ScreenGetNumberMethodInfo , - screenGetNumber , - - --- ** screenGetPrimaryMonitor - ScreenGetPrimaryMonitorMethodInfo , - screenGetPrimaryMonitor , - - --- ** screenGetResolution - ScreenGetResolutionMethodInfo , - screenGetResolution , - - --- ** screenGetRgbaVisual - ScreenGetRgbaVisualMethodInfo , - screenGetRgbaVisual , - - --- ** screenGetRootWindow - ScreenGetRootWindowMethodInfo , - screenGetRootWindow , - - --- ** screenGetSetting - ScreenGetSettingMethodInfo , - screenGetSetting , - - --- ** screenGetSystemVisual - ScreenGetSystemVisualMethodInfo , - screenGetSystemVisual , - - --- ** screenGetToplevelWindows - ScreenGetToplevelWindowsMethodInfo , - screenGetToplevelWindows , - - --- ** screenGetWidth - ScreenGetWidthMethodInfo , - screenGetWidth , - - --- ** screenGetWidthMm - ScreenGetWidthMmMethodInfo , - screenGetWidthMm , - - --- ** screenGetWindowStack - ScreenGetWindowStackMethodInfo , - screenGetWindowStack , - - --- ** screenHeight - screenHeight , - - --- ** screenHeightMm - screenHeightMm , - - --- ** screenIsComposited - ScreenIsCompositedMethodInfo , - screenIsComposited , - - --- ** screenListVisuals - ScreenListVisualsMethodInfo , - screenListVisuals , - - --- ** screenMakeDisplayName - ScreenMakeDisplayNameMethodInfo , - screenMakeDisplayName , - - --- ** screenSetFontOptions - ScreenSetFontOptionsMethodInfo , - screenSetFontOptions , - - --- ** screenSetResolution - ScreenSetResolutionMethodInfo , - screenSetResolution , - - --- ** screenWidth - screenWidth , - - --- ** screenWidthMm - screenWidthMm , - - - - - -- * Properties --- ** FontOptions - ScreenFontOptionsPropertyInfo , - constructScreenFontOptions , - getScreenFontOptions , - screenFontOptions , - setScreenFontOptions , - - --- ** Resolution - ScreenResolutionPropertyInfo , - constructScreenResolution , - getScreenResolution , - screenResolution , - setScreenResolution , - - - - - -- * Signals --- ** CompositedChanged - ScreenCompositedChangedCallback , - ScreenCompositedChangedCallbackC , - ScreenCompositedChangedSignalInfo , - afterScreenCompositedChanged , - mkScreenCompositedChangedCallback , - noScreenCompositedChangedCallback , - onScreenCompositedChanged , - screenCompositedChangedCallbackWrapper , - screenCompositedChangedClosure , - - --- ** MonitorsChanged - ScreenMonitorsChangedCallback , - ScreenMonitorsChangedCallbackC , - ScreenMonitorsChangedSignalInfo , - afterScreenMonitorsChanged , - mkScreenMonitorsChangedCallback , - noScreenMonitorsChangedCallback , - onScreenMonitorsChanged , - screenMonitorsChangedCallbackWrapper , - screenMonitorsChangedClosure , - - --- ** SizeChanged - ScreenSizeChangedCallback , - ScreenSizeChangedCallbackC , - ScreenSizeChangedSignalInfo , - afterScreenSizeChanged , - mkScreenSizeChangedCallback , - noScreenSizeChangedCallback , - onScreenSizeChanged , - screenSizeChangedCallbackWrapper , - screenSizeChangedClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.Cairo as Cairo - -newtype Screen = Screen (ForeignPtr Screen) -foreign import ccall "gdk_screen_get_type" - c_gdk_screen_get_type :: IO GType - -type instance ParentTypes Screen = ScreenParentTypes -type ScreenParentTypes = '[GObject.Object] - -instance GObject Screen where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_screen_get_type - - -class GObject o => ScreenK o -instance (GObject o, IsDescendantOf Screen o) => ScreenK o - -toScreen :: ScreenK o => o -> IO Screen -toScreen = unsafeCastTo Screen - -noScreen :: Maybe Screen -noScreen = Nothing - -type family ResolveScreenMethod (t :: Symbol) (o :: *) :: * where - ResolveScreenMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveScreenMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveScreenMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveScreenMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveScreenMethod "isComposited" o = ScreenIsCompositedMethodInfo - ResolveScreenMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveScreenMethod "listVisuals" o = ScreenListVisualsMethodInfo - ResolveScreenMethod "makeDisplayName" o = ScreenMakeDisplayNameMethodInfo - ResolveScreenMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveScreenMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveScreenMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveScreenMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveScreenMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveScreenMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveScreenMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveScreenMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveScreenMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveScreenMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveScreenMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveScreenMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveScreenMethod "getActiveWindow" o = ScreenGetActiveWindowMethodInfo - ResolveScreenMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveScreenMethod "getDisplay" o = ScreenGetDisplayMethodInfo - ResolveScreenMethod "getFontOptions" o = ScreenGetFontOptionsMethodInfo - ResolveScreenMethod "getHeight" o = ScreenGetHeightMethodInfo - ResolveScreenMethod "getHeightMm" o = ScreenGetHeightMmMethodInfo - ResolveScreenMethod "getMonitorAtPoint" o = ScreenGetMonitorAtPointMethodInfo - ResolveScreenMethod "getMonitorAtWindow" o = ScreenGetMonitorAtWindowMethodInfo - ResolveScreenMethod "getMonitorGeometry" o = ScreenGetMonitorGeometryMethodInfo - ResolveScreenMethod "getMonitorHeightMm" o = ScreenGetMonitorHeightMmMethodInfo - ResolveScreenMethod "getMonitorPlugName" o = ScreenGetMonitorPlugNameMethodInfo - ResolveScreenMethod "getMonitorScaleFactor" o = ScreenGetMonitorScaleFactorMethodInfo - ResolveScreenMethod "getMonitorWidthMm" o = ScreenGetMonitorWidthMmMethodInfo - ResolveScreenMethod "getMonitorWorkarea" o = ScreenGetMonitorWorkareaMethodInfo - ResolveScreenMethod "getNMonitors" o = ScreenGetNMonitorsMethodInfo - ResolveScreenMethod "getNumber" o = ScreenGetNumberMethodInfo - ResolveScreenMethod "getPrimaryMonitor" o = ScreenGetPrimaryMonitorMethodInfo - ResolveScreenMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveScreenMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveScreenMethod "getResolution" o = ScreenGetResolutionMethodInfo - ResolveScreenMethod "getRgbaVisual" o = ScreenGetRgbaVisualMethodInfo - ResolveScreenMethod "getRootWindow" o = ScreenGetRootWindowMethodInfo - ResolveScreenMethod "getSetting" o = ScreenGetSettingMethodInfo - ResolveScreenMethod "getSystemVisual" o = ScreenGetSystemVisualMethodInfo - ResolveScreenMethod "getToplevelWindows" o = ScreenGetToplevelWindowsMethodInfo - ResolveScreenMethod "getWidth" o = ScreenGetWidthMethodInfo - ResolveScreenMethod "getWidthMm" o = ScreenGetWidthMmMethodInfo - ResolveScreenMethod "getWindowStack" o = ScreenGetWindowStackMethodInfo - ResolveScreenMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveScreenMethod "setFontOptions" o = ScreenSetFontOptionsMethodInfo - ResolveScreenMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveScreenMethod "setResolution" o = ScreenSetResolutionMethodInfo - ResolveScreenMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveScreenMethod t Screen, MethodInfo info Screen p) => IsLabelProxy t (Screen -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveScreenMethod t Screen, MethodInfo info Screen p) => IsLabel t (Screen -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Screen::composited-changed -type ScreenCompositedChangedCallback = - IO () - -noScreenCompositedChangedCallback :: Maybe ScreenCompositedChangedCallback -noScreenCompositedChangedCallback = Nothing - -type ScreenCompositedChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkScreenCompositedChangedCallback :: ScreenCompositedChangedCallbackC -> IO (FunPtr ScreenCompositedChangedCallbackC) - -screenCompositedChangedClosure :: ScreenCompositedChangedCallback -> IO Closure -screenCompositedChangedClosure cb = newCClosure =<< mkScreenCompositedChangedCallback wrapped - where wrapped = screenCompositedChangedCallbackWrapper cb - -screenCompositedChangedCallbackWrapper :: - ScreenCompositedChangedCallback -> - Ptr () -> - Ptr () -> - IO () -screenCompositedChangedCallbackWrapper _cb _ _ = do - _cb - -onScreenCompositedChanged :: (GObject a, MonadIO m) => a -> ScreenCompositedChangedCallback -> m SignalHandlerId -onScreenCompositedChanged obj cb = liftIO $ connectScreenCompositedChanged obj cb SignalConnectBefore -afterScreenCompositedChanged :: (GObject a, MonadIO m) => a -> ScreenCompositedChangedCallback -> m SignalHandlerId -afterScreenCompositedChanged obj cb = connectScreenCompositedChanged obj cb SignalConnectAfter - -connectScreenCompositedChanged :: (GObject a, MonadIO m) => - a -> ScreenCompositedChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectScreenCompositedChanged obj cb after = liftIO $ do - cb' <- mkScreenCompositedChangedCallback (screenCompositedChangedCallbackWrapper cb) - connectSignalFunPtr obj "composited-changed" cb' after - --- signal Screen::monitors-changed -type ScreenMonitorsChangedCallback = - IO () - -noScreenMonitorsChangedCallback :: Maybe ScreenMonitorsChangedCallback -noScreenMonitorsChangedCallback = Nothing - -type ScreenMonitorsChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkScreenMonitorsChangedCallback :: ScreenMonitorsChangedCallbackC -> IO (FunPtr ScreenMonitorsChangedCallbackC) - -screenMonitorsChangedClosure :: ScreenMonitorsChangedCallback -> IO Closure -screenMonitorsChangedClosure cb = newCClosure =<< mkScreenMonitorsChangedCallback wrapped - where wrapped = screenMonitorsChangedCallbackWrapper cb - -screenMonitorsChangedCallbackWrapper :: - ScreenMonitorsChangedCallback -> - Ptr () -> - Ptr () -> - IO () -screenMonitorsChangedCallbackWrapper _cb _ _ = do - _cb - -onScreenMonitorsChanged :: (GObject a, MonadIO m) => a -> ScreenMonitorsChangedCallback -> m SignalHandlerId -onScreenMonitorsChanged obj cb = liftIO $ connectScreenMonitorsChanged obj cb SignalConnectBefore -afterScreenMonitorsChanged :: (GObject a, MonadIO m) => a -> ScreenMonitorsChangedCallback -> m SignalHandlerId -afterScreenMonitorsChanged obj cb = connectScreenMonitorsChanged obj cb SignalConnectAfter - -connectScreenMonitorsChanged :: (GObject a, MonadIO m) => - a -> ScreenMonitorsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectScreenMonitorsChanged obj cb after = liftIO $ do - cb' <- mkScreenMonitorsChangedCallback (screenMonitorsChangedCallbackWrapper cb) - connectSignalFunPtr obj "monitors-changed" cb' after - --- signal Screen::size-changed -type ScreenSizeChangedCallback = - IO () - -noScreenSizeChangedCallback :: Maybe ScreenSizeChangedCallback -noScreenSizeChangedCallback = Nothing - -type ScreenSizeChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkScreenSizeChangedCallback :: ScreenSizeChangedCallbackC -> IO (FunPtr ScreenSizeChangedCallbackC) - -screenSizeChangedClosure :: ScreenSizeChangedCallback -> IO Closure -screenSizeChangedClosure cb = newCClosure =<< mkScreenSizeChangedCallback wrapped - where wrapped = screenSizeChangedCallbackWrapper cb - -screenSizeChangedCallbackWrapper :: - ScreenSizeChangedCallback -> - Ptr () -> - Ptr () -> - IO () -screenSizeChangedCallbackWrapper _cb _ _ = do - _cb - -onScreenSizeChanged :: (GObject a, MonadIO m) => a -> ScreenSizeChangedCallback -> m SignalHandlerId -onScreenSizeChanged obj cb = liftIO $ connectScreenSizeChanged obj cb SignalConnectBefore -afterScreenSizeChanged :: (GObject a, MonadIO m) => a -> ScreenSizeChangedCallback -> m SignalHandlerId -afterScreenSizeChanged obj cb = connectScreenSizeChanged obj cb SignalConnectAfter - -connectScreenSizeChanged :: (GObject a, MonadIO m) => - a -> ScreenSizeChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectScreenSizeChanged obj cb after = liftIO $ do - cb' <- mkScreenSizeChangedCallback (screenSizeChangedCallbackWrapper cb) - connectSignalFunPtr obj "size-changed" cb' after - --- VVV Prop "font-options" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getScreenFontOptions :: (MonadIO m, ScreenK o) => o -> m (Ptr ()) -getScreenFontOptions obj = liftIO $ getObjectPropertyPtr obj "font-options" - -setScreenFontOptions :: (MonadIO m, ScreenK o) => o -> Ptr () -> m () -setScreenFontOptions obj val = liftIO $ setObjectPropertyPtr obj "font-options" val - -constructScreenFontOptions :: Ptr () -> IO ([Char], GValue) -constructScreenFontOptions val = constructObjectPropertyPtr "font-options" val - -data ScreenFontOptionsPropertyInfo -instance AttrInfo ScreenFontOptionsPropertyInfo where - type AttrAllowedOps ScreenFontOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScreenFontOptionsPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint ScreenFontOptionsPropertyInfo = ScreenK - type AttrGetType ScreenFontOptionsPropertyInfo = (Ptr ()) - type AttrLabel ScreenFontOptionsPropertyInfo = "font-options" - attrGet _ = getScreenFontOptions - attrSet _ = setScreenFontOptions - attrConstruct _ = constructScreenFontOptions - attrClear _ = undefined - --- VVV Prop "resolution" - -- Type: TBasicType TDouble - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getScreenResolution :: (MonadIO m, ScreenK o) => o -> m Double -getScreenResolution obj = liftIO $ getObjectPropertyDouble obj "resolution" - -setScreenResolution :: (MonadIO m, ScreenK o) => o -> Double -> m () -setScreenResolution obj val = liftIO $ setObjectPropertyDouble obj "resolution" val - -constructScreenResolution :: Double -> IO ([Char], GValue) -constructScreenResolution val = constructObjectPropertyDouble "resolution" val - -data ScreenResolutionPropertyInfo -instance AttrInfo ScreenResolutionPropertyInfo where - type AttrAllowedOps ScreenResolutionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ScreenResolutionPropertyInfo = (~) Double - type AttrBaseTypeConstraint ScreenResolutionPropertyInfo = ScreenK - type AttrGetType ScreenResolutionPropertyInfo = Double - type AttrLabel ScreenResolutionPropertyInfo = "resolution" - attrGet _ = getScreenResolution - attrSet _ = setScreenResolution - attrConstruct _ = constructScreenResolution - attrClear _ = undefined - -type instance AttributeList Screen = ScreenAttributeList -type ScreenAttributeList = ('[ '("fontOptions", ScreenFontOptionsPropertyInfo), '("resolution", ScreenResolutionPropertyInfo)] :: [(Symbol, *)]) - -screenFontOptions :: AttrLabelProxy "fontOptions" -screenFontOptions = AttrLabelProxy - -screenResolution :: AttrLabelProxy "resolution" -screenResolution = AttrLabelProxy - -data ScreenCompositedChangedSignalInfo -instance SignalInfo ScreenCompositedChangedSignalInfo where - type HaskellCallbackType ScreenCompositedChangedSignalInfo = ScreenCompositedChangedCallback - connectSignal _ = connectScreenCompositedChanged - -data ScreenMonitorsChangedSignalInfo -instance SignalInfo ScreenMonitorsChangedSignalInfo where - type HaskellCallbackType ScreenMonitorsChangedSignalInfo = ScreenMonitorsChangedCallback - connectSignal _ = connectScreenMonitorsChanged - -data ScreenSizeChangedSignalInfo -instance SignalInfo ScreenSizeChangedSignalInfo where - type HaskellCallbackType ScreenSizeChangedSignalInfo = ScreenSizeChangedCallback - connectSignal _ = connectScreenSizeChanged - -type instance SignalList Screen = ScreenSignalList -type ScreenSignalList = ('[ '("compositedChanged", ScreenCompositedChangedSignalInfo), '("monitorsChanged", ScreenMonitorsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sizeChanged", ScreenSizeChangedSignalInfo)] :: [(Symbol, *)]) - --- method Screen::get_active_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_active_window" gdk_screen_get_active_window :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO (Ptr Window) - - -screenGetActiveWindow :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m (Maybe Window) -- result -screenGetActiveWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_active_window _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject Window) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ScreenGetActiveWindowMethodInfo -instance (signature ~ (m (Maybe Window)), MonadIO m, ScreenK a) => MethodInfo ScreenGetActiveWindowMethodInfo a signature where - overloadedMethod _ = screenGetActiveWindow - --- method Screen::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_display" gdk_screen_get_display :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO (Ptr Display) - - -screenGetDisplay :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Display -- result -screenGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_display _obj' - checkUnexpectedReturnNULL "gdk_screen_get_display" result - result' <- (newObject Display) result - touchManagedPtr _obj - return result' - -data ScreenGetDisplayMethodInfo -instance (signature ~ (m Display), MonadIO m, ScreenK a) => MethodInfo ScreenGetDisplayMethodInfo a signature where - overloadedMethod _ = screenGetDisplay - --- method Screen::get_font_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "FontOptions") --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_font_options" gdk_screen_get_font_options :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO (Ptr Cairo.FontOptions) - - -screenGetFontOptions :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m (Maybe Cairo.FontOptions) -- result -screenGetFontOptions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_font_options _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newPtr Cairo.FontOptions) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ScreenGetFontOptionsMethodInfo -instance (signature ~ (m (Maybe Cairo.FontOptions)), MonadIO m, ScreenK a) => MethodInfo ScreenGetFontOptionsMethodInfo a signature where - overloadedMethod _ = screenGetFontOptions - --- method Screen::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_height" gdk_screen_get_height :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO Int32 - - -screenGetHeight :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Int32 -- result -screenGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_height _obj' - touchManagedPtr _obj - return result - -data ScreenGetHeightMethodInfo -instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetHeightMethodInfo a signature where - overloadedMethod _ = screenGetHeight - --- method Screen::get_height_mm --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_height_mm" gdk_screen_get_height_mm :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO Int32 - - -screenGetHeightMm :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Int32 -- result -screenGetHeightMm _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_height_mm _obj' - touchManagedPtr _obj - return result - -data ScreenGetHeightMmMethodInfo -instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetHeightMmMethodInfo a signature where - overloadedMethod _ = screenGetHeightMm - --- method Screen::get_monitor_at_point --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_monitor_at_point" gdk_screen_get_monitor_at_point :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO Int32 - - -screenGetMonitorAtPoint :: - (MonadIO m, ScreenK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m Int32 -- result -screenGetMonitorAtPoint _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_monitor_at_point _obj' x y - touchManagedPtr _obj - return result - -data ScreenGetMonitorAtPointMethodInfo -instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorAtPointMethodInfo a signature where - overloadedMethod _ = screenGetMonitorAtPoint - --- method Screen::get_monitor_at_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_monitor_at_window" gdk_screen_get_monitor_at_window :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - Ptr Window -> -- window : TInterface "Gdk" "Window" - IO Int32 - - -screenGetMonitorAtWindow :: - (MonadIO m, ScreenK a, WindowK b) => - a -- _obj - -> b -- window - -> m Int32 -- result -screenGetMonitorAtWindow _obj window = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let window' = unsafeManagedPtrCastPtr window - result <- gdk_screen_get_monitor_at_window _obj' window' - touchManagedPtr _obj - touchManagedPtr window - return result - -data ScreenGetMonitorAtWindowMethodInfo -instance (signature ~ (b -> m Int32), MonadIO m, ScreenK a, WindowK b) => MethodInfo ScreenGetMonitorAtWindowMethodInfo a signature where - overloadedMethod _ = screenGetMonitorAtWindow - --- method Screen::get_monitor_geometry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_monitor_geometry" gdk_screen_get_monitor_geometry :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - Int32 -> -- monitor_num : TBasicType TInt - Ptr Rectangle -> -- dest : TInterface "Gdk" "Rectangle" - IO () - - -screenGetMonitorGeometry :: - (MonadIO m, ScreenK a) => - a -- _obj - -> Int32 -- monitorNum - -> m (Rectangle) -- result -screenGetMonitorGeometry _obj monitorNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - gdk_screen_get_monitor_geometry _obj' monitorNum dest - dest' <- (wrapBoxed Rectangle) dest - touchManagedPtr _obj - return dest' - -data ScreenGetMonitorGeometryMethodInfo -instance (signature ~ (Int32 -> m (Rectangle)), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorGeometryMethodInfo a signature where - overloadedMethod _ = screenGetMonitorGeometry - --- method Screen::get_monitor_height_mm --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_monitor_height_mm" gdk_screen_get_monitor_height_mm :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - Int32 -> -- monitor_num : TBasicType TInt - IO Int32 - - -screenGetMonitorHeightMm :: - (MonadIO m, ScreenK a) => - a -- _obj - -> Int32 -- monitorNum - -> m Int32 -- result -screenGetMonitorHeightMm _obj monitorNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_monitor_height_mm _obj' monitorNum - touchManagedPtr _obj - return result - -data ScreenGetMonitorHeightMmMethodInfo -instance (signature ~ (Int32 -> m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorHeightMmMethodInfo a signature where - overloadedMethod _ = screenGetMonitorHeightMm - --- method Screen::get_monitor_plug_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_monitor_plug_name" gdk_screen_get_monitor_plug_name :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - Int32 -> -- monitor_num : TBasicType TInt - IO CString - - -screenGetMonitorPlugName :: - (MonadIO m, ScreenK a) => - a -- _obj - -> Int32 -- monitorNum - -> m (Maybe T.Text) -- result -screenGetMonitorPlugName _obj monitorNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_monitor_plug_name _obj' monitorNum - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ScreenGetMonitorPlugNameMethodInfo -instance (signature ~ (Int32 -> m (Maybe T.Text)), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorPlugNameMethodInfo a signature where - overloadedMethod _ = screenGetMonitorPlugName - --- method Screen::get_monitor_scale_factor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_monitor_scale_factor" gdk_screen_get_monitor_scale_factor :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - Int32 -> -- monitor_num : TBasicType TInt - IO Int32 - - -screenGetMonitorScaleFactor :: - (MonadIO m, ScreenK a) => - a -- _obj - -> Int32 -- monitorNum - -> m Int32 -- result -screenGetMonitorScaleFactor _obj monitorNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_monitor_scale_factor _obj' monitorNum - touchManagedPtr _obj - return result - -data ScreenGetMonitorScaleFactorMethodInfo -instance (signature ~ (Int32 -> m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorScaleFactorMethodInfo a signature where - overloadedMethod _ = screenGetMonitorScaleFactor - --- method Screen::get_monitor_width_mm --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_monitor_width_mm" gdk_screen_get_monitor_width_mm :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - Int32 -> -- monitor_num : TBasicType TInt - IO Int32 - - -screenGetMonitorWidthMm :: - (MonadIO m, ScreenK a) => - a -- _obj - -> Int32 -- monitorNum - -> m Int32 -- result -screenGetMonitorWidthMm _obj monitorNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_monitor_width_mm _obj' monitorNum - touchManagedPtr _obj - return result - -data ScreenGetMonitorWidthMmMethodInfo -instance (signature ~ (Int32 -> m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorWidthMmMethodInfo a signature where - overloadedMethod _ = screenGetMonitorWidthMm - --- method Screen::get_monitor_workarea --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_monitor_workarea" gdk_screen_get_monitor_workarea :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - Int32 -> -- monitor_num : TBasicType TInt - Ptr Rectangle -> -- dest : TInterface "Gdk" "Rectangle" - IO () - - -screenGetMonitorWorkarea :: - (MonadIO m, ScreenK a) => - a -- _obj - -> Int32 -- monitorNum - -> m (Rectangle) -- result -screenGetMonitorWorkarea _obj monitorNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - gdk_screen_get_monitor_workarea _obj' monitorNum dest - dest' <- (wrapBoxed Rectangle) dest - touchManagedPtr _obj - return dest' - -data ScreenGetMonitorWorkareaMethodInfo -instance (signature ~ (Int32 -> m (Rectangle)), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorWorkareaMethodInfo a signature where - overloadedMethod _ = screenGetMonitorWorkarea - --- method Screen::get_n_monitors --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_n_monitors" gdk_screen_get_n_monitors :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO Int32 - - -screenGetNMonitors :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Int32 -- result -screenGetNMonitors _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_n_monitors _obj' - touchManagedPtr _obj - return result - -data ScreenGetNMonitorsMethodInfo -instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetNMonitorsMethodInfo a signature where - overloadedMethod _ = screenGetNMonitors - --- method Screen::get_number --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_number" gdk_screen_get_number :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO Int32 - - -screenGetNumber :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Int32 -- result -screenGetNumber _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_number _obj' - touchManagedPtr _obj - return result - -data ScreenGetNumberMethodInfo -instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetNumberMethodInfo a signature where - overloadedMethod _ = screenGetNumber - --- method Screen::get_primary_monitor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_primary_monitor" gdk_screen_get_primary_monitor :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO Int32 - - -screenGetPrimaryMonitor :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Int32 -- result -screenGetPrimaryMonitor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_primary_monitor _obj' - touchManagedPtr _obj - return result - -data ScreenGetPrimaryMonitorMethodInfo -instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetPrimaryMonitorMethodInfo a signature where - overloadedMethod _ = screenGetPrimaryMonitor - --- method Screen::get_resolution --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_resolution" gdk_screen_get_resolution :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO CDouble - - -screenGetResolution :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Double -- result -screenGetResolution _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_resolution _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data ScreenGetResolutionMethodInfo -instance (signature ~ (m Double), MonadIO m, ScreenK a) => MethodInfo ScreenGetResolutionMethodInfo a signature where - overloadedMethod _ = screenGetResolution - --- method Screen::get_rgba_visual --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Visual") --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_rgba_visual" gdk_screen_get_rgba_visual :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO (Ptr Visual) - - -screenGetRgbaVisual :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m (Maybe Visual) -- result -screenGetRgbaVisual _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_rgba_visual _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Visual) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ScreenGetRgbaVisualMethodInfo -instance (signature ~ (m (Maybe Visual)), MonadIO m, ScreenK a) => MethodInfo ScreenGetRgbaVisualMethodInfo a signature where - overloadedMethod _ = screenGetRgbaVisual - --- method Screen::get_root_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_root_window" gdk_screen_get_root_window :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO (Ptr Window) - - -screenGetRootWindow :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Window -- result -screenGetRootWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_root_window _obj' - checkUnexpectedReturnNULL "gdk_screen_get_root_window" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data ScreenGetRootWindowMethodInfo -instance (signature ~ (m Window), MonadIO m, ScreenK a) => MethodInfo ScreenGetRootWindowMethodInfo a signature where - overloadedMethod _ = screenGetRootWindow - --- method Screen::get_setting --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_setting" gdk_screen_get_setting :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - CString -> -- name : TBasicType TUTF8 - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO CInt - - -screenGetSetting :: - (MonadIO m, ScreenK a) => - a -- _obj - -> T.Text -- name - -> GValue -- value - -> m Bool -- result -screenGetSetting _obj name value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - let value' = unsafeManagedPtrGetPtr value - result <- gdk_screen_get_setting _obj' name' value' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr value - freeMem name' - return result' - -data ScreenGetSettingMethodInfo -instance (signature ~ (T.Text -> GValue -> m Bool), MonadIO m, ScreenK a) => MethodInfo ScreenGetSettingMethodInfo a signature where - overloadedMethod _ = screenGetSetting - --- method Screen::get_system_visual --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Visual") --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_system_visual" gdk_screen_get_system_visual :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO (Ptr Visual) - - -screenGetSystemVisual :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Visual -- result -screenGetSystemVisual _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_system_visual _obj' - checkUnexpectedReturnNULL "gdk_screen_get_system_visual" result - result' <- (newObject Visual) result - touchManagedPtr _obj - return result' - -data ScreenGetSystemVisualMethodInfo -instance (signature ~ (m Visual), MonadIO m, ScreenK a) => MethodInfo ScreenGetSystemVisualMethodInfo a signature where - overloadedMethod _ = screenGetSystemVisual - --- method Screen::get_toplevel_windows --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Window")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_toplevel_windows" gdk_screen_get_toplevel_windows :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO (Ptr (GList (Ptr Window))) - - -screenGetToplevelWindows :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m [Window] -- result -screenGetToplevelWindows _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_toplevel_windows _obj' - result' <- unpackGList result - result'' <- mapM (newObject Window) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data ScreenGetToplevelWindowsMethodInfo -instance (signature ~ (m [Window]), MonadIO m, ScreenK a) => MethodInfo ScreenGetToplevelWindowsMethodInfo a signature where - overloadedMethod _ = screenGetToplevelWindows - --- method Screen::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_width" gdk_screen_get_width :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO Int32 - - -screenGetWidth :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Int32 -- result -screenGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_width _obj' - touchManagedPtr _obj - return result - -data ScreenGetWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetWidthMethodInfo a signature where - overloadedMethod _ = screenGetWidth - --- method Screen::get_width_mm --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_width_mm" gdk_screen_get_width_mm :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO Int32 - - -screenGetWidthMm :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Int32 -- result -screenGetWidthMm _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_width_mm _obj' - touchManagedPtr _obj - return result - -data ScreenGetWidthMmMethodInfo -instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetWidthMmMethodInfo a signature where - overloadedMethod _ = screenGetWidthMm - --- method Screen::get_window_stack --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Window")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_window_stack" gdk_screen_get_window_stack :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO (Ptr (GList (Ptr Window))) - - -screenGetWindowStack :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m [Window] -- result -screenGetWindowStack _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_get_window_stack _obj' - result' <- unpackGList result - result'' <- mapM (wrapObject Window) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data ScreenGetWindowStackMethodInfo -instance (signature ~ (m [Window]), MonadIO m, ScreenK a) => MethodInfo ScreenGetWindowStackMethodInfo a signature where - overloadedMethod _ = screenGetWindowStack - --- method Screen::is_composited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_is_composited" gdk_screen_is_composited :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO CInt - - -screenIsComposited :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m Bool -- result -screenIsComposited _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_is_composited _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ScreenIsCompositedMethodInfo -instance (signature ~ (m Bool), MonadIO m, ScreenK a) => MethodInfo ScreenIsCompositedMethodInfo a signature where - overloadedMethod _ = screenIsComposited - --- method Screen::list_visuals --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Visual")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_list_visuals" gdk_screen_list_visuals :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO (Ptr (GList (Ptr Visual))) - - -screenListVisuals :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m [Visual] -- result -screenListVisuals _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_list_visuals _obj' - result' <- unpackGList result - result'' <- mapM (newObject Visual) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data ScreenListVisualsMethodInfo -instance (signature ~ (m [Visual]), MonadIO m, ScreenK a) => MethodInfo ScreenListVisualsMethodInfo a signature where - overloadedMethod _ = screenListVisuals - --- method Screen::make_display_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_make_display_name" gdk_screen_make_display_name :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - IO CString - - -screenMakeDisplayName :: - (MonadIO m, ScreenK a) => - a -- _obj - -> m T.Text -- result -screenMakeDisplayName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_screen_make_display_name _obj' - checkUnexpectedReturnNULL "gdk_screen_make_display_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data ScreenMakeDisplayNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ScreenK a) => MethodInfo ScreenMakeDisplayNameMethodInfo a signature where - overloadedMethod _ = screenMakeDisplayName - --- method Screen::set_font_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_set_font_options" gdk_screen_set_font_options :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - Ptr Cairo.FontOptions -> -- options : TInterface "cairo" "FontOptions" - IO () - - -screenSetFontOptions :: - (MonadIO m, ScreenK a) => - a -- _obj - -> Maybe (Cairo.FontOptions) -- options - -> m () -- result -screenSetFontOptions _obj options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeOptions <- case options of - Nothing -> return nullPtr - Just jOptions -> do - let jOptions' = unsafeManagedPtrGetPtr jOptions - return jOptions' - gdk_screen_set_font_options _obj' maybeOptions - touchManagedPtr _obj - whenJust options touchManagedPtr - return () - -data ScreenSetFontOptionsMethodInfo -instance (signature ~ (Maybe (Cairo.FontOptions) -> m ()), MonadIO m, ScreenK a) => MethodInfo ScreenSetFontOptionsMethodInfo a signature where - overloadedMethod _ = screenSetFontOptions - --- method Screen::set_resolution --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_set_resolution" gdk_screen_set_resolution :: - Ptr Screen -> -- _obj : TInterface "Gdk" "Screen" - CDouble -> -- dpi : TBasicType TDouble - IO () - - -screenSetResolution :: - (MonadIO m, ScreenK a) => - a -- _obj - -> Double -- dpi - -> m () -- result -screenSetResolution _obj dpi = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dpi' = realToFrac dpi - gdk_screen_set_resolution _obj' dpi' - touchManagedPtr _obj - return () - -data ScreenSetResolutionMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, ScreenK a) => MethodInfo ScreenSetResolutionMethodInfo a signature where - overloadedMethod _ = screenSetResolution - --- method Screen::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_get_default" gdk_screen_get_default :: - IO (Ptr Screen) - - -screenGetDefault :: - (MonadIO m) => - m (Maybe Screen) -- result -screenGetDefault = liftIO $ do - result <- gdk_screen_get_default - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Screen) result' - return result'' - return maybeResult - --- method Screen::height --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_height" gdk_screen_height :: - IO Int32 - - -screenHeight :: - (MonadIO m) => - m Int32 -- result -screenHeight = liftIO $ do - result <- gdk_screen_height - return result - --- method Screen::height_mm --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_height_mm" gdk_screen_height_mm :: - IO Int32 - - -screenHeightMm :: - (MonadIO m) => - m Int32 -- result -screenHeightMm = liftIO $ do - result <- gdk_screen_height_mm - return result - --- method Screen::width --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_width" gdk_screen_width :: - IO Int32 - - -screenWidth :: - (MonadIO m) => - m Int32 -- result -screenWidth = liftIO $ do - result <- gdk_screen_width - return result - --- method Screen::width_mm --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_screen_width_mm" gdk_screen_width_mm :: - IO Int32 - - -screenWidthMm :: - (MonadIO m) => - m Int32 -- result -screenWidthMm = liftIO $ do - result <- gdk_screen_width_mm - return result - - diff --git a/GI/Gdk/Objects/Screen.hs-boot b/GI/Gdk/Objects/Screen.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/Screen.hs-boot +++ /dev/null @@ -1,48 +0,0 @@ -module GI.Gdk.Objects.Screen where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Screen = Screen (ForeignPtr Screen) -instance GObject Screen where -class GObject o => ScreenK o -instance (GObject o, IsDescendantOf Screen o) => ScreenK o -data ScreenFontOptionsPropertyInfo -data ScreenResolutionPropertyInfo -data ScreenCompositedChangedSignalInfo -data ScreenMonitorsChangedSignalInfo -data ScreenSizeChangedSignalInfo -data ScreenGetActiveWindowMethodInfo -data ScreenGetDisplayMethodInfo -data ScreenGetFontOptionsMethodInfo -data ScreenGetHeightMethodInfo -data ScreenGetHeightMmMethodInfo -data ScreenGetMonitorAtPointMethodInfo -data ScreenGetMonitorAtWindowMethodInfo -data ScreenGetMonitorGeometryMethodInfo -data ScreenGetMonitorHeightMmMethodInfo -data ScreenGetMonitorPlugNameMethodInfo -data ScreenGetMonitorScaleFactorMethodInfo -data ScreenGetMonitorWidthMmMethodInfo -data ScreenGetMonitorWorkareaMethodInfo -data ScreenGetNMonitorsMethodInfo -data ScreenGetNumberMethodInfo -data ScreenGetPrimaryMonitorMethodInfo -data ScreenGetResolutionMethodInfo -data ScreenGetRgbaVisualMethodInfo -data ScreenGetRootWindowMethodInfo -data ScreenGetSettingMethodInfo -data ScreenGetSystemVisualMethodInfo -data ScreenGetToplevelWindowsMethodInfo -data ScreenGetWidthMethodInfo -data ScreenGetWidthMmMethodInfo -data ScreenGetWindowStackMethodInfo -data ScreenIsCompositedMethodInfo -data ScreenListVisualsMethodInfo -data ScreenMakeDisplayNameMethodInfo -data ScreenSetFontOptionsMethodInfo -data ScreenSetResolutionMethodInfo diff --git a/GI/Gdk/Objects/Visual.hs b/GI/Gdk/Objects/Visual.hs deleted file mode 100644 --- a/GI/Gdk/Objects/Visual.hs +++ /dev/null @@ -1,615 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.Visual - ( - --- * Exported types - Visual(..) , - VisualK , - toVisual , - noVisual , - - - -- * Methods --- ** visualGetBest - visualGetBest , - - --- ** visualGetBestDepth - visualGetBestDepth , - - --- ** visualGetBestType - visualGetBestType , - - --- ** visualGetBestWithBoth - visualGetBestWithBoth , - - --- ** visualGetBestWithDepth - visualGetBestWithDepth , - - --- ** visualGetBestWithType - visualGetBestWithType , - - --- ** visualGetBitsPerRgb - VisualGetBitsPerRgbMethodInfo , - visualGetBitsPerRgb , - - --- ** visualGetBluePixelDetails - VisualGetBluePixelDetailsMethodInfo , - visualGetBluePixelDetails , - - --- ** visualGetByteOrder - VisualGetByteOrderMethodInfo , - visualGetByteOrder , - - --- ** visualGetColormapSize - VisualGetColormapSizeMethodInfo , - visualGetColormapSize , - - --- ** visualGetDepth - VisualGetDepthMethodInfo , - visualGetDepth , - - --- ** visualGetGreenPixelDetails - VisualGetGreenPixelDetailsMethodInfo , - visualGetGreenPixelDetails , - - --- ** visualGetRedPixelDetails - VisualGetRedPixelDetailsMethodInfo , - visualGetRedPixelDetails , - - --- ** visualGetScreen - VisualGetScreenMethodInfo , - visualGetScreen , - - --- ** visualGetSystem - visualGetSystem , - - --- ** visualGetVisualType - VisualGetVisualTypeMethodInfo , - visualGetVisualType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject - -newtype Visual = Visual (ForeignPtr Visual) -foreign import ccall "gdk_visual_get_type" - c_gdk_visual_get_type :: IO GType - -type instance ParentTypes Visual = VisualParentTypes -type VisualParentTypes = '[GObject.Object] - -instance GObject Visual where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_visual_get_type - - -class GObject o => VisualK o -instance (GObject o, IsDescendantOf Visual o) => VisualK o - -toVisual :: VisualK o => o -> IO Visual -toVisual = unsafeCastTo Visual - -noVisual :: Maybe Visual -noVisual = Nothing - -type family ResolveVisualMethod (t :: Symbol) (o :: *) :: * where - ResolveVisualMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVisualMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVisualMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVisualMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVisualMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVisualMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVisualMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVisualMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVisualMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVisualMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVisualMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVisualMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVisualMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVisualMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVisualMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVisualMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVisualMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVisualMethod "getBitsPerRgb" o = VisualGetBitsPerRgbMethodInfo - ResolveVisualMethod "getBluePixelDetails" o = VisualGetBluePixelDetailsMethodInfo - ResolveVisualMethod "getByteOrder" o = VisualGetByteOrderMethodInfo - ResolveVisualMethod "getColormapSize" o = VisualGetColormapSizeMethodInfo - ResolveVisualMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVisualMethod "getDepth" o = VisualGetDepthMethodInfo - ResolveVisualMethod "getGreenPixelDetails" o = VisualGetGreenPixelDetailsMethodInfo - ResolveVisualMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVisualMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVisualMethod "getRedPixelDetails" o = VisualGetRedPixelDetailsMethodInfo - ResolveVisualMethod "getScreen" o = VisualGetScreenMethodInfo - ResolveVisualMethod "getVisualType" o = VisualGetVisualTypeMethodInfo - ResolveVisualMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVisualMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVisualMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVisualMethod t Visual, MethodInfo info Visual p) => IsLabelProxy t (Visual -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVisualMethod t Visual, MethodInfo info Visual p) => IsLabel t (Visual -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Visual = VisualAttributeList -type VisualAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Visual = VisualSignalList -type VisualSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Visual::get_bits_per_rgb --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_bits_per_rgb" gdk_visual_get_bits_per_rgb :: - Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" - IO Int32 - - -visualGetBitsPerRgb :: - (MonadIO m, VisualK a) => - a -- _obj - -> m Int32 -- result -visualGetBitsPerRgb _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_visual_get_bits_per_rgb _obj' - touchManagedPtr _obj - return result - -data VisualGetBitsPerRgbMethodInfo -instance (signature ~ (m Int32), MonadIO m, VisualK a) => MethodInfo VisualGetBitsPerRgbMethodInfo a signature where - overloadedMethod _ = visualGetBitsPerRgb - --- method Visual::get_blue_pixel_details --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "shift", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "precision", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_blue_pixel_details" gdk_visual_get_blue_pixel_details :: - Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" - Ptr Word32 -> -- mask : TBasicType TUInt32 - Ptr Int32 -> -- shift : TBasicType TInt - Ptr Int32 -> -- precision : TBasicType TInt - IO () - - -visualGetBluePixelDetails :: - (MonadIO m, VisualK a) => - a -- _obj - -> m (Word32,Int32,Int32) -- result -visualGetBluePixelDetails _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mask <- allocMem :: IO (Ptr Word32) - shift <- allocMem :: IO (Ptr Int32) - precision <- allocMem :: IO (Ptr Int32) - gdk_visual_get_blue_pixel_details _obj' mask shift precision - mask' <- peek mask - shift' <- peek shift - precision' <- peek precision - touchManagedPtr _obj - freeMem mask - freeMem shift - freeMem precision - return (mask', shift', precision') - -data VisualGetBluePixelDetailsMethodInfo -instance (signature ~ (m (Word32,Int32,Int32)), MonadIO m, VisualK a) => MethodInfo VisualGetBluePixelDetailsMethodInfo a signature where - overloadedMethod _ = visualGetBluePixelDetails - --- method Visual::get_byte_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "ByteOrder") --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_byte_order" gdk_visual_get_byte_order :: - Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" - IO CUInt - - -visualGetByteOrder :: - (MonadIO m, VisualK a) => - a -- _obj - -> m ByteOrder -- result -visualGetByteOrder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_visual_get_byte_order _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data VisualGetByteOrderMethodInfo -instance (signature ~ (m ByteOrder), MonadIO m, VisualK a) => MethodInfo VisualGetByteOrderMethodInfo a signature where - overloadedMethod _ = visualGetByteOrder - --- method Visual::get_colormap_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_colormap_size" gdk_visual_get_colormap_size :: - Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" - IO Int32 - - -visualGetColormapSize :: - (MonadIO m, VisualK a) => - a -- _obj - -> m Int32 -- result -visualGetColormapSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_visual_get_colormap_size _obj' - touchManagedPtr _obj - return result - -data VisualGetColormapSizeMethodInfo -instance (signature ~ (m Int32), MonadIO m, VisualK a) => MethodInfo VisualGetColormapSizeMethodInfo a signature where - overloadedMethod _ = visualGetColormapSize - --- method Visual::get_depth --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_depth" gdk_visual_get_depth :: - Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" - IO Int32 - - -visualGetDepth :: - (MonadIO m, VisualK a) => - a -- _obj - -> m Int32 -- result -visualGetDepth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_visual_get_depth _obj' - touchManagedPtr _obj - return result - -data VisualGetDepthMethodInfo -instance (signature ~ (m Int32), MonadIO m, VisualK a) => MethodInfo VisualGetDepthMethodInfo a signature where - overloadedMethod _ = visualGetDepth - --- method Visual::get_green_pixel_details --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "shift", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "precision", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_green_pixel_details" gdk_visual_get_green_pixel_details :: - Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" - Ptr Word32 -> -- mask : TBasicType TUInt32 - Ptr Int32 -> -- shift : TBasicType TInt - Ptr Int32 -> -- precision : TBasicType TInt - IO () - - -visualGetGreenPixelDetails :: - (MonadIO m, VisualK a) => - a -- _obj - -> m (Word32,Int32,Int32) -- result -visualGetGreenPixelDetails _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mask <- allocMem :: IO (Ptr Word32) - shift <- allocMem :: IO (Ptr Int32) - precision <- allocMem :: IO (Ptr Int32) - gdk_visual_get_green_pixel_details _obj' mask shift precision - mask' <- peek mask - shift' <- peek shift - precision' <- peek precision - touchManagedPtr _obj - freeMem mask - freeMem shift - freeMem precision - return (mask', shift', precision') - -data VisualGetGreenPixelDetailsMethodInfo -instance (signature ~ (m (Word32,Int32,Int32)), MonadIO m, VisualK a) => MethodInfo VisualGetGreenPixelDetailsMethodInfo a signature where - overloadedMethod _ = visualGetGreenPixelDetails - --- method Visual::get_red_pixel_details --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "shift", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "precision", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_red_pixel_details" gdk_visual_get_red_pixel_details :: - Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" - Ptr Word32 -> -- mask : TBasicType TUInt32 - Ptr Int32 -> -- shift : TBasicType TInt - Ptr Int32 -> -- precision : TBasicType TInt - IO () - - -visualGetRedPixelDetails :: - (MonadIO m, VisualK a) => - a -- _obj - -> m (Word32,Int32,Int32) -- result -visualGetRedPixelDetails _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mask <- allocMem :: IO (Ptr Word32) - shift <- allocMem :: IO (Ptr Int32) - precision <- allocMem :: IO (Ptr Int32) - gdk_visual_get_red_pixel_details _obj' mask shift precision - mask' <- peek mask - shift' <- peek shift - precision' <- peek precision - touchManagedPtr _obj - freeMem mask - freeMem shift - freeMem precision - return (mask', shift', precision') - -data VisualGetRedPixelDetailsMethodInfo -instance (signature ~ (m (Word32,Int32,Int32)), MonadIO m, VisualK a) => MethodInfo VisualGetRedPixelDetailsMethodInfo a signature where - overloadedMethod _ = visualGetRedPixelDetails - --- method Visual::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_screen" gdk_visual_get_screen :: - Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" - IO (Ptr Screen) - - -visualGetScreen :: - (MonadIO m, VisualK a) => - a -- _obj - -> m Screen -- result -visualGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_visual_get_screen _obj' - checkUnexpectedReturnNULL "gdk_visual_get_screen" result - result' <- (newObject Screen) result - touchManagedPtr _obj - return result' - -data VisualGetScreenMethodInfo -instance (signature ~ (m Screen), MonadIO m, VisualK a) => MethodInfo VisualGetScreenMethodInfo a signature where - overloadedMethod _ = visualGetScreen - --- method Visual::get_visual_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "VisualType") --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_visual_type" gdk_visual_get_visual_type :: - Ptr Visual -> -- _obj : TInterface "Gdk" "Visual" - IO CUInt - - -visualGetVisualType :: - (MonadIO m, VisualK a) => - a -- _obj - -> m VisualType -- result -visualGetVisualType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_visual_get_visual_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data VisualGetVisualTypeMethodInfo -instance (signature ~ (m VisualType), MonadIO m, VisualK a) => MethodInfo VisualGetVisualTypeMethodInfo a signature where - overloadedMethod _ = visualGetVisualType - --- method Visual::get_best --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Visual") --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_best" gdk_visual_get_best :: - IO (Ptr Visual) - - -visualGetBest :: - (MonadIO m) => - m Visual -- result -visualGetBest = liftIO $ do - result <- gdk_visual_get_best - checkUnexpectedReturnNULL "gdk_visual_get_best" result - result' <- (newObject Visual) result - return result' - --- method Visual::get_best_depth --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_best_depth" gdk_visual_get_best_depth :: - IO Int32 - - -visualGetBestDepth :: - (MonadIO m) => - m Int32 -- result -visualGetBestDepth = liftIO $ do - result <- gdk_visual_get_best_depth - return result - --- method Visual::get_best_type --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "VisualType") --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_best_type" gdk_visual_get_best_type :: - IO CUInt - - -visualGetBestType :: - (MonadIO m) => - m VisualType -- result -visualGetBestType = liftIO $ do - result <- gdk_visual_get_best_type - let result' = (toEnum . fromIntegral) result - return result' - --- method Visual::get_best_with_both --- method type : MemberFunction --- Args : [Arg {argCName = "depth", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Visual") --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_best_with_both" gdk_visual_get_best_with_both :: - Int32 -> -- depth : TBasicType TInt - CUInt -> -- visual_type : TInterface "Gdk" "VisualType" - IO (Ptr Visual) - - -visualGetBestWithBoth :: - (MonadIO m) => - Int32 -- depth - -> VisualType -- visualType - -> m (Maybe Visual) -- result -visualGetBestWithBoth depth visualType = liftIO $ do - let visualType' = (fromIntegral . fromEnum) visualType - result <- gdk_visual_get_best_with_both depth visualType' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Visual) result' - return result'' - return maybeResult - --- method Visual::get_best_with_depth --- method type : MemberFunction --- Args : [Arg {argCName = "depth", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Visual") --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_best_with_depth" gdk_visual_get_best_with_depth :: - Int32 -> -- depth : TBasicType TInt - IO (Ptr Visual) - - -visualGetBestWithDepth :: - (MonadIO m) => - Int32 -- depth - -> m Visual -- result -visualGetBestWithDepth depth = liftIO $ do - result <- gdk_visual_get_best_with_depth depth - checkUnexpectedReturnNULL "gdk_visual_get_best_with_depth" result - result' <- (newObject Visual) result - return result' - --- method Visual::get_best_with_type --- method type : MemberFunction --- Args : [Arg {argCName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Visual") --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_best_with_type" gdk_visual_get_best_with_type :: - CUInt -> -- visual_type : TInterface "Gdk" "VisualType" - IO (Ptr Visual) - - -visualGetBestWithType :: - (MonadIO m) => - VisualType -- visualType - -> m Visual -- result -visualGetBestWithType visualType = liftIO $ do - let visualType' = (fromIntegral . fromEnum) visualType - result <- gdk_visual_get_best_with_type visualType' - checkUnexpectedReturnNULL "gdk_visual_get_best_with_type" result - result' <- (newObject Visual) result - return result' - --- method Visual::get_system --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Visual") --- throws : False --- Skip return : False - -foreign import ccall "gdk_visual_get_system" gdk_visual_get_system :: - IO (Ptr Visual) - - -visualGetSystem :: - (MonadIO m) => - m Visual -- result -visualGetSystem = liftIO $ do - result <- gdk_visual_get_system - checkUnexpectedReturnNULL "gdk_visual_get_system" result - result' <- (newObject Visual) result - return result' - - diff --git a/GI/Gdk/Objects/Visual.hs-boot b/GI/Gdk/Objects/Visual.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/Visual.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gdk.Objects.Visual where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Visual = Visual (ForeignPtr Visual) -instance GObject Visual where -class GObject o => VisualK o -instance (GObject o, IsDescendantOf Visual o) => VisualK o -data VisualGetBitsPerRgbMethodInfo -data VisualGetBluePixelDetailsMethodInfo -data VisualGetByteOrderMethodInfo -data VisualGetColormapSizeMethodInfo -data VisualGetDepthMethodInfo -data VisualGetGreenPixelDetailsMethodInfo -data VisualGetRedPixelDetailsMethodInfo -data VisualGetScreenMethodInfo -data VisualGetVisualTypeMethodInfo diff --git a/GI/Gdk/Objects/Window.hs b/GI/Gdk/Objects/Window.hs deleted file mode 100644 --- a/GI/Gdk/Objects/Window.hs +++ /dev/null @@ -1,6168 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Objects.Window - ( - --- * Exported types - Window(..) , - WindowK , - toWindow , - noWindow , - - - -- * Methods --- ** windowAtPointer - windowAtPointer , - - --- ** windowBeep - WindowBeepMethodInfo , - windowBeep , - - --- ** windowBeginMoveDrag - WindowBeginMoveDragMethodInfo , - windowBeginMoveDrag , - - --- ** windowBeginMoveDragForDevice - WindowBeginMoveDragForDeviceMethodInfo , - windowBeginMoveDragForDevice , - - --- ** windowBeginPaintRect - WindowBeginPaintRectMethodInfo , - windowBeginPaintRect , - - --- ** windowBeginPaintRegion - WindowBeginPaintRegionMethodInfo , - windowBeginPaintRegion , - - --- ** windowBeginResizeDrag - WindowBeginResizeDragMethodInfo , - windowBeginResizeDrag , - - --- ** windowBeginResizeDragForDevice - WindowBeginResizeDragForDeviceMethodInfo, - windowBeginResizeDragForDevice , - - --- ** windowConfigureFinished - WindowConfigureFinishedMethodInfo , - windowConfigureFinished , - - --- ** windowConstrainSize - windowConstrainSize , - - --- ** windowCoordsFromParent - WindowCoordsFromParentMethodInfo , - windowCoordsFromParent , - - --- ** windowCoordsToParent - WindowCoordsToParentMethodInfo , - windowCoordsToParent , - - --- ** windowCreateGlContext - WindowCreateGlContextMethodInfo , - windowCreateGlContext , - - --- ** windowCreateSimilarImageSurface - WindowCreateSimilarImageSurfaceMethodInfo, - windowCreateSimilarImageSurface , - - --- ** windowCreateSimilarSurface - WindowCreateSimilarSurfaceMethodInfo , - windowCreateSimilarSurface , - - --- ** windowDeiconify - WindowDeiconifyMethodInfo , - windowDeiconify , - - --- ** windowDestroy - WindowDestroyMethodInfo , - windowDestroy , - - --- ** windowDestroyNotify - WindowDestroyNotifyMethodInfo , - windowDestroyNotify , - - --- ** windowEnableSynchronizedConfigure - WindowEnableSynchronizedConfigureMethodInfo, - windowEnableSynchronizedConfigure , - - --- ** windowEndPaint - WindowEndPaintMethodInfo , - windowEndPaint , - - --- ** windowEnsureNative - WindowEnsureNativeMethodInfo , - windowEnsureNative , - - --- ** windowFlush - WindowFlushMethodInfo , - windowFlush , - - --- ** windowFocus - WindowFocusMethodInfo , - windowFocus , - - --- ** windowFreezeToplevelUpdatesLibgtkOnly - WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo, - windowFreezeToplevelUpdatesLibgtkOnly , - - --- ** windowFreezeUpdates - WindowFreezeUpdatesMethodInfo , - windowFreezeUpdates , - - --- ** windowFullscreen - WindowFullscreenMethodInfo , - windowFullscreen , - - --- ** windowFullscreenOnMonitor - WindowFullscreenOnMonitorMethodInfo , - windowFullscreenOnMonitor , - - --- ** windowGeometryChanged - WindowGeometryChangedMethodInfo , - windowGeometryChanged , - - --- ** windowGetAcceptFocus - WindowGetAcceptFocusMethodInfo , - windowGetAcceptFocus , - - --- ** windowGetBackgroundPattern - WindowGetBackgroundPatternMethodInfo , - windowGetBackgroundPattern , - - --- ** windowGetChildren - WindowGetChildrenMethodInfo , - windowGetChildren , - - --- ** windowGetChildrenWithUserData - WindowGetChildrenWithUserDataMethodInfo , - windowGetChildrenWithUserData , - - --- ** windowGetClipRegion - WindowGetClipRegionMethodInfo , - windowGetClipRegion , - - --- ** windowGetComposited - WindowGetCompositedMethodInfo , - windowGetComposited , - - --- ** windowGetCursor - WindowGetCursorMethodInfo , - windowGetCursor , - - --- ** windowGetDecorations - WindowGetDecorationsMethodInfo , - windowGetDecorations , - - --- ** windowGetDeviceCursor - WindowGetDeviceCursorMethodInfo , - windowGetDeviceCursor , - - --- ** windowGetDeviceEvents - WindowGetDeviceEventsMethodInfo , - windowGetDeviceEvents , - - --- ** windowGetDevicePosition - WindowGetDevicePositionMethodInfo , - windowGetDevicePosition , - - --- ** windowGetDevicePositionDouble - WindowGetDevicePositionDoubleMethodInfo , - windowGetDevicePositionDouble , - - --- ** windowGetDisplay - WindowGetDisplayMethodInfo , - windowGetDisplay , - - --- ** windowGetDragProtocol - WindowGetDragProtocolMethodInfo , - windowGetDragProtocol , - - --- ** windowGetEffectiveParent - WindowGetEffectiveParentMethodInfo , - windowGetEffectiveParent , - - --- ** windowGetEffectiveToplevel - WindowGetEffectiveToplevelMethodInfo , - windowGetEffectiveToplevel , - - --- ** windowGetEventCompression - WindowGetEventCompressionMethodInfo , - windowGetEventCompression , - - --- ** windowGetEvents - WindowGetEventsMethodInfo , - windowGetEvents , - - --- ** windowGetFocusOnMap - WindowGetFocusOnMapMethodInfo , - windowGetFocusOnMap , - - --- ** windowGetFrameClock - WindowGetFrameClockMethodInfo , - windowGetFrameClock , - - --- ** windowGetFrameExtents - WindowGetFrameExtentsMethodInfo , - windowGetFrameExtents , - - --- ** windowGetFullscreenMode - WindowGetFullscreenModeMethodInfo , - windowGetFullscreenMode , - - --- ** windowGetGeometry - WindowGetGeometryMethodInfo , - windowGetGeometry , - - --- ** windowGetGroup - WindowGetGroupMethodInfo , - windowGetGroup , - - --- ** windowGetHeight - WindowGetHeightMethodInfo , - windowGetHeight , - - --- ** windowGetModalHint - WindowGetModalHintMethodInfo , - windowGetModalHint , - - --- ** windowGetOrigin - WindowGetOriginMethodInfo , - windowGetOrigin , - - --- ** windowGetParent - WindowGetParentMethodInfo , - windowGetParent , - - --- ** windowGetPassThrough - WindowGetPassThroughMethodInfo , - windowGetPassThrough , - - --- ** windowGetPointer - WindowGetPointerMethodInfo , - windowGetPointer , - - --- ** windowGetPosition - WindowGetPositionMethodInfo , - windowGetPosition , - - --- ** windowGetRootCoords - WindowGetRootCoordsMethodInfo , - windowGetRootCoords , - - --- ** windowGetRootOrigin - WindowGetRootOriginMethodInfo , - windowGetRootOrigin , - - --- ** windowGetScaleFactor - WindowGetScaleFactorMethodInfo , - windowGetScaleFactor , - - --- ** windowGetScreen - WindowGetScreenMethodInfo , - windowGetScreen , - - --- ** windowGetSourceEvents - WindowGetSourceEventsMethodInfo , - windowGetSourceEvents , - - --- ** windowGetState - WindowGetStateMethodInfo , - windowGetState , - - --- ** windowGetSupportMultidevice - WindowGetSupportMultideviceMethodInfo , - windowGetSupportMultidevice , - - --- ** windowGetToplevel - WindowGetToplevelMethodInfo , - windowGetToplevel , - - --- ** windowGetTypeHint - WindowGetTypeHintMethodInfo , - windowGetTypeHint , - - --- ** windowGetUpdateArea - WindowGetUpdateAreaMethodInfo , - windowGetUpdateArea , - - --- ** windowGetUserData - WindowGetUserDataMethodInfo , - windowGetUserData , - - --- ** windowGetVisibleRegion - WindowGetVisibleRegionMethodInfo , - windowGetVisibleRegion , - - --- ** windowGetVisual - WindowGetVisualMethodInfo , - windowGetVisual , - - --- ** windowGetWidth - WindowGetWidthMethodInfo , - windowGetWidth , - - --- ** windowGetWindowType - WindowGetWindowTypeMethodInfo , - windowGetWindowType , - - --- ** windowHasNative - WindowHasNativeMethodInfo , - windowHasNative , - - --- ** windowHide - WindowHideMethodInfo , - windowHide , - - --- ** windowIconify - WindowIconifyMethodInfo , - windowIconify , - - --- ** windowInputShapeCombineRegion - WindowInputShapeCombineRegionMethodInfo , - windowInputShapeCombineRegion , - - --- ** windowInvalidateMaybeRecurse - WindowInvalidateMaybeRecurseMethodInfo , - windowInvalidateMaybeRecurse , - - --- ** windowInvalidateRect - WindowInvalidateRectMethodInfo , - windowInvalidateRect , - - --- ** windowInvalidateRegion - WindowInvalidateRegionMethodInfo , - windowInvalidateRegion , - - --- ** windowIsDestroyed - WindowIsDestroyedMethodInfo , - windowIsDestroyed , - - --- ** windowIsInputOnly - WindowIsInputOnlyMethodInfo , - windowIsInputOnly , - - --- ** windowIsShaped - WindowIsShapedMethodInfo , - windowIsShaped , - - --- ** windowIsViewable - WindowIsViewableMethodInfo , - windowIsViewable , - - --- ** windowIsVisible - WindowIsVisibleMethodInfo , - windowIsVisible , - - --- ** windowLower - WindowLowerMethodInfo , - windowLower , - - --- ** windowMarkPaintFromClip - WindowMarkPaintFromClipMethodInfo , - windowMarkPaintFromClip , - - --- ** windowMaximize - WindowMaximizeMethodInfo , - windowMaximize , - - --- ** windowMergeChildInputShapes - WindowMergeChildInputShapesMethodInfo , - windowMergeChildInputShapes , - - --- ** windowMergeChildShapes - WindowMergeChildShapesMethodInfo , - windowMergeChildShapes , - - --- ** windowMove - WindowMoveMethodInfo , - windowMove , - - --- ** windowMoveRegion - WindowMoveRegionMethodInfo , - windowMoveRegion , - - --- ** windowMoveResize - WindowMoveResizeMethodInfo , - windowMoveResize , - - --- ** windowNew - windowNew , - - --- ** windowPeekChildren - WindowPeekChildrenMethodInfo , - windowPeekChildren , - - --- ** windowProcessAllUpdates - windowProcessAllUpdates , - - --- ** windowProcessUpdates - WindowProcessUpdatesMethodInfo , - windowProcessUpdates , - - --- ** windowRaise - WindowRaiseMethodInfo , - windowRaise , - - --- ** windowRegisterDnd - WindowRegisterDndMethodInfo , - windowRegisterDnd , - - --- ** windowReparent - WindowReparentMethodInfo , - windowReparent , - - --- ** windowResize - WindowResizeMethodInfo , - windowResize , - - --- ** windowRestack - WindowRestackMethodInfo , - windowRestack , - - --- ** windowScroll - WindowScrollMethodInfo , - windowScroll , - - --- ** windowSetAcceptFocus - WindowSetAcceptFocusMethodInfo , - windowSetAcceptFocus , - - --- ** windowSetBackground - WindowSetBackgroundMethodInfo , - windowSetBackground , - - --- ** windowSetBackgroundPattern - WindowSetBackgroundPatternMethodInfo , - windowSetBackgroundPattern , - - --- ** windowSetBackgroundRgba - WindowSetBackgroundRgbaMethodInfo , - windowSetBackgroundRgba , - - --- ** windowSetChildInputShapes - WindowSetChildInputShapesMethodInfo , - windowSetChildInputShapes , - - --- ** windowSetChildShapes - WindowSetChildShapesMethodInfo , - windowSetChildShapes , - - --- ** windowSetComposited - WindowSetCompositedMethodInfo , - windowSetComposited , - - --- ** windowSetCursor - WindowSetCursorMethodInfo , - windowSetCursor , - - --- ** windowSetDebugUpdates - windowSetDebugUpdates , - - --- ** windowSetDecorations - WindowSetDecorationsMethodInfo , - windowSetDecorations , - - --- ** windowSetDeviceCursor - WindowSetDeviceCursorMethodInfo , - windowSetDeviceCursor , - - --- ** windowSetDeviceEvents - WindowSetDeviceEventsMethodInfo , - windowSetDeviceEvents , - - --- ** windowSetEventCompression - WindowSetEventCompressionMethodInfo , - windowSetEventCompression , - - --- ** windowSetEvents - WindowSetEventsMethodInfo , - windowSetEvents , - - --- ** windowSetFocusOnMap - WindowSetFocusOnMapMethodInfo , - windowSetFocusOnMap , - - --- ** windowSetFullscreenMode - WindowSetFullscreenModeMethodInfo , - windowSetFullscreenMode , - - --- ** windowSetFunctions - WindowSetFunctionsMethodInfo , - windowSetFunctions , - - --- ** windowSetGeometryHints - WindowSetGeometryHintsMethodInfo , - windowSetGeometryHints , - - --- ** windowSetGroup - WindowSetGroupMethodInfo , - windowSetGroup , - - --- ** windowSetIconList - WindowSetIconListMethodInfo , - windowSetIconList , - - --- ** windowSetIconName - WindowSetIconNameMethodInfo , - windowSetIconName , - - --- ** windowSetKeepAbove - WindowSetKeepAboveMethodInfo , - windowSetKeepAbove , - - --- ** windowSetKeepBelow - WindowSetKeepBelowMethodInfo , - windowSetKeepBelow , - - --- ** windowSetModalHint - WindowSetModalHintMethodInfo , - windowSetModalHint , - - --- ** windowSetOpacity - WindowSetOpacityMethodInfo , - windowSetOpacity , - - --- ** windowSetOpaqueRegion - WindowSetOpaqueRegionMethodInfo , - windowSetOpaqueRegion , - - --- ** windowSetOverrideRedirect - WindowSetOverrideRedirectMethodInfo , - windowSetOverrideRedirect , - - --- ** windowSetPassThrough - WindowSetPassThroughMethodInfo , - windowSetPassThrough , - - --- ** windowSetRole - WindowSetRoleMethodInfo , - windowSetRole , - - --- ** windowSetShadowWidth - WindowSetShadowWidthMethodInfo , - windowSetShadowWidth , - - --- ** windowSetSkipPagerHint - WindowSetSkipPagerHintMethodInfo , - windowSetSkipPagerHint , - - --- ** windowSetSkipTaskbarHint - WindowSetSkipTaskbarHintMethodInfo , - windowSetSkipTaskbarHint , - - --- ** windowSetSourceEvents - WindowSetSourceEventsMethodInfo , - windowSetSourceEvents , - - --- ** windowSetStartupId - WindowSetStartupIdMethodInfo , - windowSetStartupId , - - --- ** windowSetStaticGravities - WindowSetStaticGravitiesMethodInfo , - windowSetStaticGravities , - - --- ** windowSetSupportMultidevice - WindowSetSupportMultideviceMethodInfo , - windowSetSupportMultidevice , - - --- ** windowSetTitle - WindowSetTitleMethodInfo , - windowSetTitle , - - --- ** windowSetTransientFor - WindowSetTransientForMethodInfo , - windowSetTransientFor , - - --- ** windowSetTypeHint - WindowSetTypeHintMethodInfo , - windowSetTypeHint , - - --- ** windowSetUrgencyHint - WindowSetUrgencyHintMethodInfo , - windowSetUrgencyHint , - - --- ** windowSetUserData - WindowSetUserDataMethodInfo , - windowSetUserData , - - --- ** windowShapeCombineRegion - WindowShapeCombineRegionMethodInfo , - windowShapeCombineRegion , - - --- ** windowShow - WindowShowMethodInfo , - windowShow , - - --- ** windowShowUnraised - WindowShowUnraisedMethodInfo , - windowShowUnraised , - - --- ** windowShowWindowMenu - WindowShowWindowMenuMethodInfo , - windowShowWindowMenu , - - --- ** windowStick - WindowStickMethodInfo , - windowStick , - - --- ** windowThawToplevelUpdatesLibgtkOnly - WindowThawToplevelUpdatesLibgtkOnlyMethodInfo, - windowThawToplevelUpdatesLibgtkOnly , - - --- ** windowThawUpdates - WindowThawUpdatesMethodInfo , - windowThawUpdates , - - --- ** windowUnfullscreen - WindowUnfullscreenMethodInfo , - windowUnfullscreen , - - --- ** windowUnmaximize - WindowUnmaximizeMethodInfo , - windowUnmaximize , - - --- ** windowUnstick - WindowUnstickMethodInfo , - windowUnstick , - - --- ** windowWithdraw - WindowWithdrawMethodInfo , - windowWithdraw , - - - - - -- * Properties --- ** Cursor - WindowCursorPropertyInfo , - clearWindowCursor , - constructWindowCursor , - getWindowCursor , - setWindowCursor , - windowCursor , - - - - - -- * Signals --- ** CreateSurface - WindowCreateSurfaceCallback , - WindowCreateSurfaceCallbackC , - WindowCreateSurfaceSignalInfo , - afterWindowCreateSurface , - mkWindowCreateSurfaceCallback , - noWindowCreateSurfaceCallback , - onWindowCreateSurface , - windowCreateSurfaceCallbackWrapper , - windowCreateSurfaceClosure , - - --- ** FromEmbedder - WindowFromEmbedderCallback , - WindowFromEmbedderCallbackC , - WindowFromEmbedderSignalInfo , - afterWindowFromEmbedder , - mkWindowFromEmbedderCallback , - noWindowFromEmbedderCallback , - onWindowFromEmbedder , - windowFromEmbedderCallbackWrapper , - windowFromEmbedderClosure , - - --- ** PickEmbeddedChild - WindowPickEmbeddedChildCallback , - WindowPickEmbeddedChildCallbackC , - WindowPickEmbeddedChildSignalInfo , - afterWindowPickEmbeddedChild , - mkWindowPickEmbeddedChildCallback , - noWindowPickEmbeddedChildCallback , - onWindowPickEmbeddedChild , - windowPickEmbeddedChildCallbackWrapper , - windowPickEmbeddedChildClosure , - - --- ** ToEmbedder - WindowToEmbedderCallback , - WindowToEmbedderCallbackC , - WindowToEmbedderSignalInfo , - afterWindowToEmbedder , - mkWindowToEmbedderCallback , - noWindowToEmbedderCallback , - onWindowToEmbedder , - windowToEmbedderCallbackWrapper , - windowToEmbedderClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GObject as GObject -import qualified GI.GdkPixbuf as GdkPixbuf -import qualified GI.Cairo as Cairo - -newtype Window = Window (ForeignPtr Window) -foreign import ccall "gdk_window_get_type" - c_gdk_window_get_type :: IO GType - -type instance ParentTypes Window = WindowParentTypes -type WindowParentTypes = '[GObject.Object] - -instance GObject Window where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_gdk_window_get_type - - -class GObject o => WindowK o -instance (GObject o, IsDescendantOf Window o) => WindowK o - -toWindow :: WindowK o => o -> IO Window -toWindow = unsafeCastTo Window - -noWindow :: Maybe Window -noWindow = Nothing - -type family ResolveWindowMethod (t :: Symbol) (o :: *) :: * where - ResolveWindowMethod "beep" o = WindowBeepMethodInfo - ResolveWindowMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo - ResolveWindowMethod "beginMoveDragForDevice" o = WindowBeginMoveDragForDeviceMethodInfo - ResolveWindowMethod "beginPaintRect" o = WindowBeginPaintRectMethodInfo - ResolveWindowMethod "beginPaintRegion" o = WindowBeginPaintRegionMethodInfo - ResolveWindowMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo - ResolveWindowMethod "beginResizeDragForDevice" o = WindowBeginResizeDragForDeviceMethodInfo - ResolveWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWindowMethod "configureFinished" o = WindowConfigureFinishedMethodInfo - ResolveWindowMethod "coordsFromParent" o = WindowCoordsFromParentMethodInfo - ResolveWindowMethod "coordsToParent" o = WindowCoordsToParentMethodInfo - ResolveWindowMethod "createGlContext" o = WindowCreateGlContextMethodInfo - ResolveWindowMethod "createSimilarImageSurface" o = WindowCreateSimilarImageSurfaceMethodInfo - ResolveWindowMethod "createSimilarSurface" o = WindowCreateSimilarSurfaceMethodInfo - ResolveWindowMethod "deiconify" o = WindowDeiconifyMethodInfo - ResolveWindowMethod "destroy" o = WindowDestroyMethodInfo - ResolveWindowMethod "destroyNotify" o = WindowDestroyNotifyMethodInfo - ResolveWindowMethod "enableSynchronizedConfigure" o = WindowEnableSynchronizedConfigureMethodInfo - ResolveWindowMethod "endPaint" o = WindowEndPaintMethodInfo - ResolveWindowMethod "ensureNative" o = WindowEnsureNativeMethodInfo - ResolveWindowMethod "flush" o = WindowFlushMethodInfo - ResolveWindowMethod "focus" o = WindowFocusMethodInfo - ResolveWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWindowMethod "freezeToplevelUpdatesLibgtkOnly" o = WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo - ResolveWindowMethod "freezeUpdates" o = WindowFreezeUpdatesMethodInfo - ResolveWindowMethod "fullscreen" o = WindowFullscreenMethodInfo - ResolveWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo - ResolveWindowMethod "geometryChanged" o = WindowGeometryChangedMethodInfo - ResolveWindowMethod "hasNative" o = WindowHasNativeMethodInfo - ResolveWindowMethod "hide" o = WindowHideMethodInfo - ResolveWindowMethod "iconify" o = WindowIconifyMethodInfo - ResolveWindowMethod "inputShapeCombineRegion" o = WindowInputShapeCombineRegionMethodInfo - ResolveWindowMethod "invalidateMaybeRecurse" o = WindowInvalidateMaybeRecurseMethodInfo - ResolveWindowMethod "invalidateRect" o = WindowInvalidateRectMethodInfo - ResolveWindowMethod "invalidateRegion" o = WindowInvalidateRegionMethodInfo - ResolveWindowMethod "isDestroyed" o = WindowIsDestroyedMethodInfo - ResolveWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWindowMethod "isInputOnly" o = WindowIsInputOnlyMethodInfo - ResolveWindowMethod "isShaped" o = WindowIsShapedMethodInfo - ResolveWindowMethod "isViewable" o = WindowIsViewableMethodInfo - ResolveWindowMethod "isVisible" o = WindowIsVisibleMethodInfo - ResolveWindowMethod "lower" o = WindowLowerMethodInfo - ResolveWindowMethod "markPaintFromClip" o = WindowMarkPaintFromClipMethodInfo - ResolveWindowMethod "maximize" o = WindowMaximizeMethodInfo - ResolveWindowMethod "mergeChildInputShapes" o = WindowMergeChildInputShapesMethodInfo - ResolveWindowMethod "mergeChildShapes" o = WindowMergeChildShapesMethodInfo - ResolveWindowMethod "move" o = WindowMoveMethodInfo - ResolveWindowMethod "moveRegion" o = WindowMoveRegionMethodInfo - ResolveWindowMethod "moveResize" o = WindowMoveResizeMethodInfo - ResolveWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWindowMethod "peekChildren" o = WindowPeekChildrenMethodInfo - ResolveWindowMethod "processUpdates" o = WindowProcessUpdatesMethodInfo - ResolveWindowMethod "raise" o = WindowRaiseMethodInfo - ResolveWindowMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWindowMethod "registerDnd" o = WindowRegisterDndMethodInfo - ResolveWindowMethod "reparent" o = WindowReparentMethodInfo - ResolveWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWindowMethod "resize" o = WindowResizeMethodInfo - ResolveWindowMethod "restack" o = WindowRestackMethodInfo - ResolveWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWindowMethod "scroll" o = WindowScrollMethodInfo - ResolveWindowMethod "shapeCombineRegion" o = WindowShapeCombineRegionMethodInfo - ResolveWindowMethod "show" o = WindowShowMethodInfo - ResolveWindowMethod "showUnraised" o = WindowShowUnraisedMethodInfo - ResolveWindowMethod "showWindowMenu" o = WindowShowWindowMenuMethodInfo - ResolveWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWindowMethod "stick" o = WindowStickMethodInfo - ResolveWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWindowMethod "thawToplevelUpdatesLibgtkOnly" o = WindowThawToplevelUpdatesLibgtkOnlyMethodInfo - ResolveWindowMethod "thawUpdates" o = WindowThawUpdatesMethodInfo - ResolveWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo - ResolveWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo - ResolveWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWindowMethod "unstick" o = WindowUnstickMethodInfo - ResolveWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWindowMethod "withdraw" o = WindowWithdrawMethodInfo - ResolveWindowMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo - ResolveWindowMethod "getBackgroundPattern" o = WindowGetBackgroundPatternMethodInfo - ResolveWindowMethod "getChildren" o = WindowGetChildrenMethodInfo - ResolveWindowMethod "getChildrenWithUserData" o = WindowGetChildrenWithUserDataMethodInfo - ResolveWindowMethod "getClipRegion" o = WindowGetClipRegionMethodInfo - ResolveWindowMethod "getComposited" o = WindowGetCompositedMethodInfo - ResolveWindowMethod "getCursor" o = WindowGetCursorMethodInfo - ResolveWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWindowMethod "getDecorations" o = WindowGetDecorationsMethodInfo - ResolveWindowMethod "getDeviceCursor" o = WindowGetDeviceCursorMethodInfo - ResolveWindowMethod "getDeviceEvents" o = WindowGetDeviceEventsMethodInfo - ResolveWindowMethod "getDevicePosition" o = WindowGetDevicePositionMethodInfo - ResolveWindowMethod "getDevicePositionDouble" o = WindowGetDevicePositionDoubleMethodInfo - ResolveWindowMethod "getDisplay" o = WindowGetDisplayMethodInfo - ResolveWindowMethod "getDragProtocol" o = WindowGetDragProtocolMethodInfo - ResolveWindowMethod "getEffectiveParent" o = WindowGetEffectiveParentMethodInfo - ResolveWindowMethod "getEffectiveToplevel" o = WindowGetEffectiveToplevelMethodInfo - ResolveWindowMethod "getEventCompression" o = WindowGetEventCompressionMethodInfo - ResolveWindowMethod "getEvents" o = WindowGetEventsMethodInfo - ResolveWindowMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo - ResolveWindowMethod "getFrameClock" o = WindowGetFrameClockMethodInfo - ResolveWindowMethod "getFrameExtents" o = WindowGetFrameExtentsMethodInfo - ResolveWindowMethod "getFullscreenMode" o = WindowGetFullscreenModeMethodInfo - ResolveWindowMethod "getGeometry" o = WindowGetGeometryMethodInfo - ResolveWindowMethod "getGroup" o = WindowGetGroupMethodInfo - ResolveWindowMethod "getHeight" o = WindowGetHeightMethodInfo - ResolveWindowMethod "getModalHint" o = WindowGetModalHintMethodInfo - ResolveWindowMethod "getOrigin" o = WindowGetOriginMethodInfo - ResolveWindowMethod "getParent" o = WindowGetParentMethodInfo - ResolveWindowMethod "getPassThrough" o = WindowGetPassThroughMethodInfo - ResolveWindowMethod "getPointer" o = WindowGetPointerMethodInfo - ResolveWindowMethod "getPosition" o = WindowGetPositionMethodInfo - ResolveWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWindowMethod "getRootCoords" o = WindowGetRootCoordsMethodInfo - ResolveWindowMethod "getRootOrigin" o = WindowGetRootOriginMethodInfo - ResolveWindowMethod "getScaleFactor" o = WindowGetScaleFactorMethodInfo - ResolveWindowMethod "getScreen" o = WindowGetScreenMethodInfo - ResolveWindowMethod "getSourceEvents" o = WindowGetSourceEventsMethodInfo - ResolveWindowMethod "getState" o = WindowGetStateMethodInfo - ResolveWindowMethod "getSupportMultidevice" o = WindowGetSupportMultideviceMethodInfo - ResolveWindowMethod "getToplevel" o = WindowGetToplevelMethodInfo - ResolveWindowMethod "getTypeHint" o = WindowGetTypeHintMethodInfo - ResolveWindowMethod "getUpdateArea" o = WindowGetUpdateAreaMethodInfo - ResolveWindowMethod "getUserData" o = WindowGetUserDataMethodInfo - ResolveWindowMethod "getVisibleRegion" o = WindowGetVisibleRegionMethodInfo - ResolveWindowMethod "getVisual" o = WindowGetVisualMethodInfo - ResolveWindowMethod "getWidth" o = WindowGetWidthMethodInfo - ResolveWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo - ResolveWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo - ResolveWindowMethod "setBackground" o = WindowSetBackgroundMethodInfo - ResolveWindowMethod "setBackgroundPattern" o = WindowSetBackgroundPatternMethodInfo - ResolveWindowMethod "setBackgroundRgba" o = WindowSetBackgroundRgbaMethodInfo - ResolveWindowMethod "setChildInputShapes" o = WindowSetChildInputShapesMethodInfo - ResolveWindowMethod "setChildShapes" o = WindowSetChildShapesMethodInfo - ResolveWindowMethod "setComposited" o = WindowSetCompositedMethodInfo - ResolveWindowMethod "setCursor" o = WindowSetCursorMethodInfo - ResolveWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWindowMethod "setDecorations" o = WindowSetDecorationsMethodInfo - ResolveWindowMethod "setDeviceCursor" o = WindowSetDeviceCursorMethodInfo - ResolveWindowMethod "setDeviceEvents" o = WindowSetDeviceEventsMethodInfo - ResolveWindowMethod "setEventCompression" o = WindowSetEventCompressionMethodInfo - ResolveWindowMethod "setEvents" o = WindowSetEventsMethodInfo - ResolveWindowMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo - ResolveWindowMethod "setFullscreenMode" o = WindowSetFullscreenModeMethodInfo - ResolveWindowMethod "setFunctions" o = WindowSetFunctionsMethodInfo - ResolveWindowMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo - ResolveWindowMethod "setGroup" o = WindowSetGroupMethodInfo - ResolveWindowMethod "setIconList" o = WindowSetIconListMethodInfo - ResolveWindowMethod "setIconName" o = WindowSetIconNameMethodInfo - ResolveWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo - ResolveWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo - ResolveWindowMethod "setModalHint" o = WindowSetModalHintMethodInfo - ResolveWindowMethod "setOpacity" o = WindowSetOpacityMethodInfo - ResolveWindowMethod "setOpaqueRegion" o = WindowSetOpaqueRegionMethodInfo - ResolveWindowMethod "setOverrideRedirect" o = WindowSetOverrideRedirectMethodInfo - ResolveWindowMethod "setPassThrough" o = WindowSetPassThroughMethodInfo - ResolveWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWindowMethod "setRole" o = WindowSetRoleMethodInfo - ResolveWindowMethod "setShadowWidth" o = WindowSetShadowWidthMethodInfo - ResolveWindowMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo - ResolveWindowMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo - ResolveWindowMethod "setSourceEvents" o = WindowSetSourceEventsMethodInfo - ResolveWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo - ResolveWindowMethod "setStaticGravities" o = WindowSetStaticGravitiesMethodInfo - ResolveWindowMethod "setSupportMultidevice" o = WindowSetSupportMultideviceMethodInfo - ResolveWindowMethod "setTitle" o = WindowSetTitleMethodInfo - ResolveWindowMethod "setTransientFor" o = WindowSetTransientForMethodInfo - ResolveWindowMethod "setTypeHint" o = WindowSetTypeHintMethodInfo - ResolveWindowMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo - ResolveWindowMethod "setUserData" o = WindowSetUserDataMethodInfo - ResolveWindowMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWindowMethod t Window, MethodInfo info Window p) => IsLabelProxy t (Window -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWindowMethod t Window, MethodInfo info Window p) => IsLabel t (Window -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Window::create-surface -type WindowCreateSurfaceCallback = - Int32 -> - Int32 -> - IO Cairo.Surface - -noWindowCreateSurfaceCallback :: Maybe WindowCreateSurfaceCallback -noWindowCreateSurfaceCallback = Nothing - -type WindowCreateSurfaceCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO (Ptr Cairo.Surface) - -foreign import ccall "wrapper" - mkWindowCreateSurfaceCallback :: WindowCreateSurfaceCallbackC -> IO (FunPtr WindowCreateSurfaceCallbackC) - -windowCreateSurfaceClosure :: WindowCreateSurfaceCallback -> IO Closure -windowCreateSurfaceClosure cb = newCClosure =<< mkWindowCreateSurfaceCallback wrapped - where wrapped = windowCreateSurfaceCallbackWrapper cb - -windowCreateSurfaceCallbackWrapper :: - WindowCreateSurfaceCallback -> - Ptr () -> - Int32 -> - Int32 -> - Ptr () -> - IO (Ptr Cairo.Surface) -windowCreateSurfaceCallbackWrapper _cb _ width height _ = do - result <- _cb width height - result' <- copyBoxed result - return result' - -onWindowCreateSurface :: (GObject a, MonadIO m) => a -> WindowCreateSurfaceCallback -> m SignalHandlerId -onWindowCreateSurface obj cb = liftIO $ connectWindowCreateSurface obj cb SignalConnectBefore -afterWindowCreateSurface :: (GObject a, MonadIO m) => a -> WindowCreateSurfaceCallback -> m SignalHandlerId -afterWindowCreateSurface obj cb = connectWindowCreateSurface obj cb SignalConnectAfter - -connectWindowCreateSurface :: (GObject a, MonadIO m) => - a -> WindowCreateSurfaceCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowCreateSurface obj cb after = liftIO $ do - cb' <- mkWindowCreateSurfaceCallback (windowCreateSurfaceCallbackWrapper cb) - connectSignalFunPtr obj "create-surface" cb' after - --- signal Window::from-embedder -type WindowFromEmbedderCallback = - Double -> - Double -> - IO (Double,Double) - -noWindowFromEmbedderCallback :: Maybe WindowFromEmbedderCallback -noWindowFromEmbedderCallback = Nothing - -type WindowFromEmbedderCallbackC = - Ptr () -> -- object - CDouble -> - CDouble -> - Ptr CDouble -> - Ptr CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowFromEmbedderCallback :: WindowFromEmbedderCallbackC -> IO (FunPtr WindowFromEmbedderCallbackC) - -windowFromEmbedderClosure :: WindowFromEmbedderCallback -> IO Closure -windowFromEmbedderClosure cb = newCClosure =<< mkWindowFromEmbedderCallback wrapped - where wrapped = windowFromEmbedderCallbackWrapper cb - -windowFromEmbedderCallbackWrapper :: - WindowFromEmbedderCallback -> - Ptr () -> - CDouble -> - CDouble -> - Ptr CDouble -> - Ptr CDouble -> - Ptr () -> - IO () -windowFromEmbedderCallbackWrapper _cb _ embedderX embedderY offscreenX offscreenY _ = do - let embedderX' = realToFrac embedderX - let embedderY' = realToFrac embedderY - (outoffscreenX, outoffscreenY) <- _cb embedderX' embedderY' - let outoffscreenX' = realToFrac outoffscreenX - poke offscreenX outoffscreenX' - let outoffscreenY' = realToFrac outoffscreenY - poke offscreenY outoffscreenY' - -onWindowFromEmbedder :: (GObject a, MonadIO m) => a -> WindowFromEmbedderCallback -> m SignalHandlerId -onWindowFromEmbedder obj cb = liftIO $ connectWindowFromEmbedder obj cb SignalConnectBefore -afterWindowFromEmbedder :: (GObject a, MonadIO m) => a -> WindowFromEmbedderCallback -> m SignalHandlerId -afterWindowFromEmbedder obj cb = connectWindowFromEmbedder obj cb SignalConnectAfter - -connectWindowFromEmbedder :: (GObject a, MonadIO m) => - a -> WindowFromEmbedderCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowFromEmbedder obj cb after = liftIO $ do - cb' <- mkWindowFromEmbedderCallback (windowFromEmbedderCallbackWrapper cb) - connectSignalFunPtr obj "from-embedder" cb' after - --- signal Window::pick-embedded-child -type WindowPickEmbeddedChildCallback = - Double -> - Double -> - IO (Maybe Window) - -noWindowPickEmbeddedChildCallback :: Maybe WindowPickEmbeddedChildCallback -noWindowPickEmbeddedChildCallback = Nothing - -type WindowPickEmbeddedChildCallbackC = - Ptr () -> -- object - CDouble -> - CDouble -> - Ptr () -> -- user_data - IO (Ptr Window) - -foreign import ccall "wrapper" - mkWindowPickEmbeddedChildCallback :: WindowPickEmbeddedChildCallbackC -> IO (FunPtr WindowPickEmbeddedChildCallbackC) - -windowPickEmbeddedChildClosure :: WindowPickEmbeddedChildCallback -> IO Closure -windowPickEmbeddedChildClosure cb = newCClosure =<< mkWindowPickEmbeddedChildCallback wrapped - where wrapped = windowPickEmbeddedChildCallbackWrapper cb - -windowPickEmbeddedChildCallbackWrapper :: - WindowPickEmbeddedChildCallback -> - Ptr () -> - CDouble -> - CDouble -> - Ptr () -> - IO (Ptr Window) -windowPickEmbeddedChildCallbackWrapper _cb _ x y _ = do - let x' = realToFrac x - let y' = realToFrac y - result <- _cb x' y' - maybeM nullPtr result $ \result' -> do - let result'' = unsafeManagedPtrCastPtr result' - return result'' - -onWindowPickEmbeddedChild :: (GObject a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> m SignalHandlerId -onWindowPickEmbeddedChild obj cb = liftIO $ connectWindowPickEmbeddedChild obj cb SignalConnectBefore -afterWindowPickEmbeddedChild :: (GObject a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> m SignalHandlerId -afterWindowPickEmbeddedChild obj cb = connectWindowPickEmbeddedChild obj cb SignalConnectAfter - -connectWindowPickEmbeddedChild :: (GObject a, MonadIO m) => - a -> WindowPickEmbeddedChildCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowPickEmbeddedChild obj cb after = liftIO $ do - cb' <- mkWindowPickEmbeddedChildCallback (windowPickEmbeddedChildCallbackWrapper cb) - connectSignalFunPtr obj "pick-embedded-child" cb' after - --- signal Window::to-embedder -type WindowToEmbedderCallback = - Double -> - Double -> - IO (Double,Double) - -noWindowToEmbedderCallback :: Maybe WindowToEmbedderCallback -noWindowToEmbedderCallback = Nothing - -type WindowToEmbedderCallbackC = - Ptr () -> -- object - CDouble -> - CDouble -> - Ptr CDouble -> - Ptr CDouble -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWindowToEmbedderCallback :: WindowToEmbedderCallbackC -> IO (FunPtr WindowToEmbedderCallbackC) - -windowToEmbedderClosure :: WindowToEmbedderCallback -> IO Closure -windowToEmbedderClosure cb = newCClosure =<< mkWindowToEmbedderCallback wrapped - where wrapped = windowToEmbedderCallbackWrapper cb - -windowToEmbedderCallbackWrapper :: - WindowToEmbedderCallback -> - Ptr () -> - CDouble -> - CDouble -> - Ptr CDouble -> - Ptr CDouble -> - Ptr () -> - IO () -windowToEmbedderCallbackWrapper _cb _ offscreenX offscreenY embedderX embedderY _ = do - let offscreenX' = realToFrac offscreenX - let offscreenY' = realToFrac offscreenY - (outembedderX, outembedderY) <- _cb offscreenX' offscreenY' - let outembedderX' = realToFrac outembedderX - poke embedderX outembedderX' - let outembedderY' = realToFrac outembedderY - poke embedderY outembedderY' - -onWindowToEmbedder :: (GObject a, MonadIO m) => a -> WindowToEmbedderCallback -> m SignalHandlerId -onWindowToEmbedder obj cb = liftIO $ connectWindowToEmbedder obj cb SignalConnectBefore -afterWindowToEmbedder :: (GObject a, MonadIO m) => a -> WindowToEmbedderCallback -> m SignalHandlerId -afterWindowToEmbedder obj cb = connectWindowToEmbedder obj cb SignalConnectAfter - -connectWindowToEmbedder :: (GObject a, MonadIO m) => - a -> WindowToEmbedderCallback -> SignalConnectMode -> m SignalHandlerId -connectWindowToEmbedder obj cb after = liftIO $ do - cb' <- mkWindowToEmbedderCallback (windowToEmbedderCallbackWrapper cb) - connectSignalFunPtr obj "to-embedder" cb' after - --- VVV Prop "cursor" - -- Type: TInterface "Gdk" "Cursor" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just True,Just True) - -getWindowCursor :: (MonadIO m, WindowK o) => o -> m (Maybe Cursor) -getWindowCursor obj = liftIO $ getObjectPropertyObject obj "cursor" Cursor - -setWindowCursor :: (MonadIO m, WindowK o, CursorK a) => o -> a -> m () -setWindowCursor obj val = liftIO $ setObjectPropertyObject obj "cursor" (Just val) - -constructWindowCursor :: (CursorK a) => a -> IO ([Char], GValue) -constructWindowCursor val = constructObjectPropertyObject "cursor" (Just val) - -clearWindowCursor :: (MonadIO m, WindowK o) => o -> m () -clearWindowCursor obj = liftIO $ setObjectPropertyObject obj "cursor" (Nothing :: Maybe Cursor) - -data WindowCursorPropertyInfo -instance AttrInfo WindowCursorPropertyInfo where - type AttrAllowedOps WindowCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowCursorPropertyInfo = CursorK - type AttrBaseTypeConstraint WindowCursorPropertyInfo = WindowK - type AttrGetType WindowCursorPropertyInfo = (Maybe Cursor) - type AttrLabel WindowCursorPropertyInfo = "cursor" - attrGet _ = getWindowCursor - attrSet _ = setWindowCursor - attrConstruct _ = constructWindowCursor - attrClear _ = clearWindowCursor - -type instance AttributeList Window = WindowAttributeList -type WindowAttributeList = ('[ '("cursor", WindowCursorPropertyInfo)] :: [(Symbol, *)]) - -windowCursor :: AttrLabelProxy "cursor" -windowCursor = AttrLabelProxy - -data WindowCreateSurfaceSignalInfo -instance SignalInfo WindowCreateSurfaceSignalInfo where - type HaskellCallbackType WindowCreateSurfaceSignalInfo = WindowCreateSurfaceCallback - connectSignal _ = connectWindowCreateSurface - -data WindowFromEmbedderSignalInfo -instance SignalInfo WindowFromEmbedderSignalInfo where - type HaskellCallbackType WindowFromEmbedderSignalInfo = WindowFromEmbedderCallback - connectSignal _ = connectWindowFromEmbedder - -data WindowPickEmbeddedChildSignalInfo -instance SignalInfo WindowPickEmbeddedChildSignalInfo where - type HaskellCallbackType WindowPickEmbeddedChildSignalInfo = WindowPickEmbeddedChildCallback - connectSignal _ = connectWindowPickEmbeddedChild - -data WindowToEmbedderSignalInfo -instance SignalInfo WindowToEmbedderSignalInfo where - type HaskellCallbackType WindowToEmbedderSignalInfo = WindowToEmbedderCallback - connectSignal _ = connectWindowToEmbedder - -type instance SignalList Window = WindowSignalList -type WindowSignalList = ('[ '("createSurface", WindowCreateSurfaceSignalInfo), '("fromEmbedder", WindowFromEmbedderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pickEmbeddedChild", WindowPickEmbeddedChildSignalInfo), '("toEmbedder", WindowToEmbedderSignalInfo)] :: [(Symbol, *)]) - --- method Window::new --- method type : Constructor --- Args : [Arg {argCName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_new" gdk_window_new :: - Ptr Window -> -- parent : TInterface "Gdk" "Window" - Ptr WindowAttr -> -- attributes : TInterface "Gdk" "WindowAttr" - CUInt -> -- attributes_mask : TInterface "Gdk" "WindowAttributesType" - IO (Ptr Window) - - -windowNew :: - (MonadIO m, WindowK a) => - Maybe (a) -- parent - -> WindowAttr -- attributes - -> [WindowAttributesType] -- attributesMask - -> m Window -- result -windowNew parent attributes attributesMask = liftIO $ do - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - let attributes' = unsafeManagedPtrGetPtr attributes - let attributesMask' = gflagsToWord attributesMask - result <- gdk_window_new maybeParent attributes' attributesMask' - checkUnexpectedReturnNULL "gdk_window_new" result - result' <- (wrapObject Window) result - whenJust parent touchManagedPtr - touchManagedPtr attributes - return result' - --- method Window::beep --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_beep" gdk_window_beep :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowBeep :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowBeep _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_beep _obj' - touchManagedPtr _obj - return () - -data WindowBeepMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowBeepMethodInfo a signature where - overloadedMethod _ = windowBeep - --- method Window::begin_move_drag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_begin_move_drag" gdk_window_begin_move_drag :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Int32 -> -- button : TBasicType TInt - Int32 -> -- root_x : TBasicType TInt - Int32 -> -- root_y : TBasicType TInt - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowBeginMoveDrag :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- button - -> Int32 -- rootX - -> Int32 -- rootY - -> Word32 -- timestamp - -> m () -- result -windowBeginMoveDrag _obj button rootX rootY timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_begin_move_drag _obj' button rootX rootY timestamp - touchManagedPtr _obj - return () - -data WindowBeginMoveDragMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginMoveDragMethodInfo a signature where - overloadedMethod _ = windowBeginMoveDrag - --- method Window::begin_move_drag_for_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_begin_move_drag_for_device" gdk_window_begin_move_drag_for_device :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Device -> -- device : TInterface "Gdk" "Device" - Int32 -> -- button : TBasicType TInt - Int32 -> -- root_x : TBasicType TInt - Int32 -> -- root_y : TBasicType TInt - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowBeginMoveDragForDevice :: - (MonadIO m, WindowK a, DeviceK b) => - a -- _obj - -> b -- device - -> Int32 -- button - -> Int32 -- rootX - -> Int32 -- rootY - -> Word32 -- timestamp - -> m () -- result -windowBeginMoveDragForDevice _obj device button rootX rootY timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - gdk_window_begin_move_drag_for_device _obj' device' button rootX rootY timestamp - touchManagedPtr _obj - touchManagedPtr device - return () - -data WindowBeginMoveDragForDeviceMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowBeginMoveDragForDeviceMethodInfo a signature where - overloadedMethod _ = windowBeginMoveDragForDevice - --- method Window::begin_paint_rect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_begin_paint_rect" gdk_window_begin_paint_rect :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Rectangle -> -- rectangle : TInterface "Gdk" "Rectangle" - IO () - - -windowBeginPaintRect :: - (MonadIO m, WindowK a) => - a -- _obj - -> Rectangle -- rectangle - -> m () -- result -windowBeginPaintRect _obj rectangle = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rectangle' = unsafeManagedPtrGetPtr rectangle - gdk_window_begin_paint_rect _obj' rectangle' - touchManagedPtr _obj - touchManagedPtr rectangle - return () - -data WindowBeginPaintRectMethodInfo -instance (signature ~ (Rectangle -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginPaintRectMethodInfo a signature where - overloadedMethod _ = windowBeginPaintRect - --- method Window::begin_paint_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_begin_paint_region" gdk_window_begin_paint_region :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -windowBeginPaintRegion :: - (MonadIO m, WindowK a) => - a -- _obj - -> Cairo.Region -- region - -> m () -- result -windowBeginPaintRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = unsafeManagedPtrGetPtr region - gdk_window_begin_paint_region _obj' region' - touchManagedPtr _obj - touchManagedPtr region - return () - -data WindowBeginPaintRegionMethodInfo -instance (signature ~ (Cairo.Region -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginPaintRegionMethodInfo a signature where - overloadedMethod _ = windowBeginPaintRegion - --- method Window::begin_resize_drag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_begin_resize_drag" gdk_window_begin_resize_drag :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CUInt -> -- edge : TInterface "Gdk" "WindowEdge" - Int32 -> -- button : TBasicType TInt - Int32 -> -- root_x : TBasicType TInt - Int32 -> -- root_y : TBasicType TInt - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowBeginResizeDrag :: - (MonadIO m, WindowK a) => - a -- _obj - -> WindowEdge -- edge - -> Int32 -- button - -> Int32 -- rootX - -> Int32 -- rootY - -> Word32 -- timestamp - -> m () -- result -windowBeginResizeDrag _obj edge button rootX rootY timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let edge' = (fromIntegral . fromEnum) edge - gdk_window_begin_resize_drag _obj' edge' button rootX rootY timestamp - touchManagedPtr _obj - return () - -data WindowBeginResizeDragMethodInfo -instance (signature ~ (WindowEdge -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginResizeDragMethodInfo a signature where - overloadedMethod _ = windowBeginResizeDrag - --- method Window::begin_resize_drag_for_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_begin_resize_drag_for_device" gdk_window_begin_resize_drag_for_device :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CUInt -> -- edge : TInterface "Gdk" "WindowEdge" - Ptr Device -> -- device : TInterface "Gdk" "Device" - Int32 -> -- button : TBasicType TInt - Int32 -> -- root_x : TBasicType TInt - Int32 -> -- root_y : TBasicType TInt - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowBeginResizeDragForDevice :: - (MonadIO m, WindowK a, DeviceK b) => - a -- _obj - -> WindowEdge -- edge - -> b -- device - -> Int32 -- button - -> Int32 -- rootX - -> Int32 -- rootY - -> Word32 -- timestamp - -> m () -- result -windowBeginResizeDragForDevice _obj edge device button rootX rootY timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let edge' = (fromIntegral . fromEnum) edge - let device' = unsafeManagedPtrCastPtr device - gdk_window_begin_resize_drag_for_device _obj' edge' device' button rootX rootY timestamp - touchManagedPtr _obj - touchManagedPtr device - return () - -data WindowBeginResizeDragForDeviceMethodInfo -instance (signature ~ (WindowEdge -> b -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowBeginResizeDragForDeviceMethodInfo a signature where - overloadedMethod _ = windowBeginResizeDragForDevice - --- method Window::configure_finished --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_configure_finished" gdk_window_configure_finished :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - -{-# DEPRECATED windowConfigureFinished ["(Since version 3.8)","this function is no longer needed"]#-} -windowConfigureFinished :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowConfigureFinished _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_configure_finished _obj' - touchManagedPtr _obj - return () - -data WindowConfigureFinishedMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowConfigureFinishedMethodInfo a signature where - overloadedMethod _ = windowConfigureFinished - --- method Window::coords_from_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_coords_from_parent" gdk_window_coords_from_parent :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CDouble -> -- parent_x : TBasicType TDouble - CDouble -> -- parent_y : TBasicType TDouble - Ptr CDouble -> -- x : TBasicType TDouble - Ptr CDouble -> -- y : TBasicType TDouble - IO () - - -windowCoordsFromParent :: - (MonadIO m, WindowK a) => - a -- _obj - -> Double -- parentX - -> Double -- parentY - -> m (Double,Double) -- result -windowCoordsFromParent _obj parentX parentY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parentX' = realToFrac parentX - let parentY' = realToFrac parentY - x <- allocMem :: IO (Ptr CDouble) - y <- allocMem :: IO (Ptr CDouble) - gdk_window_coords_from_parent _obj' parentX' parentY' x y - x' <- peek x - let x'' = realToFrac x' - y' <- peek y - let y'' = realToFrac y' - touchManagedPtr _obj - freeMem x - freeMem y - return (x'', y'') - -data WindowCoordsFromParentMethodInfo -instance (signature ~ (Double -> Double -> m (Double,Double)), MonadIO m, WindowK a) => MethodInfo WindowCoordsFromParentMethodInfo a signature where - overloadedMethod _ = windowCoordsFromParent - --- method Window::coords_to_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parent_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_coords_to_parent" gdk_window_coords_to_parent :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CDouble -> -- x : TBasicType TDouble - CDouble -> -- y : TBasicType TDouble - Ptr CDouble -> -- parent_x : TBasicType TDouble - Ptr CDouble -> -- parent_y : TBasicType TDouble - IO () - - -windowCoordsToParent :: - (MonadIO m, WindowK a) => - a -- _obj - -> Double -- x - -> Double -- y - -> m (Double,Double) -- result -windowCoordsToParent _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let x' = realToFrac x - let y' = realToFrac y - parentX <- allocMem :: IO (Ptr CDouble) - parentY <- allocMem :: IO (Ptr CDouble) - gdk_window_coords_to_parent _obj' x' y' parentX parentY - parentX' <- peek parentX - let parentX'' = realToFrac parentX' - parentY' <- peek parentY - let parentY'' = realToFrac parentY' - touchManagedPtr _obj - freeMem parentX - freeMem parentY - return (parentX'', parentY'') - -data WindowCoordsToParentMethodInfo -instance (signature ~ (Double -> Double -> m (Double,Double)), MonadIO m, WindowK a) => MethodInfo WindowCoordsToParentMethodInfo a signature where - overloadedMethod _ = windowCoordsToParent - --- method Window::create_gl_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "GLContext") --- throws : True --- Skip return : False - -foreign import ccall "gdk_window_create_gl_context" gdk_window_create_gl_context :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr (Ptr GError) -> -- error - IO (Ptr GLContext) - - -windowCreateGlContext :: - (MonadIO m, WindowK a) => - a -- _obj - -> m GLContext -- result -windowCreateGlContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ gdk_window_create_gl_context _obj' - checkUnexpectedReturnNULL "gdk_window_create_gl_context" result - result' <- (wrapObject GLContext) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - -data WindowCreateGlContextMethodInfo -instance (signature ~ (m GLContext), MonadIO m, WindowK a) => MethodInfo WindowCreateGlContextMethodInfo a signature where - overloadedMethod _ = windowCreateGlContext - --- method Window::create_similar_image_surface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_create_similar_image_surface" gdk_window_create_similar_image_surface :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Int32 -> -- format : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - Int32 -> -- scale : TBasicType TInt - IO (Ptr Cairo.Surface) - - -windowCreateSimilarImageSurface :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- format - -> Int32 -- width - -> Int32 -- height - -> Int32 -- scale - -> m Cairo.Surface -- result -windowCreateSimilarImageSurface _obj format width height scale = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_create_similar_image_surface _obj' format width height scale - checkUnexpectedReturnNULL "gdk_window_create_similar_image_surface" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - return result' - -data WindowCreateSimilarImageSurfaceMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m Cairo.Surface), MonadIO m, WindowK a) => MethodInfo WindowCreateSimilarImageSurfaceMethodInfo a signature where - overloadedMethod _ = windowCreateSimilarImageSurface - --- method Window::create_similar_surface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_create_similar_surface" gdk_window_create_similar_surface :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CUInt -> -- content : TInterface "cairo" "Content" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO (Ptr Cairo.Surface) - - -windowCreateSimilarSurface :: - (MonadIO m, WindowK a) => - a -- _obj - -> Cairo.Content -- content - -> Int32 -- width - -> Int32 -- height - -> m Cairo.Surface -- result -windowCreateSimilarSurface _obj content width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let content' = (fromIntegral . fromEnum) content - result <- gdk_window_create_similar_surface _obj' content' width height - checkUnexpectedReturnNULL "gdk_window_create_similar_surface" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - return result' - -data WindowCreateSimilarSurfaceMethodInfo -instance (signature ~ (Cairo.Content -> Int32 -> Int32 -> m Cairo.Surface), MonadIO m, WindowK a) => MethodInfo WindowCreateSimilarSurfaceMethodInfo a signature where - overloadedMethod _ = windowCreateSimilarSurface - --- method Window::deiconify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_deiconify" gdk_window_deiconify :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowDeiconify :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowDeiconify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_deiconify _obj' - touchManagedPtr _obj - return () - -data WindowDeiconifyMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDeiconifyMethodInfo a signature where - overloadedMethod _ = windowDeiconify - --- method Window::destroy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_destroy" gdk_window_destroy :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowDestroy :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowDestroy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_destroy _obj' - touchManagedPtr _obj - return () - -data WindowDestroyMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDestroyMethodInfo a signature where - overloadedMethod _ = windowDestroy - --- method Window::destroy_notify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_destroy_notify" gdk_window_destroy_notify :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowDestroyNotify :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowDestroyNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_destroy_notify _obj' - touchManagedPtr _obj - return () - -data WindowDestroyNotifyMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDestroyNotifyMethodInfo a signature where - overloadedMethod _ = windowDestroyNotify - --- method Window::enable_synchronized_configure --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_enable_synchronized_configure" gdk_window_enable_synchronized_configure :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - -{-# DEPRECATED windowEnableSynchronizedConfigure ["(Since version 3.8)","this function is no longer needed"]#-} -windowEnableSynchronizedConfigure :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowEnableSynchronizedConfigure _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_enable_synchronized_configure _obj' - touchManagedPtr _obj - return () - -data WindowEnableSynchronizedConfigureMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowEnableSynchronizedConfigureMethodInfo a signature where - overloadedMethod _ = windowEnableSynchronizedConfigure - --- method Window::end_paint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_end_paint" gdk_window_end_paint :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowEndPaint :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowEndPaint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_end_paint _obj' - touchManagedPtr _obj - return () - -data WindowEndPaintMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowEndPaintMethodInfo a signature where - overloadedMethod _ = windowEndPaint - --- method Window::ensure_native --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_ensure_native" gdk_window_ensure_native :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowEnsureNative :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowEnsureNative _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_ensure_native _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowEnsureNativeMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowEnsureNativeMethodInfo a signature where - overloadedMethod _ = windowEnsureNative - --- method Window::flush --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_flush" gdk_window_flush :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - -{-# DEPRECATED windowFlush ["(Since version 3.14)"]#-} -windowFlush :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowFlush _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_flush _obj' - touchManagedPtr _obj - return () - -data WindowFlushMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFlushMethodInfo a signature where - overloadedMethod _ = windowFlush - --- method Window::focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_focus" gdk_window_focus :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Word32 -> -- timestamp : TBasicType TUInt32 - IO () - - -windowFocus :: - (MonadIO m, WindowK a) => - a -- _obj - -> Word32 -- timestamp - -> m () -- result -windowFocus _obj timestamp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_focus _obj' timestamp - touchManagedPtr _obj - return () - -data WindowFocusMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowFocusMethodInfo a signature where - overloadedMethod _ = windowFocus - --- method Window::freeze_toplevel_updates_libgtk_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_freeze_toplevel_updates_libgtk_only" gdk_window_freeze_toplevel_updates_libgtk_only :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - -{-# DEPRECATED windowFreezeToplevelUpdatesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside of GTK+"]#-} -windowFreezeToplevelUpdatesLibgtkOnly :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowFreezeToplevelUpdatesLibgtkOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_freeze_toplevel_updates_libgtk_only _obj' - touchManagedPtr _obj - return () - -data WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo a signature where - overloadedMethod _ = windowFreezeToplevelUpdatesLibgtkOnly - --- method Window::freeze_updates --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_freeze_updates" gdk_window_freeze_updates :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowFreezeUpdates :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowFreezeUpdates _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_freeze_updates _obj' - touchManagedPtr _obj - return () - -data WindowFreezeUpdatesMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFreezeUpdatesMethodInfo a signature where - overloadedMethod _ = windowFreezeUpdates - --- method Window::fullscreen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_fullscreen" gdk_window_fullscreen :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowFullscreen :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowFullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_fullscreen _obj' - touchManagedPtr _obj - return () - -data WindowFullscreenMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFullscreenMethodInfo a signature where - overloadedMethod _ = windowFullscreen - --- method Window::fullscreen_on_monitor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_fullscreen_on_monitor" gdk_window_fullscreen_on_monitor :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Int32 -> -- monitor : TBasicType TInt - IO () - - -windowFullscreenOnMonitor :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- monitor - -> m () -- result -windowFullscreenOnMonitor _obj monitor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_fullscreen_on_monitor _obj' monitor - touchManagedPtr _obj - return () - -data WindowFullscreenOnMonitorMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowFullscreenOnMonitorMethodInfo a signature where - overloadedMethod _ = windowFullscreenOnMonitor - --- method Window::geometry_changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_geometry_changed" gdk_window_geometry_changed :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowGeometryChanged :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowGeometryChanged _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_geometry_changed _obj' - touchManagedPtr _obj - return () - -data WindowGeometryChangedMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowGeometryChangedMethodInfo a signature where - overloadedMethod _ = windowGeometryChanged - --- method Window::get_accept_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_accept_focus" gdk_window_get_accept_focus :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowGetAcceptFocus :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetAcceptFocus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_accept_focus _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetAcceptFocusMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetAcceptFocusMethodInfo a signature where - overloadedMethod _ = windowGetAcceptFocus - --- method Window::get_background_pattern --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Pattern") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_background_pattern" gdk_window_get_background_pattern :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Cairo.Pattern) - - -windowGetBackgroundPattern :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Maybe Cairo.Pattern) -- result -windowGetBackgroundPattern _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_background_pattern _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed Cairo.Pattern) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WindowGetBackgroundPatternMethodInfo -instance (signature ~ (m (Maybe Cairo.Pattern)), MonadIO m, WindowK a) => MethodInfo WindowGetBackgroundPatternMethodInfo a signature where - overloadedMethod _ = windowGetBackgroundPattern - --- method Window::get_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Window")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_children" gdk_window_get_children :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr (GList (Ptr Window))) - - -windowGetChildren :: - (MonadIO m, WindowK a) => - a -- _obj - -> m [Window] -- result -windowGetChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_children _obj' - result' <- unpackGList result - result'' <- mapM (newObject Window) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data WindowGetChildrenMethodInfo -instance (signature ~ (m [Window]), MonadIO m, WindowK a) => MethodInfo WindowGetChildrenMethodInfo a signature where - overloadedMethod _ = windowGetChildren - --- method Window::get_children_with_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Window")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_children_with_user_data" gdk_window_get_children_with_user_data :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr () -> -- user_data : TBasicType TPtr - IO (Ptr (GList (Ptr Window))) - - -windowGetChildrenWithUserData :: - (MonadIO m, WindowK a) => - a -- _obj - -> Ptr () -- userData - -> m [Window] -- result -windowGetChildrenWithUserData _obj userData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_children_with_user_data _obj' userData - result' <- unpackGList result - result'' <- mapM (newObject Window) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data WindowGetChildrenWithUserDataMethodInfo -instance (signature ~ (Ptr () -> m [Window]), MonadIO m, WindowK a) => MethodInfo WindowGetChildrenWithUserDataMethodInfo a signature where - overloadedMethod _ = windowGetChildrenWithUserData - --- method Window::get_clip_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Region") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_clip_region" gdk_window_get_clip_region :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Cairo.Region) - - -windowGetClipRegion :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Cairo.Region -- result -windowGetClipRegion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_clip_region _obj' - checkUnexpectedReturnNULL "gdk_window_get_clip_region" result - result' <- (wrapBoxed Cairo.Region) result - touchManagedPtr _obj - return result' - -data WindowGetClipRegionMethodInfo -instance (signature ~ (m Cairo.Region), MonadIO m, WindowK a) => MethodInfo WindowGetClipRegionMethodInfo a signature where - overloadedMethod _ = windowGetClipRegion - --- method Window::get_composited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_composited" gdk_window_get_composited :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - -{-# DEPRECATED windowGetComposited ["(Since version 3.16)","Compositing is an outdated technology that"," only ever worked on X11."]#-} -windowGetComposited :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetComposited _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_composited _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetCompositedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetCompositedMethodInfo a signature where - overloadedMethod _ = windowGetComposited - --- method Window::get_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Cursor") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_cursor" gdk_window_get_cursor :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Cursor) - - -windowGetCursor :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Maybe Cursor) -- result -windowGetCursor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_cursor _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Cursor) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WindowGetCursorMethodInfo -instance (signature ~ (m (Maybe Cursor)), MonadIO m, WindowK a) => MethodInfo WindowGetCursorMethodInfo a signature where - overloadedMethod _ = windowGetCursor - --- method Window::get_decorations --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_decorations" gdk_window_get_decorations :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr CUInt -> -- decorations : TInterface "Gdk" "WMDecoration" - IO CInt - - -windowGetDecorations :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Bool,[WMDecoration]) -- result -windowGetDecorations _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - decorations <- allocMem :: IO (Ptr CUInt) - result <- gdk_window_get_decorations _obj' decorations - let result' = (/= 0) result - decorations' <- peek decorations - let decorations'' = wordToGFlags decorations' - touchManagedPtr _obj - freeMem decorations - return (result', decorations'') - -data WindowGetDecorationsMethodInfo -instance (signature ~ (m (Bool,[WMDecoration])), MonadIO m, WindowK a) => MethodInfo WindowGetDecorationsMethodInfo a signature where - overloadedMethod _ = windowGetDecorations - --- method Window::get_device_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Cursor") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_device_cursor" gdk_window_get_device_cursor :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Device -> -- device : TInterface "Gdk" "Device" - IO (Ptr Cursor) - - -windowGetDeviceCursor :: - (MonadIO m, WindowK a, DeviceK b) => - a -- _obj - -> b -- device - -> m (Maybe Cursor) -- result -windowGetDeviceCursor _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gdk_window_get_device_cursor _obj' device' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Cursor) result' - return result'' - touchManagedPtr _obj - touchManagedPtr device - return maybeResult - -data WindowGetDeviceCursorMethodInfo -instance (signature ~ (b -> m (Maybe Cursor)), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDeviceCursorMethodInfo a signature where - overloadedMethod _ = windowGetDeviceCursor - --- method Window::get_device_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "EventMask") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_device_events" gdk_window_get_device_events :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Device -> -- device : TInterface "Gdk" "Device" - IO CUInt - - -windowGetDeviceEvents :: - (MonadIO m, WindowK a, DeviceK b) => - a -- _obj - -> b -- device - -> m [EventMask] -- result -windowGetDeviceEvents _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - result <- gdk_window_get_device_events _obj' device' - let result' = wordToGFlags result - touchManagedPtr _obj - touchManagedPtr device - return result' - -data WindowGetDeviceEventsMethodInfo -instance (signature ~ (b -> m [EventMask]), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDeviceEventsMethodInfo a signature where - overloadedMethod _ = windowGetDeviceEvents - --- method Window::get_device_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_device_position" gdk_window_get_device_position :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Device -> -- device : TInterface "Gdk" "Device" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType" - IO (Ptr Window) - - -windowGetDevicePosition :: - (MonadIO m, WindowK a, DeviceK b) => - a -- _obj - -> b -- device - -> m ((Maybe Window),Int32,Int32,[ModifierType])-- result -windowGetDevicePosition _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - mask <- allocMem :: IO (Ptr CUInt) - result <- gdk_window_get_device_position _obj' device' x y mask - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Window) result' - return result'' - x' <- peek x - y' <- peek y - mask' <- peek mask - let mask'' = wordToGFlags mask' - touchManagedPtr _obj - touchManagedPtr device - freeMem x - freeMem y - freeMem mask - return (maybeResult, x', y', mask'') - -data WindowGetDevicePositionMethodInfo -instance (signature ~ (b -> m ((Maybe Window),Int32,Int32,[ModifierType])), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDevicePositionMethodInfo a signature where - overloadedMethod _ = windowGetDevicePosition - --- method Window::get_device_position_double --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_device_position_double" gdk_window_get_device_position_double :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Device -> -- device : TInterface "Gdk" "Device" - Ptr CDouble -> -- x : TBasicType TDouble - Ptr CDouble -> -- y : TBasicType TDouble - Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType" - IO (Ptr Window) - - -windowGetDevicePositionDouble :: - (MonadIO m, WindowK a, DeviceK b) => - a -- _obj - -> b -- device - -> m ((Maybe Window),Double,Double,[ModifierType])-- result -windowGetDevicePositionDouble _obj device = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - x <- allocMem :: IO (Ptr CDouble) - y <- allocMem :: IO (Ptr CDouble) - mask <- allocMem :: IO (Ptr CUInt) - result <- gdk_window_get_device_position_double _obj' device' x y mask - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Window) result' - return result'' - x' <- peek x - let x'' = realToFrac x' - y' <- peek y - let y'' = realToFrac y' - mask' <- peek mask - let mask'' = wordToGFlags mask' - touchManagedPtr _obj - touchManagedPtr device - freeMem x - freeMem y - freeMem mask - return (maybeResult, x'', y'', mask'') - -data WindowGetDevicePositionDoubleMethodInfo -instance (signature ~ (b -> m ((Maybe Window),Double,Double,[ModifierType])), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDevicePositionDoubleMethodInfo a signature where - overloadedMethod _ = windowGetDevicePositionDouble - --- method Window::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Display") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_display" gdk_window_get_display :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Display) - - -windowGetDisplay :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Display -- result -windowGetDisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_display _obj' - checkUnexpectedReturnNULL "gdk_window_get_display" result - result' <- (newObject Display) result - touchManagedPtr _obj - return result' - -data WindowGetDisplayMethodInfo -instance (signature ~ (m Display), MonadIO m, WindowK a) => MethodInfo WindowGetDisplayMethodInfo a signature where - overloadedMethod _ = windowGetDisplay - --- method Window::get_drag_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "DragProtocol") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_drag_protocol" gdk_window_get_drag_protocol :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr (Ptr Window) -> -- target : TInterface "Gdk" "Window" - IO CUInt - - -windowGetDragProtocol :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (DragProtocol,Window) -- result -windowGetDragProtocol _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - target <- allocMem :: IO (Ptr (Ptr Window)) - result <- gdk_window_get_drag_protocol _obj' target - let result' = (toEnum . fromIntegral) result - target' <- peek target - target'' <- (wrapObject Window) target' - touchManagedPtr _obj - freeMem target - return (result', target'') - -data WindowGetDragProtocolMethodInfo -instance (signature ~ (m (DragProtocol,Window)), MonadIO m, WindowK a) => MethodInfo WindowGetDragProtocolMethodInfo a signature where - overloadedMethod _ = windowGetDragProtocol - --- method Window::get_effective_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_effective_parent" gdk_window_get_effective_parent :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Window) - - -windowGetEffectiveParent :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Window -- result -windowGetEffectiveParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_effective_parent _obj' - checkUnexpectedReturnNULL "gdk_window_get_effective_parent" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data WindowGetEffectiveParentMethodInfo -instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetEffectiveParentMethodInfo a signature where - overloadedMethod _ = windowGetEffectiveParent - --- method Window::get_effective_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_effective_toplevel" gdk_window_get_effective_toplevel :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Window) - - -windowGetEffectiveToplevel :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Window -- result -windowGetEffectiveToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_effective_toplevel _obj' - checkUnexpectedReturnNULL "gdk_window_get_effective_toplevel" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data WindowGetEffectiveToplevelMethodInfo -instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetEffectiveToplevelMethodInfo a signature where - overloadedMethod _ = windowGetEffectiveToplevel - --- method Window::get_event_compression --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_event_compression" gdk_window_get_event_compression :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowGetEventCompression :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetEventCompression _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_event_compression _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetEventCompressionMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetEventCompressionMethodInfo a signature where - overloadedMethod _ = windowGetEventCompression - --- method Window::get_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "EventMask") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_events" gdk_window_get_events :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CUInt - - -windowGetEvents :: - (MonadIO m, WindowK a) => - a -- _obj - -> m [EventMask] -- result -windowGetEvents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_events _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data WindowGetEventsMethodInfo -instance (signature ~ (m [EventMask]), MonadIO m, WindowK a) => MethodInfo WindowGetEventsMethodInfo a signature where - overloadedMethod _ = windowGetEvents - --- method Window::get_focus_on_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_focus_on_map" gdk_window_get_focus_on_map :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowGetFocusOnMap :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetFocusOnMap _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_focus_on_map _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetFocusOnMapMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetFocusOnMapMethodInfo a signature where - overloadedMethod _ = windowGetFocusOnMap - --- method Window::get_frame_clock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "FrameClock") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_frame_clock" gdk_window_get_frame_clock :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr FrameClock) - - -windowGetFrameClock :: - (MonadIO m, WindowK a) => - a -- _obj - -> m FrameClock -- result -windowGetFrameClock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_frame_clock _obj' - checkUnexpectedReturnNULL "gdk_window_get_frame_clock" result - result' <- (newObject FrameClock) result - touchManagedPtr _obj - return result' - -data WindowGetFrameClockMethodInfo -instance (signature ~ (m FrameClock), MonadIO m, WindowK a) => MethodInfo WindowGetFrameClockMethodInfo a signature where - overloadedMethod _ = windowGetFrameClock - --- method Window::get_frame_extents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_frame_extents" gdk_window_get_frame_extents :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - IO () - - -windowGetFrameExtents :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Rectangle) -- result -windowGetFrameExtents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - gdk_window_get_frame_extents _obj' rect - rect' <- (wrapBoxed Rectangle) rect - touchManagedPtr _obj - return rect' - -data WindowGetFrameExtentsMethodInfo -instance (signature ~ (m (Rectangle)), MonadIO m, WindowK a) => MethodInfo WindowGetFrameExtentsMethodInfo a signature where - overloadedMethod _ = windowGetFrameExtents - --- method Window::get_fullscreen_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "FullscreenMode") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_fullscreen_mode" gdk_window_get_fullscreen_mode :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CUInt - - -windowGetFullscreenMode :: - (MonadIO m, WindowK a) => - a -- _obj - -> m FullscreenMode -- result -windowGetFullscreenMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_fullscreen_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WindowGetFullscreenModeMethodInfo -instance (signature ~ (m FullscreenMode), MonadIO m, WindowK a) => MethodInfo WindowGetFullscreenModeMethodInfo a signature where - overloadedMethod _ = windowGetFullscreenMode - --- method Window::get_geometry --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_geometry" gdk_window_get_geometry :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - Ptr Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- height : TBasicType TInt - IO () - - -windowGetGeometry :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Int32,Int32,Int32,Int32) -- result -windowGetGeometry _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - gdk_window_get_geometry _obj' x y width height - x' <- peek x - y' <- peek y - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem x - freeMem y - freeMem width - freeMem height - return (x', y', width', height') - -data WindowGetGeometryMethodInfo -instance (signature ~ (m (Int32,Int32,Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetGeometryMethodInfo a signature where - overloadedMethod _ = windowGetGeometry - --- method Window::get_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_group" gdk_window_get_group :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Window) - - -windowGetGroup :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Window -- result -windowGetGroup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_group _obj' - checkUnexpectedReturnNULL "gdk_window_get_group" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data WindowGetGroupMethodInfo -instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetGroupMethodInfo a signature where - overloadedMethod _ = windowGetGroup - --- method Window::get_height --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_height" gdk_window_get_height :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO Int32 - - -windowGetHeight :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Int32 -- result -windowGetHeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_height _obj' - touchManagedPtr _obj - return result - -data WindowGetHeightMethodInfo -instance (signature ~ (m Int32), MonadIO m, WindowK a) => MethodInfo WindowGetHeightMethodInfo a signature where - overloadedMethod _ = windowGetHeight - --- method Window::get_modal_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_modal_hint" gdk_window_get_modal_hint :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowGetModalHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetModalHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_modal_hint _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetModalHintMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetModalHintMethodInfo a signature where - overloadedMethod _ = windowGetModalHint - --- method Window::get_origin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_origin" gdk_window_get_origin :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - IO Int32 - - -windowGetOrigin :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Int32,Int32,Int32) -- result -windowGetOrigin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - result <- gdk_window_get_origin _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (result, x', y') - -data WindowGetOriginMethodInfo -instance (signature ~ (m (Int32,Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetOriginMethodInfo a signature where - overloadedMethod _ = windowGetOrigin - --- method Window::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_parent" gdk_window_get_parent :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Window) - - -windowGetParent :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Window -- result -windowGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_parent _obj' - checkUnexpectedReturnNULL "gdk_window_get_parent" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data WindowGetParentMethodInfo -instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetParentMethodInfo a signature where - overloadedMethod _ = windowGetParent - --- method Window::get_pass_through --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_pass_through" gdk_window_get_pass_through :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowGetPassThrough :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetPassThrough _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_pass_through _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetPassThroughMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetPassThroughMethodInfo a signature where - overloadedMethod _ = windowGetPassThrough - --- method Window::get_pointer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_pointer" gdk_window_get_pointer :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - Ptr CUInt -> -- mask : TInterface "Gdk" "ModifierType" - IO (Ptr Window) - -{-# DEPRECATED windowGetPointer ["(Since version 3.0)","Use gdk_window_get_device_position() instead."]#-} -windowGetPointer :: - (MonadIO m, WindowK a) => - a -- _obj - -> m ((Maybe Window),Int32,Int32,[ModifierType])-- result -windowGetPointer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - mask <- allocMem :: IO (Ptr CUInt) - result <- gdk_window_get_pointer _obj' x y mask - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Window) result' - return result'' - x' <- peek x - y' <- peek y - mask' <- peek mask - let mask'' = wordToGFlags mask' - touchManagedPtr _obj - freeMem x - freeMem y - freeMem mask - return (maybeResult, x', y', mask'') - -data WindowGetPointerMethodInfo -instance (signature ~ (m ((Maybe Window),Int32,Int32,[ModifierType])), MonadIO m, WindowK a) => MethodInfo WindowGetPointerMethodInfo a signature where - overloadedMethod _ = windowGetPointer - --- method Window::get_position --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_position" gdk_window_get_position :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - IO () - - -windowGetPosition :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Int32,Int32) -- result -windowGetPosition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gdk_window_get_position _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (x', y') - -data WindowGetPositionMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetPositionMethodInfo a signature where - overloadedMethod _ = windowGetPosition - --- method Window::get_root_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_root_coords" gdk_window_get_root_coords :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Ptr Int32 -> -- root_x : TBasicType TInt - Ptr Int32 -> -- root_y : TBasicType TInt - IO () - - -windowGetRootCoords :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m (Int32,Int32) -- result -windowGetRootCoords _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rootX <- allocMem :: IO (Ptr Int32) - rootY <- allocMem :: IO (Ptr Int32) - gdk_window_get_root_coords _obj' x y rootX rootY - rootX' <- peek rootX - rootY' <- peek rootY - touchManagedPtr _obj - freeMem rootX - freeMem rootY - return (rootX', rootY') - -data WindowGetRootCoordsMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetRootCoordsMethodInfo a signature where - overloadedMethod _ = windowGetRootCoords - --- method Window::get_root_origin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_root_origin" gdk_window_get_root_origin :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Int32 -> -- x : TBasicType TInt - Ptr Int32 -> -- y : TBasicType TInt - IO () - - -windowGetRootOrigin :: - (MonadIO m, WindowK a) => - a -- _obj - -> m (Int32,Int32) -- result -windowGetRootOrigin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - x <- allocMem :: IO (Ptr Int32) - y <- allocMem :: IO (Ptr Int32) - gdk_window_get_root_origin _obj' x y - x' <- peek x - y' <- peek y - touchManagedPtr _obj - freeMem x - freeMem y - return (x', y') - -data WindowGetRootOriginMethodInfo -instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetRootOriginMethodInfo a signature where - overloadedMethod _ = windowGetRootOrigin - --- method Window::get_scale_factor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_scale_factor" gdk_window_get_scale_factor :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO Int32 - - -windowGetScaleFactor :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Int32 -- result -windowGetScaleFactor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_scale_factor _obj' - touchManagedPtr _obj - return result - -data WindowGetScaleFactorMethodInfo -instance (signature ~ (m Int32), MonadIO m, WindowK a) => MethodInfo WindowGetScaleFactorMethodInfo a signature where - overloadedMethod _ = windowGetScaleFactor - --- method Window::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_screen" gdk_window_get_screen :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Screen) - - -windowGetScreen :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Screen -- result -windowGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_screen _obj' - checkUnexpectedReturnNULL "gdk_window_get_screen" result - result' <- (newObject Screen) result - touchManagedPtr _obj - return result' - -data WindowGetScreenMethodInfo -instance (signature ~ (m Screen), MonadIO m, WindowK a) => MethodInfo WindowGetScreenMethodInfo a signature where - overloadedMethod _ = windowGetScreen - --- method Window::get_source_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "EventMask") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_source_events" gdk_window_get_source_events :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CUInt -> -- source : TInterface "Gdk" "InputSource" - IO CUInt - - -windowGetSourceEvents :: - (MonadIO m, WindowK a) => - a -- _obj - -> InputSource -- source - -> m [EventMask] -- result -windowGetSourceEvents _obj source = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let source' = (fromIntegral . fromEnum) source - result <- gdk_window_get_source_events _obj' source' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data WindowGetSourceEventsMethodInfo -instance (signature ~ (InputSource -> m [EventMask]), MonadIO m, WindowK a) => MethodInfo WindowGetSourceEventsMethodInfo a signature where - overloadedMethod _ = windowGetSourceEvents - --- method Window::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "WindowState") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_state" gdk_window_get_state :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CUInt - - -windowGetState :: - (MonadIO m, WindowK a) => - a -- _obj - -> m [WindowState] -- result -windowGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_state _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data WindowGetStateMethodInfo -instance (signature ~ (m [WindowState]), MonadIO m, WindowK a) => MethodInfo WindowGetStateMethodInfo a signature where - overloadedMethod _ = windowGetState - --- method Window::get_support_multidevice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_support_multidevice" gdk_window_get_support_multidevice :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowGetSupportMultidevice :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowGetSupportMultidevice _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_support_multidevice _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowGetSupportMultideviceMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetSupportMultideviceMethodInfo a signature where - overloadedMethod _ = windowGetSupportMultidevice - --- method Window::get_toplevel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_toplevel" gdk_window_get_toplevel :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Window) - - -windowGetToplevel :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Window -- result -windowGetToplevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_toplevel _obj' - checkUnexpectedReturnNULL "gdk_window_get_toplevel" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data WindowGetToplevelMethodInfo -instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetToplevelMethodInfo a signature where - overloadedMethod _ = windowGetToplevel - --- method Window::get_type_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "WindowTypeHint") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_type_hint" gdk_window_get_type_hint :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CUInt - - -windowGetTypeHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> m WindowTypeHint -- result -windowGetTypeHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_type_hint _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WindowGetTypeHintMethodInfo -instance (signature ~ (m WindowTypeHint), MonadIO m, WindowK a) => MethodInfo WindowGetTypeHintMethodInfo a signature where - overloadedMethod _ = windowGetTypeHint - --- method Window::get_update_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Region") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_update_area" gdk_window_get_update_area :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Cairo.Region) - - -windowGetUpdateArea :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Cairo.Region -- result -windowGetUpdateArea _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_update_area _obj' - checkUnexpectedReturnNULL "gdk_window_get_update_area" result - result' <- (wrapBoxed Cairo.Region) result - touchManagedPtr _obj - return result' - -data WindowGetUpdateAreaMethodInfo -instance (signature ~ (m Cairo.Region), MonadIO m, WindowK a) => MethodInfo WindowGetUpdateAreaMethodInfo a signature where - overloadedMethod _ = windowGetUpdateArea - --- method Window::get_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_user_data" gdk_window_get_user_data :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr (Ptr ()) -> -- data : TBasicType TPtr - IO () - - -windowGetUserData :: - (MonadIO m, WindowK a) => - a -- _obj - -> m ((Ptr ())) -- result -windowGetUserData _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - data_ <- allocMem :: IO (Ptr (Ptr ())) - gdk_window_get_user_data _obj' data_ - data_' <- peek data_ - touchManagedPtr _obj - freeMem data_ - return data_' - -data WindowGetUserDataMethodInfo -instance (signature ~ (m ((Ptr ()))), MonadIO m, WindowK a) => MethodInfo WindowGetUserDataMethodInfo a signature where - overloadedMethod _ = windowGetUserData - --- method Window::get_visible_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Region") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_visible_region" gdk_window_get_visible_region :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Cairo.Region) - - -windowGetVisibleRegion :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Cairo.Region -- result -windowGetVisibleRegion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_visible_region _obj' - checkUnexpectedReturnNULL "gdk_window_get_visible_region" result - result' <- (wrapBoxed Cairo.Region) result - touchManagedPtr _obj - return result' - -data WindowGetVisibleRegionMethodInfo -instance (signature ~ (m Cairo.Region), MonadIO m, WindowK a) => MethodInfo WindowGetVisibleRegionMethodInfo a signature where - overloadedMethod _ = windowGetVisibleRegion - --- method Window::get_visual --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Visual") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_visual" gdk_window_get_visual :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr Visual) - - -windowGetVisual :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Visual -- result -windowGetVisual _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_visual _obj' - checkUnexpectedReturnNULL "gdk_window_get_visual" result - result' <- (newObject Visual) result - touchManagedPtr _obj - return result' - -data WindowGetVisualMethodInfo -instance (signature ~ (m Visual), MonadIO m, WindowK a) => MethodInfo WindowGetVisualMethodInfo a signature where - overloadedMethod _ = windowGetVisual - --- method Window::get_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_width" gdk_window_get_width :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO Int32 - - -windowGetWidth :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Int32 -- result -windowGetWidth _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_width _obj' - touchManagedPtr _obj - return result - -data WindowGetWidthMethodInfo -instance (signature ~ (m Int32), MonadIO m, WindowK a) => MethodInfo WindowGetWidthMethodInfo a signature where - overloadedMethod _ = windowGetWidth - --- method Window::get_window_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "WindowType") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_get_window_type" gdk_window_get_window_type :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CUInt - - -windowGetWindowType :: - (MonadIO m, WindowK a) => - a -- _obj - -> m WindowType -- result -windowGetWindowType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_get_window_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WindowGetWindowTypeMethodInfo -instance (signature ~ (m WindowType), MonadIO m, WindowK a) => MethodInfo WindowGetWindowTypeMethodInfo a signature where - overloadedMethod _ = windowGetWindowType - --- method Window::has_native --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_has_native" gdk_window_has_native :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowHasNative :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowHasNative _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_has_native _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowHasNativeMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowHasNativeMethodInfo a signature where - overloadedMethod _ = windowHasNative - --- method Window::hide --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_hide" gdk_window_hide :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowHide :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowHide _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_hide _obj' - touchManagedPtr _obj - return () - -data WindowHideMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowHideMethodInfo a signature where - overloadedMethod _ = windowHide - --- method Window::iconify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_iconify" gdk_window_iconify :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowIconify :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowIconify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_iconify _obj' - touchManagedPtr _obj - return () - -data WindowIconifyMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowIconifyMethodInfo a signature where - overloadedMethod _ = windowIconify - --- method Window::input_shape_combine_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_input_shape_combine_region" gdk_window_input_shape_combine_region :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Cairo.Region -> -- shape_region : TInterface "cairo" "Region" - Int32 -> -- offset_x : TBasicType TInt - Int32 -> -- offset_y : TBasicType TInt - IO () - - -windowInputShapeCombineRegion :: - (MonadIO m, WindowK a) => - a -- _obj - -> Cairo.Region -- shapeRegion - -> Int32 -- offsetX - -> Int32 -- offsetY - -> m () -- result -windowInputShapeCombineRegion _obj shapeRegion offsetX offsetY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let shapeRegion' = unsafeManagedPtrGetPtr shapeRegion - gdk_window_input_shape_combine_region _obj' shapeRegion' offsetX offsetY - touchManagedPtr _obj - touchManagedPtr shapeRegion - return () - -data WindowInputShapeCombineRegionMethodInfo -instance (signature ~ (Cairo.Region -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInputShapeCombineRegionMethodInfo a signature where - overloadedMethod _ = windowInputShapeCombineRegion - --- method Window::invalidate_maybe_recurse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_invalidate_maybe_recurse" gdk_window_invalidate_maybe_recurse :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - FunPtr WindowChildFuncC -> -- child_func : TInterface "Gdk" "WindowChildFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -windowInvalidateMaybeRecurse :: - (MonadIO m, WindowK a) => - a -- _obj - -> Cairo.Region -- region - -> Maybe (WindowChildFunc) -- childFunc - -> m () -- result -windowInvalidateMaybeRecurse _obj region childFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = unsafeManagedPtrGetPtr region - maybeChildFunc <- case childFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jChildFunc -> do - jChildFunc' <- mkWindowChildFunc (windowChildFuncWrapper Nothing jChildFunc) - return jChildFunc' - let userData = nullPtr - gdk_window_invalidate_maybe_recurse _obj' region' maybeChildFunc userData - safeFreeFunPtr $ castFunPtrToPtr maybeChildFunc - touchManagedPtr _obj - touchManagedPtr region - return () - -data WindowInvalidateMaybeRecurseMethodInfo -instance (signature ~ (Cairo.Region -> Maybe (WindowChildFunc) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInvalidateMaybeRecurseMethodInfo a signature where - overloadedMethod _ = windowInvalidateMaybeRecurse - --- method Window::invalidate_rect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_invalidate_rect" gdk_window_invalidate_rect :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Rectangle -> -- rect : TInterface "Gdk" "Rectangle" - CInt -> -- invalidate_children : TBasicType TBoolean - IO () - - -windowInvalidateRect :: - (MonadIO m, WindowK a) => - a -- _obj - -> Maybe (Rectangle) -- rect - -> Bool -- invalidateChildren - -> m () -- result -windowInvalidateRect _obj rect invalidateChildren = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRect <- case rect of - Nothing -> return nullPtr - Just jRect -> do - let jRect' = unsafeManagedPtrGetPtr jRect - return jRect' - let invalidateChildren' = (fromIntegral . fromEnum) invalidateChildren - gdk_window_invalidate_rect _obj' maybeRect invalidateChildren' - touchManagedPtr _obj - whenJust rect touchManagedPtr - return () - -data WindowInvalidateRectMethodInfo -instance (signature ~ (Maybe (Rectangle) -> Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInvalidateRectMethodInfo a signature where - overloadedMethod _ = windowInvalidateRect - --- method Window::invalidate_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_invalidate_region" gdk_window_invalidate_region :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - CInt -> -- invalidate_children : TBasicType TBoolean - IO () - - -windowInvalidateRegion :: - (MonadIO m, WindowK a) => - a -- _obj - -> Cairo.Region -- region - -> Bool -- invalidateChildren - -> m () -- result -windowInvalidateRegion _obj region invalidateChildren = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = unsafeManagedPtrGetPtr region - let invalidateChildren' = (fromIntegral . fromEnum) invalidateChildren - gdk_window_invalidate_region _obj' region' invalidateChildren' - touchManagedPtr _obj - touchManagedPtr region - return () - -data WindowInvalidateRegionMethodInfo -instance (signature ~ (Cairo.Region -> Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInvalidateRegionMethodInfo a signature where - overloadedMethod _ = windowInvalidateRegion - --- method Window::is_destroyed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_is_destroyed" gdk_window_is_destroyed :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowIsDestroyed :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowIsDestroyed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_is_destroyed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowIsDestroyedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsDestroyedMethodInfo a signature where - overloadedMethod _ = windowIsDestroyed - --- method Window::is_input_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_is_input_only" gdk_window_is_input_only :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowIsInputOnly :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowIsInputOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_is_input_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowIsInputOnlyMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsInputOnlyMethodInfo a signature where - overloadedMethod _ = windowIsInputOnly - --- method Window::is_shaped --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_is_shaped" gdk_window_is_shaped :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowIsShaped :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowIsShaped _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_is_shaped _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowIsShapedMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsShapedMethodInfo a signature where - overloadedMethod _ = windowIsShaped - --- method Window::is_viewable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_is_viewable" gdk_window_is_viewable :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowIsViewable :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowIsViewable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_is_viewable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowIsViewableMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsViewableMethodInfo a signature where - overloadedMethod _ = windowIsViewable - --- method Window::is_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_is_visible" gdk_window_is_visible :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO CInt - - -windowIsVisible :: - (MonadIO m, WindowK a) => - a -- _obj - -> m Bool -- result -windowIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowIsVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsVisibleMethodInfo a signature where - overloadedMethod _ = windowIsVisible - --- method Window::lower --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_lower" gdk_window_lower :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowLower :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowLower _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_lower _obj' - touchManagedPtr _obj - return () - -data WindowLowerMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowLowerMethodInfo a signature where - overloadedMethod _ = windowLower - --- method Window::mark_paint_from_clip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_mark_paint_from_clip" gdk_window_mark_paint_from_clip :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Cairo.Context -> -- cr : TInterface "cairo" "Context" - IO () - - -windowMarkPaintFromClip :: - (MonadIO m, WindowK a) => - a -- _obj - -> Cairo.Context -- cr - -> m () -- result -windowMarkPaintFromClip _obj cr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cr' = unsafeManagedPtrGetPtr cr - gdk_window_mark_paint_from_clip _obj' cr' - touchManagedPtr _obj - touchManagedPtr cr - return () - -data WindowMarkPaintFromClipMethodInfo -instance (signature ~ (Cairo.Context -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMarkPaintFromClipMethodInfo a signature where - overloadedMethod _ = windowMarkPaintFromClip - --- method Window::maximize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_maximize" gdk_window_maximize :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowMaximize :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowMaximize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_maximize _obj' - touchManagedPtr _obj - return () - -data WindowMaximizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMaximizeMethodInfo a signature where - overloadedMethod _ = windowMaximize - --- method Window::merge_child_input_shapes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_merge_child_input_shapes" gdk_window_merge_child_input_shapes :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowMergeChildInputShapes :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowMergeChildInputShapes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_merge_child_input_shapes _obj' - touchManagedPtr _obj - return () - -data WindowMergeChildInputShapesMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMergeChildInputShapesMethodInfo a signature where - overloadedMethod _ = windowMergeChildInputShapes - --- method Window::merge_child_shapes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_merge_child_shapes" gdk_window_merge_child_shapes :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowMergeChildShapes :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowMergeChildShapes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_merge_child_shapes _obj' - touchManagedPtr _obj - return () - -data WindowMergeChildShapesMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMergeChildShapesMethodInfo a signature where - overloadedMethod _ = windowMergeChildShapes - --- method Window::move --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_move" gdk_window_move :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - - -windowMove :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> m () -- result -windowMove _obj x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_move _obj' x y - touchManagedPtr _obj - return () - -data WindowMoveMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveMethodInfo a signature where - overloadedMethod _ = windowMove - --- method Window::move_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_move_region" gdk_window_move_region :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - Int32 -> -- dx : TBasicType TInt - Int32 -> -- dy : TBasicType TInt - IO () - - -windowMoveRegion :: - (MonadIO m, WindowK a) => - a -- _obj - -> Cairo.Region -- region - -> Int32 -- dx - -> Int32 -- dy - -> m () -- result -windowMoveRegion _obj region dx dy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let region' = unsafeManagedPtrGetPtr region - gdk_window_move_region _obj' region' dx dy - touchManagedPtr _obj - touchManagedPtr region - return () - -data WindowMoveRegionMethodInfo -instance (signature ~ (Cairo.Region -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveRegionMethodInfo a signature where - overloadedMethod _ = windowMoveRegion - --- method Window::move_resize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_move_resize" gdk_window_move_resize :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -windowMoveResize :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- x - -> Int32 -- y - -> Int32 -- width - -> Int32 -- height - -> m () -- result -windowMoveResize _obj x y width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_move_resize _obj' x y width height - touchManagedPtr _obj - return () - -data WindowMoveResizeMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveResizeMethodInfo a signature where - overloadedMethod _ = windowMoveResize - --- method Window::peek_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gdk" "Window")) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_peek_children" gdk_window_peek_children :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO (Ptr (GList (Ptr Window))) - - -windowPeekChildren :: - (MonadIO m, WindowK a) => - a -- _obj - -> m [Window] -- result -windowPeekChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- gdk_window_peek_children _obj' - result' <- unpackGList result - result'' <- mapM (newObject Window) result' - touchManagedPtr _obj - return result'' - -data WindowPeekChildrenMethodInfo -instance (signature ~ (m [Window]), MonadIO m, WindowK a) => MethodInfo WindowPeekChildrenMethodInfo a signature where - overloadedMethod _ = windowPeekChildren - --- method Window::process_updates --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_process_updates" gdk_window_process_updates :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- update_children : TBasicType TBoolean - IO () - - -windowProcessUpdates :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- updateChildren - -> m () -- result -windowProcessUpdates _obj updateChildren = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let updateChildren' = (fromIntegral . fromEnum) updateChildren - gdk_window_process_updates _obj' updateChildren' - touchManagedPtr _obj - return () - -data WindowProcessUpdatesMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowProcessUpdatesMethodInfo a signature where - overloadedMethod _ = windowProcessUpdates - --- method Window::raise --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_raise" gdk_window_raise :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowRaise :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowRaise _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_raise _obj' - touchManagedPtr _obj - return () - -data WindowRaiseMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowRaiseMethodInfo a signature where - overloadedMethod _ = windowRaise - --- method Window::register_dnd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_register_dnd" gdk_window_register_dnd :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowRegisterDnd :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowRegisterDnd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_register_dnd _obj' - touchManagedPtr _obj - return () - -data WindowRegisterDndMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowRegisterDndMethodInfo a signature where - overloadedMethod _ = windowRegisterDnd - --- method Window::reparent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_reparent" gdk_window_reparent :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Window -> -- new_parent : TInterface "Gdk" "Window" - Int32 -> -- x : TBasicType TInt - Int32 -> -- y : TBasicType TInt - IO () - - -windowReparent :: - (MonadIO m, WindowK a, WindowK b) => - a -- _obj - -> b -- newParent - -> Int32 -- x - -> Int32 -- y - -> m () -- result -windowReparent _obj newParent x y = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let newParent' = unsafeManagedPtrCastPtr newParent - gdk_window_reparent _obj' newParent' x y - touchManagedPtr _obj - touchManagedPtr newParent - return () - -data WindowReparentMethodInfo -instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowReparentMethodInfo a signature where - overloadedMethod _ = windowReparent - --- method Window::resize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_resize" gdk_window_resize :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - IO () - - -windowResize :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- width - -> Int32 -- height - -> m () -- result -windowResize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_resize _obj' width height - touchManagedPtr _obj - return () - -data WindowResizeMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowResizeMethodInfo a signature where - overloadedMethod _ = windowResize - --- method Window::restack --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_restack" gdk_window_restack :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Window -> -- sibling : TInterface "Gdk" "Window" - CInt -> -- above : TBasicType TBoolean - IO () - - -windowRestack :: - (MonadIO m, WindowK a, WindowK b) => - a -- _obj - -> Maybe (b) -- sibling - -> Bool -- above - -> m () -- result -windowRestack _obj sibling above = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSibling <- case sibling of - Nothing -> return nullPtr - Just jSibling -> do - let jSibling' = unsafeManagedPtrCastPtr jSibling - return jSibling' - let above' = (fromIntegral . fromEnum) above - gdk_window_restack _obj' maybeSibling above' - touchManagedPtr _obj - whenJust sibling touchManagedPtr - return () - -data WindowRestackMethodInfo -instance (signature ~ (Maybe (b) -> Bool -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowRestackMethodInfo a signature where - overloadedMethod _ = windowRestack - --- method Window::scroll --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_scroll" gdk_window_scroll :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Int32 -> -- dx : TBasicType TInt - Int32 -> -- dy : TBasicType TInt - IO () - - -windowScroll :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- dx - -> Int32 -- dy - -> m () -- result -windowScroll _obj dx dy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_scroll _obj' dx dy - touchManagedPtr _obj - return () - -data WindowScrollMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowScrollMethodInfo a signature where - overloadedMethod _ = windowScroll - --- method Window::set_accept_focus --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_accept_focus" gdk_window_set_accept_focus :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- accept_focus : TBasicType TBoolean - IO () - - -windowSetAcceptFocus :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- acceptFocus - -> m () -- result -windowSetAcceptFocus _obj acceptFocus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let acceptFocus' = (fromIntegral . fromEnum) acceptFocus - gdk_window_set_accept_focus _obj' acceptFocus' - touchManagedPtr _obj - return () - -data WindowSetAcceptFocusMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetAcceptFocusMethodInfo a signature where - overloadedMethod _ = windowSetAcceptFocus - --- method Window::set_background --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_background" gdk_window_set_background :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Color -> -- color : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED windowSetBackground ["(Since version 3.4)","Use gdk_window_set_background_rgba() instead."]#-} -windowSetBackground :: - (MonadIO m, WindowK a) => - a -- _obj - -> Color -- color - -> m () -- result -windowSetBackground _obj color = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let color' = unsafeManagedPtrGetPtr color - gdk_window_set_background _obj' color' - touchManagedPtr _obj - touchManagedPtr color - return () - -data WindowSetBackgroundMethodInfo -instance (signature ~ (Color -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetBackgroundMethodInfo a signature where - overloadedMethod _ = windowSetBackground - --- method Window::set_background_pattern --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_background_pattern" gdk_window_set_background_pattern :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Cairo.Pattern -> -- pattern : TInterface "cairo" "Pattern" - IO () - - -windowSetBackgroundPattern :: - (MonadIO m, WindowK a) => - a -- _obj - -> Maybe (Cairo.Pattern) -- pattern - -> m () -- result -windowSetBackgroundPattern _obj pattern = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePattern <- case pattern of - Nothing -> return nullPtr - Just jPattern -> do - let jPattern' = unsafeManagedPtrGetPtr jPattern - return jPattern' - gdk_window_set_background_pattern _obj' maybePattern - touchManagedPtr _obj - whenJust pattern touchManagedPtr - return () - -data WindowSetBackgroundPatternMethodInfo -instance (signature ~ (Maybe (Cairo.Pattern) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetBackgroundPatternMethodInfo a signature where - overloadedMethod _ = windowSetBackgroundPattern - --- method Window::set_background_rgba --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_background_rgba" gdk_window_set_background_rgba :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr RGBA -> -- rgba : TInterface "Gdk" "RGBA" - IO () - - -windowSetBackgroundRgba :: - (MonadIO m, WindowK a) => - a -- _obj - -> RGBA -- rgba - -> m () -- result -windowSetBackgroundRgba _obj rgba = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let rgba' = unsafeManagedPtrGetPtr rgba - gdk_window_set_background_rgba _obj' rgba' - touchManagedPtr _obj - touchManagedPtr rgba - return () - -data WindowSetBackgroundRgbaMethodInfo -instance (signature ~ (RGBA -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetBackgroundRgbaMethodInfo a signature where - overloadedMethod _ = windowSetBackgroundRgba - --- method Window::set_child_input_shapes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_child_input_shapes" gdk_window_set_child_input_shapes :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowSetChildInputShapes :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowSetChildInputShapes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_set_child_input_shapes _obj' - touchManagedPtr _obj - return () - -data WindowSetChildInputShapesMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowSetChildInputShapesMethodInfo a signature where - overloadedMethod _ = windowSetChildInputShapes - --- method Window::set_child_shapes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_child_shapes" gdk_window_set_child_shapes :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowSetChildShapes :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowSetChildShapes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_set_child_shapes _obj' - touchManagedPtr _obj - return () - -data WindowSetChildShapesMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowSetChildShapesMethodInfo a signature where - overloadedMethod _ = windowSetChildShapes - --- method Window::set_composited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_composited" gdk_window_set_composited :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- composited : TBasicType TBoolean - IO () - -{-# DEPRECATED windowSetComposited ["(Since version 3.16)","Compositing is an outdated technology that"," only ever worked on X11."]#-} -windowSetComposited :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- composited - -> m () -- result -windowSetComposited _obj composited = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let composited' = (fromIntegral . fromEnum) composited - gdk_window_set_composited _obj' composited' - touchManagedPtr _obj - return () - -data WindowSetCompositedMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetCompositedMethodInfo a signature where - overloadedMethod _ = windowSetComposited - --- method Window::set_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_cursor" gdk_window_set_cursor :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Cursor -> -- cursor : TInterface "Gdk" "Cursor" - IO () - - -windowSetCursor :: - (MonadIO m, WindowK a, CursorK b) => - a -- _obj - -> Maybe (b) -- cursor - -> m () -- result -windowSetCursor _obj cursor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCursor <- case cursor of - Nothing -> return nullPtr - Just jCursor -> do - let jCursor' = unsafeManagedPtrCastPtr jCursor - return jCursor' - gdk_window_set_cursor _obj' maybeCursor - touchManagedPtr _obj - whenJust cursor touchManagedPtr - return () - -data WindowSetCursorMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, CursorK b) => MethodInfo WindowSetCursorMethodInfo a signature where - overloadedMethod _ = windowSetCursor - --- method Window::set_decorations --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_decorations" gdk_window_set_decorations :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CUInt -> -- decorations : TInterface "Gdk" "WMDecoration" - IO () - - -windowSetDecorations :: - (MonadIO m, WindowK a) => - a -- _obj - -> [WMDecoration] -- decorations - -> m () -- result -windowSetDecorations _obj decorations = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let decorations' = gflagsToWord decorations - gdk_window_set_decorations _obj' decorations' - touchManagedPtr _obj - return () - -data WindowSetDecorationsMethodInfo -instance (signature ~ ([WMDecoration] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDecorationsMethodInfo a signature where - overloadedMethod _ = windowSetDecorations - --- method Window::set_device_cursor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_device_cursor" gdk_window_set_device_cursor :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Device -> -- device : TInterface "Gdk" "Device" - Ptr Cursor -> -- cursor : TInterface "Gdk" "Cursor" - IO () - - -windowSetDeviceCursor :: - (MonadIO m, WindowK a, DeviceK b, CursorK c) => - a -- _obj - -> b -- device - -> c -- cursor - -> m () -- result -windowSetDeviceCursor _obj device cursor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let cursor' = unsafeManagedPtrCastPtr cursor - gdk_window_set_device_cursor _obj' device' cursor' - touchManagedPtr _obj - touchManagedPtr device - touchManagedPtr cursor - return () - -data WindowSetDeviceCursorMethodInfo -instance (signature ~ (b -> c -> m ()), MonadIO m, WindowK a, DeviceK b, CursorK c) => MethodInfo WindowSetDeviceCursorMethodInfo a signature where - overloadedMethod _ = windowSetDeviceCursor - --- method Window::set_device_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_device_events" gdk_window_set_device_events :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Device -> -- device : TInterface "Gdk" "Device" - CUInt -> -- event_mask : TInterface "Gdk" "EventMask" - IO () - - -windowSetDeviceEvents :: - (MonadIO m, WindowK a, DeviceK b) => - a -- _obj - -> b -- device - -> [EventMask] -- eventMask - -> m () -- result -windowSetDeviceEvents _obj device eventMask = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let device' = unsafeManagedPtrCastPtr device - let eventMask' = gflagsToWord eventMask - gdk_window_set_device_events _obj' device' eventMask' - touchManagedPtr _obj - touchManagedPtr device - return () - -data WindowSetDeviceEventsMethodInfo -instance (signature ~ (b -> [EventMask] -> m ()), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowSetDeviceEventsMethodInfo a signature where - overloadedMethod _ = windowSetDeviceEvents - --- method Window::set_event_compression --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_event_compression" gdk_window_set_event_compression :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- event_compression : TBasicType TBoolean - IO () - - -windowSetEventCompression :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- eventCompression - -> m () -- result -windowSetEventCompression _obj eventCompression = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let eventCompression' = (fromIntegral . fromEnum) eventCompression - gdk_window_set_event_compression _obj' eventCompression' - touchManagedPtr _obj - return () - -data WindowSetEventCompressionMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetEventCompressionMethodInfo a signature where - overloadedMethod _ = windowSetEventCompression - --- method Window::set_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_events" gdk_window_set_events :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CUInt -> -- event_mask : TInterface "Gdk" "EventMask" - IO () - - -windowSetEvents :: - (MonadIO m, WindowK a) => - a -- _obj - -> [EventMask] -- eventMask - -> m () -- result -windowSetEvents _obj eventMask = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let eventMask' = gflagsToWord eventMask - gdk_window_set_events _obj' eventMask' - touchManagedPtr _obj - return () - -data WindowSetEventsMethodInfo -instance (signature ~ ([EventMask] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetEventsMethodInfo a signature where - overloadedMethod _ = windowSetEvents - --- method Window::set_focus_on_map --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_focus_on_map" gdk_window_set_focus_on_map :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- focus_on_map : TBasicType TBoolean - IO () - - -windowSetFocusOnMap :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- focusOnMap - -> m () -- result -windowSetFocusOnMap _obj focusOnMap = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let focusOnMap' = (fromIntegral . fromEnum) focusOnMap - gdk_window_set_focus_on_map _obj' focusOnMap' - touchManagedPtr _obj - return () - -data WindowSetFocusOnMapMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFocusOnMapMethodInfo a signature where - overloadedMethod _ = windowSetFocusOnMap - --- method Window::set_fullscreen_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_fullscreen_mode" gdk_window_set_fullscreen_mode :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CUInt -> -- mode : TInterface "Gdk" "FullscreenMode" - IO () - - -windowSetFullscreenMode :: - (MonadIO m, WindowK a) => - a -- _obj - -> FullscreenMode -- mode - -> m () -- result -windowSetFullscreenMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - gdk_window_set_fullscreen_mode _obj' mode' - touchManagedPtr _obj - return () - -data WindowSetFullscreenModeMethodInfo -instance (signature ~ (FullscreenMode -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFullscreenModeMethodInfo a signature where - overloadedMethod _ = windowSetFullscreenMode - --- method Window::set_functions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_functions" gdk_window_set_functions :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CUInt -> -- functions : TInterface "Gdk" "WMFunction" - IO () - - -windowSetFunctions :: - (MonadIO m, WindowK a) => - a -- _obj - -> [WMFunction] -- functions - -> m () -- result -windowSetFunctions _obj functions = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let functions' = gflagsToWord functions - gdk_window_set_functions _obj' functions' - touchManagedPtr _obj - return () - -data WindowSetFunctionsMethodInfo -instance (signature ~ ([WMFunction] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFunctionsMethodInfo a signature where - overloadedMethod _ = windowSetFunctions - --- method Window::set_geometry_hints --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_geometry_hints" gdk_window_set_geometry_hints :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Geometry -> -- geometry : TInterface "Gdk" "Geometry" - CUInt -> -- geom_mask : TInterface "Gdk" "WindowHints" - IO () - - -windowSetGeometryHints :: - (MonadIO m, WindowK a) => - a -- _obj - -> Geometry -- geometry - -> [WindowHints] -- geomMask - -> m () -- result -windowSetGeometryHints _obj geometry geomMask = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let geometry' = unsafeManagedPtrGetPtr geometry - let geomMask' = gflagsToWord geomMask - gdk_window_set_geometry_hints _obj' geometry' geomMask' - touchManagedPtr _obj - touchManagedPtr geometry - return () - -data WindowSetGeometryHintsMethodInfo -instance (signature ~ (Geometry -> [WindowHints] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetGeometryHintsMethodInfo a signature where - overloadedMethod _ = windowSetGeometryHints - --- method Window::set_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_group" gdk_window_set_group :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Window -> -- leader : TInterface "Gdk" "Window" - IO () - - -windowSetGroup :: - (MonadIO m, WindowK a, WindowK b) => - a -- _obj - -> Maybe (b) -- leader - -> m () -- result -windowSetGroup _obj leader = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLeader <- case leader of - Nothing -> return nullPtr - Just jLeader -> do - let jLeader' = unsafeManagedPtrCastPtr jLeader - return jLeader' - gdk_window_set_group _obj' maybeLeader - touchManagedPtr _obj - whenJust leader touchManagedPtr - return () - -data WindowSetGroupMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowSetGroupMethodInfo a signature where - overloadedMethod _ = windowSetGroup - --- method Window::set_icon_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_icon_list" gdk_window_set_icon_list :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr (GList (Ptr GdkPixbuf.Pixbuf)) -> -- pixbufs : TGList (TInterface "GdkPixbuf" "Pixbuf") - IO () - - -windowSetIconList :: - (MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => - a -- _obj - -> [b] -- pixbufs - -> m () -- result -windowSetIconList _obj pixbufs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pixbufs' = map unsafeManagedPtrCastPtr pixbufs - pixbufs'' <- packGList pixbufs' - gdk_window_set_icon_list _obj' pixbufs'' - touchManagedPtr _obj - mapM_ touchManagedPtr pixbufs - g_list_free pixbufs'' - return () - -data WindowSetIconListMethodInfo -instance (signature ~ ([b] -> m ()), MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => MethodInfo WindowSetIconListMethodInfo a signature where - overloadedMethod _ = windowSetIconList - --- method Window::set_icon_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_icon_name" gdk_window_set_icon_name :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CString -> -- name : TBasicType TUTF8 - IO () - - -windowSetIconName :: - (MonadIO m, WindowK a) => - a -- _obj - -> Maybe (T.Text) -- name - -> m () -- result -windowSetIconName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - gdk_window_set_icon_name _obj' maybeName - touchManagedPtr _obj - freeMem maybeName - return () - -data WindowSetIconNameMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetIconNameMethodInfo a signature where - overloadedMethod _ = windowSetIconName - --- method Window::set_keep_above --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_keep_above" gdk_window_set_keep_above :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetKeepAbove :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetKeepAbove _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gdk_window_set_keep_above _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetKeepAboveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetKeepAboveMethodInfo a signature where - overloadedMethod _ = windowSetKeepAbove - --- method Window::set_keep_below --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_keep_below" gdk_window_set_keep_below :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetKeepBelow :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- setting - -> m () -- result -windowSetKeepBelow _obj setting = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let setting' = (fromIntegral . fromEnum) setting - gdk_window_set_keep_below _obj' setting' - touchManagedPtr _obj - return () - -data WindowSetKeepBelowMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetKeepBelowMethodInfo a signature where - overloadedMethod _ = windowSetKeepBelow - --- method Window::set_modal_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_modal_hint" gdk_window_set_modal_hint :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- modal : TBasicType TBoolean - IO () - - -windowSetModalHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- modal - -> m () -- result -windowSetModalHint _obj modal = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let modal' = (fromIntegral . fromEnum) modal - gdk_window_set_modal_hint _obj' modal' - touchManagedPtr _obj - return () - -data WindowSetModalHintMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetModalHintMethodInfo a signature where - overloadedMethod _ = windowSetModalHint - --- method Window::set_opacity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_opacity" gdk_window_set_opacity :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CDouble -> -- opacity : TBasicType TDouble - IO () - - -windowSetOpacity :: - (MonadIO m, WindowK a) => - a -- _obj - -> Double -- opacity - -> m () -- result -windowSetOpacity _obj opacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let opacity' = realToFrac opacity - gdk_window_set_opacity _obj' opacity' - touchManagedPtr _obj - return () - -data WindowSetOpacityMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOpacityMethodInfo a signature where - overloadedMethod _ = windowSetOpacity - --- method Window::set_opaque_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_opaque_region" gdk_window_set_opaque_region :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Cairo.Region -> -- region : TInterface "cairo" "Region" - IO () - - -windowSetOpaqueRegion :: - (MonadIO m, WindowK a) => - a -- _obj - -> Maybe (Cairo.Region) -- region - -> m () -- result -windowSetOpaqueRegion _obj region = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeRegion <- case region of - Nothing -> return nullPtr - Just jRegion -> do - let jRegion' = unsafeManagedPtrGetPtr jRegion - return jRegion' - gdk_window_set_opaque_region _obj' maybeRegion - touchManagedPtr _obj - whenJust region touchManagedPtr - return () - -data WindowSetOpaqueRegionMethodInfo -instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOpaqueRegionMethodInfo a signature where - overloadedMethod _ = windowSetOpaqueRegion - --- method Window::set_override_redirect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_override_redirect" gdk_window_set_override_redirect :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- override_redirect : TBasicType TBoolean - IO () - - -windowSetOverrideRedirect :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- overrideRedirect - -> m () -- result -windowSetOverrideRedirect _obj overrideRedirect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let overrideRedirect' = (fromIntegral . fromEnum) overrideRedirect - gdk_window_set_override_redirect _obj' overrideRedirect' - touchManagedPtr _obj - return () - -data WindowSetOverrideRedirectMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOverrideRedirectMethodInfo a signature where - overloadedMethod _ = windowSetOverrideRedirect - --- method Window::set_pass_through --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_pass_through" gdk_window_set_pass_through :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- pass_through : TBasicType TBoolean - IO () - - -windowSetPassThrough :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- passThrough - -> m () -- result -windowSetPassThrough _obj passThrough = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let passThrough' = (fromIntegral . fromEnum) passThrough - gdk_window_set_pass_through _obj' passThrough' - touchManagedPtr _obj - return () - -data WindowSetPassThroughMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetPassThroughMethodInfo a signature where - overloadedMethod _ = windowSetPassThrough - --- method Window::set_role --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_role" gdk_window_set_role :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CString -> -- role : TBasicType TUTF8 - IO () - - -windowSetRole :: - (MonadIO m, WindowK a) => - a -- _obj - -> T.Text -- role - -> m () -- result -windowSetRole _obj role = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - role' <- textToCString role - gdk_window_set_role _obj' role' - touchManagedPtr _obj - freeMem role' - return () - -data WindowSetRoleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetRoleMethodInfo a signature where - overloadedMethod _ = windowSetRole - --- method Window::set_shadow_width --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_shadow_width" gdk_window_set_shadow_width :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Int32 -> -- left : TBasicType TInt - Int32 -> -- right : TBasicType TInt - Int32 -> -- top : TBasicType TInt - Int32 -> -- bottom : TBasicType TInt - IO () - - -windowSetShadowWidth :: - (MonadIO m, WindowK a) => - a -- _obj - -> Int32 -- left - -> Int32 -- right - -> Int32 -- top - -> Int32 -- bottom - -> m () -- result -windowSetShadowWidth _obj left right top bottom = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_set_shadow_width _obj' left right top bottom - touchManagedPtr _obj - return () - -data WindowSetShadowWidthMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetShadowWidthMethodInfo a signature where - overloadedMethod _ = windowSetShadowWidth - --- method Window::set_skip_pager_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_skip_pager_hint" gdk_window_set_skip_pager_hint :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- skips_pager : TBasicType TBoolean - IO () - - -windowSetSkipPagerHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- skipsPager - -> m () -- result -windowSetSkipPagerHint _obj skipsPager = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let skipsPager' = (fromIntegral . fromEnum) skipsPager - gdk_window_set_skip_pager_hint _obj' skipsPager' - touchManagedPtr _obj - return () - -data WindowSetSkipPagerHintMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSkipPagerHintMethodInfo a signature where - overloadedMethod _ = windowSetSkipPagerHint - --- method Window::set_skip_taskbar_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_skip_taskbar_hint" gdk_window_set_skip_taskbar_hint :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- skips_taskbar : TBasicType TBoolean - IO () - - -windowSetSkipTaskbarHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- skipsTaskbar - -> m () -- result -windowSetSkipTaskbarHint _obj skipsTaskbar = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let skipsTaskbar' = (fromIntegral . fromEnum) skipsTaskbar - gdk_window_set_skip_taskbar_hint _obj' skipsTaskbar' - touchManagedPtr _obj - return () - -data WindowSetSkipTaskbarHintMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSkipTaskbarHintMethodInfo a signature where - overloadedMethod _ = windowSetSkipTaskbarHint - --- method Window::set_source_events --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_source_events" gdk_window_set_source_events :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CUInt -> -- source : TInterface "Gdk" "InputSource" - CUInt -> -- event_mask : TInterface "Gdk" "EventMask" - IO () - - -windowSetSourceEvents :: - (MonadIO m, WindowK a) => - a -- _obj - -> InputSource -- source - -> [EventMask] -- eventMask - -> m () -- result -windowSetSourceEvents _obj source eventMask = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let source' = (fromIntegral . fromEnum) source - let eventMask' = gflagsToWord eventMask - gdk_window_set_source_events _obj' source' eventMask' - touchManagedPtr _obj - return () - -data WindowSetSourceEventsMethodInfo -instance (signature ~ (InputSource -> [EventMask] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSourceEventsMethodInfo a signature where - overloadedMethod _ = windowSetSourceEvents - --- method Window::set_startup_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_startup_id" gdk_window_set_startup_id :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CString -> -- startup_id : TBasicType TUTF8 - IO () - - -windowSetStartupId :: - (MonadIO m, WindowK a) => - a -- _obj - -> T.Text -- startupId - -> m () -- result -windowSetStartupId _obj startupId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - startupId' <- textToCString startupId - gdk_window_set_startup_id _obj' startupId' - touchManagedPtr _obj - freeMem startupId' - return () - -data WindowSetStartupIdMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetStartupIdMethodInfo a signature where - overloadedMethod _ = windowSetStartupId - --- method Window::set_static_gravities --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_static_gravities" gdk_window_set_static_gravities :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- use_static : TBasicType TBoolean - IO CInt - -{-# DEPRECATED windowSetStaticGravities ["(Since version 3.16)","static gravities haven't worked on anything but X11"," for a long time."]#-} -windowSetStaticGravities :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- useStatic - -> m Bool -- result -windowSetStaticGravities _obj useStatic = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useStatic' = (fromIntegral . fromEnum) useStatic - result <- gdk_window_set_static_gravities _obj' useStatic' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data WindowSetStaticGravitiesMethodInfo -instance (signature ~ (Bool -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowSetStaticGravitiesMethodInfo a signature where - overloadedMethod _ = windowSetStaticGravities - --- method Window::set_support_multidevice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_support_multidevice" gdk_window_set_support_multidevice :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- support_multidevice : TBasicType TBoolean - IO () - - -windowSetSupportMultidevice :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- supportMultidevice - -> m () -- result -windowSetSupportMultidevice _obj supportMultidevice = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let supportMultidevice' = (fromIntegral . fromEnum) supportMultidevice - gdk_window_set_support_multidevice _obj' supportMultidevice' - touchManagedPtr _obj - return () - -data WindowSetSupportMultideviceMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSupportMultideviceMethodInfo a signature where - overloadedMethod _ = windowSetSupportMultidevice - --- method Window::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_title" gdk_window_set_title :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CString -> -- title : TBasicType TUTF8 - IO () - - -windowSetTitle :: - (MonadIO m, WindowK a) => - a -- _obj - -> T.Text -- title - -> m () -- result -windowSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - gdk_window_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - -data WindowSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetTitleMethodInfo a signature where - overloadedMethod _ = windowSetTitle - --- method Window::set_transient_for --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_transient_for" gdk_window_set_transient_for :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Window -> -- parent : TInterface "Gdk" "Window" - IO () - - -windowSetTransientFor :: - (MonadIO m, WindowK a, WindowK b) => - a -- _obj - -> b -- parent - -> m () -- result -windowSetTransientFor _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let parent' = unsafeManagedPtrCastPtr parent - gdk_window_set_transient_for _obj' parent' - touchManagedPtr _obj - touchManagedPtr parent - return () - -data WindowSetTransientForMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowSetTransientForMethodInfo a signature where - overloadedMethod _ = windowSetTransientFor - --- method Window::set_type_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_type_hint" gdk_window_set_type_hint :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CUInt -> -- hint : TInterface "Gdk" "WindowTypeHint" - IO () - - -windowSetTypeHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> WindowTypeHint -- hint - -> m () -- result -windowSetTypeHint _obj hint = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let hint' = (fromIntegral . fromEnum) hint - gdk_window_set_type_hint _obj' hint' - touchManagedPtr _obj - return () - -data WindowSetTypeHintMethodInfo -instance (signature ~ (WindowTypeHint -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetTypeHintMethodInfo a signature where - overloadedMethod _ = windowSetTypeHint - --- method Window::set_urgency_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_urgency_hint" gdk_window_set_urgency_hint :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - CInt -> -- urgent : TBasicType TBoolean - IO () - - -windowSetUrgencyHint :: - (MonadIO m, WindowK a) => - a -- _obj - -> Bool -- urgent - -> m () -- result -windowSetUrgencyHint _obj urgent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let urgent' = (fromIntegral . fromEnum) urgent - gdk_window_set_urgency_hint _obj' urgent' - touchManagedPtr _obj - return () - -data WindowSetUrgencyHintMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetUrgencyHintMethodInfo a signature where - overloadedMethod _ = windowSetUrgencyHint - --- method Window::set_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_user_data" gdk_window_set_user_data :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr GObject.Object -> -- user_data : TInterface "GObject" "Object" - IO () - - -windowSetUserData :: - (MonadIO m, WindowK a, GObject.ObjectK b) => - a -- _obj - -> Maybe (b) -- userData - -> m () -- result -windowSetUserData _obj userData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeUserData <- case userData of - Nothing -> return nullPtr - Just jUserData -> do - let jUserData' = unsafeManagedPtrCastPtr jUserData - return jUserData' - gdk_window_set_user_data _obj' maybeUserData - touchManagedPtr _obj - whenJust userData touchManagedPtr - return () - -data WindowSetUserDataMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, GObject.ObjectK b) => MethodInfo WindowSetUserDataMethodInfo a signature where - overloadedMethod _ = windowSetUserData - --- method Window::shape_combine_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_shape_combine_region" gdk_window_shape_combine_region :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Cairo.Region -> -- shape_region : TInterface "cairo" "Region" - Int32 -> -- offset_x : TBasicType TInt - Int32 -> -- offset_y : TBasicType TInt - IO () - - -windowShapeCombineRegion :: - (MonadIO m, WindowK a) => - a -- _obj - -> Maybe (Cairo.Region) -- shapeRegion - -> Int32 -- offsetX - -> Int32 -- offsetY - -> m () -- result -windowShapeCombineRegion _obj shapeRegion offsetX offsetY = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeShapeRegion <- case shapeRegion of - Nothing -> return nullPtr - Just jShapeRegion -> do - let jShapeRegion' = unsafeManagedPtrGetPtr jShapeRegion - return jShapeRegion' - gdk_window_shape_combine_region _obj' maybeShapeRegion offsetX offsetY - touchManagedPtr _obj - whenJust shapeRegion touchManagedPtr - return () - -data WindowShapeCombineRegionMethodInfo -instance (signature ~ (Maybe (Cairo.Region) -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowShapeCombineRegionMethodInfo a signature where - overloadedMethod _ = windowShapeCombineRegion - --- method Window::show --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_show" gdk_window_show :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowShow :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowShow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_show _obj' - touchManagedPtr _obj - return () - -data WindowShowMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowShowMethodInfo a signature where - overloadedMethod _ = windowShow - --- method Window::show_unraised --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_show_unraised" gdk_window_show_unraised :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowShowUnraised :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowShowUnraised _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_show_unraised _obj' - touchManagedPtr _obj - return () - -data WindowShowUnraisedMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowShowUnraisedMethodInfo a signature where - overloadedMethod _ = windowShowUnraised - --- method Window::show_window_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_show_window_menu" gdk_window_show_window_menu :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - Ptr Event -> -- event : TInterface "Gdk" "Event" - IO CInt - - -windowShowWindowMenu :: - (MonadIO m, WindowK a) => - a -- _obj - -> Event -- event - -> m Bool -- result -windowShowWindowMenu _obj event = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let event' = unsafeManagedPtrGetPtr event - result <- gdk_window_show_window_menu _obj' event' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr event - return result' - -data WindowShowWindowMenuMethodInfo -instance (signature ~ (Event -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowShowWindowMenuMethodInfo a signature where - overloadedMethod _ = windowShowWindowMenu - --- method Window::stick --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_stick" gdk_window_stick :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowStick :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowStick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_stick _obj' - touchManagedPtr _obj - return () - -data WindowStickMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowStickMethodInfo a signature where - overloadedMethod _ = windowStick - --- method Window::thaw_toplevel_updates_libgtk_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_thaw_toplevel_updates_libgtk_only" gdk_window_thaw_toplevel_updates_libgtk_only :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - -{-# DEPRECATED windowThawToplevelUpdatesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside of GTK+"]#-} -windowThawToplevelUpdatesLibgtkOnly :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowThawToplevelUpdatesLibgtkOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_thaw_toplevel_updates_libgtk_only _obj' - touchManagedPtr _obj - return () - -data WindowThawToplevelUpdatesLibgtkOnlyMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowThawToplevelUpdatesLibgtkOnlyMethodInfo a signature where - overloadedMethod _ = windowThawToplevelUpdatesLibgtkOnly - --- method Window::thaw_updates --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_thaw_updates" gdk_window_thaw_updates :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowThawUpdates :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowThawUpdates _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_thaw_updates _obj' - touchManagedPtr _obj - return () - -data WindowThawUpdatesMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowThawUpdatesMethodInfo a signature where - overloadedMethod _ = windowThawUpdates - --- method Window::unfullscreen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_unfullscreen" gdk_window_unfullscreen :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowUnfullscreen :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowUnfullscreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_unfullscreen _obj' - touchManagedPtr _obj - return () - -data WindowUnfullscreenMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnfullscreenMethodInfo a signature where - overloadedMethod _ = windowUnfullscreen - --- method Window::unmaximize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_unmaximize" gdk_window_unmaximize :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowUnmaximize :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowUnmaximize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_unmaximize _obj' - touchManagedPtr _obj - return () - -data WindowUnmaximizeMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnmaximizeMethodInfo a signature where - overloadedMethod _ = windowUnmaximize - --- method Window::unstick --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_unstick" gdk_window_unstick :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowUnstick :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowUnstick _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_unstick _obj' - touchManagedPtr _obj - return () - -data WindowUnstickMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnstickMethodInfo a signature where - overloadedMethod _ = windowUnstick - --- method Window::withdraw --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_withdraw" gdk_window_withdraw :: - Ptr Window -> -- _obj : TInterface "Gdk" "Window" - IO () - - -windowWithdraw :: - (MonadIO m, WindowK a) => - a -- _obj - -> m () -- result -windowWithdraw _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - gdk_window_withdraw _obj' - touchManagedPtr _obj - return () - -data WindowWithdrawMethodInfo -instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowWithdrawMethodInfo a signature where - overloadedMethod _ = windowWithdraw - --- method Window::at_pointer --- method type : MemberFunction --- Args : [Arg {argCName = "win_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_at_pointer" gdk_window_at_pointer :: - Ptr Int32 -> -- win_x : TBasicType TInt - Ptr Int32 -> -- win_y : TBasicType TInt - IO (Ptr Window) - -{-# DEPRECATED windowAtPointer ["(Since version 3.0)","Use gdk_device_get_window_at_position() instead."]#-} -windowAtPointer :: - (MonadIO m) => - m (Window,Int32,Int32) -- result -windowAtPointer = liftIO $ do - winX <- allocMem :: IO (Ptr Int32) - winY <- allocMem :: IO (Ptr Int32) - result <- gdk_window_at_pointer winX winY - checkUnexpectedReturnNULL "gdk_window_at_pointer" result - result' <- (newObject Window) result - winX' <- peek winX - winY' <- peek winY - freeMem winX - freeMem winY - return (result', winX', winY') - --- method Window::constrain_size --- method type : MemberFunction --- Args : [Arg {argCName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "new_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_constrain_size" gdk_window_constrain_size :: - Ptr Geometry -> -- geometry : TInterface "Gdk" "Geometry" - CUInt -> -- flags : TInterface "Gdk" "WindowHints" - Int32 -> -- width : TBasicType TInt - Int32 -> -- height : TBasicType TInt - Ptr Int32 -> -- new_width : TBasicType TInt - Ptr Int32 -> -- new_height : TBasicType TInt - IO () - - -windowConstrainSize :: - (MonadIO m) => - Geometry -- geometry - -> [WindowHints] -- flags - -> Int32 -- width - -> Int32 -- height - -> m (Int32,Int32) -- result -windowConstrainSize geometry flags width height = liftIO $ do - let geometry' = unsafeManagedPtrGetPtr geometry - let flags' = gflagsToWord flags - newWidth <- allocMem :: IO (Ptr Int32) - newHeight <- allocMem :: IO (Ptr Int32) - gdk_window_constrain_size geometry' flags' width height newWidth newHeight - newWidth' <- peek newWidth - newHeight' <- peek newHeight - touchManagedPtr geometry - freeMem newWidth - freeMem newHeight - return (newWidth', newHeight') - --- method Window::process_all_updates --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_process_all_updates" gdk_window_process_all_updates :: - IO () - - -windowProcessAllUpdates :: - (MonadIO m) => - m () -- result -windowProcessAllUpdates = liftIO $ do - gdk_window_process_all_updates - return () - --- method Window::set_debug_updates --- method type : MemberFunction --- Args : [Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_window_set_debug_updates" gdk_window_set_debug_updates :: - CInt -> -- setting : TBasicType TBoolean - IO () - - -windowSetDebugUpdates :: - (MonadIO m) => - Bool -- setting - -> m () -- result -windowSetDebugUpdates setting = liftIO $ do - let setting' = (fromIntegral . fromEnum) setting - gdk_window_set_debug_updates setting' - return () - - diff --git a/GI/Gdk/Objects/Window.hs-boot b/GI/Gdk/Objects/Window.hs-boot deleted file mode 100644 --- a/GI/Gdk/Objects/Window.hs-boot +++ /dev/null @@ -1,169 +0,0 @@ -module GI.Gdk.Objects.Window where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Window = Window (ForeignPtr Window) -instance GObject Window where -class GObject o => WindowK o -instance (GObject o, IsDescendantOf Window o) => WindowK o -data WindowCursorPropertyInfo -data WindowCreateSurfaceSignalInfo -data WindowFromEmbedderSignalInfo -data WindowPickEmbeddedChildSignalInfo -data WindowToEmbedderSignalInfo -data WindowBeepMethodInfo -data WindowBeginMoveDragMethodInfo -data WindowBeginMoveDragForDeviceMethodInfo -data WindowBeginPaintRectMethodInfo -data WindowBeginPaintRegionMethodInfo -data WindowBeginResizeDragMethodInfo -data WindowBeginResizeDragForDeviceMethodInfo -data WindowConfigureFinishedMethodInfo -data WindowCoordsFromParentMethodInfo -data WindowCoordsToParentMethodInfo -data WindowCreateGlContextMethodInfo -data WindowCreateSimilarImageSurfaceMethodInfo -data WindowCreateSimilarSurfaceMethodInfo -data WindowDeiconifyMethodInfo -data WindowDestroyMethodInfo -data WindowDestroyNotifyMethodInfo -data WindowEnableSynchronizedConfigureMethodInfo -data WindowEndPaintMethodInfo -data WindowEnsureNativeMethodInfo -data WindowFlushMethodInfo -data WindowFocusMethodInfo -data WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo -data WindowFreezeUpdatesMethodInfo -data WindowFullscreenMethodInfo -data WindowFullscreenOnMonitorMethodInfo -data WindowGeometryChangedMethodInfo -data WindowGetAcceptFocusMethodInfo -data WindowGetBackgroundPatternMethodInfo -data WindowGetChildrenMethodInfo -data WindowGetChildrenWithUserDataMethodInfo -data WindowGetClipRegionMethodInfo -data WindowGetCompositedMethodInfo -data WindowGetCursorMethodInfo -data WindowGetDecorationsMethodInfo -data WindowGetDeviceCursorMethodInfo -data WindowGetDeviceEventsMethodInfo -data WindowGetDevicePositionMethodInfo -data WindowGetDevicePositionDoubleMethodInfo -data WindowGetDisplayMethodInfo -data WindowGetDragProtocolMethodInfo -data WindowGetEffectiveParentMethodInfo -data WindowGetEffectiveToplevelMethodInfo -data WindowGetEventCompressionMethodInfo -data WindowGetEventsMethodInfo -data WindowGetFocusOnMapMethodInfo -data WindowGetFrameClockMethodInfo -data WindowGetFrameExtentsMethodInfo -data WindowGetFullscreenModeMethodInfo -data WindowGetGeometryMethodInfo -data WindowGetGroupMethodInfo -data WindowGetHeightMethodInfo -data WindowGetModalHintMethodInfo -data WindowGetOriginMethodInfo -data WindowGetParentMethodInfo -data WindowGetPassThroughMethodInfo -data WindowGetPointerMethodInfo -data WindowGetPositionMethodInfo -data WindowGetRootCoordsMethodInfo -data WindowGetRootOriginMethodInfo -data WindowGetScaleFactorMethodInfo -data WindowGetScreenMethodInfo -data WindowGetSourceEventsMethodInfo -data WindowGetStateMethodInfo -data WindowGetSupportMultideviceMethodInfo -data WindowGetToplevelMethodInfo -data WindowGetTypeHintMethodInfo -data WindowGetUpdateAreaMethodInfo -data WindowGetUserDataMethodInfo -data WindowGetVisibleRegionMethodInfo -data WindowGetVisualMethodInfo -data WindowGetWidthMethodInfo -data WindowGetWindowTypeMethodInfo -data WindowHasNativeMethodInfo -data WindowHideMethodInfo -data WindowIconifyMethodInfo -data WindowInputShapeCombineRegionMethodInfo -data WindowInvalidateMaybeRecurseMethodInfo -data WindowInvalidateRectMethodInfo -data WindowInvalidateRegionMethodInfo -data WindowIsDestroyedMethodInfo -data WindowIsInputOnlyMethodInfo -data WindowIsShapedMethodInfo -data WindowIsViewableMethodInfo -data WindowIsVisibleMethodInfo -data WindowLowerMethodInfo -data WindowMarkPaintFromClipMethodInfo -data WindowMaximizeMethodInfo -data WindowMergeChildInputShapesMethodInfo -data WindowMergeChildShapesMethodInfo -data WindowMoveMethodInfo -data WindowMoveRegionMethodInfo -data WindowMoveResizeMethodInfo -data WindowPeekChildrenMethodInfo -data WindowProcessUpdatesMethodInfo -data WindowRaiseMethodInfo -data WindowRegisterDndMethodInfo -data WindowReparentMethodInfo -data WindowResizeMethodInfo -data WindowRestackMethodInfo -data WindowScrollMethodInfo -data WindowSetAcceptFocusMethodInfo -data WindowSetBackgroundMethodInfo -data WindowSetBackgroundPatternMethodInfo -data WindowSetBackgroundRgbaMethodInfo -data WindowSetChildInputShapesMethodInfo -data WindowSetChildShapesMethodInfo -data WindowSetCompositedMethodInfo -data WindowSetCursorMethodInfo -data WindowSetDecorationsMethodInfo -data WindowSetDeviceCursorMethodInfo -data WindowSetDeviceEventsMethodInfo -data WindowSetEventCompressionMethodInfo -data WindowSetEventsMethodInfo -data WindowSetFocusOnMapMethodInfo -data WindowSetFullscreenModeMethodInfo -data WindowSetFunctionsMethodInfo -data WindowSetGeometryHintsMethodInfo -data WindowSetGroupMethodInfo -data WindowSetIconListMethodInfo -data WindowSetIconNameMethodInfo -data WindowSetKeepAboveMethodInfo -data WindowSetKeepBelowMethodInfo -data WindowSetModalHintMethodInfo -data WindowSetOpacityMethodInfo -data WindowSetOpaqueRegionMethodInfo -data WindowSetOverrideRedirectMethodInfo -data WindowSetPassThroughMethodInfo -data WindowSetRoleMethodInfo -data WindowSetShadowWidthMethodInfo -data WindowSetSkipPagerHintMethodInfo -data WindowSetSkipTaskbarHintMethodInfo -data WindowSetSourceEventsMethodInfo -data WindowSetStartupIdMethodInfo -data WindowSetStaticGravitiesMethodInfo -data WindowSetSupportMultideviceMethodInfo -data WindowSetTitleMethodInfo -data WindowSetTransientForMethodInfo -data WindowSetTypeHintMethodInfo -data WindowSetUrgencyHintMethodInfo -data WindowSetUserDataMethodInfo -data WindowShapeCombineRegionMethodInfo -data WindowShowMethodInfo -data WindowShowUnraisedMethodInfo -data WindowShowWindowMenuMethodInfo -data WindowStickMethodInfo -data WindowThawToplevelUpdatesLibgtkOnlyMethodInfo -data WindowThawUpdatesMethodInfo -data WindowUnfullscreenMethodInfo -data WindowUnmaximizeMethodInfo -data WindowUnstickMethodInfo -data WindowWithdrawMethodInfo diff --git a/GI/Gdk/Structs.hs b/GI/Gdk/Structs.hs deleted file mode 100644 --- a/GI/Gdk/Structs.hs +++ /dev/null @@ -1,91 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Structs - ( module GI.Gdk.Structs.Atom , - module GI.Gdk.Structs.Color , - module GI.Gdk.Structs.EventAny , - module GI.Gdk.Structs.EventButton , - module GI.Gdk.Structs.EventConfigure , - module GI.Gdk.Structs.EventCrossing , - module GI.Gdk.Structs.EventDND , - module GI.Gdk.Structs.EventExpose , - module GI.Gdk.Structs.EventFocus , - module GI.Gdk.Structs.EventGrabBroken , - module GI.Gdk.Structs.EventKey , - module GI.Gdk.Structs.EventMotion , - module GI.Gdk.Structs.EventOwnerChange , - module GI.Gdk.Structs.EventProperty , - module GI.Gdk.Structs.EventProximity , - module GI.Gdk.Structs.EventScroll , - module GI.Gdk.Structs.EventSelection , - module GI.Gdk.Structs.EventSequence , - module GI.Gdk.Structs.EventSetting , - module GI.Gdk.Structs.EventTouch , - module GI.Gdk.Structs.EventTouchpadPinch, - module GI.Gdk.Structs.EventTouchpadSwipe, - module GI.Gdk.Structs.EventVisibility , - module GI.Gdk.Structs.EventWindowState , - module GI.Gdk.Structs.FrameTimings , - module GI.Gdk.Structs.Geometry , - module GI.Gdk.Structs.KeymapKey , - module GI.Gdk.Structs.Point , - module GI.Gdk.Structs.RGBA , - module GI.Gdk.Structs.Rectangle , - module GI.Gdk.Structs.TimeCoord , - module GI.Gdk.Structs.WindowAttr , - module GI.Gdk.Structs.WindowRedirect , - - - ) where - -import GI.Gdk.Structs.Atom -import GI.Gdk.Structs.Color -import GI.Gdk.Structs.EventAny -import GI.Gdk.Structs.EventButton -import GI.Gdk.Structs.EventConfigure -import GI.Gdk.Structs.EventCrossing -import GI.Gdk.Structs.EventDND -import GI.Gdk.Structs.EventExpose -import GI.Gdk.Structs.EventFocus -import GI.Gdk.Structs.EventGrabBroken -import GI.Gdk.Structs.EventKey -import GI.Gdk.Structs.EventMotion -import GI.Gdk.Structs.EventOwnerChange -import GI.Gdk.Structs.EventProperty -import GI.Gdk.Structs.EventProximity -import GI.Gdk.Structs.EventScroll -import GI.Gdk.Structs.EventSelection -import GI.Gdk.Structs.EventSequence -import GI.Gdk.Structs.EventSetting -import GI.Gdk.Structs.EventTouch -import GI.Gdk.Structs.EventTouchpadPinch -import GI.Gdk.Structs.EventTouchpadSwipe -import GI.Gdk.Structs.EventVisibility -import GI.Gdk.Structs.EventWindowState -import GI.Gdk.Structs.FrameTimings -import GI.Gdk.Structs.Geometry -import GI.Gdk.Structs.KeymapKey -import GI.Gdk.Structs.Point -import GI.Gdk.Structs.RGBA -import GI.Gdk.Structs.Rectangle -import GI.Gdk.Structs.TimeCoord -import GI.Gdk.Structs.WindowAttr -import GI.Gdk.Structs.WindowRedirect - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - - diff --git a/GI/Gdk/Structs/Atom.hs b/GI/Gdk/Structs/Atom.hs deleted file mode 100644 --- a/GI/Gdk/Structs/Atom.hs +++ /dev/null @@ -1,157 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An opaque type representing a string as an index into a table -of strings on the X server. --} - -module GI.Gdk.Structs.Atom - ( - --- * Exported types - Atom(..) , - noAtom , - - - -- * Methods --- ** atomIntern - atomIntern , - - --- ** atomInternStaticString - atomInternStaticString , - - --- ** atomName - AtomNameMethodInfo , - atomName , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype Atom = Atom (ForeignPtr Atom) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr Atom where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noAtom :: Maybe Atom -noAtom = Nothing - - -type instance AttributeList Atom = AtomAttributeList -type AtomAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Atom::name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_atom_name" gdk_atom_name :: - Ptr Atom -> -- _obj : TInterface "Gdk" "Atom" - IO CString - - -atomName :: - (MonadIO m) => - Atom -- _obj - -> m T.Text -- result -atomName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_atom_name _obj' - checkUnexpectedReturnNULL "gdk_atom_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data AtomNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo AtomNameMethodInfo Atom signature where - overloadedMethod _ = atomName - --- method Atom::intern --- method type : MemberFunction --- Args : [Arg {argCName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "only_if_exists", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gdk_atom_intern" gdk_atom_intern :: - CString -> -- atom_name : TBasicType TUTF8 - CInt -> -- only_if_exists : TBasicType TBoolean - IO (Ptr Atom) - - -atomIntern :: - (MonadIO m) => - T.Text -- atomName - -> Bool -- onlyIfExists - -> m Atom -- result -atomIntern atomName onlyIfExists = liftIO $ do - atomName' <- textToCString atomName - let onlyIfExists' = (fromIntegral . fromEnum) onlyIfExists - result <- gdk_atom_intern atomName' onlyIfExists' - checkUnexpectedReturnNULL "gdk_atom_intern" result - result' <- (newPtr Atom) result - freeMem atomName' - return result' - --- method Atom::intern_static_string --- method type : MemberFunction --- Args : [Arg {argCName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Atom") --- throws : False --- Skip return : False - -foreign import ccall "gdk_atom_intern_static_string" gdk_atom_intern_static_string :: - CString -> -- atom_name : TBasicType TUTF8 - IO (Ptr Atom) - - -atomInternStaticString :: - (MonadIO m) => - T.Text -- atomName - -> m Atom -- result -atomInternStaticString atomName = liftIO $ do - atomName' <- textToCString atomName - result <- gdk_atom_intern_static_string atomName' - checkUnexpectedReturnNULL "gdk_atom_intern_static_string" result - result' <- (newPtr Atom) result - freeMem atomName' - return result' - -type family ResolveAtomMethod (t :: Symbol) (o :: *) :: * where - ResolveAtomMethod "name" o = AtomNameMethodInfo - ResolveAtomMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAtomMethod t Atom, MethodInfo info Atom p) => IsLabelProxy t (Atom -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAtomMethod t Atom, MethodInfo info Atom p) => IsLabel t (Atom -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/Atom.hs-boot b/GI/Gdk/Structs/Atom.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/Atom.hs-boot +++ /dev/null @@ -1,12 +0,0 @@ -module GI.Gdk.Structs.Atom where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Atom = Atom (ForeignPtr Atom) -instance WrappedPtr Atom where -data AtomNameMethodInfo diff --git a/GI/Gdk/Structs/Color.hs b/GI/Gdk/Structs/Color.hs deleted file mode 100644 --- a/GI/Gdk/Structs/Color.hs +++ /dev/null @@ -1,405 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #GdkColor is used to describe a color, -similar to the XColor struct used in the X11 drawing API. --} - -module GI.Gdk.Structs.Color - ( - --- * Exported types - Color(..) , - newZeroColor , - noColor , - - - -- * Methods --- ** colorCopy - ColorCopyMethodInfo , - colorCopy , - - --- ** colorEqual - ColorEqualMethodInfo , - colorEqual , - - --- ** colorFree - ColorFreeMethodInfo , - colorFree , - - --- ** colorHash - ColorHashMethodInfo , - colorHash , - - --- ** colorParse - colorParse , - - --- ** colorToString - ColorToStringMethodInfo , - colorToString , - - - - - -- * Properties --- ** Blue - colorBlue , - colorReadBlue , - colorWriteBlue , - - --- ** Green - colorGreen , - colorReadGreen , - colorWriteGreen , - - --- ** Pixel - colorPixel , - colorReadPixel , - colorWritePixel , - - --- ** Red - colorReadRed , - colorRed , - colorWriteRed , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype Color = Color (ForeignPtr Color) -foreign import ccall "gdk_color_get_type" c_gdk_color_get_type :: - IO GType - -instance BoxedObject Color where - boxedType _ = c_gdk_color_get_type - --- | Construct a `Color` struct initialized to zero. -newZeroColor :: MonadIO m => m Color -newZeroColor = liftIO $ callocBoxedBytes 12 >>= wrapBoxed Color - -instance tag ~ 'AttrSet => Constructible Color tag where - new _ attrs = do - o <- newZeroColor - GI.Attributes.set o attrs - return o - - -noColor :: Maybe Color -noColor = Nothing - -colorReadPixel :: MonadIO m => Color -> m Word32 -colorReadPixel s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -colorWritePixel :: MonadIO m => Color -> Word32 -> m () -colorWritePixel s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word32) - -data ColorPixelFieldInfo -instance AttrInfo ColorPixelFieldInfo where - type AttrAllowedOps ColorPixelFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ColorPixelFieldInfo = (~) Word32 - type AttrBaseTypeConstraint ColorPixelFieldInfo = (~) Color - type AttrGetType ColorPixelFieldInfo = Word32 - type AttrLabel ColorPixelFieldInfo = "pixel" - attrGet _ = colorReadPixel - attrSet _ = colorWritePixel - attrConstruct = undefined - attrClear _ = undefined - -colorPixel :: AttrLabelProxy "pixel" -colorPixel = AttrLabelProxy - - -colorReadRed :: MonadIO m => Color -> m Word16 -colorReadRed s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word16 - return val - -colorWriteRed :: MonadIO m => Color -> Word16 -> m () -colorWriteRed s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Word16) - -data ColorRedFieldInfo -instance AttrInfo ColorRedFieldInfo where - type AttrAllowedOps ColorRedFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ColorRedFieldInfo = (~) Word16 - type AttrBaseTypeConstraint ColorRedFieldInfo = (~) Color - type AttrGetType ColorRedFieldInfo = Word16 - type AttrLabel ColorRedFieldInfo = "red" - attrGet _ = colorReadRed - attrSet _ = colorWriteRed - attrConstruct = undefined - attrClear _ = undefined - -colorRed :: AttrLabelProxy "red" -colorRed = AttrLabelProxy - - -colorReadGreen :: MonadIO m => Color -> m Word16 -colorReadGreen s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 6) :: IO Word16 - return val - -colorWriteGreen :: MonadIO m => Color -> Word16 -> m () -colorWriteGreen s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 6) (val :: Word16) - -data ColorGreenFieldInfo -instance AttrInfo ColorGreenFieldInfo where - type AttrAllowedOps ColorGreenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ColorGreenFieldInfo = (~) Word16 - type AttrBaseTypeConstraint ColorGreenFieldInfo = (~) Color - type AttrGetType ColorGreenFieldInfo = Word16 - type AttrLabel ColorGreenFieldInfo = "green" - attrGet _ = colorReadGreen - attrSet _ = colorWriteGreen - attrConstruct = undefined - attrClear _ = undefined - -colorGreen :: AttrLabelProxy "green" -colorGreen = AttrLabelProxy - - -colorReadBlue :: MonadIO m => Color -> m Word16 -colorReadBlue s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word16 - return val - -colorWriteBlue :: MonadIO m => Color -> Word16 -> m () -colorWriteBlue s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word16) - -data ColorBlueFieldInfo -instance AttrInfo ColorBlueFieldInfo where - type AttrAllowedOps ColorBlueFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ColorBlueFieldInfo = (~) Word16 - type AttrBaseTypeConstraint ColorBlueFieldInfo = (~) Color - type AttrGetType ColorBlueFieldInfo = Word16 - type AttrLabel ColorBlueFieldInfo = "blue" - attrGet _ = colorReadBlue - attrSet _ = colorWriteBlue - attrConstruct = undefined - attrClear _ = undefined - -colorBlue :: AttrLabelProxy "blue" -colorBlue = AttrLabelProxy - - - -type instance AttributeList Color = ColorAttributeList -type ColorAttributeList = ('[ '("pixel", ColorPixelFieldInfo), '("red", ColorRedFieldInfo), '("green", ColorGreenFieldInfo), '("blue", ColorBlueFieldInfo)] :: [(Symbol, *)]) - --- method Color::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Color") --- throws : False --- Skip return : False - -foreign import ccall "gdk_color_copy" gdk_color_copy :: - Ptr Color -> -- _obj : TInterface "Gdk" "Color" - IO (Ptr Color) - -{-# DEPRECATED colorCopy ["(Since version 3.14)","Use #GdkRGBA"]#-} -colorCopy :: - (MonadIO m) => - Color -- _obj - -> m Color -- result -colorCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_color_copy _obj' - checkUnexpectedReturnNULL "gdk_color_copy" result - result' <- (wrapBoxed Color) result - touchManagedPtr _obj - return result' - -data ColorCopyMethodInfo -instance (signature ~ (m Color), MonadIO m) => MethodInfo ColorCopyMethodInfo Color signature where - overloadedMethod _ = colorCopy - --- method Color::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colorb", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_color_equal" gdk_color_equal :: - Ptr Color -> -- _obj : TInterface "Gdk" "Color" - Ptr Color -> -- colorb : TInterface "Gdk" "Color" - IO CInt - -{-# DEPRECATED colorEqual ["(Since version 3.14)","Use #GdkRGBA"]#-} -colorEqual :: - (MonadIO m) => - Color -- _obj - -> Color -- colorb - -> m Bool -- result -colorEqual _obj colorb = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let colorb' = unsafeManagedPtrGetPtr colorb - result <- gdk_color_equal _obj' colorb' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr colorb - return result' - -data ColorEqualMethodInfo -instance (signature ~ (Color -> m Bool), MonadIO m) => MethodInfo ColorEqualMethodInfo Color signature where - overloadedMethod _ = colorEqual - --- method Color::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_color_free" gdk_color_free :: - Ptr Color -> -- _obj : TInterface "Gdk" "Color" - IO () - -{-# DEPRECATED colorFree ["(Since version 3.14)","Use #GdkRGBA"]#-} -colorFree :: - (MonadIO m) => - Color -- _obj - -> m () -- result -colorFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gdk_color_free _obj' - touchManagedPtr _obj - return () - -data ColorFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ColorFreeMethodInfo Color signature where - overloadedMethod _ = colorFree - --- method Color::hash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_color_hash" gdk_color_hash :: - Ptr Color -> -- _obj : TInterface "Gdk" "Color" - IO Word32 - -{-# DEPRECATED colorHash ["(Since version 3.14)","Use #GdkRGBA"]#-} -colorHash :: - (MonadIO m) => - Color -- _obj - -> m Word32 -- result -colorHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_color_hash _obj' - touchManagedPtr _obj - return result - -data ColorHashMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo ColorHashMethodInfo Color signature where - overloadedMethod _ = colorHash - --- method Color::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_color_to_string" gdk_color_to_string :: - Ptr Color -> -- _obj : TInterface "Gdk" "Color" - IO CString - -{-# DEPRECATED colorToString ["(Since version 3.14)","Use #GdkRGBA"]#-} -colorToString :: - (MonadIO m) => - Color -- _obj - -> m T.Text -- result -colorToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_color_to_string _obj' - checkUnexpectedReturnNULL "gdk_color_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data ColorToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ColorToStringMethodInfo Color signature where - overloadedMethod _ = colorToString - --- method Color::parse --- method type : MemberFunction --- Args : [Arg {argCName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_color_parse" gdk_color_parse :: - CString -> -- spec : TBasicType TUTF8 - Ptr Color -> -- color : TInterface "Gdk" "Color" - IO CInt - -{-# DEPRECATED colorParse ["(Since version 3.14)","Use #GdkRGBA"]#-} -colorParse :: - (MonadIO m) => - T.Text -- spec - -> m (Bool,Color) -- result -colorParse spec = liftIO $ do - spec' <- textToCString spec - color <- callocBoxedBytes 12 :: IO (Ptr Color) - result <- gdk_color_parse spec' color - let result' = (/= 0) result - color' <- (wrapBoxed Color) color - freeMem spec' - return (result', color') - -type family ResolveColorMethod (t :: Symbol) (o :: *) :: * where - ResolveColorMethod "copy" o = ColorCopyMethodInfo - ResolveColorMethod "equal" o = ColorEqualMethodInfo - ResolveColorMethod "free" o = ColorFreeMethodInfo - ResolveColorMethod "hash" o = ColorHashMethodInfo - ResolveColorMethod "toString" o = ColorToStringMethodInfo - ResolveColorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveColorMethod t Color, MethodInfo info Color p) => IsLabelProxy t (Color -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveColorMethod t Color, MethodInfo info Color p) => IsLabel t (Color -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/Color.hs-boot b/GI/Gdk/Structs/Color.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/Color.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gdk.Structs.Color where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Color = Color (ForeignPtr Color) -instance BoxedObject Color where -data ColorCopyMethodInfo -data ColorEqualMethodInfo -data ColorFreeMethodInfo -data ColorHashMethodInfo -data ColorToStringMethodInfo diff --git a/GI/Gdk/Structs/EventAny.hs b/GI/Gdk/Structs/EventAny.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventAny.hs +++ /dev/null @@ -1,175 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Contains the fields which are common to all event structs. -Any event pointer can safely be cast to a pointer to a #GdkEventAny to -access these fields. --} - -module GI.Gdk.Structs.EventAny - ( - --- * Exported types - EventAny(..) , - newZeroEventAny , - noEventAny , - - - -- * Properties --- ** SendEvent - eventAnyReadSendEvent , - eventAnySendEvent , - eventAnyWriteSendEvent , - - --- ** Type - eventAnyReadType , - eventAnyType , - eventAnyWriteType , - - --- ** Window - eventAnyClearWindow , - eventAnyReadWindow , - eventAnyWindow , - eventAnyWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventAny = EventAny (ForeignPtr EventAny) -instance WrappedPtr EventAny where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventAny` struct initialized to zero. -newZeroEventAny :: MonadIO m => m EventAny -newZeroEventAny = liftIO $ wrappedPtrCalloc >>= wrapPtr EventAny - -instance tag ~ 'AttrSet => Constructible EventAny tag where - new _ attrs = do - o <- newZeroEventAny - GI.Attributes.set o attrs - return o - - -noEventAny :: Maybe EventAny -noEventAny = Nothing - -eventAnyReadType :: MonadIO m => EventAny -> m EventType -eventAnyReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventAnyWriteType :: MonadIO m => EventAny -> EventType -> m () -eventAnyWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventAnyTypeFieldInfo -instance AttrInfo EventAnyTypeFieldInfo where - type AttrAllowedOps EventAnyTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventAnyTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventAnyTypeFieldInfo = (~) EventAny - type AttrGetType EventAnyTypeFieldInfo = EventType - type AttrLabel EventAnyTypeFieldInfo = "type" - attrGet _ = eventAnyReadType - attrSet _ = eventAnyWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventAnyType :: AttrLabelProxy "type" -eventAnyType = AttrLabelProxy - - -eventAnyReadWindow :: MonadIO m => EventAny -> m (Maybe Window) -eventAnyReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventAnyWriteWindow :: MonadIO m => EventAny -> Ptr Window -> m () -eventAnyWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventAnyClearWindow :: MonadIO m => EventAny -> m () -eventAnyClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventAnyWindowFieldInfo -instance AttrInfo EventAnyWindowFieldInfo where - type AttrAllowedOps EventAnyWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventAnyWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventAnyWindowFieldInfo = (~) EventAny - type AttrGetType EventAnyWindowFieldInfo = Maybe Window - type AttrLabel EventAnyWindowFieldInfo = "window" - attrGet _ = eventAnyReadWindow - attrSet _ = eventAnyWriteWindow - attrConstruct = undefined - attrClear _ = eventAnyClearWindow - -eventAnyWindow :: AttrLabelProxy "window" -eventAnyWindow = AttrLabelProxy - - -eventAnyReadSendEvent :: MonadIO m => EventAny -> m Int8 -eventAnyReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventAnyWriteSendEvent :: MonadIO m => EventAny -> Int8 -> m () -eventAnyWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventAnySendEventFieldInfo -instance AttrInfo EventAnySendEventFieldInfo where - type AttrAllowedOps EventAnySendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventAnySendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventAnySendEventFieldInfo = (~) EventAny - type AttrGetType EventAnySendEventFieldInfo = Int8 - type AttrLabel EventAnySendEventFieldInfo = "send_event" - attrGet _ = eventAnyReadSendEvent - attrSet _ = eventAnyWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventAnySendEvent :: AttrLabelProxy "sendEvent" -eventAnySendEvent = AttrLabelProxy - - - -type instance AttributeList EventAny = EventAnyAttributeList -type EventAnyAttributeList = ('[ '("type", EventAnyTypeFieldInfo), '("window", EventAnyWindowFieldInfo), '("sendEvent", EventAnySendEventFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventAnyMethod (t :: Symbol) (o :: *) :: * where - ResolveEventAnyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventAnyMethod t EventAny, MethodInfo info EventAny p) => IsLabelProxy t (EventAny -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventAnyMethod t EventAny, MethodInfo info EventAny p) => IsLabel t (EventAny -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventAny.hs-boot b/GI/Gdk/Structs/EventAny.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventAny.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventAny where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventAny = EventAny (ForeignPtr EventAny) -instance WrappedPtr EventAny where diff --git a/GI/Gdk/Structs/EventButton.hs b/GI/Gdk/Structs/EventButton.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventButton.hs +++ /dev/null @@ -1,504 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Used for button press and button release events. The -@type field will be one of %GDK_BUTTON_PRESS, -%GDK_2BUTTON_PRESS, %GDK_3BUTTON_PRESS or %GDK_BUTTON_RELEASE, - -Double and triple-clicks result in a sequence of events being received. -For double-clicks the order of events will be: - -- %GDK_BUTTON_PRESS -- %GDK_BUTTON_RELEASE -- %GDK_BUTTON_PRESS -- %GDK_2BUTTON_PRESS -- %GDK_BUTTON_RELEASE - -Note that the first click is received just like a normal -button press, while the second click results in a %GDK_2BUTTON_PRESS -being received just after the %GDK_BUTTON_PRESS. - -Triple-clicks are very similar to double-clicks, except that -%GDK_3BUTTON_PRESS is inserted after the third click. The order of the -events is: - -- %GDK_BUTTON_PRESS -- %GDK_BUTTON_RELEASE -- %GDK_BUTTON_PRESS -- %GDK_2BUTTON_PRESS -- %GDK_BUTTON_RELEASE -- %GDK_BUTTON_PRESS -- %GDK_3BUTTON_PRESS -- %GDK_BUTTON_RELEASE - -For a double click to occur, the second button press must occur within -1/4 of a second of the first. For a triple click to occur, the third -button press must also occur within 1/2 second of the first button press. --} - -module GI.Gdk.Structs.EventButton - ( - --- * Exported types - EventButton(..) , - newZeroEventButton , - noEventButton , - - - -- * Properties --- ** Axes - eventButtonAxes , - eventButtonReadAxes , - eventButtonWriteAxes , - - --- ** Button - eventButtonButton , - eventButtonReadButton , - eventButtonWriteButton , - - --- ** Device - eventButtonClearDevice , - eventButtonDevice , - eventButtonReadDevice , - eventButtonWriteDevice , - - --- ** SendEvent - eventButtonReadSendEvent , - eventButtonSendEvent , - eventButtonWriteSendEvent , - - --- ** State - eventButtonReadState , - eventButtonState , - eventButtonWriteState , - - --- ** Time - eventButtonReadTime , - eventButtonTime , - eventButtonWriteTime , - - --- ** Type - eventButtonReadType , - eventButtonType , - eventButtonWriteType , - - --- ** Window - eventButtonClearWindow , - eventButtonReadWindow , - eventButtonWindow , - eventButtonWriteWindow , - - --- ** X - eventButtonReadX , - eventButtonWriteX , - eventButtonX , - - --- ** XRoot - eventButtonReadXRoot , - eventButtonWriteXRoot , - eventButtonXRoot , - - --- ** Y - eventButtonReadY , - eventButtonWriteY , - eventButtonY , - - --- ** YRoot - eventButtonReadYRoot , - eventButtonWriteYRoot , - eventButtonYRoot , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventButton = EventButton (ForeignPtr EventButton) -instance WrappedPtr EventButton where - wrappedPtrCalloc = callocBytes 80 - wrappedPtrCopy = copyPtr 80 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventButton` struct initialized to zero. -newZeroEventButton :: MonadIO m => m EventButton -newZeroEventButton = liftIO $ wrappedPtrCalloc >>= wrapPtr EventButton - -instance tag ~ 'AttrSet => Constructible EventButton tag where - new _ attrs = do - o <- newZeroEventButton - GI.Attributes.set o attrs - return o - - -noEventButton :: Maybe EventButton -noEventButton = Nothing - -eventButtonReadType :: MonadIO m => EventButton -> m EventType -eventButtonReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventButtonWriteType :: MonadIO m => EventButton -> EventType -> m () -eventButtonWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventButtonTypeFieldInfo -instance AttrInfo EventButtonTypeFieldInfo where - type AttrAllowedOps EventButtonTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventButtonTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventButtonTypeFieldInfo = (~) EventButton - type AttrGetType EventButtonTypeFieldInfo = EventType - type AttrLabel EventButtonTypeFieldInfo = "type" - attrGet _ = eventButtonReadType - attrSet _ = eventButtonWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventButtonType :: AttrLabelProxy "type" -eventButtonType = AttrLabelProxy - - -eventButtonReadWindow :: MonadIO m => EventButton -> m (Maybe Window) -eventButtonReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventButtonWriteWindow :: MonadIO m => EventButton -> Ptr Window -> m () -eventButtonWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventButtonClearWindow :: MonadIO m => EventButton -> m () -eventButtonClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventButtonWindowFieldInfo -instance AttrInfo EventButtonWindowFieldInfo where - type AttrAllowedOps EventButtonWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventButtonWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventButtonWindowFieldInfo = (~) EventButton - type AttrGetType EventButtonWindowFieldInfo = Maybe Window - type AttrLabel EventButtonWindowFieldInfo = "window" - attrGet _ = eventButtonReadWindow - attrSet _ = eventButtonWriteWindow - attrConstruct = undefined - attrClear _ = eventButtonClearWindow - -eventButtonWindow :: AttrLabelProxy "window" -eventButtonWindow = AttrLabelProxy - - -eventButtonReadSendEvent :: MonadIO m => EventButton -> m Int8 -eventButtonReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventButtonWriteSendEvent :: MonadIO m => EventButton -> Int8 -> m () -eventButtonWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventButtonSendEventFieldInfo -instance AttrInfo EventButtonSendEventFieldInfo where - type AttrAllowedOps EventButtonSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventButtonSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventButtonSendEventFieldInfo = (~) EventButton - type AttrGetType EventButtonSendEventFieldInfo = Int8 - type AttrLabel EventButtonSendEventFieldInfo = "send_event" - attrGet _ = eventButtonReadSendEvent - attrSet _ = eventButtonWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventButtonSendEvent :: AttrLabelProxy "sendEvent" -eventButtonSendEvent = AttrLabelProxy - - -eventButtonReadTime :: MonadIO m => EventButton -> m Word32 -eventButtonReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -eventButtonWriteTime :: MonadIO m => EventButton -> Word32 -> m () -eventButtonWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data EventButtonTimeFieldInfo -instance AttrInfo EventButtonTimeFieldInfo where - type AttrAllowedOps EventButtonTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventButtonTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventButtonTimeFieldInfo = (~) EventButton - type AttrGetType EventButtonTimeFieldInfo = Word32 - type AttrLabel EventButtonTimeFieldInfo = "time" - attrGet _ = eventButtonReadTime - attrSet _ = eventButtonWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventButtonTime :: AttrLabelProxy "time" -eventButtonTime = AttrLabelProxy - - -eventButtonReadX :: MonadIO m => EventButton -> m Double -eventButtonReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CDouble - let val' = realToFrac val - return val' - -eventButtonWriteX :: MonadIO m => EventButton -> Double -> m () -eventButtonWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 24) (val' :: CDouble) - -data EventButtonXFieldInfo -instance AttrInfo EventButtonXFieldInfo where - type AttrAllowedOps EventButtonXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventButtonXFieldInfo = (~) Double - type AttrBaseTypeConstraint EventButtonXFieldInfo = (~) EventButton - type AttrGetType EventButtonXFieldInfo = Double - type AttrLabel EventButtonXFieldInfo = "x" - attrGet _ = eventButtonReadX - attrSet _ = eventButtonWriteX - attrConstruct = undefined - attrClear _ = undefined - -eventButtonX :: AttrLabelProxy "x" -eventButtonX = AttrLabelProxy - - -eventButtonReadY :: MonadIO m => EventButton -> m Double -eventButtonReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -eventButtonWriteY :: MonadIO m => EventButton -> Double -> m () -eventButtonWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 32) (val' :: CDouble) - -data EventButtonYFieldInfo -instance AttrInfo EventButtonYFieldInfo where - type AttrAllowedOps EventButtonYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventButtonYFieldInfo = (~) Double - type AttrBaseTypeConstraint EventButtonYFieldInfo = (~) EventButton - type AttrGetType EventButtonYFieldInfo = Double - type AttrLabel EventButtonYFieldInfo = "y" - attrGet _ = eventButtonReadY - attrSet _ = eventButtonWriteY - attrConstruct = undefined - attrClear _ = undefined - -eventButtonY :: AttrLabelProxy "y" -eventButtonY = AttrLabelProxy - - -eventButtonReadAxes :: MonadIO m => EventButton -> m Double -eventButtonReadAxes s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -eventButtonWriteAxes :: MonadIO m => EventButton -> Double -> m () -eventButtonWriteAxes s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 40) (val' :: CDouble) - -data EventButtonAxesFieldInfo -instance AttrInfo EventButtonAxesFieldInfo where - type AttrAllowedOps EventButtonAxesFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventButtonAxesFieldInfo = (~) Double - type AttrBaseTypeConstraint EventButtonAxesFieldInfo = (~) EventButton - type AttrGetType EventButtonAxesFieldInfo = Double - type AttrLabel EventButtonAxesFieldInfo = "axes" - attrGet _ = eventButtonReadAxes - attrSet _ = eventButtonWriteAxes - attrConstruct = undefined - attrClear _ = undefined - -eventButtonAxes :: AttrLabelProxy "axes" -eventButtonAxes = AttrLabelProxy - - -eventButtonReadState :: MonadIO m => EventButton -> m [ModifierType] -eventButtonReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CUInt - let val' = wordToGFlags val - return val' - -eventButtonWriteState :: MonadIO m => EventButton -> [ModifierType] -> m () -eventButtonWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 48) (val' :: CUInt) - -data EventButtonStateFieldInfo -instance AttrInfo EventButtonStateFieldInfo where - type AttrAllowedOps EventButtonStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventButtonStateFieldInfo = (~) [ModifierType] - type AttrBaseTypeConstraint EventButtonStateFieldInfo = (~) EventButton - type AttrGetType EventButtonStateFieldInfo = [ModifierType] - type AttrLabel EventButtonStateFieldInfo = "state" - attrGet _ = eventButtonReadState - attrSet _ = eventButtonWriteState - attrConstruct = undefined - attrClear _ = undefined - -eventButtonState :: AttrLabelProxy "state" -eventButtonState = AttrLabelProxy - - -eventButtonReadButton :: MonadIO m => EventButton -> m Word32 -eventButtonReadButton s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 52) :: IO Word32 - return val - -eventButtonWriteButton :: MonadIO m => EventButton -> Word32 -> m () -eventButtonWriteButton s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 52) (val :: Word32) - -data EventButtonButtonFieldInfo -instance AttrInfo EventButtonButtonFieldInfo where - type AttrAllowedOps EventButtonButtonFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventButtonButtonFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventButtonButtonFieldInfo = (~) EventButton - type AttrGetType EventButtonButtonFieldInfo = Word32 - type AttrLabel EventButtonButtonFieldInfo = "button" - attrGet _ = eventButtonReadButton - attrSet _ = eventButtonWriteButton - attrConstruct = undefined - attrClear _ = undefined - -eventButtonButton :: AttrLabelProxy "button" -eventButtonButton = AttrLabelProxy - - -eventButtonReadDevice :: MonadIO m => EventButton -> m (Maybe Device) -eventButtonReadDevice s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO (Ptr Device) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Device) val' - return val'' - return result - -eventButtonWriteDevice :: MonadIO m => EventButton -> Ptr Device -> m () -eventButtonWriteDevice s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (val :: Ptr Device) - -eventButtonClearDevice :: MonadIO m => EventButton -> m () -eventButtonClearDevice s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (nullPtr :: Ptr Device) - -data EventButtonDeviceFieldInfo -instance AttrInfo EventButtonDeviceFieldInfo where - type AttrAllowedOps EventButtonDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventButtonDeviceFieldInfo = (~) (Ptr Device) - type AttrBaseTypeConstraint EventButtonDeviceFieldInfo = (~) EventButton - type AttrGetType EventButtonDeviceFieldInfo = Maybe Device - type AttrLabel EventButtonDeviceFieldInfo = "device" - attrGet _ = eventButtonReadDevice - attrSet _ = eventButtonWriteDevice - attrConstruct = undefined - attrClear _ = eventButtonClearDevice - -eventButtonDevice :: AttrLabelProxy "device" -eventButtonDevice = AttrLabelProxy - - -eventButtonReadXRoot :: MonadIO m => EventButton -> m Double -eventButtonReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CDouble - let val' = realToFrac val - return val' - -eventButtonWriteXRoot :: MonadIO m => EventButton -> Double -> m () -eventButtonWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 64) (val' :: CDouble) - -data EventButtonXRootFieldInfo -instance AttrInfo EventButtonXRootFieldInfo where - type AttrAllowedOps EventButtonXRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventButtonXRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventButtonXRootFieldInfo = (~) EventButton - type AttrGetType EventButtonXRootFieldInfo = Double - type AttrLabel EventButtonXRootFieldInfo = "x_root" - attrGet _ = eventButtonReadXRoot - attrSet _ = eventButtonWriteXRoot - attrConstruct = undefined - attrClear _ = undefined - -eventButtonXRoot :: AttrLabelProxy "xRoot" -eventButtonXRoot = AttrLabelProxy - - -eventButtonReadYRoot :: MonadIO m => EventButton -> m Double -eventButtonReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CDouble - let val' = realToFrac val - return val' - -eventButtonWriteYRoot :: MonadIO m => EventButton -> Double -> m () -eventButtonWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 72) (val' :: CDouble) - -data EventButtonYRootFieldInfo -instance AttrInfo EventButtonYRootFieldInfo where - type AttrAllowedOps EventButtonYRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventButtonYRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventButtonYRootFieldInfo = (~) EventButton - type AttrGetType EventButtonYRootFieldInfo = Double - type AttrLabel EventButtonYRootFieldInfo = "y_root" - attrGet _ = eventButtonReadYRoot - attrSet _ = eventButtonWriteYRoot - attrConstruct = undefined - attrClear _ = undefined - -eventButtonYRoot :: AttrLabelProxy "yRoot" -eventButtonYRoot = AttrLabelProxy - - - -type instance AttributeList EventButton = EventButtonAttributeList -type EventButtonAttributeList = ('[ '("type", EventButtonTypeFieldInfo), '("window", EventButtonWindowFieldInfo), '("sendEvent", EventButtonSendEventFieldInfo), '("time", EventButtonTimeFieldInfo), '("x", EventButtonXFieldInfo), '("y", EventButtonYFieldInfo), '("axes", EventButtonAxesFieldInfo), '("state", EventButtonStateFieldInfo), '("button", EventButtonButtonFieldInfo), '("device", EventButtonDeviceFieldInfo), '("xRoot", EventButtonXRootFieldInfo), '("yRoot", EventButtonYRootFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventButtonMethod (t :: Symbol) (o :: *) :: * where - ResolveEventButtonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventButtonMethod t EventButton, MethodInfo info EventButton p) => IsLabelProxy t (EventButton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventButtonMethod t EventButton, MethodInfo info EventButton p) => IsLabel t (EventButton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventButton.hs-boot b/GI/Gdk/Structs/EventButton.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventButton.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventButton where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventButton = EventButton (ForeignPtr EventButton) -instance WrappedPtr EventButton where diff --git a/GI/Gdk/Structs/EventConfigure.hs b/GI/Gdk/Structs/EventConfigure.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventConfigure.hs +++ /dev/null @@ -1,297 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated when a window size or position has changed. --} - -module GI.Gdk.Structs.EventConfigure - ( - --- * Exported types - EventConfigure(..) , - newZeroEventConfigure , - noEventConfigure , - - - -- * Properties --- ** Height - eventConfigureHeight , - eventConfigureReadHeight , - eventConfigureWriteHeight , - - --- ** SendEvent - eventConfigureReadSendEvent , - eventConfigureSendEvent , - eventConfigureWriteSendEvent , - - --- ** Type - eventConfigureReadType , - eventConfigureType , - eventConfigureWriteType , - - --- ** Width - eventConfigureReadWidth , - eventConfigureWidth , - eventConfigureWriteWidth , - - --- ** Window - eventConfigureClearWindow , - eventConfigureReadWindow , - eventConfigureWindow , - eventConfigureWriteWindow , - - --- ** X - eventConfigureReadX , - eventConfigureWriteX , - eventConfigureX , - - --- ** Y - eventConfigureReadY , - eventConfigureWriteY , - eventConfigureY , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventConfigure = EventConfigure (ForeignPtr EventConfigure) -instance WrappedPtr EventConfigure where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventConfigure` struct initialized to zero. -newZeroEventConfigure :: MonadIO m => m EventConfigure -newZeroEventConfigure = liftIO $ wrappedPtrCalloc >>= wrapPtr EventConfigure - -instance tag ~ 'AttrSet => Constructible EventConfigure tag where - new _ attrs = do - o <- newZeroEventConfigure - GI.Attributes.set o attrs - return o - - -noEventConfigure :: Maybe EventConfigure -noEventConfigure = Nothing - -eventConfigureReadType :: MonadIO m => EventConfigure -> m EventType -eventConfigureReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventConfigureWriteType :: MonadIO m => EventConfigure -> EventType -> m () -eventConfigureWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventConfigureTypeFieldInfo -instance AttrInfo EventConfigureTypeFieldInfo where - type AttrAllowedOps EventConfigureTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventConfigureTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventConfigureTypeFieldInfo = (~) EventConfigure - type AttrGetType EventConfigureTypeFieldInfo = EventType - type AttrLabel EventConfigureTypeFieldInfo = "type" - attrGet _ = eventConfigureReadType - attrSet _ = eventConfigureWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventConfigureType :: AttrLabelProxy "type" -eventConfigureType = AttrLabelProxy - - -eventConfigureReadWindow :: MonadIO m => EventConfigure -> m (Maybe Window) -eventConfigureReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventConfigureWriteWindow :: MonadIO m => EventConfigure -> Ptr Window -> m () -eventConfigureWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventConfigureClearWindow :: MonadIO m => EventConfigure -> m () -eventConfigureClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventConfigureWindowFieldInfo -instance AttrInfo EventConfigureWindowFieldInfo where - type AttrAllowedOps EventConfigureWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventConfigureWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventConfigureWindowFieldInfo = (~) EventConfigure - type AttrGetType EventConfigureWindowFieldInfo = Maybe Window - type AttrLabel EventConfigureWindowFieldInfo = "window" - attrGet _ = eventConfigureReadWindow - attrSet _ = eventConfigureWriteWindow - attrConstruct = undefined - attrClear _ = eventConfigureClearWindow - -eventConfigureWindow :: AttrLabelProxy "window" -eventConfigureWindow = AttrLabelProxy - - -eventConfigureReadSendEvent :: MonadIO m => EventConfigure -> m Int8 -eventConfigureReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventConfigureWriteSendEvent :: MonadIO m => EventConfigure -> Int8 -> m () -eventConfigureWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventConfigureSendEventFieldInfo -instance AttrInfo EventConfigureSendEventFieldInfo where - type AttrAllowedOps EventConfigureSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventConfigureSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventConfigureSendEventFieldInfo = (~) EventConfigure - type AttrGetType EventConfigureSendEventFieldInfo = Int8 - type AttrLabel EventConfigureSendEventFieldInfo = "send_event" - attrGet _ = eventConfigureReadSendEvent - attrSet _ = eventConfigureWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventConfigureSendEvent :: AttrLabelProxy "sendEvent" -eventConfigureSendEvent = AttrLabelProxy - - -eventConfigureReadX :: MonadIO m => EventConfigure -> m Int32 -eventConfigureReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Int32 - return val - -eventConfigureWriteX :: MonadIO m => EventConfigure -> Int32 -> m () -eventConfigureWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Int32) - -data EventConfigureXFieldInfo -instance AttrInfo EventConfigureXFieldInfo where - type AttrAllowedOps EventConfigureXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventConfigureXFieldInfo = (~) Int32 - type AttrBaseTypeConstraint EventConfigureXFieldInfo = (~) EventConfigure - type AttrGetType EventConfigureXFieldInfo = Int32 - type AttrLabel EventConfigureXFieldInfo = "x" - attrGet _ = eventConfigureReadX - attrSet _ = eventConfigureWriteX - attrConstruct = undefined - attrClear _ = undefined - -eventConfigureX :: AttrLabelProxy "x" -eventConfigureX = AttrLabelProxy - - -eventConfigureReadY :: MonadIO m => EventConfigure -> m Int32 -eventConfigureReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Int32 - return val - -eventConfigureWriteY :: MonadIO m => EventConfigure -> Int32 -> m () -eventConfigureWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Int32) - -data EventConfigureYFieldInfo -instance AttrInfo EventConfigureYFieldInfo where - type AttrAllowedOps EventConfigureYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventConfigureYFieldInfo = (~) Int32 - type AttrBaseTypeConstraint EventConfigureYFieldInfo = (~) EventConfigure - type AttrGetType EventConfigureYFieldInfo = Int32 - type AttrLabel EventConfigureYFieldInfo = "y" - attrGet _ = eventConfigureReadY - attrSet _ = eventConfigureWriteY - attrConstruct = undefined - attrClear _ = undefined - -eventConfigureY :: AttrLabelProxy "y" -eventConfigureY = AttrLabelProxy - - -eventConfigureReadWidth :: MonadIO m => EventConfigure -> m Int32 -eventConfigureReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Int32 - return val - -eventConfigureWriteWidth :: MonadIO m => EventConfigure -> Int32 -> m () -eventConfigureWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 28) (val :: Int32) - -data EventConfigureWidthFieldInfo -instance AttrInfo EventConfigureWidthFieldInfo where - type AttrAllowedOps EventConfigureWidthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventConfigureWidthFieldInfo = (~) Int32 - type AttrBaseTypeConstraint EventConfigureWidthFieldInfo = (~) EventConfigure - type AttrGetType EventConfigureWidthFieldInfo = Int32 - type AttrLabel EventConfigureWidthFieldInfo = "width" - attrGet _ = eventConfigureReadWidth - attrSet _ = eventConfigureWriteWidth - attrConstruct = undefined - attrClear _ = undefined - -eventConfigureWidth :: AttrLabelProxy "width" -eventConfigureWidth = AttrLabelProxy - - -eventConfigureReadHeight :: MonadIO m => EventConfigure -> m Int32 -eventConfigureReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Int32 - return val - -eventConfigureWriteHeight :: MonadIO m => EventConfigure -> Int32 -> m () -eventConfigureWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Int32) - -data EventConfigureHeightFieldInfo -instance AttrInfo EventConfigureHeightFieldInfo where - type AttrAllowedOps EventConfigureHeightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventConfigureHeightFieldInfo = (~) Int32 - type AttrBaseTypeConstraint EventConfigureHeightFieldInfo = (~) EventConfigure - type AttrGetType EventConfigureHeightFieldInfo = Int32 - type AttrLabel EventConfigureHeightFieldInfo = "height" - attrGet _ = eventConfigureReadHeight - attrSet _ = eventConfigureWriteHeight - attrConstruct = undefined - attrClear _ = undefined - -eventConfigureHeight :: AttrLabelProxy "height" -eventConfigureHeight = AttrLabelProxy - - - -type instance AttributeList EventConfigure = EventConfigureAttributeList -type EventConfigureAttributeList = ('[ '("type", EventConfigureTypeFieldInfo), '("window", EventConfigureWindowFieldInfo), '("sendEvent", EventConfigureSendEventFieldInfo), '("x", EventConfigureXFieldInfo), '("y", EventConfigureYFieldInfo), '("width", EventConfigureWidthFieldInfo), '("height", EventConfigureHeightFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventConfigureMethod (t :: Symbol) (o :: *) :: * where - ResolveEventConfigureMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventConfigureMethod t EventConfigure, MethodInfo info EventConfigure p) => IsLabelProxy t (EventConfigure -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventConfigureMethod t EventConfigure, MethodInfo info EventConfigure p) => IsLabel t (EventConfigure -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventConfigure.hs-boot b/GI/Gdk/Structs/EventConfigure.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventConfigure.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventConfigure where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventConfigure = EventConfigure (ForeignPtr EventConfigure) -instance WrappedPtr EventConfigure where diff --git a/GI/Gdk/Structs/EventCrossing.hs b/GI/Gdk/Structs/EventCrossing.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventCrossing.hs +++ /dev/null @@ -1,507 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated when the pointer enters or leaves a window. --} - -module GI.Gdk.Structs.EventCrossing - ( - --- * Exported types - EventCrossing(..) , - newZeroEventCrossing , - noEventCrossing , - - - -- * Properties --- ** Detail - eventCrossingDetail , - eventCrossingReadDetail , - eventCrossingWriteDetail , - - --- ** Focus - eventCrossingFocus , - eventCrossingReadFocus , - eventCrossingWriteFocus , - - --- ** Mode - eventCrossingMode , - eventCrossingReadMode , - eventCrossingWriteMode , - - --- ** SendEvent - eventCrossingReadSendEvent , - eventCrossingSendEvent , - eventCrossingWriteSendEvent , - - --- ** State - eventCrossingReadState , - eventCrossingState , - eventCrossingWriteState , - - --- ** Subwindow - eventCrossingClearSubwindow , - eventCrossingReadSubwindow , - eventCrossingSubwindow , - eventCrossingWriteSubwindow , - - --- ** Time - eventCrossingReadTime , - eventCrossingTime , - eventCrossingWriteTime , - - --- ** Type - eventCrossingReadType , - eventCrossingType , - eventCrossingWriteType , - - --- ** Window - eventCrossingClearWindow , - eventCrossingReadWindow , - eventCrossingWindow , - eventCrossingWriteWindow , - - --- ** X - eventCrossingReadX , - eventCrossingWriteX , - eventCrossingX , - - --- ** XRoot - eventCrossingReadXRoot , - eventCrossingWriteXRoot , - eventCrossingXRoot , - - --- ** Y - eventCrossingReadY , - eventCrossingWriteY , - eventCrossingY , - - --- ** YRoot - eventCrossingReadYRoot , - eventCrossingWriteYRoot , - eventCrossingYRoot , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventCrossing = EventCrossing (ForeignPtr EventCrossing) -instance WrappedPtr EventCrossing where - wrappedPtrCalloc = callocBytes 88 - wrappedPtrCopy = copyPtr 88 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventCrossing` struct initialized to zero. -newZeroEventCrossing :: MonadIO m => m EventCrossing -newZeroEventCrossing = liftIO $ wrappedPtrCalloc >>= wrapPtr EventCrossing - -instance tag ~ 'AttrSet => Constructible EventCrossing tag where - new _ attrs = do - o <- newZeroEventCrossing - GI.Attributes.set o attrs - return o - - -noEventCrossing :: Maybe EventCrossing -noEventCrossing = Nothing - -eventCrossingReadType :: MonadIO m => EventCrossing -> m EventType -eventCrossingReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventCrossingWriteType :: MonadIO m => EventCrossing -> EventType -> m () -eventCrossingWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventCrossingTypeFieldInfo -instance AttrInfo EventCrossingTypeFieldInfo where - type AttrAllowedOps EventCrossingTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventCrossingTypeFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingTypeFieldInfo = EventType - type AttrLabel EventCrossingTypeFieldInfo = "type" - attrGet _ = eventCrossingReadType - attrSet _ = eventCrossingWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingType :: AttrLabelProxy "type" -eventCrossingType = AttrLabelProxy - - -eventCrossingReadWindow :: MonadIO m => EventCrossing -> m (Maybe Window) -eventCrossingReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventCrossingWriteWindow :: MonadIO m => EventCrossing -> Ptr Window -> m () -eventCrossingWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventCrossingClearWindow :: MonadIO m => EventCrossing -> m () -eventCrossingClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventCrossingWindowFieldInfo -instance AttrInfo EventCrossingWindowFieldInfo where - type AttrAllowedOps EventCrossingWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventCrossingWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventCrossingWindowFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingWindowFieldInfo = Maybe Window - type AttrLabel EventCrossingWindowFieldInfo = "window" - attrGet _ = eventCrossingReadWindow - attrSet _ = eventCrossingWriteWindow - attrConstruct = undefined - attrClear _ = eventCrossingClearWindow - -eventCrossingWindow :: AttrLabelProxy "window" -eventCrossingWindow = AttrLabelProxy - - -eventCrossingReadSendEvent :: MonadIO m => EventCrossing -> m Int8 -eventCrossingReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventCrossingWriteSendEvent :: MonadIO m => EventCrossing -> Int8 -> m () -eventCrossingWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventCrossingSendEventFieldInfo -instance AttrInfo EventCrossingSendEventFieldInfo where - type AttrAllowedOps EventCrossingSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventCrossingSendEventFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingSendEventFieldInfo = Int8 - type AttrLabel EventCrossingSendEventFieldInfo = "send_event" - attrGet _ = eventCrossingReadSendEvent - attrSet _ = eventCrossingWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingSendEvent :: AttrLabelProxy "sendEvent" -eventCrossingSendEvent = AttrLabelProxy - - -eventCrossingReadSubwindow :: MonadIO m => EventCrossing -> m (Maybe Window) -eventCrossingReadSubwindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventCrossingWriteSubwindow :: MonadIO m => EventCrossing -> Ptr Window -> m () -eventCrossingWriteSubwindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Window) - -eventCrossingClearSubwindow :: MonadIO m => EventCrossing -> m () -eventCrossingClearSubwindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Window) - -data EventCrossingSubwindowFieldInfo -instance AttrInfo EventCrossingSubwindowFieldInfo where - type AttrAllowedOps EventCrossingSubwindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventCrossingSubwindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventCrossingSubwindowFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingSubwindowFieldInfo = Maybe Window - type AttrLabel EventCrossingSubwindowFieldInfo = "subwindow" - attrGet _ = eventCrossingReadSubwindow - attrSet _ = eventCrossingWriteSubwindow - attrConstruct = undefined - attrClear _ = eventCrossingClearSubwindow - -eventCrossingSubwindow :: AttrLabelProxy "subwindow" -eventCrossingSubwindow = AttrLabelProxy - - -eventCrossingReadTime :: MonadIO m => EventCrossing -> m Word32 -eventCrossingReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -eventCrossingWriteTime :: MonadIO m => EventCrossing -> Word32 -> m () -eventCrossingWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Word32) - -data EventCrossingTimeFieldInfo -instance AttrInfo EventCrossingTimeFieldInfo where - type AttrAllowedOps EventCrossingTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventCrossingTimeFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingTimeFieldInfo = Word32 - type AttrLabel EventCrossingTimeFieldInfo = "time" - attrGet _ = eventCrossingReadTime - attrSet _ = eventCrossingWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingTime :: AttrLabelProxy "time" -eventCrossingTime = AttrLabelProxy - - -eventCrossingReadX :: MonadIO m => EventCrossing -> m Double -eventCrossingReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -eventCrossingWriteX :: MonadIO m => EventCrossing -> Double -> m () -eventCrossingWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 40) (val' :: CDouble) - -data EventCrossingXFieldInfo -instance AttrInfo EventCrossingXFieldInfo where - type AttrAllowedOps EventCrossingXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingXFieldInfo = (~) Double - type AttrBaseTypeConstraint EventCrossingXFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingXFieldInfo = Double - type AttrLabel EventCrossingXFieldInfo = "x" - attrGet _ = eventCrossingReadX - attrSet _ = eventCrossingWriteX - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingX :: AttrLabelProxy "x" -eventCrossingX = AttrLabelProxy - - -eventCrossingReadY :: MonadIO m => EventCrossing -> m Double -eventCrossingReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CDouble - let val' = realToFrac val - return val' - -eventCrossingWriteY :: MonadIO m => EventCrossing -> Double -> m () -eventCrossingWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 48) (val' :: CDouble) - -data EventCrossingYFieldInfo -instance AttrInfo EventCrossingYFieldInfo where - type AttrAllowedOps EventCrossingYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingYFieldInfo = (~) Double - type AttrBaseTypeConstraint EventCrossingYFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingYFieldInfo = Double - type AttrLabel EventCrossingYFieldInfo = "y" - attrGet _ = eventCrossingReadY - attrSet _ = eventCrossingWriteY - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingY :: AttrLabelProxy "y" -eventCrossingY = AttrLabelProxy - - -eventCrossingReadXRoot :: MonadIO m => EventCrossing -> m Double -eventCrossingReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CDouble - let val' = realToFrac val - return val' - -eventCrossingWriteXRoot :: MonadIO m => EventCrossing -> Double -> m () -eventCrossingWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 56) (val' :: CDouble) - -data EventCrossingXRootFieldInfo -instance AttrInfo EventCrossingXRootFieldInfo where - type AttrAllowedOps EventCrossingXRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingXRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventCrossingXRootFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingXRootFieldInfo = Double - type AttrLabel EventCrossingXRootFieldInfo = "x_root" - attrGet _ = eventCrossingReadXRoot - attrSet _ = eventCrossingWriteXRoot - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingXRoot :: AttrLabelProxy "xRoot" -eventCrossingXRoot = AttrLabelProxy - - -eventCrossingReadYRoot :: MonadIO m => EventCrossing -> m Double -eventCrossingReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CDouble - let val' = realToFrac val - return val' - -eventCrossingWriteYRoot :: MonadIO m => EventCrossing -> Double -> m () -eventCrossingWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 64) (val' :: CDouble) - -data EventCrossingYRootFieldInfo -instance AttrInfo EventCrossingYRootFieldInfo where - type AttrAllowedOps EventCrossingYRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingYRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventCrossingYRootFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingYRootFieldInfo = Double - type AttrLabel EventCrossingYRootFieldInfo = "y_root" - attrGet _ = eventCrossingReadYRoot - attrSet _ = eventCrossingWriteYRoot - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingYRoot :: AttrLabelProxy "yRoot" -eventCrossingYRoot = AttrLabelProxy - - -eventCrossingReadMode :: MonadIO m => EventCrossing -> m CrossingMode -eventCrossingReadMode s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventCrossingWriteMode :: MonadIO m => EventCrossing -> CrossingMode -> m () -eventCrossingWriteMode s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 72) (val' :: CUInt) - -data EventCrossingModeFieldInfo -instance AttrInfo EventCrossingModeFieldInfo where - type AttrAllowedOps EventCrossingModeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingModeFieldInfo = (~) CrossingMode - type AttrBaseTypeConstraint EventCrossingModeFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingModeFieldInfo = CrossingMode - type AttrLabel EventCrossingModeFieldInfo = "mode" - attrGet _ = eventCrossingReadMode - attrSet _ = eventCrossingWriteMode - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingMode :: AttrLabelProxy "mode" -eventCrossingMode = AttrLabelProxy - - -eventCrossingReadDetail :: MonadIO m => EventCrossing -> m NotifyType -eventCrossingReadDetail s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 76) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventCrossingWriteDetail :: MonadIO m => EventCrossing -> NotifyType -> m () -eventCrossingWriteDetail s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 76) (val' :: CUInt) - -data EventCrossingDetailFieldInfo -instance AttrInfo EventCrossingDetailFieldInfo where - type AttrAllowedOps EventCrossingDetailFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingDetailFieldInfo = (~) NotifyType - type AttrBaseTypeConstraint EventCrossingDetailFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingDetailFieldInfo = NotifyType - type AttrLabel EventCrossingDetailFieldInfo = "detail" - attrGet _ = eventCrossingReadDetail - attrSet _ = eventCrossingWriteDetail - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingDetail :: AttrLabelProxy "detail" -eventCrossingDetail = AttrLabelProxy - - -eventCrossingReadFocus :: MonadIO m => EventCrossing -> m Bool -eventCrossingReadFocus s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO CInt - let val' = (/= 0) val - return val' - -eventCrossingWriteFocus :: MonadIO m => EventCrossing -> Bool -> m () -eventCrossingWriteFocus s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 80) (val' :: CInt) - -data EventCrossingFocusFieldInfo -instance AttrInfo EventCrossingFocusFieldInfo where - type AttrAllowedOps EventCrossingFocusFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingFocusFieldInfo = (~) Bool - type AttrBaseTypeConstraint EventCrossingFocusFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingFocusFieldInfo = Bool - type AttrLabel EventCrossingFocusFieldInfo = "focus" - attrGet _ = eventCrossingReadFocus - attrSet _ = eventCrossingWriteFocus - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingFocus :: AttrLabelProxy "focus" -eventCrossingFocus = AttrLabelProxy - - -eventCrossingReadState :: MonadIO m => EventCrossing -> m [ModifierType] -eventCrossingReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 84) :: IO CUInt - let val' = wordToGFlags val - return val' - -eventCrossingWriteState :: MonadIO m => EventCrossing -> [ModifierType] -> m () -eventCrossingWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 84) (val' :: CUInt) - -data EventCrossingStateFieldInfo -instance AttrInfo EventCrossingStateFieldInfo where - type AttrAllowedOps EventCrossingStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventCrossingStateFieldInfo = (~) [ModifierType] - type AttrBaseTypeConstraint EventCrossingStateFieldInfo = (~) EventCrossing - type AttrGetType EventCrossingStateFieldInfo = [ModifierType] - type AttrLabel EventCrossingStateFieldInfo = "state" - attrGet _ = eventCrossingReadState - attrSet _ = eventCrossingWriteState - attrConstruct = undefined - attrClear _ = undefined - -eventCrossingState :: AttrLabelProxy "state" -eventCrossingState = AttrLabelProxy - - - -type instance AttributeList EventCrossing = EventCrossingAttributeList -type EventCrossingAttributeList = ('[ '("type", EventCrossingTypeFieldInfo), '("window", EventCrossingWindowFieldInfo), '("sendEvent", EventCrossingSendEventFieldInfo), '("subwindow", EventCrossingSubwindowFieldInfo), '("time", EventCrossingTimeFieldInfo), '("x", EventCrossingXFieldInfo), '("y", EventCrossingYFieldInfo), '("xRoot", EventCrossingXRootFieldInfo), '("yRoot", EventCrossingYRootFieldInfo), '("mode", EventCrossingModeFieldInfo), '("detail", EventCrossingDetailFieldInfo), '("focus", EventCrossingFocusFieldInfo), '("state", EventCrossingStateFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventCrossingMethod (t :: Symbol) (o :: *) :: * where - ResolveEventCrossingMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventCrossingMethod t EventCrossing, MethodInfo info EventCrossing p) => IsLabelProxy t (EventCrossing -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventCrossingMethod t EventCrossing, MethodInfo info EventCrossing p) => IsLabel t (EventCrossing -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventCrossing.hs-boot b/GI/Gdk/Structs/EventCrossing.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventCrossing.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventCrossing where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventCrossing = EventCrossing (ForeignPtr EventCrossing) -instance WrappedPtr EventCrossing where diff --git a/GI/Gdk/Structs/EventDND.hs b/GI/Gdk/Structs/EventDND.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventDND.hs +++ /dev/null @@ -1,305 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated during DND operations. --} - -module GI.Gdk.Structs.EventDND - ( - --- * Exported types - EventDND(..) , - newZeroEventDND , - noEventDND , - - - -- * Properties --- ** Context - eventDNDClearContext , - eventDNDContext , - eventDNDReadContext , - eventDNDWriteContext , - - --- ** SendEvent - eventDNDReadSendEvent , - eventDNDSendEvent , - eventDNDWriteSendEvent , - - --- ** Time - eventDNDReadTime , - eventDNDTime , - eventDNDWriteTime , - - --- ** Type - eventDNDReadType , - eventDNDType , - eventDNDWriteType , - - --- ** Window - eventDNDClearWindow , - eventDNDReadWindow , - eventDNDWindow , - eventDNDWriteWindow , - - --- ** XRoot - eventDNDReadXRoot , - eventDNDWriteXRoot , - eventDNDXRoot , - - --- ** YRoot - eventDNDReadYRoot , - eventDNDWriteYRoot , - eventDNDYRoot , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventDND = EventDND (ForeignPtr EventDND) -instance WrappedPtr EventDND where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventDND` struct initialized to zero. -newZeroEventDND :: MonadIO m => m EventDND -newZeroEventDND = liftIO $ wrappedPtrCalloc >>= wrapPtr EventDND - -instance tag ~ 'AttrSet => Constructible EventDND tag where - new _ attrs = do - o <- newZeroEventDND - GI.Attributes.set o attrs - return o - - -noEventDND :: Maybe EventDND -noEventDND = Nothing - -eventDNDReadType :: MonadIO m => EventDND -> m EventType -eventDNDReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventDNDWriteType :: MonadIO m => EventDND -> EventType -> m () -eventDNDWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventDNDTypeFieldInfo -instance AttrInfo EventDNDTypeFieldInfo where - type AttrAllowedOps EventDNDTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventDNDTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventDNDTypeFieldInfo = (~) EventDND - type AttrGetType EventDNDTypeFieldInfo = EventType - type AttrLabel EventDNDTypeFieldInfo = "type" - attrGet _ = eventDNDReadType - attrSet _ = eventDNDWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventDNDType :: AttrLabelProxy "type" -eventDNDType = AttrLabelProxy - - -eventDNDReadWindow :: MonadIO m => EventDND -> m (Maybe Window) -eventDNDReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventDNDWriteWindow :: MonadIO m => EventDND -> Ptr Window -> m () -eventDNDWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventDNDClearWindow :: MonadIO m => EventDND -> m () -eventDNDClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventDNDWindowFieldInfo -instance AttrInfo EventDNDWindowFieldInfo where - type AttrAllowedOps EventDNDWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventDNDWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventDNDWindowFieldInfo = (~) EventDND - type AttrGetType EventDNDWindowFieldInfo = Maybe Window - type AttrLabel EventDNDWindowFieldInfo = "window" - attrGet _ = eventDNDReadWindow - attrSet _ = eventDNDWriteWindow - attrConstruct = undefined - attrClear _ = eventDNDClearWindow - -eventDNDWindow :: AttrLabelProxy "window" -eventDNDWindow = AttrLabelProxy - - -eventDNDReadSendEvent :: MonadIO m => EventDND -> m Int8 -eventDNDReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventDNDWriteSendEvent :: MonadIO m => EventDND -> Int8 -> m () -eventDNDWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventDNDSendEventFieldInfo -instance AttrInfo EventDNDSendEventFieldInfo where - type AttrAllowedOps EventDNDSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventDNDSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventDNDSendEventFieldInfo = (~) EventDND - type AttrGetType EventDNDSendEventFieldInfo = Int8 - type AttrLabel EventDNDSendEventFieldInfo = "send_event" - attrGet _ = eventDNDReadSendEvent - attrSet _ = eventDNDWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventDNDSendEvent :: AttrLabelProxy "sendEvent" -eventDNDSendEvent = AttrLabelProxy - - -eventDNDReadContext :: MonadIO m => EventDND -> m (Maybe DragContext) -eventDNDReadContext s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr DragContext) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject DragContext) val' - return val'' - return result - -eventDNDWriteContext :: MonadIO m => EventDND -> Ptr DragContext -> m () -eventDNDWriteContext s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr DragContext) - -eventDNDClearContext :: MonadIO m => EventDND -> m () -eventDNDClearContext s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr DragContext) - -data EventDNDContextFieldInfo -instance AttrInfo EventDNDContextFieldInfo where - type AttrAllowedOps EventDNDContextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventDNDContextFieldInfo = (~) (Ptr DragContext) - type AttrBaseTypeConstraint EventDNDContextFieldInfo = (~) EventDND - type AttrGetType EventDNDContextFieldInfo = Maybe DragContext - type AttrLabel EventDNDContextFieldInfo = "context" - attrGet _ = eventDNDReadContext - attrSet _ = eventDNDWriteContext - attrConstruct = undefined - attrClear _ = eventDNDClearContext - -eventDNDContext :: AttrLabelProxy "context" -eventDNDContext = AttrLabelProxy - - -eventDNDReadTime :: MonadIO m => EventDND -> m Word32 -eventDNDReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -eventDNDWriteTime :: MonadIO m => EventDND -> Word32 -> m () -eventDNDWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Word32) - -data EventDNDTimeFieldInfo -instance AttrInfo EventDNDTimeFieldInfo where - type AttrAllowedOps EventDNDTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventDNDTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventDNDTimeFieldInfo = (~) EventDND - type AttrGetType EventDNDTimeFieldInfo = Word32 - type AttrLabel EventDNDTimeFieldInfo = "time" - attrGet _ = eventDNDReadTime - attrSet _ = eventDNDWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventDNDTime :: AttrLabelProxy "time" -eventDNDTime = AttrLabelProxy - - -eventDNDReadXRoot :: MonadIO m => EventDND -> m Int16 -eventDNDReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 36) :: IO Int16 - return val - -eventDNDWriteXRoot :: MonadIO m => EventDND -> Int16 -> m () -eventDNDWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 36) (val :: Int16) - -data EventDNDXRootFieldInfo -instance AttrInfo EventDNDXRootFieldInfo where - type AttrAllowedOps EventDNDXRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventDNDXRootFieldInfo = (~) Int16 - type AttrBaseTypeConstraint EventDNDXRootFieldInfo = (~) EventDND - type AttrGetType EventDNDXRootFieldInfo = Int16 - type AttrLabel EventDNDXRootFieldInfo = "x_root" - attrGet _ = eventDNDReadXRoot - attrSet _ = eventDNDWriteXRoot - attrConstruct = undefined - attrClear _ = undefined - -eventDNDXRoot :: AttrLabelProxy "xRoot" -eventDNDXRoot = AttrLabelProxy - - -eventDNDReadYRoot :: MonadIO m => EventDND -> m Int16 -eventDNDReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 38) :: IO Int16 - return val - -eventDNDWriteYRoot :: MonadIO m => EventDND -> Int16 -> m () -eventDNDWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 38) (val :: Int16) - -data EventDNDYRootFieldInfo -instance AttrInfo EventDNDYRootFieldInfo where - type AttrAllowedOps EventDNDYRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventDNDYRootFieldInfo = (~) Int16 - type AttrBaseTypeConstraint EventDNDYRootFieldInfo = (~) EventDND - type AttrGetType EventDNDYRootFieldInfo = Int16 - type AttrLabel EventDNDYRootFieldInfo = "y_root" - attrGet _ = eventDNDReadYRoot - attrSet _ = eventDNDWriteYRoot - attrConstruct = undefined - attrClear _ = undefined - -eventDNDYRoot :: AttrLabelProxy "yRoot" -eventDNDYRoot = AttrLabelProxy - - - -type instance AttributeList EventDND = EventDNDAttributeList -type EventDNDAttributeList = ('[ '("type", EventDNDTypeFieldInfo), '("window", EventDNDWindowFieldInfo), '("sendEvent", EventDNDSendEventFieldInfo), '("context", EventDNDContextFieldInfo), '("time", EventDNDTimeFieldInfo), '("xRoot", EventDNDXRootFieldInfo), '("yRoot", EventDNDYRootFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventDNDMethod (t :: Symbol) (o :: *) :: * where - ResolveEventDNDMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventDNDMethod t EventDND, MethodInfo info EventDND p) => IsLabelProxy t (EventDND -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventDNDMethod t EventDND, MethodInfo info EventDND p) => IsLabel t (EventDND -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventDND.hs-boot b/GI/Gdk/Structs/EventDND.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventDND.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventDND where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventDND = EventDND (ForeignPtr EventDND) -instance WrappedPtr EventDND where diff --git a/GI/Gdk/Structs/EventExpose.hs b/GI/Gdk/Structs/EventExpose.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventExpose.hs +++ /dev/null @@ -1,284 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated when all or part of a window becomes visible and needs to be -redrawn. --} - -module GI.Gdk.Structs.EventExpose - ( - --- * Exported types - EventExpose(..) , - newZeroEventExpose , - noEventExpose , - - - -- * Properties --- ** Area - eventExposeArea , - eventExposeClearArea , - eventExposeReadArea , - eventExposeWriteArea , - - --- ** Count - eventExposeCount , - eventExposeReadCount , - eventExposeWriteCount , - - --- ** Region - eventExposeClearRegion , - eventExposeReadRegion , - eventExposeRegion , - eventExposeWriteRegion , - - --- ** SendEvent - eventExposeReadSendEvent , - eventExposeSendEvent , - eventExposeWriteSendEvent , - - --- ** Type - eventExposeReadType , - eventExposeType , - eventExposeWriteType , - - --- ** Window - eventExposeClearWindow , - eventExposeReadWindow , - eventExposeWindow , - eventExposeWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.Cairo as Cairo - -newtype EventExpose = EventExpose (ForeignPtr EventExpose) -instance WrappedPtr EventExpose where - wrappedPtrCalloc = callocBytes 56 - wrappedPtrCopy = copyPtr 56 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventExpose` struct initialized to zero. -newZeroEventExpose :: MonadIO m => m EventExpose -newZeroEventExpose = liftIO $ wrappedPtrCalloc >>= wrapPtr EventExpose - -instance tag ~ 'AttrSet => Constructible EventExpose tag where - new _ attrs = do - o <- newZeroEventExpose - GI.Attributes.set o attrs - return o - - -noEventExpose :: Maybe EventExpose -noEventExpose = Nothing - -eventExposeReadType :: MonadIO m => EventExpose -> m EventType -eventExposeReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventExposeWriteType :: MonadIO m => EventExpose -> EventType -> m () -eventExposeWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventExposeTypeFieldInfo -instance AttrInfo EventExposeTypeFieldInfo where - type AttrAllowedOps EventExposeTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventExposeTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventExposeTypeFieldInfo = (~) EventExpose - type AttrGetType EventExposeTypeFieldInfo = EventType - type AttrLabel EventExposeTypeFieldInfo = "type" - attrGet _ = eventExposeReadType - attrSet _ = eventExposeWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventExposeType :: AttrLabelProxy "type" -eventExposeType = AttrLabelProxy - - -eventExposeReadWindow :: MonadIO m => EventExpose -> m (Maybe Window) -eventExposeReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventExposeWriteWindow :: MonadIO m => EventExpose -> Ptr Window -> m () -eventExposeWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventExposeClearWindow :: MonadIO m => EventExpose -> m () -eventExposeClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventExposeWindowFieldInfo -instance AttrInfo EventExposeWindowFieldInfo where - type AttrAllowedOps EventExposeWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventExposeWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventExposeWindowFieldInfo = (~) EventExpose - type AttrGetType EventExposeWindowFieldInfo = Maybe Window - type AttrLabel EventExposeWindowFieldInfo = "window" - attrGet _ = eventExposeReadWindow - attrSet _ = eventExposeWriteWindow - attrConstruct = undefined - attrClear _ = eventExposeClearWindow - -eventExposeWindow :: AttrLabelProxy "window" -eventExposeWindow = AttrLabelProxy - - -eventExposeReadSendEvent :: MonadIO m => EventExpose -> m Int8 -eventExposeReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventExposeWriteSendEvent :: MonadIO m => EventExpose -> Int8 -> m () -eventExposeWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventExposeSendEventFieldInfo -instance AttrInfo EventExposeSendEventFieldInfo where - type AttrAllowedOps EventExposeSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventExposeSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventExposeSendEventFieldInfo = (~) EventExpose - type AttrGetType EventExposeSendEventFieldInfo = Int8 - type AttrLabel EventExposeSendEventFieldInfo = "send_event" - attrGet _ = eventExposeReadSendEvent - attrSet _ = eventExposeWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventExposeSendEvent :: AttrLabelProxy "sendEvent" -eventExposeSendEvent = AttrLabelProxy - - -eventExposeReadArea :: MonadIO m => EventExpose -> m (Maybe Rectangle) -eventExposeReadArea s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO (Ptr Rectangle) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Rectangle) val' - return val'' - return result - -eventExposeWriteArea :: MonadIO m => EventExpose -> Ptr Rectangle -> m () -eventExposeWriteArea s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Ptr Rectangle) - -eventExposeClearArea :: MonadIO m => EventExpose -> m () -eventExposeClearArea s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (nullPtr :: Ptr Rectangle) - -data EventExposeAreaFieldInfo -instance AttrInfo EventExposeAreaFieldInfo where - type AttrAllowedOps EventExposeAreaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventExposeAreaFieldInfo = (~) (Ptr Rectangle) - type AttrBaseTypeConstraint EventExposeAreaFieldInfo = (~) EventExpose - type AttrGetType EventExposeAreaFieldInfo = Maybe Rectangle - type AttrLabel EventExposeAreaFieldInfo = "area" - attrGet _ = eventExposeReadArea - attrSet _ = eventExposeWriteArea - attrConstruct = undefined - attrClear _ = eventExposeClearArea - -eventExposeArea :: AttrLabelProxy "area" -eventExposeArea = AttrLabelProxy - - -eventExposeReadRegion :: MonadIO m => EventExpose -> m (Maybe Cairo.Region) -eventExposeReadRegion s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr Cairo.Region) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Cairo.Region) val' - return val'' - return result - -eventExposeWriteRegion :: MonadIO m => EventExpose -> Ptr Cairo.Region -> m () -eventExposeWriteRegion s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Ptr Cairo.Region) - -eventExposeClearRegion :: MonadIO m => EventExpose -> m () -eventExposeClearRegion s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: Ptr Cairo.Region) - -data EventExposeRegionFieldInfo -instance AttrInfo EventExposeRegionFieldInfo where - type AttrAllowedOps EventExposeRegionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventExposeRegionFieldInfo = (~) (Ptr Cairo.Region) - type AttrBaseTypeConstraint EventExposeRegionFieldInfo = (~) EventExpose - type AttrGetType EventExposeRegionFieldInfo = Maybe Cairo.Region - type AttrLabel EventExposeRegionFieldInfo = "region" - attrGet _ = eventExposeReadRegion - attrSet _ = eventExposeWriteRegion - attrConstruct = undefined - attrClear _ = eventExposeClearRegion - -eventExposeRegion :: AttrLabelProxy "region" -eventExposeRegion = AttrLabelProxy - - -eventExposeReadCount :: MonadIO m => EventExpose -> m Int32 -eventExposeReadCount s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO Int32 - return val - -eventExposeWriteCount :: MonadIO m => EventExpose -> Int32 -> m () -eventExposeWriteCount s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Int32) - -data EventExposeCountFieldInfo -instance AttrInfo EventExposeCountFieldInfo where - type AttrAllowedOps EventExposeCountFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventExposeCountFieldInfo = (~) Int32 - type AttrBaseTypeConstraint EventExposeCountFieldInfo = (~) EventExpose - type AttrGetType EventExposeCountFieldInfo = Int32 - type AttrLabel EventExposeCountFieldInfo = "count" - attrGet _ = eventExposeReadCount - attrSet _ = eventExposeWriteCount - attrConstruct = undefined - attrClear _ = undefined - -eventExposeCount :: AttrLabelProxy "count" -eventExposeCount = AttrLabelProxy - - - -type instance AttributeList EventExpose = EventExposeAttributeList -type EventExposeAttributeList = ('[ '("type", EventExposeTypeFieldInfo), '("window", EventExposeWindowFieldInfo), '("sendEvent", EventExposeSendEventFieldInfo), '("area", EventExposeAreaFieldInfo), '("region", EventExposeRegionFieldInfo), '("count", EventExposeCountFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventExposeMethod (t :: Symbol) (o :: *) :: * where - ResolveEventExposeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventExposeMethod t EventExpose, MethodInfo info EventExpose p) => IsLabelProxy t (EventExpose -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventExposeMethod t EventExpose, MethodInfo info EventExpose p) => IsLabel t (EventExpose -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventExpose.hs-boot b/GI/Gdk/Structs/EventExpose.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventExpose.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventExpose where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventExpose = EventExpose (ForeignPtr EventExpose) -instance WrappedPtr EventExpose where diff --git a/GI/Gdk/Structs/EventFocus.hs b/GI/Gdk/Structs/EventFocus.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventFocus.hs +++ /dev/null @@ -1,204 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Describes a change of keyboard focus. --} - -module GI.Gdk.Structs.EventFocus - ( - --- * Exported types - EventFocus(..) , - newZeroEventFocus , - noEventFocus , - - - -- * Properties --- ** In - eventFocusIn , - eventFocusReadIn , - eventFocusWriteIn , - - --- ** SendEvent - eventFocusReadSendEvent , - eventFocusSendEvent , - eventFocusWriteSendEvent , - - --- ** Type - eventFocusReadType , - eventFocusType , - eventFocusWriteType , - - --- ** Window - eventFocusClearWindow , - eventFocusReadWindow , - eventFocusWindow , - eventFocusWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventFocus = EventFocus (ForeignPtr EventFocus) -instance WrappedPtr EventFocus where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventFocus` struct initialized to zero. -newZeroEventFocus :: MonadIO m => m EventFocus -newZeroEventFocus = liftIO $ wrappedPtrCalloc >>= wrapPtr EventFocus - -instance tag ~ 'AttrSet => Constructible EventFocus tag where - new _ attrs = do - o <- newZeroEventFocus - GI.Attributes.set o attrs - return o - - -noEventFocus :: Maybe EventFocus -noEventFocus = Nothing - -eventFocusReadType :: MonadIO m => EventFocus -> m EventType -eventFocusReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventFocusWriteType :: MonadIO m => EventFocus -> EventType -> m () -eventFocusWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventFocusTypeFieldInfo -instance AttrInfo EventFocusTypeFieldInfo where - type AttrAllowedOps EventFocusTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventFocusTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventFocusTypeFieldInfo = (~) EventFocus - type AttrGetType EventFocusTypeFieldInfo = EventType - type AttrLabel EventFocusTypeFieldInfo = "type" - attrGet _ = eventFocusReadType - attrSet _ = eventFocusWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventFocusType :: AttrLabelProxy "type" -eventFocusType = AttrLabelProxy - - -eventFocusReadWindow :: MonadIO m => EventFocus -> m (Maybe Window) -eventFocusReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventFocusWriteWindow :: MonadIO m => EventFocus -> Ptr Window -> m () -eventFocusWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventFocusClearWindow :: MonadIO m => EventFocus -> m () -eventFocusClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventFocusWindowFieldInfo -instance AttrInfo EventFocusWindowFieldInfo where - type AttrAllowedOps EventFocusWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventFocusWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventFocusWindowFieldInfo = (~) EventFocus - type AttrGetType EventFocusWindowFieldInfo = Maybe Window - type AttrLabel EventFocusWindowFieldInfo = "window" - attrGet _ = eventFocusReadWindow - attrSet _ = eventFocusWriteWindow - attrConstruct = undefined - attrClear _ = eventFocusClearWindow - -eventFocusWindow :: AttrLabelProxy "window" -eventFocusWindow = AttrLabelProxy - - -eventFocusReadSendEvent :: MonadIO m => EventFocus -> m Int8 -eventFocusReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventFocusWriteSendEvent :: MonadIO m => EventFocus -> Int8 -> m () -eventFocusWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventFocusSendEventFieldInfo -instance AttrInfo EventFocusSendEventFieldInfo where - type AttrAllowedOps EventFocusSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventFocusSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventFocusSendEventFieldInfo = (~) EventFocus - type AttrGetType EventFocusSendEventFieldInfo = Int8 - type AttrLabel EventFocusSendEventFieldInfo = "send_event" - attrGet _ = eventFocusReadSendEvent - attrSet _ = eventFocusWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventFocusSendEvent :: AttrLabelProxy "sendEvent" -eventFocusSendEvent = AttrLabelProxy - - -eventFocusReadIn :: MonadIO m => EventFocus -> m Int16 -eventFocusReadIn s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 18) :: IO Int16 - return val - -eventFocusWriteIn :: MonadIO m => EventFocus -> Int16 -> m () -eventFocusWriteIn s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 18) (val :: Int16) - -data EventFocusInFieldInfo -instance AttrInfo EventFocusInFieldInfo where - type AttrAllowedOps EventFocusInFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventFocusInFieldInfo = (~) Int16 - type AttrBaseTypeConstraint EventFocusInFieldInfo = (~) EventFocus - type AttrGetType EventFocusInFieldInfo = Int16 - type AttrLabel EventFocusInFieldInfo = "in" - attrGet _ = eventFocusReadIn - attrSet _ = eventFocusWriteIn - attrConstruct = undefined - attrClear _ = undefined - -eventFocusIn :: AttrLabelProxy "in" -eventFocusIn = AttrLabelProxy - - - -type instance AttributeList EventFocus = EventFocusAttributeList -type EventFocusAttributeList = ('[ '("type", EventFocusTypeFieldInfo), '("window", EventFocusWindowFieldInfo), '("sendEvent", EventFocusSendEventFieldInfo), '("in", EventFocusInFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventFocusMethod (t :: Symbol) (o :: *) :: * where - ResolveEventFocusMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventFocusMethod t EventFocus, MethodInfo info EventFocus p) => IsLabelProxy t (EventFocus -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventFocusMethod t EventFocus, MethodInfo info EventFocus p) => IsLabel t (EventFocus -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventFocus.hs-boot b/GI/Gdk/Structs/EventFocus.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventFocus.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventFocus where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventFocus = EventFocus (ForeignPtr EventFocus) -instance WrappedPtr EventFocus where diff --git a/GI/Gdk/Structs/EventGrabBroken.hs b/GI/Gdk/Structs/EventGrabBroken.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventGrabBroken.hs +++ /dev/null @@ -1,282 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated when a pointer or keyboard grab is broken. On X11, this happens -when the grab window becomes unviewable (i.e. it or one of its ancestors -is unmapped), or if the same application grabs the pointer or keyboard -again. Note that implicit grabs (which are initiated by button presses) -can also cause #GdkEventGrabBroken events. --} - -module GI.Gdk.Structs.EventGrabBroken - ( - --- * Exported types - EventGrabBroken(..) , - newZeroEventGrabBroken , - noEventGrabBroken , - - - -- * Properties --- ** GrabWindow - eventGrabBrokenClearGrabWindow , - eventGrabBrokenGrabWindow , - eventGrabBrokenReadGrabWindow , - eventGrabBrokenWriteGrabWindow , - - --- ** Implicit - eventGrabBrokenImplicit , - eventGrabBrokenReadImplicit , - eventGrabBrokenWriteImplicit , - - --- ** Keyboard - eventGrabBrokenKeyboard , - eventGrabBrokenReadKeyboard , - eventGrabBrokenWriteKeyboard , - - --- ** SendEvent - eventGrabBrokenReadSendEvent , - eventGrabBrokenSendEvent , - eventGrabBrokenWriteSendEvent , - - --- ** Type - eventGrabBrokenReadType , - eventGrabBrokenType , - eventGrabBrokenWriteType , - - --- ** Window - eventGrabBrokenClearWindow , - eventGrabBrokenReadWindow , - eventGrabBrokenWindow , - eventGrabBrokenWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventGrabBroken = EventGrabBroken (ForeignPtr EventGrabBroken) -instance WrappedPtr EventGrabBroken where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventGrabBroken` struct initialized to zero. -newZeroEventGrabBroken :: MonadIO m => m EventGrabBroken -newZeroEventGrabBroken = liftIO $ wrappedPtrCalloc >>= wrapPtr EventGrabBroken - -instance tag ~ 'AttrSet => Constructible EventGrabBroken tag where - new _ attrs = do - o <- newZeroEventGrabBroken - GI.Attributes.set o attrs - return o - - -noEventGrabBroken :: Maybe EventGrabBroken -noEventGrabBroken = Nothing - -eventGrabBrokenReadType :: MonadIO m => EventGrabBroken -> m EventType -eventGrabBrokenReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventGrabBrokenWriteType :: MonadIO m => EventGrabBroken -> EventType -> m () -eventGrabBrokenWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventGrabBrokenTypeFieldInfo -instance AttrInfo EventGrabBrokenTypeFieldInfo where - type AttrAllowedOps EventGrabBrokenTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventGrabBrokenTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventGrabBrokenTypeFieldInfo = (~) EventGrabBroken - type AttrGetType EventGrabBrokenTypeFieldInfo = EventType - type AttrLabel EventGrabBrokenTypeFieldInfo = "type" - attrGet _ = eventGrabBrokenReadType - attrSet _ = eventGrabBrokenWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventGrabBrokenType :: AttrLabelProxy "type" -eventGrabBrokenType = AttrLabelProxy - - -eventGrabBrokenReadWindow :: MonadIO m => EventGrabBroken -> m (Maybe Window) -eventGrabBrokenReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventGrabBrokenWriteWindow :: MonadIO m => EventGrabBroken -> Ptr Window -> m () -eventGrabBrokenWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventGrabBrokenClearWindow :: MonadIO m => EventGrabBroken -> m () -eventGrabBrokenClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventGrabBrokenWindowFieldInfo -instance AttrInfo EventGrabBrokenWindowFieldInfo where - type AttrAllowedOps EventGrabBrokenWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventGrabBrokenWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventGrabBrokenWindowFieldInfo = (~) EventGrabBroken - type AttrGetType EventGrabBrokenWindowFieldInfo = Maybe Window - type AttrLabel EventGrabBrokenWindowFieldInfo = "window" - attrGet _ = eventGrabBrokenReadWindow - attrSet _ = eventGrabBrokenWriteWindow - attrConstruct = undefined - attrClear _ = eventGrabBrokenClearWindow - -eventGrabBrokenWindow :: AttrLabelProxy "window" -eventGrabBrokenWindow = AttrLabelProxy - - -eventGrabBrokenReadSendEvent :: MonadIO m => EventGrabBroken -> m Int8 -eventGrabBrokenReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventGrabBrokenWriteSendEvent :: MonadIO m => EventGrabBroken -> Int8 -> m () -eventGrabBrokenWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventGrabBrokenSendEventFieldInfo -instance AttrInfo EventGrabBrokenSendEventFieldInfo where - type AttrAllowedOps EventGrabBrokenSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventGrabBrokenSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventGrabBrokenSendEventFieldInfo = (~) EventGrabBroken - type AttrGetType EventGrabBrokenSendEventFieldInfo = Int8 - type AttrLabel EventGrabBrokenSendEventFieldInfo = "send_event" - attrGet _ = eventGrabBrokenReadSendEvent - attrSet _ = eventGrabBrokenWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventGrabBrokenSendEvent :: AttrLabelProxy "sendEvent" -eventGrabBrokenSendEvent = AttrLabelProxy - - -eventGrabBrokenReadKeyboard :: MonadIO m => EventGrabBroken -> m Bool -eventGrabBrokenReadKeyboard s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO CInt - let val' = (/= 0) val - return val' - -eventGrabBrokenWriteKeyboard :: MonadIO m => EventGrabBroken -> Bool -> m () -eventGrabBrokenWriteKeyboard s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 20) (val' :: CInt) - -data EventGrabBrokenKeyboardFieldInfo -instance AttrInfo EventGrabBrokenKeyboardFieldInfo where - type AttrAllowedOps EventGrabBrokenKeyboardFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventGrabBrokenKeyboardFieldInfo = (~) Bool - type AttrBaseTypeConstraint EventGrabBrokenKeyboardFieldInfo = (~) EventGrabBroken - type AttrGetType EventGrabBrokenKeyboardFieldInfo = Bool - type AttrLabel EventGrabBrokenKeyboardFieldInfo = "keyboard" - attrGet _ = eventGrabBrokenReadKeyboard - attrSet _ = eventGrabBrokenWriteKeyboard - attrConstruct = undefined - attrClear _ = undefined - -eventGrabBrokenKeyboard :: AttrLabelProxy "keyboard" -eventGrabBrokenKeyboard = AttrLabelProxy - - -eventGrabBrokenReadImplicit :: MonadIO m => EventGrabBroken -> m Bool -eventGrabBrokenReadImplicit s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CInt - let val' = (/= 0) val - return val' - -eventGrabBrokenWriteImplicit :: MonadIO m => EventGrabBroken -> Bool -> m () -eventGrabBrokenWriteImplicit s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 24) (val' :: CInt) - -data EventGrabBrokenImplicitFieldInfo -instance AttrInfo EventGrabBrokenImplicitFieldInfo where - type AttrAllowedOps EventGrabBrokenImplicitFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventGrabBrokenImplicitFieldInfo = (~) Bool - type AttrBaseTypeConstraint EventGrabBrokenImplicitFieldInfo = (~) EventGrabBroken - type AttrGetType EventGrabBrokenImplicitFieldInfo = Bool - type AttrLabel EventGrabBrokenImplicitFieldInfo = "implicit" - attrGet _ = eventGrabBrokenReadImplicit - attrSet _ = eventGrabBrokenWriteImplicit - attrConstruct = undefined - attrClear _ = undefined - -eventGrabBrokenImplicit :: AttrLabelProxy "implicit" -eventGrabBrokenImplicit = AttrLabelProxy - - -eventGrabBrokenReadGrabWindow :: MonadIO m => EventGrabBroken -> m (Maybe Window) -eventGrabBrokenReadGrabWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventGrabBrokenWriteGrabWindow :: MonadIO m => EventGrabBroken -> Ptr Window -> m () -eventGrabBrokenWriteGrabWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr Window) - -eventGrabBrokenClearGrabWindow :: MonadIO m => EventGrabBroken -> m () -eventGrabBrokenClearGrabWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr Window) - -data EventGrabBrokenGrabWindowFieldInfo -instance AttrInfo EventGrabBrokenGrabWindowFieldInfo where - type AttrAllowedOps EventGrabBrokenGrabWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventGrabBrokenGrabWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventGrabBrokenGrabWindowFieldInfo = (~) EventGrabBroken - type AttrGetType EventGrabBrokenGrabWindowFieldInfo = Maybe Window - type AttrLabel EventGrabBrokenGrabWindowFieldInfo = "grab_window" - attrGet _ = eventGrabBrokenReadGrabWindow - attrSet _ = eventGrabBrokenWriteGrabWindow - attrConstruct = undefined - attrClear _ = eventGrabBrokenClearGrabWindow - -eventGrabBrokenGrabWindow :: AttrLabelProxy "grabWindow" -eventGrabBrokenGrabWindow = AttrLabelProxy - - - -type instance AttributeList EventGrabBroken = EventGrabBrokenAttributeList -type EventGrabBrokenAttributeList = ('[ '("type", EventGrabBrokenTypeFieldInfo), '("window", EventGrabBrokenWindowFieldInfo), '("sendEvent", EventGrabBrokenSendEventFieldInfo), '("keyboard", EventGrabBrokenKeyboardFieldInfo), '("implicit", EventGrabBrokenImplicitFieldInfo), '("grabWindow", EventGrabBrokenGrabWindowFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventGrabBrokenMethod (t :: Symbol) (o :: *) :: * where - ResolveEventGrabBrokenMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventGrabBrokenMethod t EventGrabBroken, MethodInfo info EventGrabBroken p) => IsLabelProxy t (EventGrabBroken -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventGrabBrokenMethod t EventGrabBroken, MethodInfo info EventGrabBroken p) => IsLabel t (EventGrabBroken -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventGrabBroken.hs-boot b/GI/Gdk/Structs/EventGrabBroken.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventGrabBroken.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventGrabBroken where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventGrabBroken = EventGrabBroken (ForeignPtr EventGrabBroken) -instance WrappedPtr EventGrabBroken where diff --git a/GI/Gdk/Structs/EventKey.hs b/GI/Gdk/Structs/EventKey.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventKey.hs +++ /dev/null @@ -1,431 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Describes a key press or key release event. --} - -module GI.Gdk.Structs.EventKey - ( - --- * Exported types - EventKey(..) , - newZeroEventKey , - noEventKey , - - - -- * Properties --- ** Group - eventKeyGroup , - eventKeyReadGroup , - eventKeyWriteGroup , - - --- ** HardwareKeycode - eventKeyHardwareKeycode , - eventKeyReadHardwareKeycode , - eventKeyWriteHardwareKeycode , - - --- ** IsModifier - eventKeyIsModifier , - eventKeyReadIsModifier , - eventKeyWriteIsModifier , - - --- ** Keyval - eventKeyKeyval , - eventKeyReadKeyval , - eventKeyWriteKeyval , - - --- ** Length - eventKeyLength , - eventKeyReadLength , - eventKeyWriteLength , - - --- ** SendEvent - eventKeyReadSendEvent , - eventKeySendEvent , - eventKeyWriteSendEvent , - - --- ** State - eventKeyReadState , - eventKeyState , - eventKeyWriteState , - - --- ** String - eventKeyClearString , - eventKeyReadString , - eventKeyString , - eventKeyWriteString , - - --- ** Time - eventKeyReadTime , - eventKeyTime , - eventKeyWriteTime , - - --- ** Type - eventKeyReadType , - eventKeyType , - eventKeyWriteType , - - --- ** Window - eventKeyClearWindow , - eventKeyReadWindow , - eventKeyWindow , - eventKeyWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventKey = EventKey (ForeignPtr EventKey) -instance WrappedPtr EventKey where - wrappedPtrCalloc = callocBytes 56 - wrappedPtrCopy = copyPtr 56 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventKey` struct initialized to zero. -newZeroEventKey :: MonadIO m => m EventKey -newZeroEventKey = liftIO $ wrappedPtrCalloc >>= wrapPtr EventKey - -instance tag ~ 'AttrSet => Constructible EventKey tag where - new _ attrs = do - o <- newZeroEventKey - GI.Attributes.set o attrs - return o - - -noEventKey :: Maybe EventKey -noEventKey = Nothing - -eventKeyReadType :: MonadIO m => EventKey -> m EventType -eventKeyReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventKeyWriteType :: MonadIO m => EventKey -> EventType -> m () -eventKeyWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventKeyTypeFieldInfo -instance AttrInfo EventKeyTypeFieldInfo where - type AttrAllowedOps EventKeyTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventKeyTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventKeyTypeFieldInfo = (~) EventKey - type AttrGetType EventKeyTypeFieldInfo = EventType - type AttrLabel EventKeyTypeFieldInfo = "type" - attrGet _ = eventKeyReadType - attrSet _ = eventKeyWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventKeyType :: AttrLabelProxy "type" -eventKeyType = AttrLabelProxy - - -eventKeyReadWindow :: MonadIO m => EventKey -> m (Maybe Window) -eventKeyReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventKeyWriteWindow :: MonadIO m => EventKey -> Ptr Window -> m () -eventKeyWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventKeyClearWindow :: MonadIO m => EventKey -> m () -eventKeyClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventKeyWindowFieldInfo -instance AttrInfo EventKeyWindowFieldInfo where - type AttrAllowedOps EventKeyWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventKeyWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventKeyWindowFieldInfo = (~) EventKey - type AttrGetType EventKeyWindowFieldInfo = Maybe Window - type AttrLabel EventKeyWindowFieldInfo = "window" - attrGet _ = eventKeyReadWindow - attrSet _ = eventKeyWriteWindow - attrConstruct = undefined - attrClear _ = eventKeyClearWindow - -eventKeyWindow :: AttrLabelProxy "window" -eventKeyWindow = AttrLabelProxy - - -eventKeyReadSendEvent :: MonadIO m => EventKey -> m Int8 -eventKeyReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventKeyWriteSendEvent :: MonadIO m => EventKey -> Int8 -> m () -eventKeyWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventKeySendEventFieldInfo -instance AttrInfo EventKeySendEventFieldInfo where - type AttrAllowedOps EventKeySendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventKeySendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventKeySendEventFieldInfo = (~) EventKey - type AttrGetType EventKeySendEventFieldInfo = Int8 - type AttrLabel EventKeySendEventFieldInfo = "send_event" - attrGet _ = eventKeyReadSendEvent - attrSet _ = eventKeyWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventKeySendEvent :: AttrLabelProxy "sendEvent" -eventKeySendEvent = AttrLabelProxy - - -eventKeyReadTime :: MonadIO m => EventKey -> m Word32 -eventKeyReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -eventKeyWriteTime :: MonadIO m => EventKey -> Word32 -> m () -eventKeyWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data EventKeyTimeFieldInfo -instance AttrInfo EventKeyTimeFieldInfo where - type AttrAllowedOps EventKeyTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventKeyTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventKeyTimeFieldInfo = (~) EventKey - type AttrGetType EventKeyTimeFieldInfo = Word32 - type AttrLabel EventKeyTimeFieldInfo = "time" - attrGet _ = eventKeyReadTime - attrSet _ = eventKeyWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventKeyTime :: AttrLabelProxy "time" -eventKeyTime = AttrLabelProxy - - -eventKeyReadState :: MonadIO m => EventKey -> m [ModifierType] -eventKeyReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CUInt - let val' = wordToGFlags val - return val' - -eventKeyWriteState :: MonadIO m => EventKey -> [ModifierType] -> m () -eventKeyWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 24) (val' :: CUInt) - -data EventKeyStateFieldInfo -instance AttrInfo EventKeyStateFieldInfo where - type AttrAllowedOps EventKeyStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventKeyStateFieldInfo = (~) [ModifierType] - type AttrBaseTypeConstraint EventKeyStateFieldInfo = (~) EventKey - type AttrGetType EventKeyStateFieldInfo = [ModifierType] - type AttrLabel EventKeyStateFieldInfo = "state" - attrGet _ = eventKeyReadState - attrSet _ = eventKeyWriteState - attrConstruct = undefined - attrClear _ = undefined - -eventKeyState :: AttrLabelProxy "state" -eventKeyState = AttrLabelProxy - - -eventKeyReadKeyval :: MonadIO m => EventKey -> m Word32 -eventKeyReadKeyval s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Word32 - return val - -eventKeyWriteKeyval :: MonadIO m => EventKey -> Word32 -> m () -eventKeyWriteKeyval s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 28) (val :: Word32) - -data EventKeyKeyvalFieldInfo -instance AttrInfo EventKeyKeyvalFieldInfo where - type AttrAllowedOps EventKeyKeyvalFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventKeyKeyvalFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventKeyKeyvalFieldInfo = (~) EventKey - type AttrGetType EventKeyKeyvalFieldInfo = Word32 - type AttrLabel EventKeyKeyvalFieldInfo = "keyval" - attrGet _ = eventKeyReadKeyval - attrSet _ = eventKeyWriteKeyval - attrConstruct = undefined - attrClear _ = undefined - -eventKeyKeyval :: AttrLabelProxy "keyval" -eventKeyKeyval = AttrLabelProxy - - -eventKeyReadLength :: MonadIO m => EventKey -> m Int32 -eventKeyReadLength s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Int32 - return val - -eventKeyWriteLength :: MonadIO m => EventKey -> Int32 -> m () -eventKeyWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Int32) - -data EventKeyLengthFieldInfo -instance AttrInfo EventKeyLengthFieldInfo where - type AttrAllowedOps EventKeyLengthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventKeyLengthFieldInfo = (~) Int32 - type AttrBaseTypeConstraint EventKeyLengthFieldInfo = (~) EventKey - type AttrGetType EventKeyLengthFieldInfo = Int32 - type AttrLabel EventKeyLengthFieldInfo = "length" - attrGet _ = eventKeyReadLength - attrSet _ = eventKeyWriteLength - attrConstruct = undefined - attrClear _ = undefined - -eventKeyLength :: AttrLabelProxy "length" -eventKeyLength = AttrLabelProxy - - -eventKeyReadString :: MonadIO m => EventKey -> m (Maybe T.Text) -eventKeyReadString s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -eventKeyWriteString :: MonadIO m => EventKey -> CString -> m () -eventKeyWriteString s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: CString) - -eventKeyClearString :: MonadIO m => EventKey -> m () -eventKeyClearString s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: CString) - -data EventKeyStringFieldInfo -instance AttrInfo EventKeyStringFieldInfo where - type AttrAllowedOps EventKeyStringFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventKeyStringFieldInfo = (~) CString - type AttrBaseTypeConstraint EventKeyStringFieldInfo = (~) EventKey - type AttrGetType EventKeyStringFieldInfo = Maybe T.Text - type AttrLabel EventKeyStringFieldInfo = "string" - attrGet _ = eventKeyReadString - attrSet _ = eventKeyWriteString - attrConstruct = undefined - attrClear _ = eventKeyClearString - -eventKeyString :: AttrLabelProxy "string" -eventKeyString = AttrLabelProxy - - -eventKeyReadHardwareKeycode :: MonadIO m => EventKey -> m Word16 -eventKeyReadHardwareKeycode s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO Word16 - return val - -eventKeyWriteHardwareKeycode :: MonadIO m => EventKey -> Word16 -> m () -eventKeyWriteHardwareKeycode s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Word16) - -data EventKeyHardwareKeycodeFieldInfo -instance AttrInfo EventKeyHardwareKeycodeFieldInfo where - type AttrAllowedOps EventKeyHardwareKeycodeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventKeyHardwareKeycodeFieldInfo = (~) Word16 - type AttrBaseTypeConstraint EventKeyHardwareKeycodeFieldInfo = (~) EventKey - type AttrGetType EventKeyHardwareKeycodeFieldInfo = Word16 - type AttrLabel EventKeyHardwareKeycodeFieldInfo = "hardware_keycode" - attrGet _ = eventKeyReadHardwareKeycode - attrSet _ = eventKeyWriteHardwareKeycode - attrConstruct = undefined - attrClear _ = undefined - -eventKeyHardwareKeycode :: AttrLabelProxy "hardwareKeycode" -eventKeyHardwareKeycode = AttrLabelProxy - - -eventKeyReadGroup :: MonadIO m => EventKey -> m Word8 -eventKeyReadGroup s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 50) :: IO Word8 - return val - -eventKeyWriteGroup :: MonadIO m => EventKey -> Word8 -> m () -eventKeyWriteGroup s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 50) (val :: Word8) - -data EventKeyGroupFieldInfo -instance AttrInfo EventKeyGroupFieldInfo where - type AttrAllowedOps EventKeyGroupFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventKeyGroupFieldInfo = (~) Word8 - type AttrBaseTypeConstraint EventKeyGroupFieldInfo = (~) EventKey - type AttrGetType EventKeyGroupFieldInfo = Word8 - type AttrLabel EventKeyGroupFieldInfo = "group" - attrGet _ = eventKeyReadGroup - attrSet _ = eventKeyWriteGroup - attrConstruct = undefined - attrClear _ = undefined - -eventKeyGroup :: AttrLabelProxy "group" -eventKeyGroup = AttrLabelProxy - - -eventKeyReadIsModifier :: MonadIO m => EventKey -> m Word32 -eventKeyReadIsModifier s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 52) :: IO Word32 - return val - -eventKeyWriteIsModifier :: MonadIO m => EventKey -> Word32 -> m () -eventKeyWriteIsModifier s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 52) (val :: Word32) - -data EventKeyIsModifierFieldInfo -instance AttrInfo EventKeyIsModifierFieldInfo where - type AttrAllowedOps EventKeyIsModifierFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventKeyIsModifierFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventKeyIsModifierFieldInfo = (~) EventKey - type AttrGetType EventKeyIsModifierFieldInfo = Word32 - type AttrLabel EventKeyIsModifierFieldInfo = "is_modifier" - attrGet _ = eventKeyReadIsModifier - attrSet _ = eventKeyWriteIsModifier - attrConstruct = undefined - attrClear _ = undefined - -eventKeyIsModifier :: AttrLabelProxy "isModifier" -eventKeyIsModifier = AttrLabelProxy - - - -type instance AttributeList EventKey = EventKeyAttributeList -type EventKeyAttributeList = ('[ '("type", EventKeyTypeFieldInfo), '("window", EventKeyWindowFieldInfo), '("sendEvent", EventKeySendEventFieldInfo), '("time", EventKeyTimeFieldInfo), '("state", EventKeyStateFieldInfo), '("keyval", EventKeyKeyvalFieldInfo), '("length", EventKeyLengthFieldInfo), '("string", EventKeyStringFieldInfo), '("hardwareKeycode", EventKeyHardwareKeycodeFieldInfo), '("group", EventKeyGroupFieldInfo), '("isModifier", EventKeyIsModifierFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventKeyMethod (t :: Symbol) (o :: *) :: * where - ResolveEventKeyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventKeyMethod t EventKey, MethodInfo info EventKey p) => IsLabelProxy t (EventKey -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventKeyMethod t EventKey, MethodInfo info EventKey p) => IsLabel t (EventKey -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventKey.hs-boot b/GI/Gdk/Structs/EventKey.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventKey.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventKey where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventKey = EventKey (ForeignPtr EventKey) -instance WrappedPtr EventKey where diff --git a/GI/Gdk/Structs/EventMotion.hs b/GI/Gdk/Structs/EventMotion.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventMotion.hs +++ /dev/null @@ -1,472 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated when the pointer moves. --} - -module GI.Gdk.Structs.EventMotion - ( - --- * Exported types - EventMotion(..) , - newZeroEventMotion , - noEventMotion , - - - -- * Properties --- ** Axes - eventMotionAxes , - eventMotionReadAxes , - eventMotionWriteAxes , - - --- ** Device - eventMotionClearDevice , - eventMotionDevice , - eventMotionReadDevice , - eventMotionWriteDevice , - - --- ** IsHint - eventMotionIsHint , - eventMotionReadIsHint , - eventMotionWriteIsHint , - - --- ** SendEvent - eventMotionReadSendEvent , - eventMotionSendEvent , - eventMotionWriteSendEvent , - - --- ** State - eventMotionReadState , - eventMotionState , - eventMotionWriteState , - - --- ** Time - eventMotionReadTime , - eventMotionTime , - eventMotionWriteTime , - - --- ** Type - eventMotionReadType , - eventMotionType , - eventMotionWriteType , - - --- ** Window - eventMotionClearWindow , - eventMotionReadWindow , - eventMotionWindow , - eventMotionWriteWindow , - - --- ** X - eventMotionReadX , - eventMotionWriteX , - eventMotionX , - - --- ** XRoot - eventMotionReadXRoot , - eventMotionWriteXRoot , - eventMotionXRoot , - - --- ** Y - eventMotionReadY , - eventMotionWriteY , - eventMotionY , - - --- ** YRoot - eventMotionReadYRoot , - eventMotionWriteYRoot , - eventMotionYRoot , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventMotion = EventMotion (ForeignPtr EventMotion) -instance WrappedPtr EventMotion where - wrappedPtrCalloc = callocBytes 80 - wrappedPtrCopy = copyPtr 80 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventMotion` struct initialized to zero. -newZeroEventMotion :: MonadIO m => m EventMotion -newZeroEventMotion = liftIO $ wrappedPtrCalloc >>= wrapPtr EventMotion - -instance tag ~ 'AttrSet => Constructible EventMotion tag where - new _ attrs = do - o <- newZeroEventMotion - GI.Attributes.set o attrs - return o - - -noEventMotion :: Maybe EventMotion -noEventMotion = Nothing - -eventMotionReadType :: MonadIO m => EventMotion -> m EventType -eventMotionReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventMotionWriteType :: MonadIO m => EventMotion -> EventType -> m () -eventMotionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventMotionTypeFieldInfo -instance AttrInfo EventMotionTypeFieldInfo where - type AttrAllowedOps EventMotionTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventMotionTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventMotionTypeFieldInfo = (~) EventMotion - type AttrGetType EventMotionTypeFieldInfo = EventType - type AttrLabel EventMotionTypeFieldInfo = "type" - attrGet _ = eventMotionReadType - attrSet _ = eventMotionWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventMotionType :: AttrLabelProxy "type" -eventMotionType = AttrLabelProxy - - -eventMotionReadWindow :: MonadIO m => EventMotion -> m (Maybe Window) -eventMotionReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventMotionWriteWindow :: MonadIO m => EventMotion -> Ptr Window -> m () -eventMotionWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventMotionClearWindow :: MonadIO m => EventMotion -> m () -eventMotionClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventMotionWindowFieldInfo -instance AttrInfo EventMotionWindowFieldInfo where - type AttrAllowedOps EventMotionWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventMotionWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventMotionWindowFieldInfo = (~) EventMotion - type AttrGetType EventMotionWindowFieldInfo = Maybe Window - type AttrLabel EventMotionWindowFieldInfo = "window" - attrGet _ = eventMotionReadWindow - attrSet _ = eventMotionWriteWindow - attrConstruct = undefined - attrClear _ = eventMotionClearWindow - -eventMotionWindow :: AttrLabelProxy "window" -eventMotionWindow = AttrLabelProxy - - -eventMotionReadSendEvent :: MonadIO m => EventMotion -> m Int8 -eventMotionReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventMotionWriteSendEvent :: MonadIO m => EventMotion -> Int8 -> m () -eventMotionWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventMotionSendEventFieldInfo -instance AttrInfo EventMotionSendEventFieldInfo where - type AttrAllowedOps EventMotionSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventMotionSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventMotionSendEventFieldInfo = (~) EventMotion - type AttrGetType EventMotionSendEventFieldInfo = Int8 - type AttrLabel EventMotionSendEventFieldInfo = "send_event" - attrGet _ = eventMotionReadSendEvent - attrSet _ = eventMotionWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventMotionSendEvent :: AttrLabelProxy "sendEvent" -eventMotionSendEvent = AttrLabelProxy - - -eventMotionReadTime :: MonadIO m => EventMotion -> m Word32 -eventMotionReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -eventMotionWriteTime :: MonadIO m => EventMotion -> Word32 -> m () -eventMotionWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data EventMotionTimeFieldInfo -instance AttrInfo EventMotionTimeFieldInfo where - type AttrAllowedOps EventMotionTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventMotionTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventMotionTimeFieldInfo = (~) EventMotion - type AttrGetType EventMotionTimeFieldInfo = Word32 - type AttrLabel EventMotionTimeFieldInfo = "time" - attrGet _ = eventMotionReadTime - attrSet _ = eventMotionWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventMotionTime :: AttrLabelProxy "time" -eventMotionTime = AttrLabelProxy - - -eventMotionReadX :: MonadIO m => EventMotion -> m Double -eventMotionReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CDouble - let val' = realToFrac val - return val' - -eventMotionWriteX :: MonadIO m => EventMotion -> Double -> m () -eventMotionWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 24) (val' :: CDouble) - -data EventMotionXFieldInfo -instance AttrInfo EventMotionXFieldInfo where - type AttrAllowedOps EventMotionXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventMotionXFieldInfo = (~) Double - type AttrBaseTypeConstraint EventMotionXFieldInfo = (~) EventMotion - type AttrGetType EventMotionXFieldInfo = Double - type AttrLabel EventMotionXFieldInfo = "x" - attrGet _ = eventMotionReadX - attrSet _ = eventMotionWriteX - attrConstruct = undefined - attrClear _ = undefined - -eventMotionX :: AttrLabelProxy "x" -eventMotionX = AttrLabelProxy - - -eventMotionReadY :: MonadIO m => EventMotion -> m Double -eventMotionReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -eventMotionWriteY :: MonadIO m => EventMotion -> Double -> m () -eventMotionWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 32) (val' :: CDouble) - -data EventMotionYFieldInfo -instance AttrInfo EventMotionYFieldInfo where - type AttrAllowedOps EventMotionYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventMotionYFieldInfo = (~) Double - type AttrBaseTypeConstraint EventMotionYFieldInfo = (~) EventMotion - type AttrGetType EventMotionYFieldInfo = Double - type AttrLabel EventMotionYFieldInfo = "y" - attrGet _ = eventMotionReadY - attrSet _ = eventMotionWriteY - attrConstruct = undefined - attrClear _ = undefined - -eventMotionY :: AttrLabelProxy "y" -eventMotionY = AttrLabelProxy - - -eventMotionReadAxes :: MonadIO m => EventMotion -> m Double -eventMotionReadAxes s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -eventMotionWriteAxes :: MonadIO m => EventMotion -> Double -> m () -eventMotionWriteAxes s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 40) (val' :: CDouble) - -data EventMotionAxesFieldInfo -instance AttrInfo EventMotionAxesFieldInfo where - type AttrAllowedOps EventMotionAxesFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventMotionAxesFieldInfo = (~) Double - type AttrBaseTypeConstraint EventMotionAxesFieldInfo = (~) EventMotion - type AttrGetType EventMotionAxesFieldInfo = Double - type AttrLabel EventMotionAxesFieldInfo = "axes" - attrGet _ = eventMotionReadAxes - attrSet _ = eventMotionWriteAxes - attrConstruct = undefined - attrClear _ = undefined - -eventMotionAxes :: AttrLabelProxy "axes" -eventMotionAxes = AttrLabelProxy - - -eventMotionReadState :: MonadIO m => EventMotion -> m [ModifierType] -eventMotionReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CUInt - let val' = wordToGFlags val - return val' - -eventMotionWriteState :: MonadIO m => EventMotion -> [ModifierType] -> m () -eventMotionWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 48) (val' :: CUInt) - -data EventMotionStateFieldInfo -instance AttrInfo EventMotionStateFieldInfo where - type AttrAllowedOps EventMotionStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventMotionStateFieldInfo = (~) [ModifierType] - type AttrBaseTypeConstraint EventMotionStateFieldInfo = (~) EventMotion - type AttrGetType EventMotionStateFieldInfo = [ModifierType] - type AttrLabel EventMotionStateFieldInfo = "state" - attrGet _ = eventMotionReadState - attrSet _ = eventMotionWriteState - attrConstruct = undefined - attrClear _ = undefined - -eventMotionState :: AttrLabelProxy "state" -eventMotionState = AttrLabelProxy - - -eventMotionReadIsHint :: MonadIO m => EventMotion -> m Int16 -eventMotionReadIsHint s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 52) :: IO Int16 - return val - -eventMotionWriteIsHint :: MonadIO m => EventMotion -> Int16 -> m () -eventMotionWriteIsHint s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 52) (val :: Int16) - -data EventMotionIsHintFieldInfo -instance AttrInfo EventMotionIsHintFieldInfo where - type AttrAllowedOps EventMotionIsHintFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventMotionIsHintFieldInfo = (~) Int16 - type AttrBaseTypeConstraint EventMotionIsHintFieldInfo = (~) EventMotion - type AttrGetType EventMotionIsHintFieldInfo = Int16 - type AttrLabel EventMotionIsHintFieldInfo = "is_hint" - attrGet _ = eventMotionReadIsHint - attrSet _ = eventMotionWriteIsHint - attrConstruct = undefined - attrClear _ = undefined - -eventMotionIsHint :: AttrLabelProxy "isHint" -eventMotionIsHint = AttrLabelProxy - - -eventMotionReadDevice :: MonadIO m => EventMotion -> m (Maybe Device) -eventMotionReadDevice s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO (Ptr Device) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Device) val' - return val'' - return result - -eventMotionWriteDevice :: MonadIO m => EventMotion -> Ptr Device -> m () -eventMotionWriteDevice s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (val :: Ptr Device) - -eventMotionClearDevice :: MonadIO m => EventMotion -> m () -eventMotionClearDevice s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (nullPtr :: Ptr Device) - -data EventMotionDeviceFieldInfo -instance AttrInfo EventMotionDeviceFieldInfo where - type AttrAllowedOps EventMotionDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventMotionDeviceFieldInfo = (~) (Ptr Device) - type AttrBaseTypeConstraint EventMotionDeviceFieldInfo = (~) EventMotion - type AttrGetType EventMotionDeviceFieldInfo = Maybe Device - type AttrLabel EventMotionDeviceFieldInfo = "device" - attrGet _ = eventMotionReadDevice - attrSet _ = eventMotionWriteDevice - attrConstruct = undefined - attrClear _ = eventMotionClearDevice - -eventMotionDevice :: AttrLabelProxy "device" -eventMotionDevice = AttrLabelProxy - - -eventMotionReadXRoot :: MonadIO m => EventMotion -> m Double -eventMotionReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CDouble - let val' = realToFrac val - return val' - -eventMotionWriteXRoot :: MonadIO m => EventMotion -> Double -> m () -eventMotionWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 64) (val' :: CDouble) - -data EventMotionXRootFieldInfo -instance AttrInfo EventMotionXRootFieldInfo where - type AttrAllowedOps EventMotionXRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventMotionXRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventMotionXRootFieldInfo = (~) EventMotion - type AttrGetType EventMotionXRootFieldInfo = Double - type AttrLabel EventMotionXRootFieldInfo = "x_root" - attrGet _ = eventMotionReadXRoot - attrSet _ = eventMotionWriteXRoot - attrConstruct = undefined - attrClear _ = undefined - -eventMotionXRoot :: AttrLabelProxy "xRoot" -eventMotionXRoot = AttrLabelProxy - - -eventMotionReadYRoot :: MonadIO m => EventMotion -> m Double -eventMotionReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CDouble - let val' = realToFrac val - return val' - -eventMotionWriteYRoot :: MonadIO m => EventMotion -> Double -> m () -eventMotionWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 72) (val' :: CDouble) - -data EventMotionYRootFieldInfo -instance AttrInfo EventMotionYRootFieldInfo where - type AttrAllowedOps EventMotionYRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventMotionYRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventMotionYRootFieldInfo = (~) EventMotion - type AttrGetType EventMotionYRootFieldInfo = Double - type AttrLabel EventMotionYRootFieldInfo = "y_root" - attrGet _ = eventMotionReadYRoot - attrSet _ = eventMotionWriteYRoot - attrConstruct = undefined - attrClear _ = undefined - -eventMotionYRoot :: AttrLabelProxy "yRoot" -eventMotionYRoot = AttrLabelProxy - - - -type instance AttributeList EventMotion = EventMotionAttributeList -type EventMotionAttributeList = ('[ '("type", EventMotionTypeFieldInfo), '("window", EventMotionWindowFieldInfo), '("sendEvent", EventMotionSendEventFieldInfo), '("time", EventMotionTimeFieldInfo), '("x", EventMotionXFieldInfo), '("y", EventMotionYFieldInfo), '("axes", EventMotionAxesFieldInfo), '("state", EventMotionStateFieldInfo), '("isHint", EventMotionIsHintFieldInfo), '("device", EventMotionDeviceFieldInfo), '("xRoot", EventMotionXRootFieldInfo), '("yRoot", EventMotionYRootFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventMotionMethod (t :: Symbol) (o :: *) :: * where - ResolveEventMotionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventMotionMethod t EventMotion, MethodInfo info EventMotion p) => IsLabelProxy t (EventMotion -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventMotionMethod t EventMotion, MethodInfo info EventMotion p) => IsLabel t (EventMotion -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventMotion.hs-boot b/GI/Gdk/Structs/EventMotion.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventMotion.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventMotion where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventMotion = EventMotion (ForeignPtr EventMotion) -instance WrappedPtr EventMotion where diff --git a/GI/Gdk/Structs/EventOwnerChange.hs b/GI/Gdk/Structs/EventOwnerChange.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventOwnerChange.hs +++ /dev/null @@ -1,348 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated when the owner of a selection changes. On X11, this -information is only available if the X server supports the XFIXES -extension. --} - -module GI.Gdk.Structs.EventOwnerChange - ( - --- * Exported types - EventOwnerChange(..) , - newZeroEventOwnerChange , - noEventOwnerChange , - - - -- * Properties --- ** Owner - eventOwnerChangeClearOwner , - eventOwnerChangeOwner , - eventOwnerChangeReadOwner , - eventOwnerChangeWriteOwner , - - --- ** Reason - eventOwnerChangeReadReason , - eventOwnerChangeReason , - eventOwnerChangeWriteReason , - - --- ** Selection - eventOwnerChangeClearSelection , - eventOwnerChangeReadSelection , - eventOwnerChangeSelection , - eventOwnerChangeWriteSelection , - - --- ** SelectionTime - eventOwnerChangeReadSelectionTime , - eventOwnerChangeSelectionTime , - eventOwnerChangeWriteSelectionTime , - - --- ** SendEvent - eventOwnerChangeReadSendEvent , - eventOwnerChangeSendEvent , - eventOwnerChangeWriteSendEvent , - - --- ** Time - eventOwnerChangeReadTime , - eventOwnerChangeTime , - eventOwnerChangeWriteTime , - - --- ** Type - eventOwnerChangeReadType , - eventOwnerChangeType , - eventOwnerChangeWriteType , - - --- ** Window - eventOwnerChangeClearWindow , - eventOwnerChangeReadWindow , - eventOwnerChangeWindow , - eventOwnerChangeWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventOwnerChange = EventOwnerChange (ForeignPtr EventOwnerChange) -instance WrappedPtr EventOwnerChange where - wrappedPtrCalloc = callocBytes 56 - wrappedPtrCopy = copyPtr 56 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventOwnerChange` struct initialized to zero. -newZeroEventOwnerChange :: MonadIO m => m EventOwnerChange -newZeroEventOwnerChange = liftIO $ wrappedPtrCalloc >>= wrapPtr EventOwnerChange - -instance tag ~ 'AttrSet => Constructible EventOwnerChange tag where - new _ attrs = do - o <- newZeroEventOwnerChange - GI.Attributes.set o attrs - return o - - -noEventOwnerChange :: Maybe EventOwnerChange -noEventOwnerChange = Nothing - -eventOwnerChangeReadType :: MonadIO m => EventOwnerChange -> m EventType -eventOwnerChangeReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventOwnerChangeWriteType :: MonadIO m => EventOwnerChange -> EventType -> m () -eventOwnerChangeWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventOwnerChangeTypeFieldInfo -instance AttrInfo EventOwnerChangeTypeFieldInfo where - type AttrAllowedOps EventOwnerChangeTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventOwnerChangeTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventOwnerChangeTypeFieldInfo = (~) EventOwnerChange - type AttrGetType EventOwnerChangeTypeFieldInfo = EventType - type AttrLabel EventOwnerChangeTypeFieldInfo = "type" - attrGet _ = eventOwnerChangeReadType - attrSet _ = eventOwnerChangeWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventOwnerChangeType :: AttrLabelProxy "type" -eventOwnerChangeType = AttrLabelProxy - - -eventOwnerChangeReadWindow :: MonadIO m => EventOwnerChange -> m (Maybe Window) -eventOwnerChangeReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventOwnerChangeWriteWindow :: MonadIO m => EventOwnerChange -> Ptr Window -> m () -eventOwnerChangeWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventOwnerChangeClearWindow :: MonadIO m => EventOwnerChange -> m () -eventOwnerChangeClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventOwnerChangeWindowFieldInfo -instance AttrInfo EventOwnerChangeWindowFieldInfo where - type AttrAllowedOps EventOwnerChangeWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventOwnerChangeWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventOwnerChangeWindowFieldInfo = (~) EventOwnerChange - type AttrGetType EventOwnerChangeWindowFieldInfo = Maybe Window - type AttrLabel EventOwnerChangeWindowFieldInfo = "window" - attrGet _ = eventOwnerChangeReadWindow - attrSet _ = eventOwnerChangeWriteWindow - attrConstruct = undefined - attrClear _ = eventOwnerChangeClearWindow - -eventOwnerChangeWindow :: AttrLabelProxy "window" -eventOwnerChangeWindow = AttrLabelProxy - - -eventOwnerChangeReadSendEvent :: MonadIO m => EventOwnerChange -> m Int8 -eventOwnerChangeReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventOwnerChangeWriteSendEvent :: MonadIO m => EventOwnerChange -> Int8 -> m () -eventOwnerChangeWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventOwnerChangeSendEventFieldInfo -instance AttrInfo EventOwnerChangeSendEventFieldInfo where - type AttrAllowedOps EventOwnerChangeSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventOwnerChangeSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventOwnerChangeSendEventFieldInfo = (~) EventOwnerChange - type AttrGetType EventOwnerChangeSendEventFieldInfo = Int8 - type AttrLabel EventOwnerChangeSendEventFieldInfo = "send_event" - attrGet _ = eventOwnerChangeReadSendEvent - attrSet _ = eventOwnerChangeWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventOwnerChangeSendEvent :: AttrLabelProxy "sendEvent" -eventOwnerChangeSendEvent = AttrLabelProxy - - -eventOwnerChangeReadOwner :: MonadIO m => EventOwnerChange -> m (Maybe Window) -eventOwnerChangeReadOwner s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventOwnerChangeWriteOwner :: MonadIO m => EventOwnerChange -> Ptr Window -> m () -eventOwnerChangeWriteOwner s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Window) - -eventOwnerChangeClearOwner :: MonadIO m => EventOwnerChange -> m () -eventOwnerChangeClearOwner s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Window) - -data EventOwnerChangeOwnerFieldInfo -instance AttrInfo EventOwnerChangeOwnerFieldInfo where - type AttrAllowedOps EventOwnerChangeOwnerFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventOwnerChangeOwnerFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventOwnerChangeOwnerFieldInfo = (~) EventOwnerChange - type AttrGetType EventOwnerChangeOwnerFieldInfo = Maybe Window - type AttrLabel EventOwnerChangeOwnerFieldInfo = "owner" - attrGet _ = eventOwnerChangeReadOwner - attrSet _ = eventOwnerChangeWriteOwner - attrConstruct = undefined - attrClear _ = eventOwnerChangeClearOwner - -eventOwnerChangeOwner :: AttrLabelProxy "owner" -eventOwnerChangeOwner = AttrLabelProxy - - -eventOwnerChangeReadReason :: MonadIO m => EventOwnerChange -> m OwnerChange -eventOwnerChangeReadReason s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventOwnerChangeWriteReason :: MonadIO m => EventOwnerChange -> OwnerChange -> m () -eventOwnerChangeWriteReason s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 32) (val' :: CUInt) - -data EventOwnerChangeReasonFieldInfo -instance AttrInfo EventOwnerChangeReasonFieldInfo where - type AttrAllowedOps EventOwnerChangeReasonFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventOwnerChangeReasonFieldInfo = (~) OwnerChange - type AttrBaseTypeConstraint EventOwnerChangeReasonFieldInfo = (~) EventOwnerChange - type AttrGetType EventOwnerChangeReasonFieldInfo = OwnerChange - type AttrLabel EventOwnerChangeReasonFieldInfo = "reason" - attrGet _ = eventOwnerChangeReadReason - attrSet _ = eventOwnerChangeWriteReason - attrConstruct = undefined - attrClear _ = undefined - -eventOwnerChangeReason :: AttrLabelProxy "reason" -eventOwnerChangeReason = AttrLabelProxy - - -eventOwnerChangeReadSelection :: MonadIO m => EventOwnerChange -> m (Maybe Atom) -eventOwnerChangeReadSelection s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr Atom) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Atom) val' - return val'' - return result - -eventOwnerChangeWriteSelection :: MonadIO m => EventOwnerChange -> Ptr Atom -> m () -eventOwnerChangeWriteSelection s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Ptr Atom) - -eventOwnerChangeClearSelection :: MonadIO m => EventOwnerChange -> m () -eventOwnerChangeClearSelection s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: Ptr Atom) - -data EventOwnerChangeSelectionFieldInfo -instance AttrInfo EventOwnerChangeSelectionFieldInfo where - type AttrAllowedOps EventOwnerChangeSelectionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventOwnerChangeSelectionFieldInfo = (~) (Ptr Atom) - type AttrBaseTypeConstraint EventOwnerChangeSelectionFieldInfo = (~) EventOwnerChange - type AttrGetType EventOwnerChangeSelectionFieldInfo = Maybe Atom - type AttrLabel EventOwnerChangeSelectionFieldInfo = "selection" - attrGet _ = eventOwnerChangeReadSelection - attrSet _ = eventOwnerChangeWriteSelection - attrConstruct = undefined - attrClear _ = eventOwnerChangeClearSelection - -eventOwnerChangeSelection :: AttrLabelProxy "selection" -eventOwnerChangeSelection = AttrLabelProxy - - -eventOwnerChangeReadTime :: MonadIO m => EventOwnerChange -> m Word32 -eventOwnerChangeReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO Word32 - return val - -eventOwnerChangeWriteTime :: MonadIO m => EventOwnerChange -> Word32 -> m () -eventOwnerChangeWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Word32) - -data EventOwnerChangeTimeFieldInfo -instance AttrInfo EventOwnerChangeTimeFieldInfo where - type AttrAllowedOps EventOwnerChangeTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventOwnerChangeTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventOwnerChangeTimeFieldInfo = (~) EventOwnerChange - type AttrGetType EventOwnerChangeTimeFieldInfo = Word32 - type AttrLabel EventOwnerChangeTimeFieldInfo = "time" - attrGet _ = eventOwnerChangeReadTime - attrSet _ = eventOwnerChangeWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventOwnerChangeTime :: AttrLabelProxy "time" -eventOwnerChangeTime = AttrLabelProxy - - -eventOwnerChangeReadSelectionTime :: MonadIO m => EventOwnerChange -> m Word32 -eventOwnerChangeReadSelectionTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 52) :: IO Word32 - return val - -eventOwnerChangeWriteSelectionTime :: MonadIO m => EventOwnerChange -> Word32 -> m () -eventOwnerChangeWriteSelectionTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 52) (val :: Word32) - -data EventOwnerChangeSelectionTimeFieldInfo -instance AttrInfo EventOwnerChangeSelectionTimeFieldInfo where - type AttrAllowedOps EventOwnerChangeSelectionTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventOwnerChangeSelectionTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventOwnerChangeSelectionTimeFieldInfo = (~) EventOwnerChange - type AttrGetType EventOwnerChangeSelectionTimeFieldInfo = Word32 - type AttrLabel EventOwnerChangeSelectionTimeFieldInfo = "selection_time" - attrGet _ = eventOwnerChangeReadSelectionTime - attrSet _ = eventOwnerChangeWriteSelectionTime - attrConstruct = undefined - attrClear _ = undefined - -eventOwnerChangeSelectionTime :: AttrLabelProxy "selectionTime" -eventOwnerChangeSelectionTime = AttrLabelProxy - - - -type instance AttributeList EventOwnerChange = EventOwnerChangeAttributeList -type EventOwnerChangeAttributeList = ('[ '("type", EventOwnerChangeTypeFieldInfo), '("window", EventOwnerChangeWindowFieldInfo), '("sendEvent", EventOwnerChangeSendEventFieldInfo), '("owner", EventOwnerChangeOwnerFieldInfo), '("reason", EventOwnerChangeReasonFieldInfo), '("selection", EventOwnerChangeSelectionFieldInfo), '("time", EventOwnerChangeTimeFieldInfo), '("selectionTime", EventOwnerChangeSelectionTimeFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventOwnerChangeMethod (t :: Symbol) (o :: *) :: * where - ResolveEventOwnerChangeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventOwnerChangeMethod t EventOwnerChange, MethodInfo info EventOwnerChange p) => IsLabelProxy t (EventOwnerChange -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventOwnerChangeMethod t EventOwnerChange, MethodInfo info EventOwnerChange p) => IsLabel t (EventOwnerChange -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventOwnerChange.hs-boot b/GI/Gdk/Structs/EventOwnerChange.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventOwnerChange.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventOwnerChange where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventOwnerChange = EventOwnerChange (ForeignPtr EventOwnerChange) -instance WrappedPtr EventOwnerChange where diff --git a/GI/Gdk/Structs/EventProperty.hs b/GI/Gdk/Structs/EventProperty.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventProperty.hs +++ /dev/null @@ -1,276 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Describes a property change on a window. --} - -module GI.Gdk.Structs.EventProperty - ( - --- * Exported types - EventProperty(..) , - newZeroEventProperty , - noEventProperty , - - - -- * Properties --- ** Atom - eventPropertyAtom , - eventPropertyClearAtom , - eventPropertyReadAtom , - eventPropertyWriteAtom , - - --- ** SendEvent - eventPropertyReadSendEvent , - eventPropertySendEvent , - eventPropertyWriteSendEvent , - - --- ** State - eventPropertyReadState , - eventPropertyState , - eventPropertyWriteState , - - --- ** Time - eventPropertyReadTime , - eventPropertyTime , - eventPropertyWriteTime , - - --- ** Type - eventPropertyReadType , - eventPropertyType , - eventPropertyWriteType , - - --- ** Window - eventPropertyClearWindow , - eventPropertyReadWindow , - eventPropertyWindow , - eventPropertyWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventProperty = EventProperty (ForeignPtr EventProperty) -instance WrappedPtr EventProperty where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventProperty` struct initialized to zero. -newZeroEventProperty :: MonadIO m => m EventProperty -newZeroEventProperty = liftIO $ wrappedPtrCalloc >>= wrapPtr EventProperty - -instance tag ~ 'AttrSet => Constructible EventProperty tag where - new _ attrs = do - o <- newZeroEventProperty - GI.Attributes.set o attrs - return o - - -noEventProperty :: Maybe EventProperty -noEventProperty = Nothing - -eventPropertyReadType :: MonadIO m => EventProperty -> m EventType -eventPropertyReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventPropertyWriteType :: MonadIO m => EventProperty -> EventType -> m () -eventPropertyWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventPropertyTypeFieldInfo -instance AttrInfo EventPropertyTypeFieldInfo where - type AttrAllowedOps EventPropertyTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventPropertyTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventPropertyTypeFieldInfo = (~) EventProperty - type AttrGetType EventPropertyTypeFieldInfo = EventType - type AttrLabel EventPropertyTypeFieldInfo = "type" - attrGet _ = eventPropertyReadType - attrSet _ = eventPropertyWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventPropertyType :: AttrLabelProxy "type" -eventPropertyType = AttrLabelProxy - - -eventPropertyReadWindow :: MonadIO m => EventProperty -> m (Maybe Window) -eventPropertyReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventPropertyWriteWindow :: MonadIO m => EventProperty -> Ptr Window -> m () -eventPropertyWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventPropertyClearWindow :: MonadIO m => EventProperty -> m () -eventPropertyClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventPropertyWindowFieldInfo -instance AttrInfo EventPropertyWindowFieldInfo where - type AttrAllowedOps EventPropertyWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventPropertyWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventPropertyWindowFieldInfo = (~) EventProperty - type AttrGetType EventPropertyWindowFieldInfo = Maybe Window - type AttrLabel EventPropertyWindowFieldInfo = "window" - attrGet _ = eventPropertyReadWindow - attrSet _ = eventPropertyWriteWindow - attrConstruct = undefined - attrClear _ = eventPropertyClearWindow - -eventPropertyWindow :: AttrLabelProxy "window" -eventPropertyWindow = AttrLabelProxy - - -eventPropertyReadSendEvent :: MonadIO m => EventProperty -> m Int8 -eventPropertyReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventPropertyWriteSendEvent :: MonadIO m => EventProperty -> Int8 -> m () -eventPropertyWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventPropertySendEventFieldInfo -instance AttrInfo EventPropertySendEventFieldInfo where - type AttrAllowedOps EventPropertySendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventPropertySendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventPropertySendEventFieldInfo = (~) EventProperty - type AttrGetType EventPropertySendEventFieldInfo = Int8 - type AttrLabel EventPropertySendEventFieldInfo = "send_event" - attrGet _ = eventPropertyReadSendEvent - attrSet _ = eventPropertyWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventPropertySendEvent :: AttrLabelProxy "sendEvent" -eventPropertySendEvent = AttrLabelProxy - - -eventPropertyReadAtom :: MonadIO m => EventProperty -> m (Maybe Atom) -eventPropertyReadAtom s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Atom) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Atom) val' - return val'' - return result - -eventPropertyWriteAtom :: MonadIO m => EventProperty -> Ptr Atom -> m () -eventPropertyWriteAtom s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Atom) - -eventPropertyClearAtom :: MonadIO m => EventProperty -> m () -eventPropertyClearAtom s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Atom) - -data EventPropertyAtomFieldInfo -instance AttrInfo EventPropertyAtomFieldInfo where - type AttrAllowedOps EventPropertyAtomFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventPropertyAtomFieldInfo = (~) (Ptr Atom) - type AttrBaseTypeConstraint EventPropertyAtomFieldInfo = (~) EventProperty - type AttrGetType EventPropertyAtomFieldInfo = Maybe Atom - type AttrLabel EventPropertyAtomFieldInfo = "atom" - attrGet _ = eventPropertyReadAtom - attrSet _ = eventPropertyWriteAtom - attrConstruct = undefined - attrClear _ = eventPropertyClearAtom - -eventPropertyAtom :: AttrLabelProxy "atom" -eventPropertyAtom = AttrLabelProxy - - -eventPropertyReadTime :: MonadIO m => EventProperty -> m Word32 -eventPropertyReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -eventPropertyWriteTime :: MonadIO m => EventProperty -> Word32 -> m () -eventPropertyWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Word32) - -data EventPropertyTimeFieldInfo -instance AttrInfo EventPropertyTimeFieldInfo where - type AttrAllowedOps EventPropertyTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventPropertyTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventPropertyTimeFieldInfo = (~) EventProperty - type AttrGetType EventPropertyTimeFieldInfo = Word32 - type AttrLabel EventPropertyTimeFieldInfo = "time" - attrGet _ = eventPropertyReadTime - attrSet _ = eventPropertyWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventPropertyTime :: AttrLabelProxy "time" -eventPropertyTime = AttrLabelProxy - - -eventPropertyReadState :: MonadIO m => EventProperty -> m PropertyState -eventPropertyReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 36) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventPropertyWriteState :: MonadIO m => EventProperty -> PropertyState -> m () -eventPropertyWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 36) (val' :: CUInt) - -data EventPropertyStateFieldInfo -instance AttrInfo EventPropertyStateFieldInfo where - type AttrAllowedOps EventPropertyStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventPropertyStateFieldInfo = (~) PropertyState - type AttrBaseTypeConstraint EventPropertyStateFieldInfo = (~) EventProperty - type AttrGetType EventPropertyStateFieldInfo = PropertyState - type AttrLabel EventPropertyStateFieldInfo = "state" - attrGet _ = eventPropertyReadState - attrSet _ = eventPropertyWriteState - attrConstruct = undefined - attrClear _ = undefined - -eventPropertyState :: AttrLabelProxy "state" -eventPropertyState = AttrLabelProxy - - - -type instance AttributeList EventProperty = EventPropertyAttributeList -type EventPropertyAttributeList = ('[ '("type", EventPropertyTypeFieldInfo), '("window", EventPropertyWindowFieldInfo), '("sendEvent", EventPropertySendEventFieldInfo), '("atom", EventPropertyAtomFieldInfo), '("time", EventPropertyTimeFieldInfo), '("state", EventPropertyStateFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventPropertyMethod (t :: Symbol) (o :: *) :: * where - ResolveEventPropertyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventPropertyMethod t EventProperty, MethodInfo info EventProperty p) => IsLabelProxy t (EventProperty -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventPropertyMethod t EventProperty, MethodInfo info EventProperty p) => IsLabel t (EventProperty -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventProperty.hs-boot b/GI/Gdk/Structs/EventProperty.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventProperty.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventProperty where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventProperty = EventProperty (ForeignPtr EventProperty) -instance WrappedPtr EventProperty where diff --git a/GI/Gdk/Structs/EventProximity.hs b/GI/Gdk/Structs/EventProximity.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventProximity.hs +++ /dev/null @@ -1,251 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Proximity events are generated when using GDK’s wrapper for the -XInput extension. The XInput extension is an add-on for standard X -that allows you to use nonstandard devices such as graphics tablets. -A proximity event indicates that the stylus has moved in or out of -contact with the tablet, or perhaps that the user’s finger has moved -in or out of contact with a touch screen. - -This event type will be used pretty rarely. It only is important for -XInput aware programs that are drawing their own cursor. --} - -module GI.Gdk.Structs.EventProximity - ( - --- * Exported types - EventProximity(..) , - newZeroEventProximity , - noEventProximity , - - - -- * Properties --- ** Device - eventProximityClearDevice , - eventProximityDevice , - eventProximityReadDevice , - eventProximityWriteDevice , - - --- ** SendEvent - eventProximityReadSendEvent , - eventProximitySendEvent , - eventProximityWriteSendEvent , - - --- ** Time - eventProximityReadTime , - eventProximityTime , - eventProximityWriteTime , - - --- ** Type - eventProximityReadType , - eventProximityType , - eventProximityWriteType , - - --- ** Window - eventProximityClearWindow , - eventProximityReadWindow , - eventProximityWindow , - eventProximityWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventProximity = EventProximity (ForeignPtr EventProximity) -instance WrappedPtr EventProximity where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventProximity` struct initialized to zero. -newZeroEventProximity :: MonadIO m => m EventProximity -newZeroEventProximity = liftIO $ wrappedPtrCalloc >>= wrapPtr EventProximity - -instance tag ~ 'AttrSet => Constructible EventProximity tag where - new _ attrs = do - o <- newZeroEventProximity - GI.Attributes.set o attrs - return o - - -noEventProximity :: Maybe EventProximity -noEventProximity = Nothing - -eventProximityReadType :: MonadIO m => EventProximity -> m EventType -eventProximityReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventProximityWriteType :: MonadIO m => EventProximity -> EventType -> m () -eventProximityWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventProximityTypeFieldInfo -instance AttrInfo EventProximityTypeFieldInfo where - type AttrAllowedOps EventProximityTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventProximityTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventProximityTypeFieldInfo = (~) EventProximity - type AttrGetType EventProximityTypeFieldInfo = EventType - type AttrLabel EventProximityTypeFieldInfo = "type" - attrGet _ = eventProximityReadType - attrSet _ = eventProximityWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventProximityType :: AttrLabelProxy "type" -eventProximityType = AttrLabelProxy - - -eventProximityReadWindow :: MonadIO m => EventProximity -> m (Maybe Window) -eventProximityReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventProximityWriteWindow :: MonadIO m => EventProximity -> Ptr Window -> m () -eventProximityWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventProximityClearWindow :: MonadIO m => EventProximity -> m () -eventProximityClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventProximityWindowFieldInfo -instance AttrInfo EventProximityWindowFieldInfo where - type AttrAllowedOps EventProximityWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventProximityWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventProximityWindowFieldInfo = (~) EventProximity - type AttrGetType EventProximityWindowFieldInfo = Maybe Window - type AttrLabel EventProximityWindowFieldInfo = "window" - attrGet _ = eventProximityReadWindow - attrSet _ = eventProximityWriteWindow - attrConstruct = undefined - attrClear _ = eventProximityClearWindow - -eventProximityWindow :: AttrLabelProxy "window" -eventProximityWindow = AttrLabelProxy - - -eventProximityReadSendEvent :: MonadIO m => EventProximity -> m Int8 -eventProximityReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventProximityWriteSendEvent :: MonadIO m => EventProximity -> Int8 -> m () -eventProximityWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventProximitySendEventFieldInfo -instance AttrInfo EventProximitySendEventFieldInfo where - type AttrAllowedOps EventProximitySendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventProximitySendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventProximitySendEventFieldInfo = (~) EventProximity - type AttrGetType EventProximitySendEventFieldInfo = Int8 - type AttrLabel EventProximitySendEventFieldInfo = "send_event" - attrGet _ = eventProximityReadSendEvent - attrSet _ = eventProximityWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventProximitySendEvent :: AttrLabelProxy "sendEvent" -eventProximitySendEvent = AttrLabelProxy - - -eventProximityReadTime :: MonadIO m => EventProximity -> m Word32 -eventProximityReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -eventProximityWriteTime :: MonadIO m => EventProximity -> Word32 -> m () -eventProximityWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data EventProximityTimeFieldInfo -instance AttrInfo EventProximityTimeFieldInfo where - type AttrAllowedOps EventProximityTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventProximityTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventProximityTimeFieldInfo = (~) EventProximity - type AttrGetType EventProximityTimeFieldInfo = Word32 - type AttrLabel EventProximityTimeFieldInfo = "time" - attrGet _ = eventProximityReadTime - attrSet _ = eventProximityWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventProximityTime :: AttrLabelProxy "time" -eventProximityTime = AttrLabelProxy - - -eventProximityReadDevice :: MonadIO m => EventProximity -> m (Maybe Device) -eventProximityReadDevice s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Device) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Device) val' - return val'' - return result - -eventProximityWriteDevice :: MonadIO m => EventProximity -> Ptr Device -> m () -eventProximityWriteDevice s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Device) - -eventProximityClearDevice :: MonadIO m => EventProximity -> m () -eventProximityClearDevice s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Device) - -data EventProximityDeviceFieldInfo -instance AttrInfo EventProximityDeviceFieldInfo where - type AttrAllowedOps EventProximityDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventProximityDeviceFieldInfo = (~) (Ptr Device) - type AttrBaseTypeConstraint EventProximityDeviceFieldInfo = (~) EventProximity - type AttrGetType EventProximityDeviceFieldInfo = Maybe Device - type AttrLabel EventProximityDeviceFieldInfo = "device" - attrGet _ = eventProximityReadDevice - attrSet _ = eventProximityWriteDevice - attrConstruct = undefined - attrClear _ = eventProximityClearDevice - -eventProximityDevice :: AttrLabelProxy "device" -eventProximityDevice = AttrLabelProxy - - - -type instance AttributeList EventProximity = EventProximityAttributeList -type EventProximityAttributeList = ('[ '("type", EventProximityTypeFieldInfo), '("window", EventProximityWindowFieldInfo), '("sendEvent", EventProximitySendEventFieldInfo), '("time", EventProximityTimeFieldInfo), '("device", EventProximityDeviceFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventProximityMethod (t :: Symbol) (o :: *) :: * where - ResolveEventProximityMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventProximityMethod t EventProximity, MethodInfo info EventProximity p) => IsLabelProxy t (EventProximity -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventProximityMethod t EventProximity, MethodInfo info EventProximity p) => IsLabel t (EventProximity -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventProximity.hs-boot b/GI/Gdk/Structs/EventProximity.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventProximity.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventProximity where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventProximity = EventProximity (ForeignPtr EventProximity) -instance WrappedPtr EventProximity where diff --git a/GI/Gdk/Structs/EventScroll.hs b/GI/Gdk/Structs/EventScroll.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventScroll.hs +++ /dev/null @@ -1,514 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated from button presses for the buttons 4 to 7. Wheel mice are -usually configured to generate button press events for buttons 4 and 5 -when the wheel is turned. - -Some GDK backends can also generate “smooth” scroll events, which -can be recognized by the %GDK_SCROLL_SMOOTH scroll direction. For -these, the scroll deltas can be obtained with -gdk_event_get_scroll_deltas(). --} - -module GI.Gdk.Structs.EventScroll - ( - --- * Exported types - EventScroll(..) , - newZeroEventScroll , - noEventScroll , - - - -- * Properties --- ** DeltaX - eventScrollDeltaX , - eventScrollReadDeltaX , - eventScrollWriteDeltaX , - - --- ** DeltaY - eventScrollDeltaY , - eventScrollReadDeltaY , - eventScrollWriteDeltaY , - - --- ** Device - eventScrollClearDevice , - eventScrollDevice , - eventScrollReadDevice , - eventScrollWriteDevice , - - --- ** Direction - eventScrollDirection , - eventScrollReadDirection , - eventScrollWriteDirection , - - --- ** SendEvent - eventScrollReadSendEvent , - eventScrollSendEvent , - eventScrollWriteSendEvent , - - --- ** State - eventScrollReadState , - eventScrollState , - eventScrollWriteState , - - --- ** Time - eventScrollReadTime , - eventScrollTime , - eventScrollWriteTime , - - --- ** Type - eventScrollReadType , - eventScrollType , - eventScrollWriteType , - - --- ** Window - eventScrollClearWindow , - eventScrollReadWindow , - eventScrollWindow , - eventScrollWriteWindow , - - --- ** X - eventScrollReadX , - eventScrollWriteX , - eventScrollX , - - --- ** XRoot - eventScrollReadXRoot , - eventScrollWriteXRoot , - eventScrollXRoot , - - --- ** Y - eventScrollReadY , - eventScrollWriteY , - eventScrollY , - - --- ** YRoot - eventScrollReadYRoot , - eventScrollWriteYRoot , - eventScrollYRoot , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventScroll = EventScroll (ForeignPtr EventScroll) -instance WrappedPtr EventScroll where - wrappedPtrCalloc = callocBytes 88 - wrappedPtrCopy = copyPtr 88 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventScroll` struct initialized to zero. -newZeroEventScroll :: MonadIO m => m EventScroll -newZeroEventScroll = liftIO $ wrappedPtrCalloc >>= wrapPtr EventScroll - -instance tag ~ 'AttrSet => Constructible EventScroll tag where - new _ attrs = do - o <- newZeroEventScroll - GI.Attributes.set o attrs - return o - - -noEventScroll :: Maybe EventScroll -noEventScroll = Nothing - -eventScrollReadType :: MonadIO m => EventScroll -> m EventType -eventScrollReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventScrollWriteType :: MonadIO m => EventScroll -> EventType -> m () -eventScrollWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventScrollTypeFieldInfo -instance AttrInfo EventScrollTypeFieldInfo where - type AttrAllowedOps EventScrollTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventScrollTypeFieldInfo = (~) EventScroll - type AttrGetType EventScrollTypeFieldInfo = EventType - type AttrLabel EventScrollTypeFieldInfo = "type" - attrGet _ = eventScrollReadType - attrSet _ = eventScrollWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventScrollType :: AttrLabelProxy "type" -eventScrollType = AttrLabelProxy - - -eventScrollReadWindow :: MonadIO m => EventScroll -> m (Maybe Window) -eventScrollReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventScrollWriteWindow :: MonadIO m => EventScroll -> Ptr Window -> m () -eventScrollWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventScrollClearWindow :: MonadIO m => EventScroll -> m () -eventScrollClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventScrollWindowFieldInfo -instance AttrInfo EventScrollWindowFieldInfo where - type AttrAllowedOps EventScrollWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventScrollWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventScrollWindowFieldInfo = (~) EventScroll - type AttrGetType EventScrollWindowFieldInfo = Maybe Window - type AttrLabel EventScrollWindowFieldInfo = "window" - attrGet _ = eventScrollReadWindow - attrSet _ = eventScrollWriteWindow - attrConstruct = undefined - attrClear _ = eventScrollClearWindow - -eventScrollWindow :: AttrLabelProxy "window" -eventScrollWindow = AttrLabelProxy - - -eventScrollReadSendEvent :: MonadIO m => EventScroll -> m Int8 -eventScrollReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventScrollWriteSendEvent :: MonadIO m => EventScroll -> Int8 -> m () -eventScrollWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventScrollSendEventFieldInfo -instance AttrInfo EventScrollSendEventFieldInfo where - type AttrAllowedOps EventScrollSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventScrollSendEventFieldInfo = (~) EventScroll - type AttrGetType EventScrollSendEventFieldInfo = Int8 - type AttrLabel EventScrollSendEventFieldInfo = "send_event" - attrGet _ = eventScrollReadSendEvent - attrSet _ = eventScrollWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventScrollSendEvent :: AttrLabelProxy "sendEvent" -eventScrollSendEvent = AttrLabelProxy - - -eventScrollReadTime :: MonadIO m => EventScroll -> m Word32 -eventScrollReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -eventScrollWriteTime :: MonadIO m => EventScroll -> Word32 -> m () -eventScrollWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data EventScrollTimeFieldInfo -instance AttrInfo EventScrollTimeFieldInfo where - type AttrAllowedOps EventScrollTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventScrollTimeFieldInfo = (~) EventScroll - type AttrGetType EventScrollTimeFieldInfo = Word32 - type AttrLabel EventScrollTimeFieldInfo = "time" - attrGet _ = eventScrollReadTime - attrSet _ = eventScrollWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventScrollTime :: AttrLabelProxy "time" -eventScrollTime = AttrLabelProxy - - -eventScrollReadX :: MonadIO m => EventScroll -> m Double -eventScrollReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CDouble - let val' = realToFrac val - return val' - -eventScrollWriteX :: MonadIO m => EventScroll -> Double -> m () -eventScrollWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 24) (val' :: CDouble) - -data EventScrollXFieldInfo -instance AttrInfo EventScrollXFieldInfo where - type AttrAllowedOps EventScrollXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollXFieldInfo = (~) Double - type AttrBaseTypeConstraint EventScrollXFieldInfo = (~) EventScroll - type AttrGetType EventScrollXFieldInfo = Double - type AttrLabel EventScrollXFieldInfo = "x" - attrGet _ = eventScrollReadX - attrSet _ = eventScrollWriteX - attrConstruct = undefined - attrClear _ = undefined - -eventScrollX :: AttrLabelProxy "x" -eventScrollX = AttrLabelProxy - - -eventScrollReadY :: MonadIO m => EventScroll -> m Double -eventScrollReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -eventScrollWriteY :: MonadIO m => EventScroll -> Double -> m () -eventScrollWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 32) (val' :: CDouble) - -data EventScrollYFieldInfo -instance AttrInfo EventScrollYFieldInfo where - type AttrAllowedOps EventScrollYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollYFieldInfo = (~) Double - type AttrBaseTypeConstraint EventScrollYFieldInfo = (~) EventScroll - type AttrGetType EventScrollYFieldInfo = Double - type AttrLabel EventScrollYFieldInfo = "y" - attrGet _ = eventScrollReadY - attrSet _ = eventScrollWriteY - attrConstruct = undefined - attrClear _ = undefined - -eventScrollY :: AttrLabelProxy "y" -eventScrollY = AttrLabelProxy - - -eventScrollReadState :: MonadIO m => EventScroll -> m [ModifierType] -eventScrollReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CUInt - let val' = wordToGFlags val - return val' - -eventScrollWriteState :: MonadIO m => EventScroll -> [ModifierType] -> m () -eventScrollWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 40) (val' :: CUInt) - -data EventScrollStateFieldInfo -instance AttrInfo EventScrollStateFieldInfo where - type AttrAllowedOps EventScrollStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollStateFieldInfo = (~) [ModifierType] - type AttrBaseTypeConstraint EventScrollStateFieldInfo = (~) EventScroll - type AttrGetType EventScrollStateFieldInfo = [ModifierType] - type AttrLabel EventScrollStateFieldInfo = "state" - attrGet _ = eventScrollReadState - attrSet _ = eventScrollWriteState - attrConstruct = undefined - attrClear _ = undefined - -eventScrollState :: AttrLabelProxy "state" -eventScrollState = AttrLabelProxy - - -eventScrollReadDirection :: MonadIO m => EventScroll -> m ScrollDirection -eventScrollReadDirection s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 44) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventScrollWriteDirection :: MonadIO m => EventScroll -> ScrollDirection -> m () -eventScrollWriteDirection s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 44) (val' :: CUInt) - -data EventScrollDirectionFieldInfo -instance AttrInfo EventScrollDirectionFieldInfo where - type AttrAllowedOps EventScrollDirectionFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollDirectionFieldInfo = (~) ScrollDirection - type AttrBaseTypeConstraint EventScrollDirectionFieldInfo = (~) EventScroll - type AttrGetType EventScrollDirectionFieldInfo = ScrollDirection - type AttrLabel EventScrollDirectionFieldInfo = "direction" - attrGet _ = eventScrollReadDirection - attrSet _ = eventScrollWriteDirection - attrConstruct = undefined - attrClear _ = undefined - -eventScrollDirection :: AttrLabelProxy "direction" -eventScrollDirection = AttrLabelProxy - - -eventScrollReadDevice :: MonadIO m => EventScroll -> m (Maybe Device) -eventScrollReadDevice s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr Device) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Device) val' - return val'' - return result - -eventScrollWriteDevice :: MonadIO m => EventScroll -> Ptr Device -> m () -eventScrollWriteDevice s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Ptr Device) - -eventScrollClearDevice :: MonadIO m => EventScroll -> m () -eventScrollClearDevice s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (nullPtr :: Ptr Device) - -data EventScrollDeviceFieldInfo -instance AttrInfo EventScrollDeviceFieldInfo where - type AttrAllowedOps EventScrollDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventScrollDeviceFieldInfo = (~) (Ptr Device) - type AttrBaseTypeConstraint EventScrollDeviceFieldInfo = (~) EventScroll - type AttrGetType EventScrollDeviceFieldInfo = Maybe Device - type AttrLabel EventScrollDeviceFieldInfo = "device" - attrGet _ = eventScrollReadDevice - attrSet _ = eventScrollWriteDevice - attrConstruct = undefined - attrClear _ = eventScrollClearDevice - -eventScrollDevice :: AttrLabelProxy "device" -eventScrollDevice = AttrLabelProxy - - -eventScrollReadXRoot :: MonadIO m => EventScroll -> m Double -eventScrollReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CDouble - let val' = realToFrac val - return val' - -eventScrollWriteXRoot :: MonadIO m => EventScroll -> Double -> m () -eventScrollWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 56) (val' :: CDouble) - -data EventScrollXRootFieldInfo -instance AttrInfo EventScrollXRootFieldInfo where - type AttrAllowedOps EventScrollXRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollXRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventScrollXRootFieldInfo = (~) EventScroll - type AttrGetType EventScrollXRootFieldInfo = Double - type AttrLabel EventScrollXRootFieldInfo = "x_root" - attrGet _ = eventScrollReadXRoot - attrSet _ = eventScrollWriteXRoot - attrConstruct = undefined - attrClear _ = undefined - -eventScrollXRoot :: AttrLabelProxy "xRoot" -eventScrollXRoot = AttrLabelProxy - - -eventScrollReadYRoot :: MonadIO m => EventScroll -> m Double -eventScrollReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CDouble - let val' = realToFrac val - return val' - -eventScrollWriteYRoot :: MonadIO m => EventScroll -> Double -> m () -eventScrollWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 64) (val' :: CDouble) - -data EventScrollYRootFieldInfo -instance AttrInfo EventScrollYRootFieldInfo where - type AttrAllowedOps EventScrollYRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollYRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventScrollYRootFieldInfo = (~) EventScroll - type AttrGetType EventScrollYRootFieldInfo = Double - type AttrLabel EventScrollYRootFieldInfo = "y_root" - attrGet _ = eventScrollReadYRoot - attrSet _ = eventScrollWriteYRoot - attrConstruct = undefined - attrClear _ = undefined - -eventScrollYRoot :: AttrLabelProxy "yRoot" -eventScrollYRoot = AttrLabelProxy - - -eventScrollReadDeltaX :: MonadIO m => EventScroll -> m Double -eventScrollReadDeltaX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CDouble - let val' = realToFrac val - return val' - -eventScrollWriteDeltaX :: MonadIO m => EventScroll -> Double -> m () -eventScrollWriteDeltaX s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 72) (val' :: CDouble) - -data EventScrollDeltaXFieldInfo -instance AttrInfo EventScrollDeltaXFieldInfo where - type AttrAllowedOps EventScrollDeltaXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollDeltaXFieldInfo = (~) Double - type AttrBaseTypeConstraint EventScrollDeltaXFieldInfo = (~) EventScroll - type AttrGetType EventScrollDeltaXFieldInfo = Double - type AttrLabel EventScrollDeltaXFieldInfo = "delta_x" - attrGet _ = eventScrollReadDeltaX - attrSet _ = eventScrollWriteDeltaX - attrConstruct = undefined - attrClear _ = undefined - -eventScrollDeltaX :: AttrLabelProxy "deltaX" -eventScrollDeltaX = AttrLabelProxy - - -eventScrollReadDeltaY :: MonadIO m => EventScroll -> m Double -eventScrollReadDeltaY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO CDouble - let val' = realToFrac val - return val' - -eventScrollWriteDeltaY :: MonadIO m => EventScroll -> Double -> m () -eventScrollWriteDeltaY s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 80) (val' :: CDouble) - -data EventScrollDeltaYFieldInfo -instance AttrInfo EventScrollDeltaYFieldInfo where - type AttrAllowedOps EventScrollDeltaYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventScrollDeltaYFieldInfo = (~) Double - type AttrBaseTypeConstraint EventScrollDeltaYFieldInfo = (~) EventScroll - type AttrGetType EventScrollDeltaYFieldInfo = Double - type AttrLabel EventScrollDeltaYFieldInfo = "delta_y" - attrGet _ = eventScrollReadDeltaY - attrSet _ = eventScrollWriteDeltaY - attrConstruct = undefined - attrClear _ = undefined - -eventScrollDeltaY :: AttrLabelProxy "deltaY" -eventScrollDeltaY = AttrLabelProxy - - - -type instance AttributeList EventScroll = EventScrollAttributeList -type EventScrollAttributeList = ('[ '("type", EventScrollTypeFieldInfo), '("window", EventScrollWindowFieldInfo), '("sendEvent", EventScrollSendEventFieldInfo), '("time", EventScrollTimeFieldInfo), '("x", EventScrollXFieldInfo), '("y", EventScrollYFieldInfo), '("state", EventScrollStateFieldInfo), '("direction", EventScrollDirectionFieldInfo), '("device", EventScrollDeviceFieldInfo), '("xRoot", EventScrollXRootFieldInfo), '("yRoot", EventScrollYRootFieldInfo), '("deltaX", EventScrollDeltaXFieldInfo), '("deltaY", EventScrollDeltaYFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventScrollMethod (t :: Symbol) (o :: *) :: * where - ResolveEventScrollMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventScrollMethod t EventScroll, MethodInfo info EventScroll p) => IsLabelProxy t (EventScroll -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventScrollMethod t EventScroll, MethodInfo info EventScroll p) => IsLabel t (EventScroll -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventScroll.hs-boot b/GI/Gdk/Structs/EventScroll.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventScroll.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventScroll where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventScroll = EventScroll (ForeignPtr EventScroll) -instance WrappedPtr EventScroll where diff --git a/GI/Gdk/Structs/EventSelection.hs b/GI/Gdk/Structs/EventSelection.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventSelection.hs +++ /dev/null @@ -1,361 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated when a selection is requested or ownership of a selection -is taken over by another client application. --} - -module GI.Gdk.Structs.EventSelection - ( - --- * Exported types - EventSelection(..) , - newZeroEventSelection , - noEventSelection , - - - -- * Properties --- ** Property - eventSelectionClearProperty , - eventSelectionProperty , - eventSelectionReadProperty , - eventSelectionWriteProperty , - - --- ** Requestor - eventSelectionClearRequestor , - eventSelectionReadRequestor , - eventSelectionRequestor , - eventSelectionWriteRequestor , - - --- ** Selection - eventSelectionClearSelection , - eventSelectionReadSelection , - eventSelectionSelection , - eventSelectionWriteSelection , - - --- ** SendEvent - eventSelectionReadSendEvent , - eventSelectionSendEvent , - eventSelectionWriteSendEvent , - - --- ** Target - eventSelectionClearTarget , - eventSelectionReadTarget , - eventSelectionTarget , - eventSelectionWriteTarget , - - --- ** Time - eventSelectionReadTime , - eventSelectionTime , - eventSelectionWriteTime , - - --- ** Type - eventSelectionReadType , - eventSelectionType , - eventSelectionWriteType , - - --- ** Window - eventSelectionClearWindow , - eventSelectionReadWindow , - eventSelectionWindow , - eventSelectionWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventSelection = EventSelection (ForeignPtr EventSelection) -instance WrappedPtr EventSelection where - wrappedPtrCalloc = callocBytes 64 - wrappedPtrCopy = copyPtr 64 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventSelection` struct initialized to zero. -newZeroEventSelection :: MonadIO m => m EventSelection -newZeroEventSelection = liftIO $ wrappedPtrCalloc >>= wrapPtr EventSelection - -instance tag ~ 'AttrSet => Constructible EventSelection tag where - new _ attrs = do - o <- newZeroEventSelection - GI.Attributes.set o attrs - return o - - -noEventSelection :: Maybe EventSelection -noEventSelection = Nothing - -eventSelectionReadType :: MonadIO m => EventSelection -> m EventType -eventSelectionReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventSelectionWriteType :: MonadIO m => EventSelection -> EventType -> m () -eventSelectionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventSelectionTypeFieldInfo -instance AttrInfo EventSelectionTypeFieldInfo where - type AttrAllowedOps EventSelectionTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventSelectionTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventSelectionTypeFieldInfo = (~) EventSelection - type AttrGetType EventSelectionTypeFieldInfo = EventType - type AttrLabel EventSelectionTypeFieldInfo = "type" - attrGet _ = eventSelectionReadType - attrSet _ = eventSelectionWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventSelectionType :: AttrLabelProxy "type" -eventSelectionType = AttrLabelProxy - - -eventSelectionReadWindow :: MonadIO m => EventSelection -> m (Maybe Window) -eventSelectionReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventSelectionWriteWindow :: MonadIO m => EventSelection -> Ptr Window -> m () -eventSelectionWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventSelectionClearWindow :: MonadIO m => EventSelection -> m () -eventSelectionClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventSelectionWindowFieldInfo -instance AttrInfo EventSelectionWindowFieldInfo where - type AttrAllowedOps EventSelectionWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventSelectionWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventSelectionWindowFieldInfo = (~) EventSelection - type AttrGetType EventSelectionWindowFieldInfo = Maybe Window - type AttrLabel EventSelectionWindowFieldInfo = "window" - attrGet _ = eventSelectionReadWindow - attrSet _ = eventSelectionWriteWindow - attrConstruct = undefined - attrClear _ = eventSelectionClearWindow - -eventSelectionWindow :: AttrLabelProxy "window" -eventSelectionWindow = AttrLabelProxy - - -eventSelectionReadSendEvent :: MonadIO m => EventSelection -> m Int8 -eventSelectionReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventSelectionWriteSendEvent :: MonadIO m => EventSelection -> Int8 -> m () -eventSelectionWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventSelectionSendEventFieldInfo -instance AttrInfo EventSelectionSendEventFieldInfo where - type AttrAllowedOps EventSelectionSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventSelectionSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventSelectionSendEventFieldInfo = (~) EventSelection - type AttrGetType EventSelectionSendEventFieldInfo = Int8 - type AttrLabel EventSelectionSendEventFieldInfo = "send_event" - attrGet _ = eventSelectionReadSendEvent - attrSet _ = eventSelectionWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventSelectionSendEvent :: AttrLabelProxy "sendEvent" -eventSelectionSendEvent = AttrLabelProxy - - -eventSelectionReadSelection :: MonadIO m => EventSelection -> m (Maybe Atom) -eventSelectionReadSelection s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Atom) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Atom) val' - return val'' - return result - -eventSelectionWriteSelection :: MonadIO m => EventSelection -> Ptr Atom -> m () -eventSelectionWriteSelection s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Atom) - -eventSelectionClearSelection :: MonadIO m => EventSelection -> m () -eventSelectionClearSelection s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Atom) - -data EventSelectionSelectionFieldInfo -instance AttrInfo EventSelectionSelectionFieldInfo where - type AttrAllowedOps EventSelectionSelectionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventSelectionSelectionFieldInfo = (~) (Ptr Atom) - type AttrBaseTypeConstraint EventSelectionSelectionFieldInfo = (~) EventSelection - type AttrGetType EventSelectionSelectionFieldInfo = Maybe Atom - type AttrLabel EventSelectionSelectionFieldInfo = "selection" - attrGet _ = eventSelectionReadSelection - attrSet _ = eventSelectionWriteSelection - attrConstruct = undefined - attrClear _ = eventSelectionClearSelection - -eventSelectionSelection :: AttrLabelProxy "selection" -eventSelectionSelection = AttrLabelProxy - - -eventSelectionReadTarget :: MonadIO m => EventSelection -> m (Maybe Atom) -eventSelectionReadTarget s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr Atom) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Atom) val' - return val'' - return result - -eventSelectionWriteTarget :: MonadIO m => EventSelection -> Ptr Atom -> m () -eventSelectionWriteTarget s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr Atom) - -eventSelectionClearTarget :: MonadIO m => EventSelection -> m () -eventSelectionClearTarget s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr Atom) - -data EventSelectionTargetFieldInfo -instance AttrInfo EventSelectionTargetFieldInfo where - type AttrAllowedOps EventSelectionTargetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventSelectionTargetFieldInfo = (~) (Ptr Atom) - type AttrBaseTypeConstraint EventSelectionTargetFieldInfo = (~) EventSelection - type AttrGetType EventSelectionTargetFieldInfo = Maybe Atom - type AttrLabel EventSelectionTargetFieldInfo = "target" - attrGet _ = eventSelectionReadTarget - attrSet _ = eventSelectionWriteTarget - attrConstruct = undefined - attrClear _ = eventSelectionClearTarget - -eventSelectionTarget :: AttrLabelProxy "target" -eventSelectionTarget = AttrLabelProxy - - -eventSelectionReadProperty :: MonadIO m => EventSelection -> m (Maybe Atom) -eventSelectionReadProperty s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr Atom) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr Atom) val' - return val'' - return result - -eventSelectionWriteProperty :: MonadIO m => EventSelection -> Ptr Atom -> m () -eventSelectionWriteProperty s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Ptr Atom) - -eventSelectionClearProperty :: MonadIO m => EventSelection -> m () -eventSelectionClearProperty s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: Ptr Atom) - -data EventSelectionPropertyFieldInfo -instance AttrInfo EventSelectionPropertyFieldInfo where - type AttrAllowedOps EventSelectionPropertyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventSelectionPropertyFieldInfo = (~) (Ptr Atom) - type AttrBaseTypeConstraint EventSelectionPropertyFieldInfo = (~) EventSelection - type AttrGetType EventSelectionPropertyFieldInfo = Maybe Atom - type AttrLabel EventSelectionPropertyFieldInfo = "property" - attrGet _ = eventSelectionReadProperty - attrSet _ = eventSelectionWriteProperty - attrConstruct = undefined - attrClear _ = eventSelectionClearProperty - -eventSelectionProperty :: AttrLabelProxy "property" -eventSelectionProperty = AttrLabelProxy - - -eventSelectionReadTime :: MonadIO m => EventSelection -> m Word32 -eventSelectionReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO Word32 - return val - -eventSelectionWriteTime :: MonadIO m => EventSelection -> Word32 -> m () -eventSelectionWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Word32) - -data EventSelectionTimeFieldInfo -instance AttrInfo EventSelectionTimeFieldInfo where - type AttrAllowedOps EventSelectionTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventSelectionTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventSelectionTimeFieldInfo = (~) EventSelection - type AttrGetType EventSelectionTimeFieldInfo = Word32 - type AttrLabel EventSelectionTimeFieldInfo = "time" - attrGet _ = eventSelectionReadTime - attrSet _ = eventSelectionWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventSelectionTime :: AttrLabelProxy "time" -eventSelectionTime = AttrLabelProxy - - -eventSelectionReadRequestor :: MonadIO m => EventSelection -> m (Maybe Window) -eventSelectionReadRequestor s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventSelectionWriteRequestor :: MonadIO m => EventSelection -> Ptr Window -> m () -eventSelectionWriteRequestor s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (val :: Ptr Window) - -eventSelectionClearRequestor :: MonadIO m => EventSelection -> m () -eventSelectionClearRequestor s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (nullPtr :: Ptr Window) - -data EventSelectionRequestorFieldInfo -instance AttrInfo EventSelectionRequestorFieldInfo where - type AttrAllowedOps EventSelectionRequestorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventSelectionRequestorFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventSelectionRequestorFieldInfo = (~) EventSelection - type AttrGetType EventSelectionRequestorFieldInfo = Maybe Window - type AttrLabel EventSelectionRequestorFieldInfo = "requestor" - attrGet _ = eventSelectionReadRequestor - attrSet _ = eventSelectionWriteRequestor - attrConstruct = undefined - attrClear _ = eventSelectionClearRequestor - -eventSelectionRequestor :: AttrLabelProxy "requestor" -eventSelectionRequestor = AttrLabelProxy - - - -type instance AttributeList EventSelection = EventSelectionAttributeList -type EventSelectionAttributeList = ('[ '("type", EventSelectionTypeFieldInfo), '("window", EventSelectionWindowFieldInfo), '("sendEvent", EventSelectionSendEventFieldInfo), '("selection", EventSelectionSelectionFieldInfo), '("target", EventSelectionTargetFieldInfo), '("property", EventSelectionPropertyFieldInfo), '("time", EventSelectionTimeFieldInfo), '("requestor", EventSelectionRequestorFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventSelectionMethod (t :: Symbol) (o :: *) :: * where - ResolveEventSelectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventSelectionMethod t EventSelection, MethodInfo info EventSelection p) => IsLabelProxy t (EventSelection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventSelectionMethod t EventSelection, MethodInfo info EventSelection p) => IsLabel t (EventSelection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventSelection.hs-boot b/GI/Gdk/Structs/EventSelection.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventSelection.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventSelection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventSelection = EventSelection (ForeignPtr EventSelection) -instance WrappedPtr EventSelection where diff --git a/GI/Gdk/Structs/EventSequence.hs b/GI/Gdk/Structs/EventSequence.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventSequence.hs +++ /dev/null @@ -1,54 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Structs.EventSequence - ( - --- * Exported types - EventSequence(..) , - noEventSequence , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventSequence = EventSequence (ForeignPtr EventSequence) -foreign import ccall "gdk_event_sequence_get_type" c_gdk_event_sequence_get_type :: - IO GType - -instance BoxedObject EventSequence where - boxedType _ = c_gdk_event_sequence_get_type - -noEventSequence :: Maybe EventSequence -noEventSequence = Nothing - - -type instance AttributeList EventSequence = EventSequenceAttributeList -type EventSequenceAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveEventSequenceMethod (t :: Symbol) (o :: *) :: * where - ResolveEventSequenceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventSequenceMethod t EventSequence, MethodInfo info EventSequence p) => IsLabelProxy t (EventSequence -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventSequenceMethod t EventSequence, MethodInfo info EventSequence p) => IsLabel t (EventSequence -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventSequence.hs-boot b/GI/Gdk/Structs/EventSequence.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventSequence.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventSequence where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventSequence = EventSequence (ForeignPtr EventSequence) -instance BoxedObject EventSequence where diff --git a/GI/Gdk/Structs/EventSetting.hs b/GI/Gdk/Structs/EventSetting.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventSetting.hs +++ /dev/null @@ -1,245 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated when a setting is modified. --} - -module GI.Gdk.Structs.EventSetting - ( - --- * Exported types - EventSetting(..) , - newZeroEventSetting , - noEventSetting , - - - -- * Properties --- ** Action - eventSettingAction , - eventSettingReadAction , - eventSettingWriteAction , - - --- ** Name - eventSettingClearName , - eventSettingName , - eventSettingReadName , - eventSettingWriteName , - - --- ** SendEvent - eventSettingReadSendEvent , - eventSettingSendEvent , - eventSettingWriteSendEvent , - - --- ** Type - eventSettingReadType , - eventSettingType , - eventSettingWriteType , - - --- ** Window - eventSettingClearWindow , - eventSettingReadWindow , - eventSettingWindow , - eventSettingWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventSetting = EventSetting (ForeignPtr EventSetting) -instance WrappedPtr EventSetting where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventSetting` struct initialized to zero. -newZeroEventSetting :: MonadIO m => m EventSetting -newZeroEventSetting = liftIO $ wrappedPtrCalloc >>= wrapPtr EventSetting - -instance tag ~ 'AttrSet => Constructible EventSetting tag where - new _ attrs = do - o <- newZeroEventSetting - GI.Attributes.set o attrs - return o - - -noEventSetting :: Maybe EventSetting -noEventSetting = Nothing - -eventSettingReadType :: MonadIO m => EventSetting -> m EventType -eventSettingReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventSettingWriteType :: MonadIO m => EventSetting -> EventType -> m () -eventSettingWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventSettingTypeFieldInfo -instance AttrInfo EventSettingTypeFieldInfo where - type AttrAllowedOps EventSettingTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventSettingTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventSettingTypeFieldInfo = (~) EventSetting - type AttrGetType EventSettingTypeFieldInfo = EventType - type AttrLabel EventSettingTypeFieldInfo = "type" - attrGet _ = eventSettingReadType - attrSet _ = eventSettingWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventSettingType :: AttrLabelProxy "type" -eventSettingType = AttrLabelProxy - - -eventSettingReadWindow :: MonadIO m => EventSetting -> m (Maybe Window) -eventSettingReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventSettingWriteWindow :: MonadIO m => EventSetting -> Ptr Window -> m () -eventSettingWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventSettingClearWindow :: MonadIO m => EventSetting -> m () -eventSettingClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventSettingWindowFieldInfo -instance AttrInfo EventSettingWindowFieldInfo where - type AttrAllowedOps EventSettingWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventSettingWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventSettingWindowFieldInfo = (~) EventSetting - type AttrGetType EventSettingWindowFieldInfo = Maybe Window - type AttrLabel EventSettingWindowFieldInfo = "window" - attrGet _ = eventSettingReadWindow - attrSet _ = eventSettingWriteWindow - attrConstruct = undefined - attrClear _ = eventSettingClearWindow - -eventSettingWindow :: AttrLabelProxy "window" -eventSettingWindow = AttrLabelProxy - - -eventSettingReadSendEvent :: MonadIO m => EventSetting -> m Int8 -eventSettingReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventSettingWriteSendEvent :: MonadIO m => EventSetting -> Int8 -> m () -eventSettingWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventSettingSendEventFieldInfo -instance AttrInfo EventSettingSendEventFieldInfo where - type AttrAllowedOps EventSettingSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventSettingSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventSettingSendEventFieldInfo = (~) EventSetting - type AttrGetType EventSettingSendEventFieldInfo = Int8 - type AttrLabel EventSettingSendEventFieldInfo = "send_event" - attrGet _ = eventSettingReadSendEvent - attrSet _ = eventSettingWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventSettingSendEvent :: AttrLabelProxy "sendEvent" -eventSettingSendEvent = AttrLabelProxy - - -eventSettingReadAction :: MonadIO m => EventSetting -> m SettingAction -eventSettingReadAction s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventSettingWriteAction :: MonadIO m => EventSetting -> SettingAction -> m () -eventSettingWriteAction s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 20) (val' :: CUInt) - -data EventSettingActionFieldInfo -instance AttrInfo EventSettingActionFieldInfo where - type AttrAllowedOps EventSettingActionFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventSettingActionFieldInfo = (~) SettingAction - type AttrBaseTypeConstraint EventSettingActionFieldInfo = (~) EventSetting - type AttrGetType EventSettingActionFieldInfo = SettingAction - type AttrLabel EventSettingActionFieldInfo = "action" - attrGet _ = eventSettingReadAction - attrSet _ = eventSettingWriteAction - attrConstruct = undefined - attrClear _ = undefined - -eventSettingAction :: AttrLabelProxy "action" -eventSettingAction = AttrLabelProxy - - -eventSettingReadName :: MonadIO m => EventSetting -> m (Maybe T.Text) -eventSettingReadName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -eventSettingWriteName :: MonadIO m => EventSetting -> CString -> m () -eventSettingWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -eventSettingClearName :: MonadIO m => EventSetting -> m () -eventSettingClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data EventSettingNameFieldInfo -instance AttrInfo EventSettingNameFieldInfo where - type AttrAllowedOps EventSettingNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventSettingNameFieldInfo = (~) CString - type AttrBaseTypeConstraint EventSettingNameFieldInfo = (~) EventSetting - type AttrGetType EventSettingNameFieldInfo = Maybe T.Text - type AttrLabel EventSettingNameFieldInfo = "name" - attrGet _ = eventSettingReadName - attrSet _ = eventSettingWriteName - attrConstruct = undefined - attrClear _ = eventSettingClearName - -eventSettingName :: AttrLabelProxy "name" -eventSettingName = AttrLabelProxy - - - -type instance AttributeList EventSetting = EventSettingAttributeList -type EventSettingAttributeList = ('[ '("type", EventSettingTypeFieldInfo), '("window", EventSettingWindowFieldInfo), '("sendEvent", EventSettingSendEventFieldInfo), '("action", EventSettingActionFieldInfo), '("name", EventSettingNameFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventSettingMethod (t :: Symbol) (o :: *) :: * where - ResolveEventSettingMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventSettingMethod t EventSetting, MethodInfo info EventSetting p) => IsLabelProxy t (EventSetting -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventSettingMethod t EventSetting, MethodInfo info EventSetting p) => IsLabel t (EventSetting -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventSetting.hs-boot b/GI/Gdk/Structs/EventSetting.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventSetting.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventSetting where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventSetting = EventSetting (ForeignPtr EventSetting) -instance WrappedPtr EventSetting where diff --git a/GI/Gdk/Structs/EventTouch.hs b/GI/Gdk/Structs/EventTouch.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventTouch.hs +++ /dev/null @@ -1,522 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Used for touch events. -@type field will be one of %GDK_TOUCH_BEGIN, %GDK_TOUCH_UPDATE, -%GDK_TOUCH_END or %GDK_TOUCH_CANCEL. - -Touch events are grouped into sequences by means of the @sequence -field, which can also be obtained with gdk_event_get_event_sequence(). -Each sequence begins with a %GDK_TOUCH_BEGIN event, followed by -any number of %GDK_TOUCH_UPDATE events, and ends with a %GDK_TOUCH_END -(or %GDK_TOUCH_CANCEL) event. With multitouch devices, there may be -several active sequences at the same time. --} - -module GI.Gdk.Structs.EventTouch - ( - --- * Exported types - EventTouch(..) , - newZeroEventTouch , - noEventTouch , - - - -- * Properties --- ** Axes - eventTouchAxes , - eventTouchReadAxes , - eventTouchWriteAxes , - - --- ** Device - eventTouchClearDevice , - eventTouchDevice , - eventTouchReadDevice , - eventTouchWriteDevice , - - --- ** EmulatingPointer - eventTouchEmulatingPointer , - eventTouchReadEmulatingPointer , - eventTouchWriteEmulatingPointer , - - --- ** SendEvent - eventTouchReadSendEvent , - eventTouchSendEvent , - eventTouchWriteSendEvent , - - --- ** Sequence - eventTouchClearSequence , - eventTouchReadSequence , - eventTouchSequence , - eventTouchWriteSequence , - - --- ** State - eventTouchReadState , - eventTouchState , - eventTouchWriteState , - - --- ** Time - eventTouchReadTime , - eventTouchTime , - eventTouchWriteTime , - - --- ** Type - eventTouchReadType , - eventTouchType , - eventTouchWriteType , - - --- ** Window - eventTouchClearWindow , - eventTouchReadWindow , - eventTouchWindow , - eventTouchWriteWindow , - - --- ** X - eventTouchReadX , - eventTouchWriteX , - eventTouchX , - - --- ** XRoot - eventTouchReadXRoot , - eventTouchWriteXRoot , - eventTouchXRoot , - - --- ** Y - eventTouchReadY , - eventTouchWriteY , - eventTouchY , - - --- ** YRoot - eventTouchReadYRoot , - eventTouchWriteYRoot , - eventTouchYRoot , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventTouch = EventTouch (ForeignPtr EventTouch) -instance WrappedPtr EventTouch where - wrappedPtrCalloc = callocBytes 96 - wrappedPtrCopy = copyPtr 96 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventTouch` struct initialized to zero. -newZeroEventTouch :: MonadIO m => m EventTouch -newZeroEventTouch = liftIO $ wrappedPtrCalloc >>= wrapPtr EventTouch - -instance tag ~ 'AttrSet => Constructible EventTouch tag where - new _ attrs = do - o <- newZeroEventTouch - GI.Attributes.set o attrs - return o - - -noEventTouch :: Maybe EventTouch -noEventTouch = Nothing - -eventTouchReadType :: MonadIO m => EventTouch -> m EventType -eventTouchReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventTouchWriteType :: MonadIO m => EventTouch -> EventType -> m () -eventTouchWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventTouchTypeFieldInfo -instance AttrInfo EventTouchTypeFieldInfo where - type AttrAllowedOps EventTouchTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventTouchTypeFieldInfo = (~) EventTouch - type AttrGetType EventTouchTypeFieldInfo = EventType - type AttrLabel EventTouchTypeFieldInfo = "type" - attrGet _ = eventTouchReadType - attrSet _ = eventTouchWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventTouchType :: AttrLabelProxy "type" -eventTouchType = AttrLabelProxy - - -eventTouchReadWindow :: MonadIO m => EventTouch -> m (Maybe Window) -eventTouchReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventTouchWriteWindow :: MonadIO m => EventTouch -> Ptr Window -> m () -eventTouchWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventTouchClearWindow :: MonadIO m => EventTouch -> m () -eventTouchClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventTouchWindowFieldInfo -instance AttrInfo EventTouchWindowFieldInfo where - type AttrAllowedOps EventTouchWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventTouchWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventTouchWindowFieldInfo = (~) EventTouch - type AttrGetType EventTouchWindowFieldInfo = Maybe Window - type AttrLabel EventTouchWindowFieldInfo = "window" - attrGet _ = eventTouchReadWindow - attrSet _ = eventTouchWriteWindow - attrConstruct = undefined - attrClear _ = eventTouchClearWindow - -eventTouchWindow :: AttrLabelProxy "window" -eventTouchWindow = AttrLabelProxy - - -eventTouchReadSendEvent :: MonadIO m => EventTouch -> m Int8 -eventTouchReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventTouchWriteSendEvent :: MonadIO m => EventTouch -> Int8 -> m () -eventTouchWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventTouchSendEventFieldInfo -instance AttrInfo EventTouchSendEventFieldInfo where - type AttrAllowedOps EventTouchSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventTouchSendEventFieldInfo = (~) EventTouch - type AttrGetType EventTouchSendEventFieldInfo = Int8 - type AttrLabel EventTouchSendEventFieldInfo = "send_event" - attrGet _ = eventTouchReadSendEvent - attrSet _ = eventTouchWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventTouchSendEvent :: AttrLabelProxy "sendEvent" -eventTouchSendEvent = AttrLabelProxy - - -eventTouchReadTime :: MonadIO m => EventTouch -> m Word32 -eventTouchReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -eventTouchWriteTime :: MonadIO m => EventTouch -> Word32 -> m () -eventTouchWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data EventTouchTimeFieldInfo -instance AttrInfo EventTouchTimeFieldInfo where - type AttrAllowedOps EventTouchTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventTouchTimeFieldInfo = (~) EventTouch - type AttrGetType EventTouchTimeFieldInfo = Word32 - type AttrLabel EventTouchTimeFieldInfo = "time" - attrGet _ = eventTouchReadTime - attrSet _ = eventTouchWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventTouchTime :: AttrLabelProxy "time" -eventTouchTime = AttrLabelProxy - - -eventTouchReadX :: MonadIO m => EventTouch -> m Double -eventTouchReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchWriteX :: MonadIO m => EventTouch -> Double -> m () -eventTouchWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 24) (val' :: CDouble) - -data EventTouchXFieldInfo -instance AttrInfo EventTouchXFieldInfo where - type AttrAllowedOps EventTouchXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchXFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchXFieldInfo = (~) EventTouch - type AttrGetType EventTouchXFieldInfo = Double - type AttrLabel EventTouchXFieldInfo = "x" - attrGet _ = eventTouchReadX - attrSet _ = eventTouchWriteX - attrConstruct = undefined - attrClear _ = undefined - -eventTouchX :: AttrLabelProxy "x" -eventTouchX = AttrLabelProxy - - -eventTouchReadY :: MonadIO m => EventTouch -> m Double -eventTouchReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchWriteY :: MonadIO m => EventTouch -> Double -> m () -eventTouchWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 32) (val' :: CDouble) - -data EventTouchYFieldInfo -instance AttrInfo EventTouchYFieldInfo where - type AttrAllowedOps EventTouchYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchYFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchYFieldInfo = (~) EventTouch - type AttrGetType EventTouchYFieldInfo = Double - type AttrLabel EventTouchYFieldInfo = "y" - attrGet _ = eventTouchReadY - attrSet _ = eventTouchWriteY - attrConstruct = undefined - attrClear _ = undefined - -eventTouchY :: AttrLabelProxy "y" -eventTouchY = AttrLabelProxy - - -eventTouchReadAxes :: MonadIO m => EventTouch -> m Double -eventTouchReadAxes s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchWriteAxes :: MonadIO m => EventTouch -> Double -> m () -eventTouchWriteAxes s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 40) (val' :: CDouble) - -data EventTouchAxesFieldInfo -instance AttrInfo EventTouchAxesFieldInfo where - type AttrAllowedOps EventTouchAxesFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchAxesFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchAxesFieldInfo = (~) EventTouch - type AttrGetType EventTouchAxesFieldInfo = Double - type AttrLabel EventTouchAxesFieldInfo = "axes" - attrGet _ = eventTouchReadAxes - attrSet _ = eventTouchWriteAxes - attrConstruct = undefined - attrClear _ = undefined - -eventTouchAxes :: AttrLabelProxy "axes" -eventTouchAxes = AttrLabelProxy - - -eventTouchReadState :: MonadIO m => EventTouch -> m [ModifierType] -eventTouchReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CUInt - let val' = wordToGFlags val - return val' - -eventTouchWriteState :: MonadIO m => EventTouch -> [ModifierType] -> m () -eventTouchWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 48) (val' :: CUInt) - -data EventTouchStateFieldInfo -instance AttrInfo EventTouchStateFieldInfo where - type AttrAllowedOps EventTouchStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchStateFieldInfo = (~) [ModifierType] - type AttrBaseTypeConstraint EventTouchStateFieldInfo = (~) EventTouch - type AttrGetType EventTouchStateFieldInfo = [ModifierType] - type AttrLabel EventTouchStateFieldInfo = "state" - attrGet _ = eventTouchReadState - attrSet _ = eventTouchWriteState - attrConstruct = undefined - attrClear _ = undefined - -eventTouchState :: AttrLabelProxy "state" -eventTouchState = AttrLabelProxy - - -eventTouchReadSequence :: MonadIO m => EventTouch -> m (Maybe EventSequence) -eventTouchReadSequence s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO (Ptr EventSequence) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed EventSequence) val' - return val'' - return result - -eventTouchWriteSequence :: MonadIO m => EventTouch -> Ptr EventSequence -> m () -eventTouchWriteSequence s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (val :: Ptr EventSequence) - -eventTouchClearSequence :: MonadIO m => EventTouch -> m () -eventTouchClearSequence s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (nullPtr :: Ptr EventSequence) - -data EventTouchSequenceFieldInfo -instance AttrInfo EventTouchSequenceFieldInfo where - type AttrAllowedOps EventTouchSequenceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventTouchSequenceFieldInfo = (~) (Ptr EventSequence) - type AttrBaseTypeConstraint EventTouchSequenceFieldInfo = (~) EventTouch - type AttrGetType EventTouchSequenceFieldInfo = Maybe EventSequence - type AttrLabel EventTouchSequenceFieldInfo = "sequence" - attrGet _ = eventTouchReadSequence - attrSet _ = eventTouchWriteSequence - attrConstruct = undefined - attrClear _ = eventTouchClearSequence - -eventTouchSequence :: AttrLabelProxy "sequence" -eventTouchSequence = AttrLabelProxy - - -eventTouchReadEmulatingPointer :: MonadIO m => EventTouch -> m Bool -eventTouchReadEmulatingPointer s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CInt - let val' = (/= 0) val - return val' - -eventTouchWriteEmulatingPointer :: MonadIO m => EventTouch -> Bool -> m () -eventTouchWriteEmulatingPointer s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 64) (val' :: CInt) - -data EventTouchEmulatingPointerFieldInfo -instance AttrInfo EventTouchEmulatingPointerFieldInfo where - type AttrAllowedOps EventTouchEmulatingPointerFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchEmulatingPointerFieldInfo = (~) Bool - type AttrBaseTypeConstraint EventTouchEmulatingPointerFieldInfo = (~) EventTouch - type AttrGetType EventTouchEmulatingPointerFieldInfo = Bool - type AttrLabel EventTouchEmulatingPointerFieldInfo = "emulating_pointer" - attrGet _ = eventTouchReadEmulatingPointer - attrSet _ = eventTouchWriteEmulatingPointer - attrConstruct = undefined - attrClear _ = undefined - -eventTouchEmulatingPointer :: AttrLabelProxy "emulatingPointer" -eventTouchEmulatingPointer = AttrLabelProxy - - -eventTouchReadDevice :: MonadIO m => EventTouch -> m (Maybe Device) -eventTouchReadDevice s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO (Ptr Device) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Device) val' - return val'' - return result - -eventTouchWriteDevice :: MonadIO m => EventTouch -> Ptr Device -> m () -eventTouchWriteDevice s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 72) (val :: Ptr Device) - -eventTouchClearDevice :: MonadIO m => EventTouch -> m () -eventTouchClearDevice s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 72) (nullPtr :: Ptr Device) - -data EventTouchDeviceFieldInfo -instance AttrInfo EventTouchDeviceFieldInfo where - type AttrAllowedOps EventTouchDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventTouchDeviceFieldInfo = (~) (Ptr Device) - type AttrBaseTypeConstraint EventTouchDeviceFieldInfo = (~) EventTouch - type AttrGetType EventTouchDeviceFieldInfo = Maybe Device - type AttrLabel EventTouchDeviceFieldInfo = "device" - attrGet _ = eventTouchReadDevice - attrSet _ = eventTouchWriteDevice - attrConstruct = undefined - attrClear _ = eventTouchClearDevice - -eventTouchDevice :: AttrLabelProxy "device" -eventTouchDevice = AttrLabelProxy - - -eventTouchReadXRoot :: MonadIO m => EventTouch -> m Double -eventTouchReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchWriteXRoot :: MonadIO m => EventTouch -> Double -> m () -eventTouchWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 80) (val' :: CDouble) - -data EventTouchXRootFieldInfo -instance AttrInfo EventTouchXRootFieldInfo where - type AttrAllowedOps EventTouchXRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchXRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchXRootFieldInfo = (~) EventTouch - type AttrGetType EventTouchXRootFieldInfo = Double - type AttrLabel EventTouchXRootFieldInfo = "x_root" - attrGet _ = eventTouchReadXRoot - attrSet _ = eventTouchWriteXRoot - attrConstruct = undefined - attrClear _ = undefined - -eventTouchXRoot :: AttrLabelProxy "xRoot" -eventTouchXRoot = AttrLabelProxy - - -eventTouchReadYRoot :: MonadIO m => EventTouch -> m Double -eventTouchReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 88) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchWriteYRoot :: MonadIO m => EventTouch -> Double -> m () -eventTouchWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 88) (val' :: CDouble) - -data EventTouchYRootFieldInfo -instance AttrInfo EventTouchYRootFieldInfo where - type AttrAllowedOps EventTouchYRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchYRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchYRootFieldInfo = (~) EventTouch - type AttrGetType EventTouchYRootFieldInfo = Double - type AttrLabel EventTouchYRootFieldInfo = "y_root" - attrGet _ = eventTouchReadYRoot - attrSet _ = eventTouchWriteYRoot - attrConstruct = undefined - attrClear _ = undefined - -eventTouchYRoot :: AttrLabelProxy "yRoot" -eventTouchYRoot = AttrLabelProxy - - - -type instance AttributeList EventTouch = EventTouchAttributeList -type EventTouchAttributeList = ('[ '("type", EventTouchTypeFieldInfo), '("window", EventTouchWindowFieldInfo), '("sendEvent", EventTouchSendEventFieldInfo), '("time", EventTouchTimeFieldInfo), '("x", EventTouchXFieldInfo), '("y", EventTouchYFieldInfo), '("axes", EventTouchAxesFieldInfo), '("state", EventTouchStateFieldInfo), '("sequence", EventTouchSequenceFieldInfo), '("emulatingPointer", EventTouchEmulatingPointerFieldInfo), '("device", EventTouchDeviceFieldInfo), '("xRoot", EventTouchXRootFieldInfo), '("yRoot", EventTouchYRootFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventTouchMethod (t :: Symbol) (o :: *) :: * where - ResolveEventTouchMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventTouchMethod t EventTouch, MethodInfo info EventTouch p) => IsLabelProxy t (EventTouch -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventTouchMethod t EventTouch, MethodInfo info EventTouch p) => IsLabel t (EventTouch -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventTouch.hs-boot b/GI/Gdk/Structs/EventTouch.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventTouch.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventTouch where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventTouch = EventTouch (ForeignPtr EventTouch) -instance WrappedPtr EventTouch where diff --git a/GI/Gdk/Structs/EventTouchpadPinch.hs b/GI/Gdk/Structs/EventTouchpadPinch.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventTouchpadPinch.hs +++ /dev/null @@ -1,565 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated during touchpad swipe gestures. --} - -module GI.Gdk.Structs.EventTouchpadPinch - ( - --- * Exported types - EventTouchpadPinch(..) , - newZeroEventTouchpadPinch , - noEventTouchpadPinch , - - - -- * Properties --- ** AngleDelta - eventTouchpadPinchAngleDelta , - eventTouchpadPinchReadAngleDelta , - eventTouchpadPinchWriteAngleDelta , - - --- ** Dx - eventTouchpadPinchDx , - eventTouchpadPinchReadDx , - eventTouchpadPinchWriteDx , - - --- ** Dy - eventTouchpadPinchDy , - eventTouchpadPinchReadDy , - eventTouchpadPinchWriteDy , - - --- ** NFingers - eventTouchpadPinchNFingers , - eventTouchpadPinchReadNFingers , - eventTouchpadPinchWriteNFingers , - - --- ** Phase - eventTouchpadPinchPhase , - eventTouchpadPinchReadPhase , - eventTouchpadPinchWritePhase , - - --- ** Scale - eventTouchpadPinchReadScale , - eventTouchpadPinchScale , - eventTouchpadPinchWriteScale , - - --- ** SendEvent - eventTouchpadPinchReadSendEvent , - eventTouchpadPinchSendEvent , - eventTouchpadPinchWriteSendEvent , - - --- ** State - eventTouchpadPinchReadState , - eventTouchpadPinchState , - eventTouchpadPinchWriteState , - - --- ** Time - eventTouchpadPinchReadTime , - eventTouchpadPinchTime , - eventTouchpadPinchWriteTime , - - --- ** Type - eventTouchpadPinchReadType , - eventTouchpadPinchType , - eventTouchpadPinchWriteType , - - --- ** Window - eventTouchpadPinchClearWindow , - eventTouchpadPinchReadWindow , - eventTouchpadPinchWindow , - eventTouchpadPinchWriteWindow , - - --- ** X - eventTouchpadPinchReadX , - eventTouchpadPinchWriteX , - eventTouchpadPinchX , - - --- ** XRoot - eventTouchpadPinchReadXRoot , - eventTouchpadPinchWriteXRoot , - eventTouchpadPinchXRoot , - - --- ** Y - eventTouchpadPinchReadY , - eventTouchpadPinchWriteY , - eventTouchpadPinchY , - - --- ** YRoot - eventTouchpadPinchReadYRoot , - eventTouchpadPinchWriteYRoot , - eventTouchpadPinchYRoot , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventTouchpadPinch = EventTouchpadPinch (ForeignPtr EventTouchpadPinch) -instance WrappedPtr EventTouchpadPinch where - wrappedPtrCalloc = callocBytes 104 - wrappedPtrCopy = copyPtr 104 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventTouchpadPinch` struct initialized to zero. -newZeroEventTouchpadPinch :: MonadIO m => m EventTouchpadPinch -newZeroEventTouchpadPinch = liftIO $ wrappedPtrCalloc >>= wrapPtr EventTouchpadPinch - -instance tag ~ 'AttrSet => Constructible EventTouchpadPinch tag where - new _ attrs = do - o <- newZeroEventTouchpadPinch - GI.Attributes.set o attrs - return o - - -noEventTouchpadPinch :: Maybe EventTouchpadPinch -noEventTouchpadPinch = Nothing - -eventTouchpadPinchReadType :: MonadIO m => EventTouchpadPinch -> m EventType -eventTouchpadPinchReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventTouchpadPinchWriteType :: MonadIO m => EventTouchpadPinch -> EventType -> m () -eventTouchpadPinchWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventTouchpadPinchTypeFieldInfo -instance AttrInfo EventTouchpadPinchTypeFieldInfo where - type AttrAllowedOps EventTouchpadPinchTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventTouchpadPinchTypeFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchTypeFieldInfo = EventType - type AttrLabel EventTouchpadPinchTypeFieldInfo = "type" - attrGet _ = eventTouchpadPinchReadType - attrSet _ = eventTouchpadPinchWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchType :: AttrLabelProxy "type" -eventTouchpadPinchType = AttrLabelProxy - - -eventTouchpadPinchReadWindow :: MonadIO m => EventTouchpadPinch -> m (Maybe Window) -eventTouchpadPinchReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventTouchpadPinchWriteWindow :: MonadIO m => EventTouchpadPinch -> Ptr Window -> m () -eventTouchpadPinchWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventTouchpadPinchClearWindow :: MonadIO m => EventTouchpadPinch -> m () -eventTouchpadPinchClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventTouchpadPinchWindowFieldInfo -instance AttrInfo EventTouchpadPinchWindowFieldInfo where - type AttrAllowedOps EventTouchpadPinchWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventTouchpadPinchWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventTouchpadPinchWindowFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchWindowFieldInfo = Maybe Window - type AttrLabel EventTouchpadPinchWindowFieldInfo = "window" - attrGet _ = eventTouchpadPinchReadWindow - attrSet _ = eventTouchpadPinchWriteWindow - attrConstruct = undefined - attrClear _ = eventTouchpadPinchClearWindow - -eventTouchpadPinchWindow :: AttrLabelProxy "window" -eventTouchpadPinchWindow = AttrLabelProxy - - -eventTouchpadPinchReadSendEvent :: MonadIO m => EventTouchpadPinch -> m Int8 -eventTouchpadPinchReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventTouchpadPinchWriteSendEvent :: MonadIO m => EventTouchpadPinch -> Int8 -> m () -eventTouchpadPinchWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventTouchpadPinchSendEventFieldInfo -instance AttrInfo EventTouchpadPinchSendEventFieldInfo where - type AttrAllowedOps EventTouchpadPinchSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventTouchpadPinchSendEventFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchSendEventFieldInfo = Int8 - type AttrLabel EventTouchpadPinchSendEventFieldInfo = "send_event" - attrGet _ = eventTouchpadPinchReadSendEvent - attrSet _ = eventTouchpadPinchWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchSendEvent :: AttrLabelProxy "sendEvent" -eventTouchpadPinchSendEvent = AttrLabelProxy - - -eventTouchpadPinchReadPhase :: MonadIO m => EventTouchpadPinch -> m TouchpadGesturePhase -eventTouchpadPinchReadPhase s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventTouchpadPinchWritePhase :: MonadIO m => EventTouchpadPinch -> TouchpadGesturePhase -> m () -eventTouchpadPinchWritePhase s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 20) (val' :: CUInt) - -data EventTouchpadPinchPhaseFieldInfo -instance AttrInfo EventTouchpadPinchPhaseFieldInfo where - type AttrAllowedOps EventTouchpadPinchPhaseFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchPhaseFieldInfo = (~) TouchpadGesturePhase - type AttrBaseTypeConstraint EventTouchpadPinchPhaseFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchPhaseFieldInfo = TouchpadGesturePhase - type AttrLabel EventTouchpadPinchPhaseFieldInfo = "phase" - attrGet _ = eventTouchpadPinchReadPhase - attrSet _ = eventTouchpadPinchWritePhase - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchPhase :: AttrLabelProxy "phase" -eventTouchpadPinchPhase = AttrLabelProxy - - -eventTouchpadPinchReadNFingers :: MonadIO m => EventTouchpadPinch -> m Int8 -eventTouchpadPinchReadNFingers s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Int8 - return val - -eventTouchpadPinchWriteNFingers :: MonadIO m => EventTouchpadPinch -> Int8 -> m () -eventTouchpadPinchWriteNFingers s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Int8) - -data EventTouchpadPinchNFingersFieldInfo -instance AttrInfo EventTouchpadPinchNFingersFieldInfo where - type AttrAllowedOps EventTouchpadPinchNFingersFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchNFingersFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventTouchpadPinchNFingersFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchNFingersFieldInfo = Int8 - type AttrLabel EventTouchpadPinchNFingersFieldInfo = "n_fingers" - attrGet _ = eventTouchpadPinchReadNFingers - attrSet _ = eventTouchpadPinchWriteNFingers - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchNFingers :: AttrLabelProxy "nFingers" -eventTouchpadPinchNFingers = AttrLabelProxy - - -eventTouchpadPinchReadTime :: MonadIO m => EventTouchpadPinch -> m Word32 -eventTouchpadPinchReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Word32 - return val - -eventTouchpadPinchWriteTime :: MonadIO m => EventTouchpadPinch -> Word32 -> m () -eventTouchpadPinchWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 28) (val :: Word32) - -data EventTouchpadPinchTimeFieldInfo -instance AttrInfo EventTouchpadPinchTimeFieldInfo where - type AttrAllowedOps EventTouchpadPinchTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventTouchpadPinchTimeFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchTimeFieldInfo = Word32 - type AttrLabel EventTouchpadPinchTimeFieldInfo = "time" - attrGet _ = eventTouchpadPinchReadTime - attrSet _ = eventTouchpadPinchWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchTime :: AttrLabelProxy "time" -eventTouchpadPinchTime = AttrLabelProxy - - -eventTouchpadPinchReadX :: MonadIO m => EventTouchpadPinch -> m Double -eventTouchpadPinchReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchWriteX :: MonadIO m => EventTouchpadPinch -> Double -> m () -eventTouchpadPinchWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 32) (val' :: CDouble) - -data EventTouchpadPinchXFieldInfo -instance AttrInfo EventTouchpadPinchXFieldInfo where - type AttrAllowedOps EventTouchpadPinchXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchXFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadPinchXFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchXFieldInfo = Double - type AttrLabel EventTouchpadPinchXFieldInfo = "x" - attrGet _ = eventTouchpadPinchReadX - attrSet _ = eventTouchpadPinchWriteX - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchX :: AttrLabelProxy "x" -eventTouchpadPinchX = AttrLabelProxy - - -eventTouchpadPinchReadY :: MonadIO m => EventTouchpadPinch -> m Double -eventTouchpadPinchReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchWriteY :: MonadIO m => EventTouchpadPinch -> Double -> m () -eventTouchpadPinchWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 40) (val' :: CDouble) - -data EventTouchpadPinchYFieldInfo -instance AttrInfo EventTouchpadPinchYFieldInfo where - type AttrAllowedOps EventTouchpadPinchYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchYFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadPinchYFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchYFieldInfo = Double - type AttrLabel EventTouchpadPinchYFieldInfo = "y" - attrGet _ = eventTouchpadPinchReadY - attrSet _ = eventTouchpadPinchWriteY - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchY :: AttrLabelProxy "y" -eventTouchpadPinchY = AttrLabelProxy - - -eventTouchpadPinchReadDx :: MonadIO m => EventTouchpadPinch -> m Double -eventTouchpadPinchReadDx s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchWriteDx :: MonadIO m => EventTouchpadPinch -> Double -> m () -eventTouchpadPinchWriteDx s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 48) (val' :: CDouble) - -data EventTouchpadPinchDxFieldInfo -instance AttrInfo EventTouchpadPinchDxFieldInfo where - type AttrAllowedOps EventTouchpadPinchDxFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchDxFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadPinchDxFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchDxFieldInfo = Double - type AttrLabel EventTouchpadPinchDxFieldInfo = "dx" - attrGet _ = eventTouchpadPinchReadDx - attrSet _ = eventTouchpadPinchWriteDx - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchDx :: AttrLabelProxy "dx" -eventTouchpadPinchDx = AttrLabelProxy - - -eventTouchpadPinchReadDy :: MonadIO m => EventTouchpadPinch -> m Double -eventTouchpadPinchReadDy s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchWriteDy :: MonadIO m => EventTouchpadPinch -> Double -> m () -eventTouchpadPinchWriteDy s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 56) (val' :: CDouble) - -data EventTouchpadPinchDyFieldInfo -instance AttrInfo EventTouchpadPinchDyFieldInfo where - type AttrAllowedOps EventTouchpadPinchDyFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchDyFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadPinchDyFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchDyFieldInfo = Double - type AttrLabel EventTouchpadPinchDyFieldInfo = "dy" - attrGet _ = eventTouchpadPinchReadDy - attrSet _ = eventTouchpadPinchWriteDy - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchDy :: AttrLabelProxy "dy" -eventTouchpadPinchDy = AttrLabelProxy - - -eventTouchpadPinchReadAngleDelta :: MonadIO m => EventTouchpadPinch -> m Double -eventTouchpadPinchReadAngleDelta s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchWriteAngleDelta :: MonadIO m => EventTouchpadPinch -> Double -> m () -eventTouchpadPinchWriteAngleDelta s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 64) (val' :: CDouble) - -data EventTouchpadPinchAngleDeltaFieldInfo -instance AttrInfo EventTouchpadPinchAngleDeltaFieldInfo where - type AttrAllowedOps EventTouchpadPinchAngleDeltaFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchAngleDeltaFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadPinchAngleDeltaFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchAngleDeltaFieldInfo = Double - type AttrLabel EventTouchpadPinchAngleDeltaFieldInfo = "angle_delta" - attrGet _ = eventTouchpadPinchReadAngleDelta - attrSet _ = eventTouchpadPinchWriteAngleDelta - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchAngleDelta :: AttrLabelProxy "angleDelta" -eventTouchpadPinchAngleDelta = AttrLabelProxy - - -eventTouchpadPinchReadScale :: MonadIO m => EventTouchpadPinch -> m Double -eventTouchpadPinchReadScale s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchWriteScale :: MonadIO m => EventTouchpadPinch -> Double -> m () -eventTouchpadPinchWriteScale s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 72) (val' :: CDouble) - -data EventTouchpadPinchScaleFieldInfo -instance AttrInfo EventTouchpadPinchScaleFieldInfo where - type AttrAllowedOps EventTouchpadPinchScaleFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchScaleFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadPinchScaleFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchScaleFieldInfo = Double - type AttrLabel EventTouchpadPinchScaleFieldInfo = "scale" - attrGet _ = eventTouchpadPinchReadScale - attrSet _ = eventTouchpadPinchWriteScale - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchScale :: AttrLabelProxy "scale" -eventTouchpadPinchScale = AttrLabelProxy - - -eventTouchpadPinchReadXRoot :: MonadIO m => EventTouchpadPinch -> m Double -eventTouchpadPinchReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchWriteXRoot :: MonadIO m => EventTouchpadPinch -> Double -> m () -eventTouchpadPinchWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 80) (val' :: CDouble) - -data EventTouchpadPinchXRootFieldInfo -instance AttrInfo EventTouchpadPinchXRootFieldInfo where - type AttrAllowedOps EventTouchpadPinchXRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchXRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadPinchXRootFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchXRootFieldInfo = Double - type AttrLabel EventTouchpadPinchXRootFieldInfo = "x_root" - attrGet _ = eventTouchpadPinchReadXRoot - attrSet _ = eventTouchpadPinchWriteXRoot - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchXRoot :: AttrLabelProxy "xRoot" -eventTouchpadPinchXRoot = AttrLabelProxy - - -eventTouchpadPinchReadYRoot :: MonadIO m => EventTouchpadPinch -> m Double -eventTouchpadPinchReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 88) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadPinchWriteYRoot :: MonadIO m => EventTouchpadPinch -> Double -> m () -eventTouchpadPinchWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 88) (val' :: CDouble) - -data EventTouchpadPinchYRootFieldInfo -instance AttrInfo EventTouchpadPinchYRootFieldInfo where - type AttrAllowedOps EventTouchpadPinchYRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchYRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadPinchYRootFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchYRootFieldInfo = Double - type AttrLabel EventTouchpadPinchYRootFieldInfo = "y_root" - attrGet _ = eventTouchpadPinchReadYRoot - attrSet _ = eventTouchpadPinchWriteYRoot - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchYRoot :: AttrLabelProxy "yRoot" -eventTouchpadPinchYRoot = AttrLabelProxy - - -eventTouchpadPinchReadState :: MonadIO m => EventTouchpadPinch -> m [ModifierType] -eventTouchpadPinchReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 96) :: IO CUInt - let val' = wordToGFlags val - return val' - -eventTouchpadPinchWriteState :: MonadIO m => EventTouchpadPinch -> [ModifierType] -> m () -eventTouchpadPinchWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 96) (val' :: CUInt) - -data EventTouchpadPinchStateFieldInfo -instance AttrInfo EventTouchpadPinchStateFieldInfo where - type AttrAllowedOps EventTouchpadPinchStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadPinchStateFieldInfo = (~) [ModifierType] - type AttrBaseTypeConstraint EventTouchpadPinchStateFieldInfo = (~) EventTouchpadPinch - type AttrGetType EventTouchpadPinchStateFieldInfo = [ModifierType] - type AttrLabel EventTouchpadPinchStateFieldInfo = "state" - attrGet _ = eventTouchpadPinchReadState - attrSet _ = eventTouchpadPinchWriteState - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadPinchState :: AttrLabelProxy "state" -eventTouchpadPinchState = AttrLabelProxy - - - -type instance AttributeList EventTouchpadPinch = EventTouchpadPinchAttributeList -type EventTouchpadPinchAttributeList = ('[ '("type", EventTouchpadPinchTypeFieldInfo), '("window", EventTouchpadPinchWindowFieldInfo), '("sendEvent", EventTouchpadPinchSendEventFieldInfo), '("phase", EventTouchpadPinchPhaseFieldInfo), '("nFingers", EventTouchpadPinchNFingersFieldInfo), '("time", EventTouchpadPinchTimeFieldInfo), '("x", EventTouchpadPinchXFieldInfo), '("y", EventTouchpadPinchYFieldInfo), '("dx", EventTouchpadPinchDxFieldInfo), '("dy", EventTouchpadPinchDyFieldInfo), '("angleDelta", EventTouchpadPinchAngleDeltaFieldInfo), '("scale", EventTouchpadPinchScaleFieldInfo), '("xRoot", EventTouchpadPinchXRootFieldInfo), '("yRoot", EventTouchpadPinchYRootFieldInfo), '("state", EventTouchpadPinchStateFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventTouchpadPinchMethod (t :: Symbol) (o :: *) :: * where - ResolveEventTouchpadPinchMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventTouchpadPinchMethod t EventTouchpadPinch, MethodInfo info EventTouchpadPinch p) => IsLabelProxy t (EventTouchpadPinch -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventTouchpadPinchMethod t EventTouchpadPinch, MethodInfo info EventTouchpadPinch p) => IsLabel t (EventTouchpadPinch -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventTouchpadPinch.hs-boot b/GI/Gdk/Structs/EventTouchpadPinch.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventTouchpadPinch.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventTouchpadPinch where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventTouchpadPinch = EventTouchpadPinch (ForeignPtr EventTouchpadPinch) -instance WrappedPtr EventTouchpadPinch where diff --git a/GI/Gdk/Structs/EventTouchpadSwipe.hs b/GI/Gdk/Structs/EventTouchpadSwipe.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventTouchpadSwipe.hs +++ /dev/null @@ -1,499 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated during touchpad swipe gestures. --} - -module GI.Gdk.Structs.EventTouchpadSwipe - ( - --- * Exported types - EventTouchpadSwipe(..) , - newZeroEventTouchpadSwipe , - noEventTouchpadSwipe , - - - -- * Properties --- ** Dx - eventTouchpadSwipeDx , - eventTouchpadSwipeReadDx , - eventTouchpadSwipeWriteDx , - - --- ** Dy - eventTouchpadSwipeDy , - eventTouchpadSwipeReadDy , - eventTouchpadSwipeWriteDy , - - --- ** NFingers - eventTouchpadSwipeNFingers , - eventTouchpadSwipeReadNFingers , - eventTouchpadSwipeWriteNFingers , - - --- ** Phase - eventTouchpadSwipePhase , - eventTouchpadSwipeReadPhase , - eventTouchpadSwipeWritePhase , - - --- ** SendEvent - eventTouchpadSwipeReadSendEvent , - eventTouchpadSwipeSendEvent , - eventTouchpadSwipeWriteSendEvent , - - --- ** State - eventTouchpadSwipeReadState , - eventTouchpadSwipeState , - eventTouchpadSwipeWriteState , - - --- ** Time - eventTouchpadSwipeReadTime , - eventTouchpadSwipeTime , - eventTouchpadSwipeWriteTime , - - --- ** Type - eventTouchpadSwipeReadType , - eventTouchpadSwipeType , - eventTouchpadSwipeWriteType , - - --- ** Window - eventTouchpadSwipeClearWindow , - eventTouchpadSwipeReadWindow , - eventTouchpadSwipeWindow , - eventTouchpadSwipeWriteWindow , - - --- ** X - eventTouchpadSwipeReadX , - eventTouchpadSwipeWriteX , - eventTouchpadSwipeX , - - --- ** XRoot - eventTouchpadSwipeReadXRoot , - eventTouchpadSwipeWriteXRoot , - eventTouchpadSwipeXRoot , - - --- ** Y - eventTouchpadSwipeReadY , - eventTouchpadSwipeWriteY , - eventTouchpadSwipeY , - - --- ** YRoot - eventTouchpadSwipeReadYRoot , - eventTouchpadSwipeWriteYRoot , - eventTouchpadSwipeYRoot , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventTouchpadSwipe = EventTouchpadSwipe (ForeignPtr EventTouchpadSwipe) -instance WrappedPtr EventTouchpadSwipe where - wrappedPtrCalloc = callocBytes 88 - wrappedPtrCopy = copyPtr 88 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventTouchpadSwipe` struct initialized to zero. -newZeroEventTouchpadSwipe :: MonadIO m => m EventTouchpadSwipe -newZeroEventTouchpadSwipe = liftIO $ wrappedPtrCalloc >>= wrapPtr EventTouchpadSwipe - -instance tag ~ 'AttrSet => Constructible EventTouchpadSwipe tag where - new _ attrs = do - o <- newZeroEventTouchpadSwipe - GI.Attributes.set o attrs - return o - - -noEventTouchpadSwipe :: Maybe EventTouchpadSwipe -noEventTouchpadSwipe = Nothing - -eventTouchpadSwipeReadType :: MonadIO m => EventTouchpadSwipe -> m EventType -eventTouchpadSwipeReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventTouchpadSwipeWriteType :: MonadIO m => EventTouchpadSwipe -> EventType -> m () -eventTouchpadSwipeWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventTouchpadSwipeTypeFieldInfo -instance AttrInfo EventTouchpadSwipeTypeFieldInfo where - type AttrAllowedOps EventTouchpadSwipeTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventTouchpadSwipeTypeFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeTypeFieldInfo = EventType - type AttrLabel EventTouchpadSwipeTypeFieldInfo = "type" - attrGet _ = eventTouchpadSwipeReadType - attrSet _ = eventTouchpadSwipeWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeType :: AttrLabelProxy "type" -eventTouchpadSwipeType = AttrLabelProxy - - -eventTouchpadSwipeReadWindow :: MonadIO m => EventTouchpadSwipe -> m (Maybe Window) -eventTouchpadSwipeReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventTouchpadSwipeWriteWindow :: MonadIO m => EventTouchpadSwipe -> Ptr Window -> m () -eventTouchpadSwipeWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventTouchpadSwipeClearWindow :: MonadIO m => EventTouchpadSwipe -> m () -eventTouchpadSwipeClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventTouchpadSwipeWindowFieldInfo -instance AttrInfo EventTouchpadSwipeWindowFieldInfo where - type AttrAllowedOps EventTouchpadSwipeWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventTouchpadSwipeWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventTouchpadSwipeWindowFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeWindowFieldInfo = Maybe Window - type AttrLabel EventTouchpadSwipeWindowFieldInfo = "window" - attrGet _ = eventTouchpadSwipeReadWindow - attrSet _ = eventTouchpadSwipeWriteWindow - attrConstruct = undefined - attrClear _ = eventTouchpadSwipeClearWindow - -eventTouchpadSwipeWindow :: AttrLabelProxy "window" -eventTouchpadSwipeWindow = AttrLabelProxy - - -eventTouchpadSwipeReadSendEvent :: MonadIO m => EventTouchpadSwipe -> m Int8 -eventTouchpadSwipeReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventTouchpadSwipeWriteSendEvent :: MonadIO m => EventTouchpadSwipe -> Int8 -> m () -eventTouchpadSwipeWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventTouchpadSwipeSendEventFieldInfo -instance AttrInfo EventTouchpadSwipeSendEventFieldInfo where - type AttrAllowedOps EventTouchpadSwipeSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventTouchpadSwipeSendEventFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeSendEventFieldInfo = Int8 - type AttrLabel EventTouchpadSwipeSendEventFieldInfo = "send_event" - attrGet _ = eventTouchpadSwipeReadSendEvent - attrSet _ = eventTouchpadSwipeWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeSendEvent :: AttrLabelProxy "sendEvent" -eventTouchpadSwipeSendEvent = AttrLabelProxy - - -eventTouchpadSwipeReadPhase :: MonadIO m => EventTouchpadSwipe -> m TouchpadGesturePhase -eventTouchpadSwipeReadPhase s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventTouchpadSwipeWritePhase :: MonadIO m => EventTouchpadSwipe -> TouchpadGesturePhase -> m () -eventTouchpadSwipeWritePhase s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 20) (val' :: CUInt) - -data EventTouchpadSwipePhaseFieldInfo -instance AttrInfo EventTouchpadSwipePhaseFieldInfo where - type AttrAllowedOps EventTouchpadSwipePhaseFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipePhaseFieldInfo = (~) TouchpadGesturePhase - type AttrBaseTypeConstraint EventTouchpadSwipePhaseFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipePhaseFieldInfo = TouchpadGesturePhase - type AttrLabel EventTouchpadSwipePhaseFieldInfo = "phase" - attrGet _ = eventTouchpadSwipeReadPhase - attrSet _ = eventTouchpadSwipeWritePhase - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipePhase :: AttrLabelProxy "phase" -eventTouchpadSwipePhase = AttrLabelProxy - - -eventTouchpadSwipeReadNFingers :: MonadIO m => EventTouchpadSwipe -> m Int8 -eventTouchpadSwipeReadNFingers s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Int8 - return val - -eventTouchpadSwipeWriteNFingers :: MonadIO m => EventTouchpadSwipe -> Int8 -> m () -eventTouchpadSwipeWriteNFingers s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Int8) - -data EventTouchpadSwipeNFingersFieldInfo -instance AttrInfo EventTouchpadSwipeNFingersFieldInfo where - type AttrAllowedOps EventTouchpadSwipeNFingersFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeNFingersFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventTouchpadSwipeNFingersFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeNFingersFieldInfo = Int8 - type AttrLabel EventTouchpadSwipeNFingersFieldInfo = "n_fingers" - attrGet _ = eventTouchpadSwipeReadNFingers - attrSet _ = eventTouchpadSwipeWriteNFingers - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeNFingers :: AttrLabelProxy "nFingers" -eventTouchpadSwipeNFingers = AttrLabelProxy - - -eventTouchpadSwipeReadTime :: MonadIO m => EventTouchpadSwipe -> m Word32 -eventTouchpadSwipeReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Word32 - return val - -eventTouchpadSwipeWriteTime :: MonadIO m => EventTouchpadSwipe -> Word32 -> m () -eventTouchpadSwipeWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 28) (val :: Word32) - -data EventTouchpadSwipeTimeFieldInfo -instance AttrInfo EventTouchpadSwipeTimeFieldInfo where - type AttrAllowedOps EventTouchpadSwipeTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint EventTouchpadSwipeTimeFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeTimeFieldInfo = Word32 - type AttrLabel EventTouchpadSwipeTimeFieldInfo = "time" - attrGet _ = eventTouchpadSwipeReadTime - attrSet _ = eventTouchpadSwipeWriteTime - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeTime :: AttrLabelProxy "time" -eventTouchpadSwipeTime = AttrLabelProxy - - -eventTouchpadSwipeReadX :: MonadIO m => EventTouchpadSwipe -> m Double -eventTouchpadSwipeReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeWriteX :: MonadIO m => EventTouchpadSwipe -> Double -> m () -eventTouchpadSwipeWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 32) (val' :: CDouble) - -data EventTouchpadSwipeXFieldInfo -instance AttrInfo EventTouchpadSwipeXFieldInfo where - type AttrAllowedOps EventTouchpadSwipeXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeXFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadSwipeXFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeXFieldInfo = Double - type AttrLabel EventTouchpadSwipeXFieldInfo = "x" - attrGet _ = eventTouchpadSwipeReadX - attrSet _ = eventTouchpadSwipeWriteX - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeX :: AttrLabelProxy "x" -eventTouchpadSwipeX = AttrLabelProxy - - -eventTouchpadSwipeReadY :: MonadIO m => EventTouchpadSwipe -> m Double -eventTouchpadSwipeReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeWriteY :: MonadIO m => EventTouchpadSwipe -> Double -> m () -eventTouchpadSwipeWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 40) (val' :: CDouble) - -data EventTouchpadSwipeYFieldInfo -instance AttrInfo EventTouchpadSwipeYFieldInfo where - type AttrAllowedOps EventTouchpadSwipeYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeYFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadSwipeYFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeYFieldInfo = Double - type AttrLabel EventTouchpadSwipeYFieldInfo = "y" - attrGet _ = eventTouchpadSwipeReadY - attrSet _ = eventTouchpadSwipeWriteY - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeY :: AttrLabelProxy "y" -eventTouchpadSwipeY = AttrLabelProxy - - -eventTouchpadSwipeReadDx :: MonadIO m => EventTouchpadSwipe -> m Double -eventTouchpadSwipeReadDx s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeWriteDx :: MonadIO m => EventTouchpadSwipe -> Double -> m () -eventTouchpadSwipeWriteDx s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 48) (val' :: CDouble) - -data EventTouchpadSwipeDxFieldInfo -instance AttrInfo EventTouchpadSwipeDxFieldInfo where - type AttrAllowedOps EventTouchpadSwipeDxFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeDxFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadSwipeDxFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeDxFieldInfo = Double - type AttrLabel EventTouchpadSwipeDxFieldInfo = "dx" - attrGet _ = eventTouchpadSwipeReadDx - attrSet _ = eventTouchpadSwipeWriteDx - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeDx :: AttrLabelProxy "dx" -eventTouchpadSwipeDx = AttrLabelProxy - - -eventTouchpadSwipeReadDy :: MonadIO m => EventTouchpadSwipe -> m Double -eventTouchpadSwipeReadDy s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeWriteDy :: MonadIO m => EventTouchpadSwipe -> Double -> m () -eventTouchpadSwipeWriteDy s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 56) (val' :: CDouble) - -data EventTouchpadSwipeDyFieldInfo -instance AttrInfo EventTouchpadSwipeDyFieldInfo where - type AttrAllowedOps EventTouchpadSwipeDyFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeDyFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadSwipeDyFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeDyFieldInfo = Double - type AttrLabel EventTouchpadSwipeDyFieldInfo = "dy" - attrGet _ = eventTouchpadSwipeReadDy - attrSet _ = eventTouchpadSwipeWriteDy - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeDy :: AttrLabelProxy "dy" -eventTouchpadSwipeDy = AttrLabelProxy - - -eventTouchpadSwipeReadXRoot :: MonadIO m => EventTouchpadSwipe -> m Double -eventTouchpadSwipeReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeWriteXRoot :: MonadIO m => EventTouchpadSwipe -> Double -> m () -eventTouchpadSwipeWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 64) (val' :: CDouble) - -data EventTouchpadSwipeXRootFieldInfo -instance AttrInfo EventTouchpadSwipeXRootFieldInfo where - type AttrAllowedOps EventTouchpadSwipeXRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeXRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadSwipeXRootFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeXRootFieldInfo = Double - type AttrLabel EventTouchpadSwipeXRootFieldInfo = "x_root" - attrGet _ = eventTouchpadSwipeReadXRoot - attrSet _ = eventTouchpadSwipeWriteXRoot - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeXRoot :: AttrLabelProxy "xRoot" -eventTouchpadSwipeXRoot = AttrLabelProxy - - -eventTouchpadSwipeReadYRoot :: MonadIO m => EventTouchpadSwipe -> m Double -eventTouchpadSwipeReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CDouble - let val' = realToFrac val - return val' - -eventTouchpadSwipeWriteYRoot :: MonadIO m => EventTouchpadSwipe -> Double -> m () -eventTouchpadSwipeWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 72) (val' :: CDouble) - -data EventTouchpadSwipeYRootFieldInfo -instance AttrInfo EventTouchpadSwipeYRootFieldInfo where - type AttrAllowedOps EventTouchpadSwipeYRootFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeYRootFieldInfo = (~) Double - type AttrBaseTypeConstraint EventTouchpadSwipeYRootFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeYRootFieldInfo = Double - type AttrLabel EventTouchpadSwipeYRootFieldInfo = "y_root" - attrGet _ = eventTouchpadSwipeReadYRoot - attrSet _ = eventTouchpadSwipeWriteYRoot - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeYRoot :: AttrLabelProxy "yRoot" -eventTouchpadSwipeYRoot = AttrLabelProxy - - -eventTouchpadSwipeReadState :: MonadIO m => EventTouchpadSwipe -> m [ModifierType] -eventTouchpadSwipeReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 80) :: IO CUInt - let val' = wordToGFlags val - return val' - -eventTouchpadSwipeWriteState :: MonadIO m => EventTouchpadSwipe -> [ModifierType] -> m () -eventTouchpadSwipeWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 80) (val' :: CUInt) - -data EventTouchpadSwipeStateFieldInfo -instance AttrInfo EventTouchpadSwipeStateFieldInfo where - type AttrAllowedOps EventTouchpadSwipeStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTouchpadSwipeStateFieldInfo = (~) [ModifierType] - type AttrBaseTypeConstraint EventTouchpadSwipeStateFieldInfo = (~) EventTouchpadSwipe - type AttrGetType EventTouchpadSwipeStateFieldInfo = [ModifierType] - type AttrLabel EventTouchpadSwipeStateFieldInfo = "state" - attrGet _ = eventTouchpadSwipeReadState - attrSet _ = eventTouchpadSwipeWriteState - attrConstruct = undefined - attrClear _ = undefined - -eventTouchpadSwipeState :: AttrLabelProxy "state" -eventTouchpadSwipeState = AttrLabelProxy - - - -type instance AttributeList EventTouchpadSwipe = EventTouchpadSwipeAttributeList -type EventTouchpadSwipeAttributeList = ('[ '("type", EventTouchpadSwipeTypeFieldInfo), '("window", EventTouchpadSwipeWindowFieldInfo), '("sendEvent", EventTouchpadSwipeSendEventFieldInfo), '("phase", EventTouchpadSwipePhaseFieldInfo), '("nFingers", EventTouchpadSwipeNFingersFieldInfo), '("time", EventTouchpadSwipeTimeFieldInfo), '("x", EventTouchpadSwipeXFieldInfo), '("y", EventTouchpadSwipeYFieldInfo), '("dx", EventTouchpadSwipeDxFieldInfo), '("dy", EventTouchpadSwipeDyFieldInfo), '("xRoot", EventTouchpadSwipeXRootFieldInfo), '("yRoot", EventTouchpadSwipeYRootFieldInfo), '("state", EventTouchpadSwipeStateFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventTouchpadSwipeMethod (t :: Symbol) (o :: *) :: * where - ResolveEventTouchpadSwipeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventTouchpadSwipeMethod t EventTouchpadSwipe, MethodInfo info EventTouchpadSwipe p) => IsLabelProxy t (EventTouchpadSwipe -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventTouchpadSwipeMethod t EventTouchpadSwipe, MethodInfo info EventTouchpadSwipe p) => IsLabel t (EventTouchpadSwipe -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventTouchpadSwipe.hs-boot b/GI/Gdk/Structs/EventTouchpadSwipe.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventTouchpadSwipe.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventTouchpadSwipe where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventTouchpadSwipe = EventTouchpadSwipe (ForeignPtr EventTouchpadSwipe) -instance WrappedPtr EventTouchpadSwipe where diff --git a/GI/Gdk/Structs/EventVisibility.hs b/GI/Gdk/Structs/EventVisibility.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventVisibility.hs +++ /dev/null @@ -1,206 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated when the window visibility status has changed. --} - -module GI.Gdk.Structs.EventVisibility - ( - --- * Exported types - EventVisibility(..) , - newZeroEventVisibility , - noEventVisibility , - - - -- * Properties --- ** SendEvent - eventVisibilityReadSendEvent , - eventVisibilitySendEvent , - eventVisibilityWriteSendEvent , - - --- ** State - eventVisibilityReadState , - eventVisibilityState , - eventVisibilityWriteState , - - --- ** Type - eventVisibilityReadType , - eventVisibilityType , - eventVisibilityWriteType , - - --- ** Window - eventVisibilityClearWindow , - eventVisibilityReadWindow , - eventVisibilityWindow , - eventVisibilityWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventVisibility = EventVisibility (ForeignPtr EventVisibility) -instance WrappedPtr EventVisibility where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventVisibility` struct initialized to zero. -newZeroEventVisibility :: MonadIO m => m EventVisibility -newZeroEventVisibility = liftIO $ wrappedPtrCalloc >>= wrapPtr EventVisibility - -instance tag ~ 'AttrSet => Constructible EventVisibility tag where - new _ attrs = do - o <- newZeroEventVisibility - GI.Attributes.set o attrs - return o - - -noEventVisibility :: Maybe EventVisibility -noEventVisibility = Nothing - -eventVisibilityReadType :: MonadIO m => EventVisibility -> m EventType -eventVisibilityReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventVisibilityWriteType :: MonadIO m => EventVisibility -> EventType -> m () -eventVisibilityWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventVisibilityTypeFieldInfo -instance AttrInfo EventVisibilityTypeFieldInfo where - type AttrAllowedOps EventVisibilityTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventVisibilityTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventVisibilityTypeFieldInfo = (~) EventVisibility - type AttrGetType EventVisibilityTypeFieldInfo = EventType - type AttrLabel EventVisibilityTypeFieldInfo = "type" - attrGet _ = eventVisibilityReadType - attrSet _ = eventVisibilityWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventVisibilityType :: AttrLabelProxy "type" -eventVisibilityType = AttrLabelProxy - - -eventVisibilityReadWindow :: MonadIO m => EventVisibility -> m (Maybe Window) -eventVisibilityReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventVisibilityWriteWindow :: MonadIO m => EventVisibility -> Ptr Window -> m () -eventVisibilityWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventVisibilityClearWindow :: MonadIO m => EventVisibility -> m () -eventVisibilityClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventVisibilityWindowFieldInfo -instance AttrInfo EventVisibilityWindowFieldInfo where - type AttrAllowedOps EventVisibilityWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventVisibilityWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventVisibilityWindowFieldInfo = (~) EventVisibility - type AttrGetType EventVisibilityWindowFieldInfo = Maybe Window - type AttrLabel EventVisibilityWindowFieldInfo = "window" - attrGet _ = eventVisibilityReadWindow - attrSet _ = eventVisibilityWriteWindow - attrConstruct = undefined - attrClear _ = eventVisibilityClearWindow - -eventVisibilityWindow :: AttrLabelProxy "window" -eventVisibilityWindow = AttrLabelProxy - - -eventVisibilityReadSendEvent :: MonadIO m => EventVisibility -> m Int8 -eventVisibilityReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventVisibilityWriteSendEvent :: MonadIO m => EventVisibility -> Int8 -> m () -eventVisibilityWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventVisibilitySendEventFieldInfo -instance AttrInfo EventVisibilitySendEventFieldInfo where - type AttrAllowedOps EventVisibilitySendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventVisibilitySendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventVisibilitySendEventFieldInfo = (~) EventVisibility - type AttrGetType EventVisibilitySendEventFieldInfo = Int8 - type AttrLabel EventVisibilitySendEventFieldInfo = "send_event" - attrGet _ = eventVisibilityReadSendEvent - attrSet _ = eventVisibilityWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventVisibilitySendEvent :: AttrLabelProxy "sendEvent" -eventVisibilitySendEvent = AttrLabelProxy - - -eventVisibilityReadState :: MonadIO m => EventVisibility -> m VisibilityState -eventVisibilityReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventVisibilityWriteState :: MonadIO m => EventVisibility -> VisibilityState -> m () -eventVisibilityWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 20) (val' :: CUInt) - -data EventVisibilityStateFieldInfo -instance AttrInfo EventVisibilityStateFieldInfo where - type AttrAllowedOps EventVisibilityStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventVisibilityStateFieldInfo = (~) VisibilityState - type AttrBaseTypeConstraint EventVisibilityStateFieldInfo = (~) EventVisibility - type AttrGetType EventVisibilityStateFieldInfo = VisibilityState - type AttrLabel EventVisibilityStateFieldInfo = "state" - attrGet _ = eventVisibilityReadState - attrSet _ = eventVisibilityWriteState - attrConstruct = undefined - attrClear _ = undefined - -eventVisibilityState :: AttrLabelProxy "state" -eventVisibilityState = AttrLabelProxy - - - -type instance AttributeList EventVisibility = EventVisibilityAttributeList -type EventVisibilityAttributeList = ('[ '("type", EventVisibilityTypeFieldInfo), '("window", EventVisibilityWindowFieldInfo), '("sendEvent", EventVisibilitySendEventFieldInfo), '("state", EventVisibilityStateFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventVisibilityMethod (t :: Symbol) (o :: *) :: * where - ResolveEventVisibilityMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventVisibilityMethod t EventVisibility, MethodInfo info EventVisibility p) => IsLabelProxy t (EventVisibility -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventVisibilityMethod t EventVisibility, MethodInfo info EventVisibility p) => IsLabel t (EventVisibility -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventVisibility.hs-boot b/GI/Gdk/Structs/EventVisibility.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventVisibility.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventVisibility where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventVisibility = EventVisibility (ForeignPtr EventVisibility) -instance WrappedPtr EventVisibility where diff --git a/GI/Gdk/Structs/EventWindowState.hs b/GI/Gdk/Structs/EventWindowState.hs deleted file mode 100644 --- a/GI/Gdk/Structs/EventWindowState.hs +++ /dev/null @@ -1,239 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Generated when the state of a toplevel window changes. --} - -module GI.Gdk.Structs.EventWindowState - ( - --- * Exported types - EventWindowState(..) , - newZeroEventWindowState , - noEventWindowState , - - - -- * Properties --- ** ChangedMask - eventWindowStateChangedMask , - eventWindowStateReadChangedMask , - eventWindowStateWriteChangedMask , - - --- ** NewWindowState - eventWindowStateNewWindowState , - eventWindowStateReadNewWindowState , - eventWindowStateWriteNewWindowState , - - --- ** SendEvent - eventWindowStateReadSendEvent , - eventWindowStateSendEvent , - eventWindowStateWriteSendEvent , - - --- ** Type - eventWindowStateReadType , - eventWindowStateType , - eventWindowStateWriteType , - - --- ** Window - eventWindowStateClearWindow , - eventWindowStateReadWindow , - eventWindowStateWindow , - eventWindowStateWriteWindow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype EventWindowState = EventWindowState (ForeignPtr EventWindowState) -instance WrappedPtr EventWindowState where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `EventWindowState` struct initialized to zero. -newZeroEventWindowState :: MonadIO m => m EventWindowState -newZeroEventWindowState = liftIO $ wrappedPtrCalloc >>= wrapPtr EventWindowState - -instance tag ~ 'AttrSet => Constructible EventWindowState tag where - new _ attrs = do - o <- newZeroEventWindowState - GI.Attributes.set o attrs - return o - - -noEventWindowState :: Maybe EventWindowState -noEventWindowState = Nothing - -eventWindowStateReadType :: MonadIO m => EventWindowState -> m EventType -eventWindowStateReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventWindowStateWriteType :: MonadIO m => EventWindowState -> EventType -> m () -eventWindowStateWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventWindowStateTypeFieldInfo -instance AttrInfo EventWindowStateTypeFieldInfo where - type AttrAllowedOps EventWindowStateTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventWindowStateTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventWindowStateTypeFieldInfo = (~) EventWindowState - type AttrGetType EventWindowStateTypeFieldInfo = EventType - type AttrLabel EventWindowStateTypeFieldInfo = "type" - attrGet _ = eventWindowStateReadType - attrSet _ = eventWindowStateWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventWindowStateType :: AttrLabelProxy "type" -eventWindowStateType = AttrLabelProxy - - -eventWindowStateReadWindow :: MonadIO m => EventWindowState -> m (Maybe Window) -eventWindowStateReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Window) val' - return val'' - return result - -eventWindowStateWriteWindow :: MonadIO m => EventWindowState -> Ptr Window -> m () -eventWindowStateWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr Window) - -eventWindowStateClearWindow :: MonadIO m => EventWindowState -> m () -eventWindowStateClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window) - -data EventWindowStateWindowFieldInfo -instance AttrInfo EventWindowStateWindowFieldInfo where - type AttrAllowedOps EventWindowStateWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventWindowStateWindowFieldInfo = (~) (Ptr Window) - type AttrBaseTypeConstraint EventWindowStateWindowFieldInfo = (~) EventWindowState - type AttrGetType EventWindowStateWindowFieldInfo = Maybe Window - type AttrLabel EventWindowStateWindowFieldInfo = "window" - attrGet _ = eventWindowStateReadWindow - attrSet _ = eventWindowStateWriteWindow - attrConstruct = undefined - attrClear _ = eventWindowStateClearWindow - -eventWindowStateWindow :: AttrLabelProxy "window" -eventWindowStateWindow = AttrLabelProxy - - -eventWindowStateReadSendEvent :: MonadIO m => EventWindowState -> m Int8 -eventWindowStateReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int8 - return val - -eventWindowStateWriteSendEvent :: MonadIO m => EventWindowState -> Int8 -> m () -eventWindowStateWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int8) - -data EventWindowStateSendEventFieldInfo -instance AttrInfo EventWindowStateSendEventFieldInfo where - type AttrAllowedOps EventWindowStateSendEventFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventWindowStateSendEventFieldInfo = (~) Int8 - type AttrBaseTypeConstraint EventWindowStateSendEventFieldInfo = (~) EventWindowState - type AttrGetType EventWindowStateSendEventFieldInfo = Int8 - type AttrLabel EventWindowStateSendEventFieldInfo = "send_event" - attrGet _ = eventWindowStateReadSendEvent - attrSet _ = eventWindowStateWriteSendEvent - attrConstruct = undefined - attrClear _ = undefined - -eventWindowStateSendEvent :: AttrLabelProxy "sendEvent" -eventWindowStateSendEvent = AttrLabelProxy - - -eventWindowStateReadChangedMask :: MonadIO m => EventWindowState -> m [WindowState] -eventWindowStateReadChangedMask s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO CUInt - let val' = wordToGFlags val - return val' - -eventWindowStateWriteChangedMask :: MonadIO m => EventWindowState -> [WindowState] -> m () -eventWindowStateWriteChangedMask s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 20) (val' :: CUInt) - -data EventWindowStateChangedMaskFieldInfo -instance AttrInfo EventWindowStateChangedMaskFieldInfo where - type AttrAllowedOps EventWindowStateChangedMaskFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventWindowStateChangedMaskFieldInfo = (~) [WindowState] - type AttrBaseTypeConstraint EventWindowStateChangedMaskFieldInfo = (~) EventWindowState - type AttrGetType EventWindowStateChangedMaskFieldInfo = [WindowState] - type AttrLabel EventWindowStateChangedMaskFieldInfo = "changed_mask" - attrGet _ = eventWindowStateReadChangedMask - attrSet _ = eventWindowStateWriteChangedMask - attrConstruct = undefined - attrClear _ = undefined - -eventWindowStateChangedMask :: AttrLabelProxy "changedMask" -eventWindowStateChangedMask = AttrLabelProxy - - -eventWindowStateReadNewWindowState :: MonadIO m => EventWindowState -> m [WindowState] -eventWindowStateReadNewWindowState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CUInt - let val' = wordToGFlags val - return val' - -eventWindowStateWriteNewWindowState :: MonadIO m => EventWindowState -> [WindowState] -> m () -eventWindowStateWriteNewWindowState s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 24) (val' :: CUInt) - -data EventWindowStateNewWindowStateFieldInfo -instance AttrInfo EventWindowStateNewWindowStateFieldInfo where - type AttrAllowedOps EventWindowStateNewWindowStateFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventWindowStateNewWindowStateFieldInfo = (~) [WindowState] - type AttrBaseTypeConstraint EventWindowStateNewWindowStateFieldInfo = (~) EventWindowState - type AttrGetType EventWindowStateNewWindowStateFieldInfo = [WindowState] - type AttrLabel EventWindowStateNewWindowStateFieldInfo = "new_window_state" - attrGet _ = eventWindowStateReadNewWindowState - attrSet _ = eventWindowStateWriteNewWindowState - attrConstruct = undefined - attrClear _ = undefined - -eventWindowStateNewWindowState :: AttrLabelProxy "newWindowState" -eventWindowStateNewWindowState = AttrLabelProxy - - - -type instance AttributeList EventWindowState = EventWindowStateAttributeList -type EventWindowStateAttributeList = ('[ '("type", EventWindowStateTypeFieldInfo), '("window", EventWindowStateWindowFieldInfo), '("sendEvent", EventWindowStateSendEventFieldInfo), '("changedMask", EventWindowStateChangedMaskFieldInfo), '("newWindowState", EventWindowStateNewWindowStateFieldInfo)] :: [(Symbol, *)]) - -type family ResolveEventWindowStateMethod (t :: Symbol) (o :: *) :: * where - ResolveEventWindowStateMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventWindowStateMethod t EventWindowState, MethodInfo info EventWindowState p) => IsLabelProxy t (EventWindowState -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventWindowStateMethod t EventWindowState, MethodInfo info EventWindowState p) => IsLabel t (EventWindowState -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/EventWindowState.hs-boot b/GI/Gdk/Structs/EventWindowState.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/EventWindowState.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.EventWindowState where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EventWindowState = EventWindowState (ForeignPtr EventWindowState) -instance WrappedPtr EventWindowState where diff --git a/GI/Gdk/Structs/FrameTimings.hs b/GI/Gdk/Structs/FrameTimings.hs deleted file mode 100644 --- a/GI/Gdk/Structs/FrameTimings.hs +++ /dev/null @@ -1,331 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #GdkFrameTimings object holds timing information for a single frame -of the application’s displays. To retrieve #GdkFrameTimings objects, -use gdk_frame_clock_get_timings() or gdk_frame_clock_get_current_timings(). -The information in #GdkFrameTimings is useful for precise synchronization -of video with the event or audio streams, and for measuring -quality metrics for the application’s display, such as latency and jitter. --} - -module GI.Gdk.Structs.FrameTimings - ( - --- * Exported types - FrameTimings(..) , - noFrameTimings , - - - -- * Methods --- ** frameTimingsGetComplete - FrameTimingsGetCompleteMethodInfo , - frameTimingsGetComplete , - - --- ** frameTimingsGetFrameCounter - FrameTimingsGetFrameCounterMethodInfo , - frameTimingsGetFrameCounter , - - --- ** frameTimingsGetFrameTime - FrameTimingsGetFrameTimeMethodInfo , - frameTimingsGetFrameTime , - - --- ** frameTimingsGetPredictedPresentationTime - FrameTimingsGetPredictedPresentationTimeMethodInfo, - frameTimingsGetPredictedPresentationTime, - - --- ** frameTimingsGetPresentationTime - FrameTimingsGetPresentationTimeMethodInfo, - frameTimingsGetPresentationTime , - - --- ** frameTimingsGetRefreshInterval - FrameTimingsGetRefreshIntervalMethodInfo, - frameTimingsGetRefreshInterval , - - --- ** frameTimingsRef - FrameTimingsRefMethodInfo , - frameTimingsRef , - - --- ** frameTimingsUnref - FrameTimingsUnrefMethodInfo , - frameTimingsUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype FrameTimings = FrameTimings (ForeignPtr FrameTimings) -foreign import ccall "gdk_frame_timings_get_type" c_gdk_frame_timings_get_type :: - IO GType - -instance BoxedObject FrameTimings where - boxedType _ = c_gdk_frame_timings_get_type - -noFrameTimings :: Maybe FrameTimings -noFrameTimings = Nothing - - -type instance AttributeList FrameTimings = FrameTimingsAttributeList -type FrameTimingsAttributeList = ('[ ] :: [(Symbol, *)]) - --- method FrameTimings::get_complete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_timings_get_complete" gdk_frame_timings_get_complete :: - Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" - IO CInt - - -frameTimingsGetComplete :: - (MonadIO m) => - FrameTimings -- _obj - -> m Bool -- result -frameTimingsGetComplete _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_frame_timings_get_complete _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FrameTimingsGetCompleteMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo FrameTimingsGetCompleteMethodInfo FrameTimings signature where - overloadedMethod _ = frameTimingsGetComplete - --- method FrameTimings::get_frame_counter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_timings_get_frame_counter" gdk_frame_timings_get_frame_counter :: - Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" - IO Int64 - - -frameTimingsGetFrameCounter :: - (MonadIO m) => - FrameTimings -- _obj - -> m Int64 -- result -frameTimingsGetFrameCounter _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_frame_timings_get_frame_counter _obj' - touchManagedPtr _obj - return result - -data FrameTimingsGetFrameCounterMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo FrameTimingsGetFrameCounterMethodInfo FrameTimings signature where - overloadedMethod _ = frameTimingsGetFrameCounter - --- method FrameTimings::get_frame_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_timings_get_frame_time" gdk_frame_timings_get_frame_time :: - Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" - IO Int64 - - -frameTimingsGetFrameTime :: - (MonadIO m) => - FrameTimings -- _obj - -> m Int64 -- result -frameTimingsGetFrameTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_frame_timings_get_frame_time _obj' - touchManagedPtr _obj - return result - -data FrameTimingsGetFrameTimeMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo FrameTimingsGetFrameTimeMethodInfo FrameTimings signature where - overloadedMethod _ = frameTimingsGetFrameTime - --- method FrameTimings::get_predicted_presentation_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_timings_get_predicted_presentation_time" gdk_frame_timings_get_predicted_presentation_time :: - Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" - IO Int64 - - -frameTimingsGetPredictedPresentationTime :: - (MonadIO m) => - FrameTimings -- _obj - -> m Int64 -- result -frameTimingsGetPredictedPresentationTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_frame_timings_get_predicted_presentation_time _obj' - touchManagedPtr _obj - return result - -data FrameTimingsGetPredictedPresentationTimeMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo FrameTimingsGetPredictedPresentationTimeMethodInfo FrameTimings signature where - overloadedMethod _ = frameTimingsGetPredictedPresentationTime - --- method FrameTimings::get_presentation_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_timings_get_presentation_time" gdk_frame_timings_get_presentation_time :: - Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" - IO Int64 - - -frameTimingsGetPresentationTime :: - (MonadIO m) => - FrameTimings -- _obj - -> m Int64 -- result -frameTimingsGetPresentationTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_frame_timings_get_presentation_time _obj' - touchManagedPtr _obj - return result - -data FrameTimingsGetPresentationTimeMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo FrameTimingsGetPresentationTimeMethodInfo FrameTimings signature where - overloadedMethod _ = frameTimingsGetPresentationTime - --- method FrameTimings::get_refresh_interval --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_timings_get_refresh_interval" gdk_frame_timings_get_refresh_interval :: - Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" - IO Int64 - - -frameTimingsGetRefreshInterval :: - (MonadIO m) => - FrameTimings -- _obj - -> m Int64 -- result -frameTimingsGetRefreshInterval _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_frame_timings_get_refresh_interval _obj' - touchManagedPtr _obj - return result - -data FrameTimingsGetRefreshIntervalMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo FrameTimingsGetRefreshIntervalMethodInfo FrameTimings signature where - overloadedMethod _ = frameTimingsGetRefreshInterval - --- method FrameTimings::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "FrameTimings") --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_timings_ref" gdk_frame_timings_ref :: - Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" - IO (Ptr FrameTimings) - - -frameTimingsRef :: - (MonadIO m) => - FrameTimings -- _obj - -> m FrameTimings -- result -frameTimingsRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_frame_timings_ref _obj' - checkUnexpectedReturnNULL "gdk_frame_timings_ref" result - result' <- (wrapBoxed FrameTimings) result - touchManagedPtr _obj - return result' - -data FrameTimingsRefMethodInfo -instance (signature ~ (m FrameTimings), MonadIO m) => MethodInfo FrameTimingsRefMethodInfo FrameTimings signature where - overloadedMethod _ = frameTimingsRef - --- method FrameTimings::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_frame_timings_unref" gdk_frame_timings_unref :: - Ptr FrameTimings -> -- _obj : TInterface "Gdk" "FrameTimings" - IO () - - -frameTimingsUnref :: - (MonadIO m) => - FrameTimings -- _obj - -> m () -- result -frameTimingsUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gdk_frame_timings_unref _obj' - touchManagedPtr _obj - return () - -data FrameTimingsUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo FrameTimingsUnrefMethodInfo FrameTimings signature where - overloadedMethod _ = frameTimingsUnref - -type family ResolveFrameTimingsMethod (t :: Symbol) (o :: *) :: * where - ResolveFrameTimingsMethod "ref" o = FrameTimingsRefMethodInfo - ResolveFrameTimingsMethod "unref" o = FrameTimingsUnrefMethodInfo - ResolveFrameTimingsMethod "getComplete" o = FrameTimingsGetCompleteMethodInfo - ResolveFrameTimingsMethod "getFrameCounter" o = FrameTimingsGetFrameCounterMethodInfo - ResolveFrameTimingsMethod "getFrameTime" o = FrameTimingsGetFrameTimeMethodInfo - ResolveFrameTimingsMethod "getPredictedPresentationTime" o = FrameTimingsGetPredictedPresentationTimeMethodInfo - ResolveFrameTimingsMethod "getPresentationTime" o = FrameTimingsGetPresentationTimeMethodInfo - ResolveFrameTimingsMethod "getRefreshInterval" o = FrameTimingsGetRefreshIntervalMethodInfo - ResolveFrameTimingsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFrameTimingsMethod t FrameTimings, MethodInfo info FrameTimings p) => IsLabelProxy t (FrameTimings -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFrameTimingsMethod t FrameTimings, MethodInfo info FrameTimings p) => IsLabel t (FrameTimings -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/FrameTimings.hs-boot b/GI/Gdk/Structs/FrameTimings.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/FrameTimings.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gdk.Structs.FrameTimings where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FrameTimings = FrameTimings (ForeignPtr FrameTimings) -instance BoxedObject FrameTimings where -data FrameTimingsGetCompleteMethodInfo -data FrameTimingsGetFrameCounterMethodInfo -data FrameTimingsGetFrameTimeMethodInfo -data FrameTimingsGetPredictedPresentationTimeMethodInfo -data FrameTimingsGetPresentationTimeMethodInfo -data FrameTimingsGetRefreshIntervalMethodInfo -data FrameTimingsRefMethodInfo -data FrameTimingsUnrefMethodInfo diff --git a/GI/Gdk/Structs/Geometry.hs b/GI/Gdk/Structs/Geometry.hs deleted file mode 100644 --- a/GI/Gdk/Structs/Geometry.hs +++ /dev/null @@ -1,471 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GdkGeometry struct gives the window manager information about -a window’s geometry constraints. Normally you would set these on -the GTK+ level using gtk_window_set_geometry_hints(). #GtkWindow -then sets the hints on the #GdkWindow it creates. - -gdk_window_set_geometry_hints() expects the hints to be fully valid already -and simply passes them to the window manager; in contrast, -gtk_window_set_geometry_hints() performs some interpretation. For example, -#GtkWindow will apply the hints to the geometry widget instead of the -toplevel window, if you set a geometry widget. Also, the -@min_width/@min_height/@max_width/@max_height fields may be set to -1, and -#GtkWindow will substitute the size request of the window or geometry widget. -If the minimum size hint is not provided, #GtkWindow will use its requisition -as the minimum size. If the minimum size is provided and a geometry widget is -set, #GtkWindow will take the minimum size as the minimum size of the -geometry widget rather than the entire window. The base size is treated -similarly. - -The canonical use-case for gtk_window_set_geometry_hints() is to get a -terminal widget to resize properly. Here, the terminal text area should be -the geometry widget; #GtkWindow will then automatically set the base size to -the size of other widgets in the terminal window, such as the menubar and -scrollbar. Then, the @width_inc and @height_inc fields should be set to the -size of one character in the terminal. Finally, the base size should be set -to the size of one character. The net effect is that the minimum size of the -terminal will have a 1x1 character terminal area, and only terminal sizes on -the “character grid” will be allowed. - -Here’s an example of how the terminal example would be implemented, assuming -a terminal area widget called “terminal” and a toplevel window “toplevel”: - -|[ - GdkGeometry hints; - - hints.base_width = terminal->char_width; - hints.base_height = terminal->char_height; - hints.min_width = terminal->char_width; - hints.min_height = terminal->char_height; - hints.width_inc = terminal->char_width; - hints.height_inc = terminal->char_height; - - gtk_window_set_geometry_hints (GTK_WINDOW (toplevel), - GTK_WIDGET (terminal), - &hints, - GDK_HINT_RESIZE_INC | - GDK_HINT_MIN_SIZE | - GDK_HINT_BASE_SIZE); -]| - -The other useful fields are the @min_aspect and @max_aspect fields; these -contain a width/height ratio as a floating point number. If a geometry widget -is set, the aspect applies to the geometry widget rather than the entire -window. The most common use of these hints is probably to set @min_aspect and -@max_aspect to the same value, thus forcing the window to keep a constant -aspect ratio. --} - -module GI.Gdk.Structs.Geometry - ( - --- * Exported types - Geometry(..) , - newZeroGeometry , - noGeometry , - - - -- * Properties --- ** BaseHeight - geometryBaseHeight , - geometryReadBaseHeight , - geometryWriteBaseHeight , - - --- ** BaseWidth - geometryBaseWidth , - geometryReadBaseWidth , - geometryWriteBaseWidth , - - --- ** HeightInc - geometryHeightInc , - geometryReadHeightInc , - geometryWriteHeightInc , - - --- ** MaxAspect - geometryMaxAspect , - geometryReadMaxAspect , - geometryWriteMaxAspect , - - --- ** MaxHeight - geometryMaxHeight , - geometryReadMaxHeight , - geometryWriteMaxHeight , - - --- ** MaxWidth - geometryMaxWidth , - geometryReadMaxWidth , - geometryWriteMaxWidth , - - --- ** MinAspect - geometryMinAspect , - geometryReadMinAspect , - geometryWriteMinAspect , - - --- ** MinHeight - geometryMinHeight , - geometryReadMinHeight , - geometryWriteMinHeight , - - --- ** MinWidth - geometryMinWidth , - geometryReadMinWidth , - geometryWriteMinWidth , - - --- ** WidthInc - geometryReadWidthInc , - geometryWidthInc , - geometryWriteWidthInc , - - --- ** WinGravity - geometryReadWinGravity , - geometryWinGravity , - geometryWriteWinGravity , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype Geometry = Geometry (ForeignPtr Geometry) -instance WrappedPtr Geometry where - wrappedPtrCalloc = callocBytes 56 - wrappedPtrCopy = copyPtr 56 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Geometry` struct initialized to zero. -newZeroGeometry :: MonadIO m => m Geometry -newZeroGeometry = liftIO $ wrappedPtrCalloc >>= wrapPtr Geometry - -instance tag ~ 'AttrSet => Constructible Geometry tag where - new _ attrs = do - o <- newZeroGeometry - GI.Attributes.set o attrs - return o - - -noGeometry :: Maybe Geometry -noGeometry = Nothing - -geometryReadMinWidth :: MonadIO m => Geometry -> m Int32 -geometryReadMinWidth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -geometryWriteMinWidth :: MonadIO m => Geometry -> Int32 -> m () -geometryWriteMinWidth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data GeometryMinWidthFieldInfo -instance AttrInfo GeometryMinWidthFieldInfo where - type AttrAllowedOps GeometryMinWidthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryMinWidthFieldInfo = (~) Int32 - type AttrBaseTypeConstraint GeometryMinWidthFieldInfo = (~) Geometry - type AttrGetType GeometryMinWidthFieldInfo = Int32 - type AttrLabel GeometryMinWidthFieldInfo = "min_width" - attrGet _ = geometryReadMinWidth - attrSet _ = geometryWriteMinWidth - attrConstruct = undefined - attrClear _ = undefined - -geometryMinWidth :: AttrLabelProxy "minWidth" -geometryMinWidth = AttrLabelProxy - - -geometryReadMinHeight :: MonadIO m => Geometry -> m Int32 -geometryReadMinHeight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -geometryWriteMinHeight :: MonadIO m => Geometry -> Int32 -> m () -geometryWriteMinHeight s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Int32) - -data GeometryMinHeightFieldInfo -instance AttrInfo GeometryMinHeightFieldInfo where - type AttrAllowedOps GeometryMinHeightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryMinHeightFieldInfo = (~) Int32 - type AttrBaseTypeConstraint GeometryMinHeightFieldInfo = (~) Geometry - type AttrGetType GeometryMinHeightFieldInfo = Int32 - type AttrLabel GeometryMinHeightFieldInfo = "min_height" - attrGet _ = geometryReadMinHeight - attrSet _ = geometryWriteMinHeight - attrConstruct = undefined - attrClear _ = undefined - -geometryMinHeight :: AttrLabelProxy "minHeight" -geometryMinHeight = AttrLabelProxy - - -geometryReadMaxWidth :: MonadIO m => Geometry -> m Int32 -geometryReadMaxWidth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -geometryWriteMaxWidth :: MonadIO m => Geometry -> Int32 -> m () -geometryWriteMaxWidth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int32) - -data GeometryMaxWidthFieldInfo -instance AttrInfo GeometryMaxWidthFieldInfo where - type AttrAllowedOps GeometryMaxWidthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryMaxWidthFieldInfo = (~) Int32 - type AttrBaseTypeConstraint GeometryMaxWidthFieldInfo = (~) Geometry - type AttrGetType GeometryMaxWidthFieldInfo = Int32 - type AttrLabel GeometryMaxWidthFieldInfo = "max_width" - attrGet _ = geometryReadMaxWidth - attrSet _ = geometryWriteMaxWidth - attrConstruct = undefined - attrClear _ = undefined - -geometryMaxWidth :: AttrLabelProxy "maxWidth" -geometryMaxWidth = AttrLabelProxy - - -geometryReadMaxHeight :: MonadIO m => Geometry -> m Int32 -geometryReadMaxHeight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -geometryWriteMaxHeight :: MonadIO m => Geometry -> Int32 -> m () -geometryWriteMaxHeight s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Int32) - -data GeometryMaxHeightFieldInfo -instance AttrInfo GeometryMaxHeightFieldInfo where - type AttrAllowedOps GeometryMaxHeightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryMaxHeightFieldInfo = (~) Int32 - type AttrBaseTypeConstraint GeometryMaxHeightFieldInfo = (~) Geometry - type AttrGetType GeometryMaxHeightFieldInfo = Int32 - type AttrLabel GeometryMaxHeightFieldInfo = "max_height" - attrGet _ = geometryReadMaxHeight - attrSet _ = geometryWriteMaxHeight - attrConstruct = undefined - attrClear _ = undefined - -geometryMaxHeight :: AttrLabelProxy "maxHeight" -geometryMaxHeight = AttrLabelProxy - - -geometryReadBaseWidth :: MonadIO m => Geometry -> m Int32 -geometryReadBaseWidth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int32 - return val - -geometryWriteBaseWidth :: MonadIO m => Geometry -> Int32 -> m () -geometryWriteBaseWidth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int32) - -data GeometryBaseWidthFieldInfo -instance AttrInfo GeometryBaseWidthFieldInfo where - type AttrAllowedOps GeometryBaseWidthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryBaseWidthFieldInfo = (~) Int32 - type AttrBaseTypeConstraint GeometryBaseWidthFieldInfo = (~) Geometry - type AttrGetType GeometryBaseWidthFieldInfo = Int32 - type AttrLabel GeometryBaseWidthFieldInfo = "base_width" - attrGet _ = geometryReadBaseWidth - attrSet _ = geometryWriteBaseWidth - attrConstruct = undefined - attrClear _ = undefined - -geometryBaseWidth :: AttrLabelProxy "baseWidth" -geometryBaseWidth = AttrLabelProxy - - -geometryReadBaseHeight :: MonadIO m => Geometry -> m Int32 -geometryReadBaseHeight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Int32 - return val - -geometryWriteBaseHeight :: MonadIO m => Geometry -> Int32 -> m () -geometryWriteBaseHeight s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Int32) - -data GeometryBaseHeightFieldInfo -instance AttrInfo GeometryBaseHeightFieldInfo where - type AttrAllowedOps GeometryBaseHeightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryBaseHeightFieldInfo = (~) Int32 - type AttrBaseTypeConstraint GeometryBaseHeightFieldInfo = (~) Geometry - type AttrGetType GeometryBaseHeightFieldInfo = Int32 - type AttrLabel GeometryBaseHeightFieldInfo = "base_height" - attrGet _ = geometryReadBaseHeight - attrSet _ = geometryWriteBaseHeight - attrConstruct = undefined - attrClear _ = undefined - -geometryBaseHeight :: AttrLabelProxy "baseHeight" -geometryBaseHeight = AttrLabelProxy - - -geometryReadWidthInc :: MonadIO m => Geometry -> m Int32 -geometryReadWidthInc s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Int32 - return val - -geometryWriteWidthInc :: MonadIO m => Geometry -> Int32 -> m () -geometryWriteWidthInc s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Int32) - -data GeometryWidthIncFieldInfo -instance AttrInfo GeometryWidthIncFieldInfo where - type AttrAllowedOps GeometryWidthIncFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryWidthIncFieldInfo = (~) Int32 - type AttrBaseTypeConstraint GeometryWidthIncFieldInfo = (~) Geometry - type AttrGetType GeometryWidthIncFieldInfo = Int32 - type AttrLabel GeometryWidthIncFieldInfo = "width_inc" - attrGet _ = geometryReadWidthInc - attrSet _ = geometryWriteWidthInc - attrConstruct = undefined - attrClear _ = undefined - -geometryWidthInc :: AttrLabelProxy "widthInc" -geometryWidthInc = AttrLabelProxy - - -geometryReadHeightInc :: MonadIO m => Geometry -> m Int32 -geometryReadHeightInc s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Int32 - return val - -geometryWriteHeightInc :: MonadIO m => Geometry -> Int32 -> m () -geometryWriteHeightInc s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 28) (val :: Int32) - -data GeometryHeightIncFieldInfo -instance AttrInfo GeometryHeightIncFieldInfo where - type AttrAllowedOps GeometryHeightIncFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryHeightIncFieldInfo = (~) Int32 - type AttrBaseTypeConstraint GeometryHeightIncFieldInfo = (~) Geometry - type AttrGetType GeometryHeightIncFieldInfo = Int32 - type AttrLabel GeometryHeightIncFieldInfo = "height_inc" - attrGet _ = geometryReadHeightInc - attrSet _ = geometryWriteHeightInc - attrConstruct = undefined - attrClear _ = undefined - -geometryHeightInc :: AttrLabelProxy "heightInc" -geometryHeightInc = AttrLabelProxy - - -geometryReadMinAspect :: MonadIO m => Geometry -> m Double -geometryReadMinAspect s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -geometryWriteMinAspect :: MonadIO m => Geometry -> Double -> m () -geometryWriteMinAspect s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 32) (val' :: CDouble) - -data GeometryMinAspectFieldInfo -instance AttrInfo GeometryMinAspectFieldInfo where - type AttrAllowedOps GeometryMinAspectFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryMinAspectFieldInfo = (~) Double - type AttrBaseTypeConstraint GeometryMinAspectFieldInfo = (~) Geometry - type AttrGetType GeometryMinAspectFieldInfo = Double - type AttrLabel GeometryMinAspectFieldInfo = "min_aspect" - attrGet _ = geometryReadMinAspect - attrSet _ = geometryWriteMinAspect - attrConstruct = undefined - attrClear _ = undefined - -geometryMinAspect :: AttrLabelProxy "minAspect" -geometryMinAspect = AttrLabelProxy - - -geometryReadMaxAspect :: MonadIO m => Geometry -> m Double -geometryReadMaxAspect s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -geometryWriteMaxAspect :: MonadIO m => Geometry -> Double -> m () -geometryWriteMaxAspect s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 40) (val' :: CDouble) - -data GeometryMaxAspectFieldInfo -instance AttrInfo GeometryMaxAspectFieldInfo where - type AttrAllowedOps GeometryMaxAspectFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryMaxAspectFieldInfo = (~) Double - type AttrBaseTypeConstraint GeometryMaxAspectFieldInfo = (~) Geometry - type AttrGetType GeometryMaxAspectFieldInfo = Double - type AttrLabel GeometryMaxAspectFieldInfo = "max_aspect" - attrGet _ = geometryReadMaxAspect - attrSet _ = geometryWriteMaxAspect - attrConstruct = undefined - attrClear _ = undefined - -geometryMaxAspect :: AttrLabelProxy "maxAspect" -geometryMaxAspect = AttrLabelProxy - - -geometryReadWinGravity :: MonadIO m => Geometry -> m Gravity -geometryReadWinGravity s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -geometryWriteWinGravity :: MonadIO m => Geometry -> Gravity -> m () -geometryWriteWinGravity s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 48) (val' :: CUInt) - -data GeometryWinGravityFieldInfo -instance AttrInfo GeometryWinGravityFieldInfo where - type AttrAllowedOps GeometryWinGravityFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint GeometryWinGravityFieldInfo = (~) Gravity - type AttrBaseTypeConstraint GeometryWinGravityFieldInfo = (~) Geometry - type AttrGetType GeometryWinGravityFieldInfo = Gravity - type AttrLabel GeometryWinGravityFieldInfo = "win_gravity" - attrGet _ = geometryReadWinGravity - attrSet _ = geometryWriteWinGravity - attrConstruct = undefined - attrClear _ = undefined - -geometryWinGravity :: AttrLabelProxy "winGravity" -geometryWinGravity = AttrLabelProxy - - - -type instance AttributeList Geometry = GeometryAttributeList -type GeometryAttributeList = ('[ '("minWidth", GeometryMinWidthFieldInfo), '("minHeight", GeometryMinHeightFieldInfo), '("maxWidth", GeometryMaxWidthFieldInfo), '("maxHeight", GeometryMaxHeightFieldInfo), '("baseWidth", GeometryBaseWidthFieldInfo), '("baseHeight", GeometryBaseHeightFieldInfo), '("widthInc", GeometryWidthIncFieldInfo), '("heightInc", GeometryHeightIncFieldInfo), '("minAspect", GeometryMinAspectFieldInfo), '("maxAspect", GeometryMaxAspectFieldInfo), '("winGravity", GeometryWinGravityFieldInfo)] :: [(Symbol, *)]) - -type family ResolveGeometryMethod (t :: Symbol) (o :: *) :: * where - ResolveGeometryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveGeometryMethod t Geometry, MethodInfo info Geometry p) => IsLabelProxy t (Geometry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveGeometryMethod t Geometry, MethodInfo info Geometry p) => IsLabel t (Geometry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/Geometry.hs-boot b/GI/Gdk/Structs/Geometry.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/Geometry.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.Geometry where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Geometry = Geometry (ForeignPtr Geometry) -instance WrappedPtr Geometry where diff --git a/GI/Gdk/Structs/KeymapKey.hs b/GI/Gdk/Structs/KeymapKey.hs deleted file mode 100644 --- a/GI/Gdk/Structs/KeymapKey.hs +++ /dev/null @@ -1,163 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #GdkKeymapKey is a hardware key that can be mapped to a keyval. --} - -module GI.Gdk.Structs.KeymapKey - ( - --- * Exported types - KeymapKey(..) , - newZeroKeymapKey , - noKeymapKey , - - - -- * Properties --- ** Group - keymapKeyGroup , - keymapKeyReadGroup , - keymapKeyWriteGroup , - - --- ** Keycode - keymapKeyKeycode , - keymapKeyReadKeycode , - keymapKeyWriteKeycode , - - --- ** Level - keymapKeyLevel , - keymapKeyReadLevel , - keymapKeyWriteLevel , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype KeymapKey = KeymapKey (ForeignPtr KeymapKey) -instance WrappedPtr KeymapKey where - wrappedPtrCalloc = callocBytes 12 - wrappedPtrCopy = copyPtr 12 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `KeymapKey` struct initialized to zero. -newZeroKeymapKey :: MonadIO m => m KeymapKey -newZeroKeymapKey = liftIO $ wrappedPtrCalloc >>= wrapPtr KeymapKey - -instance tag ~ 'AttrSet => Constructible KeymapKey tag where - new _ attrs = do - o <- newZeroKeymapKey - GI.Attributes.set o attrs - return o - - -noKeymapKey :: Maybe KeymapKey -noKeymapKey = Nothing - -keymapKeyReadKeycode :: MonadIO m => KeymapKey -> m Word32 -keymapKeyReadKeycode s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -keymapKeyWriteKeycode :: MonadIO m => KeymapKey -> Word32 -> m () -keymapKeyWriteKeycode s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word32) - -data KeymapKeyKeycodeFieldInfo -instance AttrInfo KeymapKeyKeycodeFieldInfo where - type AttrAllowedOps KeymapKeyKeycodeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint KeymapKeyKeycodeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint KeymapKeyKeycodeFieldInfo = (~) KeymapKey - type AttrGetType KeymapKeyKeycodeFieldInfo = Word32 - type AttrLabel KeymapKeyKeycodeFieldInfo = "keycode" - attrGet _ = keymapKeyReadKeycode - attrSet _ = keymapKeyWriteKeycode - attrConstruct = undefined - attrClear _ = undefined - -keymapKeyKeycode :: AttrLabelProxy "keycode" -keymapKeyKeycode = AttrLabelProxy - - -keymapKeyReadGroup :: MonadIO m => KeymapKey -> m Int32 -keymapKeyReadGroup s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -keymapKeyWriteGroup :: MonadIO m => KeymapKey -> Int32 -> m () -keymapKeyWriteGroup s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Int32) - -data KeymapKeyGroupFieldInfo -instance AttrInfo KeymapKeyGroupFieldInfo where - type AttrAllowedOps KeymapKeyGroupFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint KeymapKeyGroupFieldInfo = (~) Int32 - type AttrBaseTypeConstraint KeymapKeyGroupFieldInfo = (~) KeymapKey - type AttrGetType KeymapKeyGroupFieldInfo = Int32 - type AttrLabel KeymapKeyGroupFieldInfo = "group" - attrGet _ = keymapKeyReadGroup - attrSet _ = keymapKeyWriteGroup - attrConstruct = undefined - attrClear _ = undefined - -keymapKeyGroup :: AttrLabelProxy "group" -keymapKeyGroup = AttrLabelProxy - - -keymapKeyReadLevel :: MonadIO m => KeymapKey -> m Int32 -keymapKeyReadLevel s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -keymapKeyWriteLevel :: MonadIO m => KeymapKey -> Int32 -> m () -keymapKeyWriteLevel s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int32) - -data KeymapKeyLevelFieldInfo -instance AttrInfo KeymapKeyLevelFieldInfo where - type AttrAllowedOps KeymapKeyLevelFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint KeymapKeyLevelFieldInfo = (~) Int32 - type AttrBaseTypeConstraint KeymapKeyLevelFieldInfo = (~) KeymapKey - type AttrGetType KeymapKeyLevelFieldInfo = Int32 - type AttrLabel KeymapKeyLevelFieldInfo = "level" - attrGet _ = keymapKeyReadLevel - attrSet _ = keymapKeyWriteLevel - attrConstruct = undefined - attrClear _ = undefined - -keymapKeyLevel :: AttrLabelProxy "level" -keymapKeyLevel = AttrLabelProxy - - - -type instance AttributeList KeymapKey = KeymapKeyAttributeList -type KeymapKeyAttributeList = ('[ '("keycode", KeymapKeyKeycodeFieldInfo), '("group", KeymapKeyGroupFieldInfo), '("level", KeymapKeyLevelFieldInfo)] :: [(Symbol, *)]) - -type family ResolveKeymapKeyMethod (t :: Symbol) (o :: *) :: * where - ResolveKeymapKeyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveKeymapKeyMethod t KeymapKey, MethodInfo info KeymapKey p) => IsLabelProxy t (KeymapKey -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveKeymapKeyMethod t KeymapKey, MethodInfo info KeymapKey p) => IsLabel t (KeymapKey -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/KeymapKey.hs-boot b/GI/Gdk/Structs/KeymapKey.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/KeymapKey.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.KeymapKey where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype KeymapKey = KeymapKey (ForeignPtr KeymapKey) -instance WrappedPtr KeymapKey where diff --git a/GI/Gdk/Structs/Point.hs b/GI/Gdk/Structs/Point.hs deleted file mode 100644 --- a/GI/Gdk/Structs/Point.hs +++ /dev/null @@ -1,132 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Defines the x and y coordinates of a point. --} - -module GI.Gdk.Structs.Point - ( - --- * Exported types - Point(..) , - newZeroPoint , - noPoint , - - - -- * Properties --- ** X - pointReadX , - pointWriteX , - pointX , - - --- ** Y - pointReadY , - pointWriteY , - pointY , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype Point = Point (ForeignPtr Point) -instance WrappedPtr Point where - wrappedPtrCalloc = callocBytes 8 - wrappedPtrCopy = copyPtr 8 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Point` struct initialized to zero. -newZeroPoint :: MonadIO m => m Point -newZeroPoint = liftIO $ wrappedPtrCalloc >>= wrapPtr Point - -instance tag ~ 'AttrSet => Constructible Point tag where - new _ attrs = do - o <- newZeroPoint - GI.Attributes.set o attrs - return o - - -noPoint :: Maybe Point -noPoint = Nothing - -pointReadX :: MonadIO m => Point -> m Int32 -pointReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -pointWriteX :: MonadIO m => Point -> Int32 -> m () -pointWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data PointXFieldInfo -instance AttrInfo PointXFieldInfo where - type AttrAllowedOps PointXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PointXFieldInfo = (~) Int32 - type AttrBaseTypeConstraint PointXFieldInfo = (~) Point - type AttrGetType PointXFieldInfo = Int32 - type AttrLabel PointXFieldInfo = "x" - attrGet _ = pointReadX - attrSet _ = pointWriteX - attrConstruct = undefined - attrClear _ = undefined - -pointX :: AttrLabelProxy "x" -pointX = AttrLabelProxy - - -pointReadY :: MonadIO m => Point -> m Int32 -pointReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -pointWriteY :: MonadIO m => Point -> Int32 -> m () -pointWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Int32) - -data PointYFieldInfo -instance AttrInfo PointYFieldInfo where - type AttrAllowedOps PointYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PointYFieldInfo = (~) Int32 - type AttrBaseTypeConstraint PointYFieldInfo = (~) Point - type AttrGetType PointYFieldInfo = Int32 - type AttrLabel PointYFieldInfo = "y" - attrGet _ = pointReadY - attrSet _ = pointWriteY - attrConstruct = undefined - attrClear _ = undefined - -pointY :: AttrLabelProxy "y" -pointY = AttrLabelProxy - - - -type instance AttributeList Point = PointAttributeList -type PointAttributeList = ('[ '("x", PointXFieldInfo), '("y", PointYFieldInfo)] :: [(Symbol, *)]) - -type family ResolvePointMethod (t :: Symbol) (o :: *) :: * where - ResolvePointMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePointMethod t Point, MethodInfo info Point p) => IsLabelProxy t (Point -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePointMethod t Point, MethodInfo info Point p) => IsLabel t (Point -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/Point.hs-boot b/GI/Gdk/Structs/Point.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/Point.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.Point where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Point = Point (ForeignPtr Point) -instance WrappedPtr Point where diff --git a/GI/Gdk/Structs/RGBA.hs b/GI/Gdk/Structs/RGBA.hs deleted file mode 100644 --- a/GI/Gdk/Structs/RGBA.hs +++ /dev/null @@ -1,420 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #GdkRGBA is used to represent a (possibly translucent) -color, in a way that is compatible with cairos notion of color. --} - -module GI.Gdk.Structs.RGBA - ( - --- * Exported types - RGBA(..) , - newZeroRGBA , - noRGBA , - - - -- * Methods --- ** rGBACopy - RGBACopyMethodInfo , - rGBACopy , - - --- ** rGBAEqual - RGBAEqualMethodInfo , - rGBAEqual , - - --- ** rGBAFree - RGBAFreeMethodInfo , - rGBAFree , - - --- ** rGBAHash - RGBAHashMethodInfo , - rGBAHash , - - --- ** rGBAParse - RGBAParseMethodInfo , - rGBAParse , - - --- ** rGBAToString - RGBAToStringMethodInfo , - rGBAToString , - - - - - -- * Properties --- ** Alpha - rGBAAlpha , - rGBAReadAlpha , - rGBAWriteAlpha , - - --- ** Blue - rGBABlue , - rGBAReadBlue , - rGBAWriteBlue , - - --- ** Green - rGBAGreen , - rGBAReadGreen , - rGBAWriteGreen , - - --- ** Red - rGBAReadRed , - rGBARed , - rGBAWriteRed , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype RGBA = RGBA (ForeignPtr RGBA) -foreign import ccall "gdk_rgba_get_type" c_gdk_rgba_get_type :: - IO GType - -instance BoxedObject RGBA where - boxedType _ = c_gdk_rgba_get_type - --- | Construct a `RGBA` struct initialized to zero. -newZeroRGBA :: MonadIO m => m RGBA -newZeroRGBA = liftIO $ callocBoxedBytes 32 >>= wrapBoxed RGBA - -instance tag ~ 'AttrSet => Constructible RGBA tag where - new _ attrs = do - o <- newZeroRGBA - GI.Attributes.set o attrs - return o - - -noRGBA :: Maybe RGBA -noRGBA = Nothing - -rGBAReadRed :: MonadIO m => RGBA -> m Double -rGBAReadRed s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CDouble - let val' = realToFrac val - return val' - -rGBAWriteRed :: MonadIO m => RGBA -> Double -> m () -rGBAWriteRed s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 0) (val' :: CDouble) - -data RGBARedFieldInfo -instance AttrInfo RGBARedFieldInfo where - type AttrAllowedOps RGBARedFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RGBARedFieldInfo = (~) Double - type AttrBaseTypeConstraint RGBARedFieldInfo = (~) RGBA - type AttrGetType RGBARedFieldInfo = Double - type AttrLabel RGBARedFieldInfo = "red" - attrGet _ = rGBAReadRed - attrSet _ = rGBAWriteRed - attrConstruct = undefined - attrClear _ = undefined - -rGBARed :: AttrLabelProxy "red" -rGBARed = AttrLabelProxy - - -rGBAReadGreen :: MonadIO m => RGBA -> m Double -rGBAReadGreen s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CDouble - let val' = realToFrac val - return val' - -rGBAWriteGreen :: MonadIO m => RGBA -> Double -> m () -rGBAWriteGreen s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 8) (val' :: CDouble) - -data RGBAGreenFieldInfo -instance AttrInfo RGBAGreenFieldInfo where - type AttrAllowedOps RGBAGreenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RGBAGreenFieldInfo = (~) Double - type AttrBaseTypeConstraint RGBAGreenFieldInfo = (~) RGBA - type AttrGetType RGBAGreenFieldInfo = Double - type AttrLabel RGBAGreenFieldInfo = "green" - attrGet _ = rGBAReadGreen - attrSet _ = rGBAWriteGreen - attrConstruct = undefined - attrClear _ = undefined - -rGBAGreen :: AttrLabelProxy "green" -rGBAGreen = AttrLabelProxy - - -rGBAReadBlue :: MonadIO m => RGBA -> m Double -rGBAReadBlue s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CDouble - let val' = realToFrac val - return val' - -rGBAWriteBlue :: MonadIO m => RGBA -> Double -> m () -rGBAWriteBlue s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 16) (val' :: CDouble) - -data RGBABlueFieldInfo -instance AttrInfo RGBABlueFieldInfo where - type AttrAllowedOps RGBABlueFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RGBABlueFieldInfo = (~) Double - type AttrBaseTypeConstraint RGBABlueFieldInfo = (~) RGBA - type AttrGetType RGBABlueFieldInfo = Double - type AttrLabel RGBABlueFieldInfo = "blue" - attrGet _ = rGBAReadBlue - attrSet _ = rGBAWriteBlue - attrConstruct = undefined - attrClear _ = undefined - -rGBABlue :: AttrLabelProxy "blue" -rGBABlue = AttrLabelProxy - - -rGBAReadAlpha :: MonadIO m => RGBA -> m Double -rGBAReadAlpha s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CDouble - let val' = realToFrac val - return val' - -rGBAWriteAlpha :: MonadIO m => RGBA -> Double -> m () -rGBAWriteAlpha s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 24) (val' :: CDouble) - -data RGBAAlphaFieldInfo -instance AttrInfo RGBAAlphaFieldInfo where - type AttrAllowedOps RGBAAlphaFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RGBAAlphaFieldInfo = (~) Double - type AttrBaseTypeConstraint RGBAAlphaFieldInfo = (~) RGBA - type AttrGetType RGBAAlphaFieldInfo = Double - type AttrLabel RGBAAlphaFieldInfo = "alpha" - attrGet _ = rGBAReadAlpha - attrSet _ = rGBAWriteAlpha - attrConstruct = undefined - attrClear _ = undefined - -rGBAAlpha :: AttrLabelProxy "alpha" -rGBAAlpha = AttrLabelProxy - - - -type instance AttributeList RGBA = RGBAAttributeList -type RGBAAttributeList = ('[ '("red", RGBARedFieldInfo), '("green", RGBAGreenFieldInfo), '("blue", RGBABlueFieldInfo), '("alpha", RGBAAlphaFieldInfo)] :: [(Symbol, *)]) - --- method RGBA::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "RGBA") --- throws : False --- Skip return : False - -foreign import ccall "gdk_rgba_copy" gdk_rgba_copy :: - Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" - IO (Ptr RGBA) - - -rGBACopy :: - (MonadIO m) => - RGBA -- _obj - -> m RGBA -- result -rGBACopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_rgba_copy _obj' - checkUnexpectedReturnNULL "gdk_rgba_copy" result - result' <- (wrapBoxed RGBA) result - touchManagedPtr _obj - return result' - -data RGBACopyMethodInfo -instance (signature ~ (m RGBA), MonadIO m) => MethodInfo RGBACopyMethodInfo RGBA signature where - overloadedMethod _ = rGBACopy - --- method RGBA::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "p2", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_rgba_equal" gdk_rgba_equal :: - Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" - Ptr RGBA -> -- p2 : TInterface "Gdk" "RGBA" - IO CInt - - -rGBAEqual :: - (MonadIO m) => - RGBA -- _obj - -> RGBA -- p2 - -> m Bool -- result -rGBAEqual _obj p2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let p2' = unsafeManagedPtrGetPtr p2 - result <- gdk_rgba_equal _obj' p2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr p2 - return result' - -data RGBAEqualMethodInfo -instance (signature ~ (RGBA -> m Bool), MonadIO m) => MethodInfo RGBAEqualMethodInfo RGBA signature where - overloadedMethod _ = rGBAEqual - --- method RGBA::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_rgba_free" gdk_rgba_free :: - Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" - IO () - - -rGBAFree :: - (MonadIO m) => - RGBA -- _obj - -> m () -- result -rGBAFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gdk_rgba_free _obj' - touchManagedPtr _obj - return () - -data RGBAFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RGBAFreeMethodInfo RGBA signature where - overloadedMethod _ = rGBAFree - --- method RGBA::hash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "gdk_rgba_hash" gdk_rgba_hash :: - Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" - IO Word32 - - -rGBAHash :: - (MonadIO m) => - RGBA -- _obj - -> m Word32 -- result -rGBAHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_rgba_hash _obj' - touchManagedPtr _obj - return result - -data RGBAHashMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo RGBAHashMethodInfo RGBA signature where - overloadedMethod _ = rGBAHash - --- method RGBA::parse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_rgba_parse" gdk_rgba_parse :: - Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" - CString -> -- spec : TBasicType TUTF8 - IO CInt - - -rGBAParse :: - (MonadIO m) => - RGBA -- _obj - -> T.Text -- spec - -> m Bool -- result -rGBAParse _obj spec = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - spec' <- textToCString spec - result <- gdk_rgba_parse _obj' spec' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem spec' - return result' - -data RGBAParseMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo RGBAParseMethodInfo RGBA signature where - overloadedMethod _ = rGBAParse - --- method RGBA::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "gdk_rgba_to_string" gdk_rgba_to_string :: - Ptr RGBA -> -- _obj : TInterface "Gdk" "RGBA" - IO CString - - -rGBAToString :: - (MonadIO m) => - RGBA -- _obj - -> m T.Text -- result -rGBAToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_rgba_to_string _obj' - checkUnexpectedReturnNULL "gdk_rgba_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data RGBAToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RGBAToStringMethodInfo RGBA signature where - overloadedMethod _ = rGBAToString - -type family ResolveRGBAMethod (t :: Symbol) (o :: *) :: * where - ResolveRGBAMethod "copy" o = RGBACopyMethodInfo - ResolveRGBAMethod "equal" o = RGBAEqualMethodInfo - ResolveRGBAMethod "free" o = RGBAFreeMethodInfo - ResolveRGBAMethod "hash" o = RGBAHashMethodInfo - ResolveRGBAMethod "parse" o = RGBAParseMethodInfo - ResolveRGBAMethod "toString" o = RGBAToStringMethodInfo - ResolveRGBAMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRGBAMethod t RGBA, MethodInfo info RGBA p) => IsLabelProxy t (RGBA -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRGBAMethod t RGBA, MethodInfo info RGBA p) => IsLabel t (RGBA -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/RGBA.hs-boot b/GI/Gdk/Structs/RGBA.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/RGBA.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gdk.Structs.RGBA where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RGBA = RGBA (ForeignPtr RGBA) -instance BoxedObject RGBA where -data RGBACopyMethodInfo -data RGBAEqualMethodInfo -data RGBAFreeMethodInfo -data RGBAHashMethodInfo -data RGBAParseMethodInfo -data RGBAToStringMethodInfo diff --git a/GI/Gdk/Structs/Rectangle.hs b/GI/Gdk/Structs/Rectangle.hs deleted file mode 100644 --- a/GI/Gdk/Structs/Rectangle.hs +++ /dev/null @@ -1,280 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Defines the position and size of a rectangle. It is identical to -#cairo_rectangle_int_t. --} - -module GI.Gdk.Structs.Rectangle - ( - --- * Exported types - Rectangle(..) , - newZeroRectangle , - noRectangle , - - - -- * Methods --- ** rectangleIntersect - RectangleIntersectMethodInfo , - rectangleIntersect , - - --- ** rectangleUnion - RectangleUnionMethodInfo , - rectangleUnion , - - - - - -- * Properties --- ** Height - rectangleHeight , - rectangleReadHeight , - rectangleWriteHeight , - - --- ** Width - rectangleReadWidth , - rectangleWidth , - rectangleWriteWidth , - - --- ** X - rectangleReadX , - rectangleWriteX , - rectangleX , - - --- ** Y - rectangleReadY , - rectangleWriteY , - rectangleY , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype Rectangle = Rectangle (ForeignPtr Rectangle) -foreign import ccall "gdk_rectangle_get_type" c_gdk_rectangle_get_type :: - IO GType - -instance BoxedObject Rectangle where - boxedType _ = c_gdk_rectangle_get_type - --- | Construct a `Rectangle` struct initialized to zero. -newZeroRectangle :: MonadIO m => m Rectangle -newZeroRectangle = liftIO $ callocBoxedBytes 16 >>= wrapBoxed Rectangle - -instance tag ~ 'AttrSet => Constructible Rectangle tag where - new _ attrs = do - o <- newZeroRectangle - GI.Attributes.set o attrs - return o - - -noRectangle :: Maybe Rectangle -noRectangle = Nothing - -rectangleReadX :: MonadIO m => Rectangle -> m Int32 -rectangleReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -rectangleWriteX :: MonadIO m => Rectangle -> Int32 -> m () -rectangleWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data RectangleXFieldInfo -instance AttrInfo RectangleXFieldInfo where - type AttrAllowedOps RectangleXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RectangleXFieldInfo = (~) Int32 - type AttrBaseTypeConstraint RectangleXFieldInfo = (~) Rectangle - type AttrGetType RectangleXFieldInfo = Int32 - type AttrLabel RectangleXFieldInfo = "x" - attrGet _ = rectangleReadX - attrSet _ = rectangleWriteX - attrConstruct = undefined - attrClear _ = undefined - -rectangleX :: AttrLabelProxy "x" -rectangleX = AttrLabelProxy - - -rectangleReadY :: MonadIO m => Rectangle -> m Int32 -rectangleReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -rectangleWriteY :: MonadIO m => Rectangle -> Int32 -> m () -rectangleWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Int32) - -data RectangleYFieldInfo -instance AttrInfo RectangleYFieldInfo where - type AttrAllowedOps RectangleYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RectangleYFieldInfo = (~) Int32 - type AttrBaseTypeConstraint RectangleYFieldInfo = (~) Rectangle - type AttrGetType RectangleYFieldInfo = Int32 - type AttrLabel RectangleYFieldInfo = "y" - attrGet _ = rectangleReadY - attrSet _ = rectangleWriteY - attrConstruct = undefined - attrClear _ = undefined - -rectangleY :: AttrLabelProxy "y" -rectangleY = AttrLabelProxy - - -rectangleReadWidth :: MonadIO m => Rectangle -> m Int32 -rectangleReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -rectangleWriteWidth :: MonadIO m => Rectangle -> Int32 -> m () -rectangleWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int32) - -data RectangleWidthFieldInfo -instance AttrInfo RectangleWidthFieldInfo where - type AttrAllowedOps RectangleWidthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RectangleWidthFieldInfo = (~) Int32 - type AttrBaseTypeConstraint RectangleWidthFieldInfo = (~) Rectangle - type AttrGetType RectangleWidthFieldInfo = Int32 - type AttrLabel RectangleWidthFieldInfo = "width" - attrGet _ = rectangleReadWidth - attrSet _ = rectangleWriteWidth - attrConstruct = undefined - attrClear _ = undefined - -rectangleWidth :: AttrLabelProxy "width" -rectangleWidth = AttrLabelProxy - - -rectangleReadHeight :: MonadIO m => Rectangle -> m Int32 -rectangleReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -rectangleWriteHeight :: MonadIO m => Rectangle -> Int32 -> m () -rectangleWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Int32) - -data RectangleHeightFieldInfo -instance AttrInfo RectangleHeightFieldInfo where - type AttrAllowedOps RectangleHeightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RectangleHeightFieldInfo = (~) Int32 - type AttrBaseTypeConstraint RectangleHeightFieldInfo = (~) Rectangle - type AttrGetType RectangleHeightFieldInfo = Int32 - type AttrLabel RectangleHeightFieldInfo = "height" - attrGet _ = rectangleReadHeight - attrSet _ = rectangleWriteHeight - attrConstruct = undefined - attrClear _ = undefined - -rectangleHeight :: AttrLabelProxy "height" -rectangleHeight = AttrLabelProxy - - - -type instance AttributeList Rectangle = RectangleAttributeList -type RectangleAttributeList = ('[ '("x", RectangleXFieldInfo), '("y", RectangleYFieldInfo), '("width", RectangleWidthFieldInfo), '("height", RectangleHeightFieldInfo)] :: [(Symbol, *)]) - --- method Rectangle::intersect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_rectangle_intersect" gdk_rectangle_intersect :: - Ptr Rectangle -> -- _obj : TInterface "Gdk" "Rectangle" - Ptr Rectangle -> -- src2 : TInterface "Gdk" "Rectangle" - Ptr Rectangle -> -- dest : TInterface "Gdk" "Rectangle" - IO CInt - - -rectangleIntersect :: - (MonadIO m) => - Rectangle -- _obj - -> Rectangle -- src2 - -> m (Bool,Rectangle) -- result -rectangleIntersect _obj src2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let src2' = unsafeManagedPtrGetPtr src2 - dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - result <- gdk_rectangle_intersect _obj' src2' dest - let result' = (/= 0) result - dest' <- (wrapBoxed Rectangle) dest - touchManagedPtr _obj - touchManagedPtr src2 - return (result', dest') - -data RectangleIntersectMethodInfo -instance (signature ~ (Rectangle -> m (Bool,Rectangle)), MonadIO m) => MethodInfo RectangleIntersectMethodInfo Rectangle signature where - overloadedMethod _ = rectangleIntersect - --- method Rectangle::union --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_rectangle_union" gdk_rectangle_union :: - Ptr Rectangle -> -- _obj : TInterface "Gdk" "Rectangle" - Ptr Rectangle -> -- src2 : TInterface "Gdk" "Rectangle" - Ptr Rectangle -> -- dest : TInterface "Gdk" "Rectangle" - IO () - - -rectangleUnion :: - (MonadIO m) => - Rectangle -- _obj - -> Rectangle -- src2 - -> m (Rectangle) -- result -rectangleUnion _obj src2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let src2' = unsafeManagedPtrGetPtr src2 - dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle) - gdk_rectangle_union _obj' src2' dest - dest' <- (wrapBoxed Rectangle) dest - touchManagedPtr _obj - touchManagedPtr src2 - return dest' - -data RectangleUnionMethodInfo -instance (signature ~ (Rectangle -> m (Rectangle)), MonadIO m) => MethodInfo RectangleUnionMethodInfo Rectangle signature where - overloadedMethod _ = rectangleUnion - -type family ResolveRectangleMethod (t :: Symbol) (o :: *) :: * where - ResolveRectangleMethod "intersect" o = RectangleIntersectMethodInfo - ResolveRectangleMethod "union" o = RectangleUnionMethodInfo - ResolveRectangleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabelProxy t (Rectangle -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabel t (Rectangle -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/Rectangle.hs-boot b/GI/Gdk/Structs/Rectangle.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/Rectangle.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gdk.Structs.Rectangle where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Rectangle = Rectangle (ForeignPtr Rectangle) -instance BoxedObject Rectangle where -data RectangleIntersectMethodInfo -data RectangleUnionMethodInfo diff --git a/GI/Gdk/Structs/TimeCoord.hs b/GI/Gdk/Structs/TimeCoord.hs deleted file mode 100644 --- a/GI/Gdk/Structs/TimeCoord.hs +++ /dev/null @@ -1,102 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #GdkTimeCoord stores a single event in a motion history. --} - -module GI.Gdk.Structs.TimeCoord - ( - --- * Exported types - TimeCoord(..) , - newZeroTimeCoord , - noTimeCoord , - - - -- * Properties --- ** Time - timeCoordReadTime , - timeCoordTime , - timeCoordWriteTime , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype TimeCoord = TimeCoord (ForeignPtr TimeCoord) -instance WrappedPtr TimeCoord where - wrappedPtrCalloc = callocBytes 1032 - wrappedPtrCopy = copyPtr 1032 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `TimeCoord` struct initialized to zero. -newZeroTimeCoord :: MonadIO m => m TimeCoord -newZeroTimeCoord = liftIO $ wrappedPtrCalloc >>= wrapPtr TimeCoord - -instance tag ~ 'AttrSet => Constructible TimeCoord tag where - new _ attrs = do - o <- newZeroTimeCoord - GI.Attributes.set o attrs - return o - - -noTimeCoord :: Maybe TimeCoord -noTimeCoord = Nothing - -timeCoordReadTime :: MonadIO m => TimeCoord -> m Word32 -timeCoordReadTime s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word32 - return val - -timeCoordWriteTime :: MonadIO m => TimeCoord -> Word32 -> m () -timeCoordWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word32) - -data TimeCoordTimeFieldInfo -instance AttrInfo TimeCoordTimeFieldInfo where - type AttrAllowedOps TimeCoordTimeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TimeCoordTimeFieldInfo = (~) Word32 - type AttrBaseTypeConstraint TimeCoordTimeFieldInfo = (~) TimeCoord - type AttrGetType TimeCoordTimeFieldInfo = Word32 - type AttrLabel TimeCoordTimeFieldInfo = "time" - attrGet _ = timeCoordReadTime - attrSet _ = timeCoordWriteTime - attrConstruct = undefined - attrClear _ = undefined - -timeCoordTime :: AttrLabelProxy "time" -timeCoordTime = AttrLabelProxy - - --- XXX Skipped attribute for "TimeCoord:axes" :: Not implemented: "Don't know how to unpack C array of type TCArray False 128 (-1) (TBasicType TDouble)" - -type instance AttributeList TimeCoord = TimeCoordAttributeList -type TimeCoordAttributeList = ('[ '("time", TimeCoordTimeFieldInfo)] :: [(Symbol, *)]) - -type family ResolveTimeCoordMethod (t :: Symbol) (o :: *) :: * where - ResolveTimeCoordMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTimeCoordMethod t TimeCoord, MethodInfo info TimeCoord p) => IsLabelProxy t (TimeCoord -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTimeCoordMethod t TimeCoord, MethodInfo info TimeCoord p) => IsLabel t (TimeCoord -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/TimeCoord.hs-boot b/GI/Gdk/Structs/TimeCoord.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/TimeCoord.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.TimeCoord where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TimeCoord = TimeCoord (ForeignPtr TimeCoord) -instance WrappedPtr TimeCoord where diff --git a/GI/Gdk/Structs/WindowAttr.hs b/GI/Gdk/Structs/WindowAttr.hs deleted file mode 100644 --- a/GI/Gdk/Structs/WindowAttr.hs +++ /dev/null @@ -1,552 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Attributes to use for a newly-created window. --} - -module GI.Gdk.Structs.WindowAttr - ( - --- * Exported types - WindowAttr(..) , - newZeroWindowAttr , - noWindowAttr , - - - -- * Properties --- ** Cursor - windowAttrClearCursor , - windowAttrCursor , - windowAttrReadCursor , - windowAttrWriteCursor , - - --- ** EventMask - windowAttrEventMask , - windowAttrReadEventMask , - windowAttrWriteEventMask , - - --- ** Height - windowAttrHeight , - windowAttrReadHeight , - windowAttrWriteHeight , - - --- ** OverrideRedirect - windowAttrOverrideRedirect , - windowAttrReadOverrideRedirect , - windowAttrWriteOverrideRedirect , - - --- ** Title - windowAttrClearTitle , - windowAttrReadTitle , - windowAttrTitle , - windowAttrWriteTitle , - - --- ** TypeHint - windowAttrReadTypeHint , - windowAttrTypeHint , - windowAttrWriteTypeHint , - - --- ** Visual - windowAttrClearVisual , - windowAttrReadVisual , - windowAttrVisual , - windowAttrWriteVisual , - - --- ** Wclass - windowAttrReadWclass , - windowAttrWclass , - windowAttrWriteWclass , - - --- ** Width - windowAttrReadWidth , - windowAttrWidth , - windowAttrWriteWidth , - - --- ** WindowType - windowAttrReadWindowType , - windowAttrWindowType , - windowAttrWriteWindowType , - - --- ** WmclassClass - windowAttrClearWmclassClass , - windowAttrReadWmclassClass , - windowAttrWmclassClass , - windowAttrWriteWmclassClass , - - --- ** WmclassName - windowAttrClearWmclassName , - windowAttrReadWmclassName , - windowAttrWmclassName , - windowAttrWriteWmclassName , - - --- ** X - windowAttrReadX , - windowAttrWriteX , - windowAttrX , - - --- ** Y - windowAttrReadY , - windowAttrWriteY , - windowAttrY , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype WindowAttr = WindowAttr (ForeignPtr WindowAttr) -instance WrappedPtr WindowAttr where - wrappedPtrCalloc = callocBytes 80 - wrappedPtrCopy = copyPtr 80 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `WindowAttr` struct initialized to zero. -newZeroWindowAttr :: MonadIO m => m WindowAttr -newZeroWindowAttr = liftIO $ wrappedPtrCalloc >>= wrapPtr WindowAttr - -instance tag ~ 'AttrSet => Constructible WindowAttr tag where - new _ attrs = do - o <- newZeroWindowAttr - GI.Attributes.set o attrs - return o - - -noWindowAttr :: Maybe WindowAttr -noWindowAttr = Nothing - -windowAttrReadTitle :: MonadIO m => WindowAttr -> m (Maybe T.Text) -windowAttrReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -windowAttrWriteTitle :: MonadIO m => WindowAttr -> CString -> m () -windowAttrWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -windowAttrClearTitle :: MonadIO m => WindowAttr -> m () -windowAttrClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data WindowAttrTitleFieldInfo -instance AttrInfo WindowAttrTitleFieldInfo where - type AttrAllowedOps WindowAttrTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowAttrTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint WindowAttrTitleFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrTitleFieldInfo = Maybe T.Text - type AttrLabel WindowAttrTitleFieldInfo = "title" - attrGet _ = windowAttrReadTitle - attrSet _ = windowAttrWriteTitle - attrConstruct = undefined - attrClear _ = windowAttrClearTitle - -windowAttrTitle :: AttrLabelProxy "title" -windowAttrTitle = AttrLabelProxy - - -windowAttrReadEventMask :: MonadIO m => WindowAttr -> m Int32 -windowAttrReadEventMask s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -windowAttrWriteEventMask :: MonadIO m => WindowAttr -> Int32 -> m () -windowAttrWriteEventMask s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int32) - -data WindowAttrEventMaskFieldInfo -instance AttrInfo WindowAttrEventMaskFieldInfo where - type AttrAllowedOps WindowAttrEventMaskFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint WindowAttrEventMaskFieldInfo = (~) Int32 - type AttrBaseTypeConstraint WindowAttrEventMaskFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrEventMaskFieldInfo = Int32 - type AttrLabel WindowAttrEventMaskFieldInfo = "event_mask" - attrGet _ = windowAttrReadEventMask - attrSet _ = windowAttrWriteEventMask - attrConstruct = undefined - attrClear _ = undefined - -windowAttrEventMask :: AttrLabelProxy "eventMask" -windowAttrEventMask = AttrLabelProxy - - -windowAttrReadX :: MonadIO m => WindowAttr -> m Int32 -windowAttrReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -windowAttrWriteX :: MonadIO m => WindowAttr -> Int32 -> m () -windowAttrWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Int32) - -data WindowAttrXFieldInfo -instance AttrInfo WindowAttrXFieldInfo where - type AttrAllowedOps WindowAttrXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint WindowAttrXFieldInfo = (~) Int32 - type AttrBaseTypeConstraint WindowAttrXFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrXFieldInfo = Int32 - type AttrLabel WindowAttrXFieldInfo = "x" - attrGet _ = windowAttrReadX - attrSet _ = windowAttrWriteX - attrConstruct = undefined - attrClear _ = undefined - -windowAttrX :: AttrLabelProxy "x" -windowAttrX = AttrLabelProxy - - -windowAttrReadY :: MonadIO m => WindowAttr -> m Int32 -windowAttrReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int32 - return val - -windowAttrWriteY :: MonadIO m => WindowAttr -> Int32 -> m () -windowAttrWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int32) - -data WindowAttrYFieldInfo -instance AttrInfo WindowAttrYFieldInfo where - type AttrAllowedOps WindowAttrYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint WindowAttrYFieldInfo = (~) Int32 - type AttrBaseTypeConstraint WindowAttrYFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrYFieldInfo = Int32 - type AttrLabel WindowAttrYFieldInfo = "y" - attrGet _ = windowAttrReadY - attrSet _ = windowAttrWriteY - attrConstruct = undefined - attrClear _ = undefined - -windowAttrY :: AttrLabelProxy "y" -windowAttrY = AttrLabelProxy - - -windowAttrReadWidth :: MonadIO m => WindowAttr -> m Int32 -windowAttrReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Int32 - return val - -windowAttrWriteWidth :: MonadIO m => WindowAttr -> Int32 -> m () -windowAttrWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Int32) - -data WindowAttrWidthFieldInfo -instance AttrInfo WindowAttrWidthFieldInfo where - type AttrAllowedOps WindowAttrWidthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint WindowAttrWidthFieldInfo = (~) Int32 - type AttrBaseTypeConstraint WindowAttrWidthFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrWidthFieldInfo = Int32 - type AttrLabel WindowAttrWidthFieldInfo = "width" - attrGet _ = windowAttrReadWidth - attrSet _ = windowAttrWriteWidth - attrConstruct = undefined - attrClear _ = undefined - -windowAttrWidth :: AttrLabelProxy "width" -windowAttrWidth = AttrLabelProxy - - -windowAttrReadHeight :: MonadIO m => WindowAttr -> m Int32 -windowAttrReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO Int32 - return val - -windowAttrWriteHeight :: MonadIO m => WindowAttr -> Int32 -> m () -windowAttrWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Int32) - -data WindowAttrHeightFieldInfo -instance AttrInfo WindowAttrHeightFieldInfo where - type AttrAllowedOps WindowAttrHeightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint WindowAttrHeightFieldInfo = (~) Int32 - type AttrBaseTypeConstraint WindowAttrHeightFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrHeightFieldInfo = Int32 - type AttrLabel WindowAttrHeightFieldInfo = "height" - attrGet _ = windowAttrReadHeight - attrSet _ = windowAttrWriteHeight - attrConstruct = undefined - attrClear _ = undefined - -windowAttrHeight :: AttrLabelProxy "height" -windowAttrHeight = AttrLabelProxy - - -windowAttrReadWclass :: MonadIO m => WindowAttr -> m WindowWindowClass -windowAttrReadWclass s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -windowAttrWriteWclass :: MonadIO m => WindowAttr -> WindowWindowClass -> m () -windowAttrWriteWclass s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 28) (val' :: CUInt) - -data WindowAttrWclassFieldInfo -instance AttrInfo WindowAttrWclassFieldInfo where - type AttrAllowedOps WindowAttrWclassFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint WindowAttrWclassFieldInfo = (~) WindowWindowClass - type AttrBaseTypeConstraint WindowAttrWclassFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrWclassFieldInfo = WindowWindowClass - type AttrLabel WindowAttrWclassFieldInfo = "wclass" - attrGet _ = windowAttrReadWclass - attrSet _ = windowAttrWriteWclass - attrConstruct = undefined - attrClear _ = undefined - -windowAttrWclass :: AttrLabelProxy "wclass" -windowAttrWclass = AttrLabelProxy - - -windowAttrReadVisual :: MonadIO m => WindowAttr -> m (Maybe Visual) -windowAttrReadVisual s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr Visual) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Visual) val' - return val'' - return result - -windowAttrWriteVisual :: MonadIO m => WindowAttr -> Ptr Visual -> m () -windowAttrWriteVisual s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr Visual) - -windowAttrClearVisual :: MonadIO m => WindowAttr -> m () -windowAttrClearVisual s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr Visual) - -data WindowAttrVisualFieldInfo -instance AttrInfo WindowAttrVisualFieldInfo where - type AttrAllowedOps WindowAttrVisualFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowAttrVisualFieldInfo = (~) (Ptr Visual) - type AttrBaseTypeConstraint WindowAttrVisualFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrVisualFieldInfo = Maybe Visual - type AttrLabel WindowAttrVisualFieldInfo = "visual" - attrGet _ = windowAttrReadVisual - attrSet _ = windowAttrWriteVisual - attrConstruct = undefined - attrClear _ = windowAttrClearVisual - -windowAttrVisual :: AttrLabelProxy "visual" -windowAttrVisual = AttrLabelProxy - - -windowAttrReadWindowType :: MonadIO m => WindowAttr -> m WindowType -windowAttrReadWindowType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -windowAttrWriteWindowType :: MonadIO m => WindowAttr -> WindowType -> m () -windowAttrWriteWindowType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 40) (val' :: CUInt) - -data WindowAttrWindowTypeFieldInfo -instance AttrInfo WindowAttrWindowTypeFieldInfo where - type AttrAllowedOps WindowAttrWindowTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint WindowAttrWindowTypeFieldInfo = (~) WindowType - type AttrBaseTypeConstraint WindowAttrWindowTypeFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrWindowTypeFieldInfo = WindowType - type AttrLabel WindowAttrWindowTypeFieldInfo = "window_type" - attrGet _ = windowAttrReadWindowType - attrSet _ = windowAttrWriteWindowType - attrConstruct = undefined - attrClear _ = undefined - -windowAttrWindowType :: AttrLabelProxy "windowType" -windowAttrWindowType = AttrLabelProxy - - -windowAttrReadCursor :: MonadIO m => WindowAttr -> m (Maybe Cursor) -windowAttrReadCursor s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr Cursor) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Cursor) val' - return val'' - return result - -windowAttrWriteCursor :: MonadIO m => WindowAttr -> Ptr Cursor -> m () -windowAttrWriteCursor s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Ptr Cursor) - -windowAttrClearCursor :: MonadIO m => WindowAttr -> m () -windowAttrClearCursor s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (nullPtr :: Ptr Cursor) - -data WindowAttrCursorFieldInfo -instance AttrInfo WindowAttrCursorFieldInfo where - type AttrAllowedOps WindowAttrCursorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowAttrCursorFieldInfo = (~) (Ptr Cursor) - type AttrBaseTypeConstraint WindowAttrCursorFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrCursorFieldInfo = Maybe Cursor - type AttrLabel WindowAttrCursorFieldInfo = "cursor" - attrGet _ = windowAttrReadCursor - attrSet _ = windowAttrWriteCursor - attrConstruct = undefined - attrClear _ = windowAttrClearCursor - -windowAttrCursor :: AttrLabelProxy "cursor" -windowAttrCursor = AttrLabelProxy - - -windowAttrReadWmclassName :: MonadIO m => WindowAttr -> m (Maybe T.Text) -windowAttrReadWmclassName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -windowAttrWriteWmclassName :: MonadIO m => WindowAttr -> CString -> m () -windowAttrWriteWmclassName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (val :: CString) - -windowAttrClearWmclassName :: MonadIO m => WindowAttr -> m () -windowAttrClearWmclassName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (nullPtr :: CString) - -data WindowAttrWmclassNameFieldInfo -instance AttrInfo WindowAttrWmclassNameFieldInfo where - type AttrAllowedOps WindowAttrWmclassNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowAttrWmclassNameFieldInfo = (~) CString - type AttrBaseTypeConstraint WindowAttrWmclassNameFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrWmclassNameFieldInfo = Maybe T.Text - type AttrLabel WindowAttrWmclassNameFieldInfo = "wmclass_name" - attrGet _ = windowAttrReadWmclassName - attrSet _ = windowAttrWriteWmclassName - attrConstruct = undefined - attrClear _ = windowAttrClearWmclassName - -windowAttrWmclassName :: AttrLabelProxy "wmclassName" -windowAttrWmclassName = AttrLabelProxy - - -windowAttrReadWmclassClass :: MonadIO m => WindowAttr -> m (Maybe T.Text) -windowAttrReadWmclassClass s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -windowAttrWriteWmclassClass :: MonadIO m => WindowAttr -> CString -> m () -windowAttrWriteWmclassClass s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 64) (val :: CString) - -windowAttrClearWmclassClass :: MonadIO m => WindowAttr -> m () -windowAttrClearWmclassClass s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 64) (nullPtr :: CString) - -data WindowAttrWmclassClassFieldInfo -instance AttrInfo WindowAttrWmclassClassFieldInfo where - type AttrAllowedOps WindowAttrWmclassClassFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WindowAttrWmclassClassFieldInfo = (~) CString - type AttrBaseTypeConstraint WindowAttrWmclassClassFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrWmclassClassFieldInfo = Maybe T.Text - type AttrLabel WindowAttrWmclassClassFieldInfo = "wmclass_class" - attrGet _ = windowAttrReadWmclassClass - attrSet _ = windowAttrWriteWmclassClass - attrConstruct = undefined - attrClear _ = windowAttrClearWmclassClass - -windowAttrWmclassClass :: AttrLabelProxy "wmclassClass" -windowAttrWmclassClass = AttrLabelProxy - - -windowAttrReadOverrideRedirect :: MonadIO m => WindowAttr -> m Bool -windowAttrReadOverrideRedirect s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 72) :: IO CInt - let val' = (/= 0) val - return val' - -windowAttrWriteOverrideRedirect :: MonadIO m => WindowAttr -> Bool -> m () -windowAttrWriteOverrideRedirect s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 72) (val' :: CInt) - -data WindowAttrOverrideRedirectFieldInfo -instance AttrInfo WindowAttrOverrideRedirectFieldInfo where - type AttrAllowedOps WindowAttrOverrideRedirectFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint WindowAttrOverrideRedirectFieldInfo = (~) Bool - type AttrBaseTypeConstraint WindowAttrOverrideRedirectFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrOverrideRedirectFieldInfo = Bool - type AttrLabel WindowAttrOverrideRedirectFieldInfo = "override_redirect" - attrGet _ = windowAttrReadOverrideRedirect - attrSet _ = windowAttrWriteOverrideRedirect - attrConstruct = undefined - attrClear _ = undefined - -windowAttrOverrideRedirect :: AttrLabelProxy "overrideRedirect" -windowAttrOverrideRedirect = AttrLabelProxy - - -windowAttrReadTypeHint :: MonadIO m => WindowAttr -> m WindowTypeHint -windowAttrReadTypeHint s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 76) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -windowAttrWriteTypeHint :: MonadIO m => WindowAttr -> WindowTypeHint -> m () -windowAttrWriteTypeHint s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 76) (val' :: CUInt) - -data WindowAttrTypeHintFieldInfo -instance AttrInfo WindowAttrTypeHintFieldInfo where - type AttrAllowedOps WindowAttrTypeHintFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint WindowAttrTypeHintFieldInfo = (~) WindowTypeHint - type AttrBaseTypeConstraint WindowAttrTypeHintFieldInfo = (~) WindowAttr - type AttrGetType WindowAttrTypeHintFieldInfo = WindowTypeHint - type AttrLabel WindowAttrTypeHintFieldInfo = "type_hint" - attrGet _ = windowAttrReadTypeHint - attrSet _ = windowAttrWriteTypeHint - attrConstruct = undefined - attrClear _ = undefined - -windowAttrTypeHint :: AttrLabelProxy "typeHint" -windowAttrTypeHint = AttrLabelProxy - - - -type instance AttributeList WindowAttr = WindowAttrAttributeList -type WindowAttrAttributeList = ('[ '("title", WindowAttrTitleFieldInfo), '("eventMask", WindowAttrEventMaskFieldInfo), '("x", WindowAttrXFieldInfo), '("y", WindowAttrYFieldInfo), '("width", WindowAttrWidthFieldInfo), '("height", WindowAttrHeightFieldInfo), '("wclass", WindowAttrWclassFieldInfo), '("visual", WindowAttrVisualFieldInfo), '("windowType", WindowAttrWindowTypeFieldInfo), '("cursor", WindowAttrCursorFieldInfo), '("wmclassName", WindowAttrWmclassNameFieldInfo), '("wmclassClass", WindowAttrWmclassClassFieldInfo), '("overrideRedirect", WindowAttrOverrideRedirectFieldInfo), '("typeHint", WindowAttrTypeHintFieldInfo)] :: [(Symbol, *)]) - -type family ResolveWindowAttrMethod (t :: Symbol) (o :: *) :: * where - ResolveWindowAttrMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWindowAttrMethod t WindowAttr, MethodInfo info WindowAttr p) => IsLabelProxy t (WindowAttr -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWindowAttrMethod t WindowAttr, MethodInfo info WindowAttr p) => IsLabel t (WindowAttr -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/WindowAttr.hs-boot b/GI/Gdk/Structs/WindowAttr.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/WindowAttr.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.WindowAttr where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WindowAttr = WindowAttr (ForeignPtr WindowAttr) -instance WrappedPtr WindowAttr where diff --git a/GI/Gdk/Structs/WindowRedirect.hs b/GI/Gdk/Structs/WindowRedirect.hs deleted file mode 100644 --- a/GI/Gdk/Structs/WindowRedirect.hs +++ /dev/null @@ -1,54 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Structs.WindowRedirect - ( - --- * Exported types - WindowRedirect(..) , - noWindowRedirect , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - -newtype WindowRedirect = WindowRedirect (ForeignPtr WindowRedirect) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr WindowRedirect where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noWindowRedirect :: Maybe WindowRedirect -noWindowRedirect = Nothing - - -type instance AttributeList WindowRedirect = WindowRedirectAttributeList -type WindowRedirectAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveWindowRedirectMethod (t :: Symbol) (o :: *) :: * where - ResolveWindowRedirectMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWindowRedirectMethod t WindowRedirect, MethodInfo info WindowRedirect p) => IsLabelProxy t (WindowRedirect -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWindowRedirectMethod t WindowRedirect, MethodInfo info WindowRedirect p) => IsLabel t (WindowRedirect -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Structs/WindowRedirect.hs-boot b/GI/Gdk/Structs/WindowRedirect.hs-boot deleted file mode 100644 --- a/GI/Gdk/Structs/WindowRedirect.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gdk.Structs.WindowRedirect where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype WindowRedirect = WindowRedirect (ForeignPtr WindowRedirect) -instance WrappedPtr WindowRedirect where diff --git a/GI/Gdk/Types.hs b/GI/Gdk/Types.hs deleted file mode 100644 --- a/GI/Gdk/Types.hs +++ /dev/null @@ -1,106 +0,0 @@ -module GI.Gdk.Types - ( module GI.Gdk.Objects.AppLaunchContext , - module GI.Gdk.Objects.Cursor , - module GI.Gdk.Objects.Device , - module GI.Gdk.Objects.DeviceManager , - module GI.Gdk.Objects.Display , - module GI.Gdk.Objects.DisplayManager , - module GI.Gdk.Objects.DragContext , - module GI.Gdk.Objects.FrameClock , - module GI.Gdk.Objects.GLContext , - module GI.Gdk.Objects.Keymap , - module GI.Gdk.Objects.Screen , - module GI.Gdk.Objects.Visual , - module GI.Gdk.Objects.Window , - module GI.Gdk.Structs.Atom , - module GI.Gdk.Structs.Color , - module GI.Gdk.Structs.EventAny , - module GI.Gdk.Structs.EventButton , - module GI.Gdk.Structs.EventConfigure , - module GI.Gdk.Structs.EventCrossing , - module GI.Gdk.Structs.EventDND , - module GI.Gdk.Structs.EventExpose , - module GI.Gdk.Structs.EventFocus , - module GI.Gdk.Structs.EventGrabBroken , - module GI.Gdk.Structs.EventKey , - module GI.Gdk.Structs.EventMotion , - module GI.Gdk.Structs.EventOwnerChange , - module GI.Gdk.Structs.EventProperty , - module GI.Gdk.Structs.EventProximity , - module GI.Gdk.Structs.EventScroll , - module GI.Gdk.Structs.EventSelection , - module GI.Gdk.Structs.EventSequence , - module GI.Gdk.Structs.EventSetting , - module GI.Gdk.Structs.EventTouch , - module GI.Gdk.Structs.EventTouchpadPinch, - module GI.Gdk.Structs.EventTouchpadSwipe, - module GI.Gdk.Structs.EventVisibility , - module GI.Gdk.Structs.EventWindowState , - module GI.Gdk.Structs.FrameTimings , - module GI.Gdk.Structs.Geometry , - module GI.Gdk.Structs.KeymapKey , - module GI.Gdk.Structs.Point , - module GI.Gdk.Structs.RGBA , - module GI.Gdk.Structs.Rectangle , - module GI.Gdk.Structs.TimeCoord , - module GI.Gdk.Structs.WindowAttr , - module GI.Gdk.Structs.WindowRedirect , - module GI.Gdk.Unions.Event , - module GI.Gdk.Enums , - module GI.Gdk.Flags , - - - ) where - - -import {-# SOURCE #-} GI.Gdk.Objects.AppLaunchContext -import {-# SOURCE #-} GI.Gdk.Objects.Cursor -import {-# SOURCE #-} GI.Gdk.Objects.Device -import {-# SOURCE #-} GI.Gdk.Objects.DeviceManager -import {-# SOURCE #-} GI.Gdk.Objects.Display -import {-# SOURCE #-} GI.Gdk.Objects.DisplayManager -import {-# SOURCE #-} GI.Gdk.Objects.DragContext -import {-# SOURCE #-} GI.Gdk.Objects.FrameClock -import {-# SOURCE #-} GI.Gdk.Objects.GLContext -import {-# SOURCE #-} GI.Gdk.Objects.Keymap -import {-# SOURCE #-} GI.Gdk.Objects.Screen -import {-# SOURCE #-} GI.Gdk.Objects.Visual -import {-# SOURCE #-} GI.Gdk.Objects.Window -import {-# SOURCE #-} GI.Gdk.Structs.Atom -import {-# SOURCE #-} GI.Gdk.Structs.Color -import {-# SOURCE #-} GI.Gdk.Structs.EventAny -import {-# SOURCE #-} GI.Gdk.Structs.EventButton -import {-# SOURCE #-} GI.Gdk.Structs.EventConfigure -import {-# SOURCE #-} GI.Gdk.Structs.EventCrossing -import {-# SOURCE #-} GI.Gdk.Structs.EventDND -import {-# SOURCE #-} GI.Gdk.Structs.EventExpose -import {-# SOURCE #-} GI.Gdk.Structs.EventFocus -import {-# SOURCE #-} GI.Gdk.Structs.EventGrabBroken -import {-# SOURCE #-} GI.Gdk.Structs.EventKey -import {-# SOURCE #-} GI.Gdk.Structs.EventMotion -import {-# SOURCE #-} GI.Gdk.Structs.EventOwnerChange -import {-# SOURCE #-} GI.Gdk.Structs.EventProperty -import {-# SOURCE #-} GI.Gdk.Structs.EventProximity -import {-# SOURCE #-} GI.Gdk.Structs.EventScroll -import {-# SOURCE #-} GI.Gdk.Structs.EventSelection -import {-# SOURCE #-} GI.Gdk.Structs.EventSequence -import {-# SOURCE #-} GI.Gdk.Structs.EventSetting -import {-# SOURCE #-} GI.Gdk.Structs.EventTouch -import {-# SOURCE #-} GI.Gdk.Structs.EventTouchpadPinch -import {-# SOURCE #-} GI.Gdk.Structs.EventTouchpadSwipe -import {-# SOURCE #-} GI.Gdk.Structs.EventVisibility -import {-# SOURCE #-} GI.Gdk.Structs.EventWindowState -import {-# SOURCE #-} GI.Gdk.Structs.FrameTimings -import {-# SOURCE #-} GI.Gdk.Structs.Geometry -import {-# SOURCE #-} GI.Gdk.Structs.KeymapKey -import {-# SOURCE #-} GI.Gdk.Structs.Point -import {-# SOURCE #-} GI.Gdk.Structs.RGBA -import {-# SOURCE #-} GI.Gdk.Structs.Rectangle -import {-# SOURCE #-} GI.Gdk.Structs.TimeCoord -import {-# SOURCE #-} GI.Gdk.Structs.WindowAttr -import {-# SOURCE #-} GI.Gdk.Structs.WindowRedirect -import {-# SOURCE #-} GI.Gdk.Unions.Event - -import GI.Gdk.Enums -import GI.Gdk.Flags - diff --git a/GI/Gdk/Unions.hs b/GI/Gdk/Unions.hs deleted file mode 100644 --- a/GI/Gdk/Unions.hs +++ /dev/null @@ -1,27 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Unions - ( module GI.Gdk.Unions.Event , - - - ) where - -import GI.Gdk.Unions.Event - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks - - diff --git a/GI/Gdk/Unions/Event.hs b/GI/Gdk/Unions/Event.hs deleted file mode 100644 --- a/GI/Gdk/Unions/Event.hs +++ /dev/null @@ -1,1956 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Gdk.Unions.Event - ( - --- * Exported types - Event(..) , - newZeroEvent , - noEvent , - - - -- * Methods --- ** eventCopy - EventCopyMethodInfo , - eventCopy , - - --- ** eventFree - EventFreeMethodInfo , - eventFree , - - --- ** eventGet - eventGet , - - --- ** eventGetAxis - EventGetAxisMethodInfo , - eventGetAxis , - - --- ** eventGetButton - EventGetButtonMethodInfo , - eventGetButton , - - --- ** eventGetClickCount - EventGetClickCountMethodInfo , - eventGetClickCount , - - --- ** eventGetCoords - EventGetCoordsMethodInfo , - eventGetCoords , - - --- ** eventGetDevice - EventGetDeviceMethodInfo , - eventGetDevice , - - --- ** eventGetEventSequence - EventGetEventSequenceMethodInfo , - eventGetEventSequence , - - --- ** eventGetEventType - EventGetEventTypeMethodInfo , - eventGetEventType , - - --- ** eventGetKeycode - EventGetKeycodeMethodInfo , - eventGetKeycode , - - --- ** eventGetKeyval - EventGetKeyvalMethodInfo , - eventGetKeyval , - - --- ** eventGetRootCoords - EventGetRootCoordsMethodInfo , - eventGetRootCoords , - - --- ** eventGetScreen - EventGetScreenMethodInfo , - eventGetScreen , - - --- ** eventGetScrollDeltas - EventGetScrollDeltasMethodInfo , - eventGetScrollDeltas , - - --- ** eventGetScrollDirection - EventGetScrollDirectionMethodInfo , - eventGetScrollDirection , - - --- ** eventGetSourceDevice - EventGetSourceDeviceMethodInfo , - eventGetSourceDevice , - - --- ** eventGetState - EventGetStateMethodInfo , - eventGetState , - - --- ** eventGetTime - EventGetTimeMethodInfo , - eventGetTime , - - --- ** eventGetWindow - EventGetWindowMethodInfo , - eventGetWindow , - - --- ** eventHandlerSet - eventHandlerSet , - - --- ** eventNew - eventNew , - - --- ** eventPeek - eventPeek , - - --- ** eventPut - EventPutMethodInfo , - eventPut , - - --- ** eventRequestMotions - eventRequestMotions , - - --- ** eventSetDevice - EventSetDeviceMethodInfo , - eventSetDevice , - - --- ** eventSetScreen - EventSetScreenMethodInfo , - eventSetScreen , - - --- ** eventSetSourceDevice - EventSetSourceDeviceMethodInfo , - eventSetSourceDevice , - - --- ** eventTriggersContextMenu - EventTriggersContextMenuMethodInfo , - eventTriggersContextMenu , - - - - - -- * Properties --- ** Any - eventAny , - eventClearAny , - eventReadAny , - eventWriteAny , - - --- ** Button - eventButton , - eventClearButton , - eventReadButton , - eventWriteButton , - - --- ** Configure - eventClearConfigure , - eventConfigure , - eventReadConfigure , - eventWriteConfigure , - - --- ** Crossing - eventClearCrossing , - eventCrossing , - eventReadCrossing , - eventWriteCrossing , - - --- ** Dnd - eventClearDnd , - eventDnd , - eventReadDnd , - eventWriteDnd , - - --- ** Expose - eventClearExpose , - eventExpose , - eventReadExpose , - eventWriteExpose , - - --- ** FocusChange - eventClearFocusChange , - eventFocusChange , - eventReadFocusChange , - eventWriteFocusChange , - - --- ** GrabBroken - eventClearGrabBroken , - eventGrabBroken , - eventReadGrabBroken , - eventWriteGrabBroken , - - --- ** Key - eventClearKey , - eventKey , - eventReadKey , - eventWriteKey , - - --- ** Motion - eventClearMotion , - eventMotion , - eventReadMotion , - eventWriteMotion , - - --- ** OwnerChange - eventClearOwnerChange , - eventOwnerChange , - eventReadOwnerChange , - eventWriteOwnerChange , - - --- ** Property - eventClearProperty , - eventProperty , - eventReadProperty , - eventWriteProperty , - - --- ** Proximity - eventClearProximity , - eventProximity , - eventReadProximity , - eventWriteProximity , - - --- ** Scroll - eventClearScroll , - eventReadScroll , - eventScroll , - eventWriteScroll , - - --- ** Selection - eventClearSelection , - eventReadSelection , - eventSelection , - eventWriteSelection , - - --- ** Setting - eventClearSetting , - eventReadSetting , - eventSetting , - eventWriteSetting , - - --- ** Touch - eventClearTouch , - eventReadTouch , - eventTouch , - eventWriteTouch , - - --- ** TouchpadPinch - eventClearTouchpadPinch , - eventReadTouchpadPinch , - eventTouchpadPinch , - eventWriteTouchpadPinch , - - --- ** TouchpadSwipe - eventClearTouchpadSwipe , - eventReadTouchpadSwipe , - eventTouchpadSwipe , - eventWriteTouchpadSwipe , - - --- ** Type - eventReadType , - eventType , - eventWriteType , - - --- ** Visibility - eventClearVisibility , - eventReadVisibility , - eventVisibility , - eventWriteVisibility , - - --- ** WindowState - eventClearWindowState , - eventReadWindowState , - eventWindowState , - eventWriteWindowState , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gdk.Types -import GI.Gdk.Callbacks -import qualified GI.GLib as GLib - -newtype Event = Event (ForeignPtr Event) -foreign import ccall "gdk_event_get_type" c_gdk_event_get_type :: - IO GType - -instance BoxedObject Event where - boxedType _ = c_gdk_event_get_type - --- | Construct a `Event` struct initialized to zero. -newZeroEvent :: MonadIO m => m Event -newZeroEvent = liftIO $ callocBoxedBytes 104 >>= wrapBoxed Event - -instance tag ~ 'AttrSet => Constructible Event tag where - new _ attrs = do - o <- newZeroEvent - GI.Attributes.set o attrs - return o - - -noEvent :: Maybe Event -noEvent = Nothing - -eventReadType :: MonadIO m => Event -> m EventType -eventReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -eventWriteType :: MonadIO m => Event -> EventType -> m () -eventWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data EventTypeFieldInfo -instance AttrInfo EventTypeFieldInfo where - type AttrAllowedOps EventTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint EventTypeFieldInfo = (~) EventType - type AttrBaseTypeConstraint EventTypeFieldInfo = (~) Event - type AttrGetType EventTypeFieldInfo = EventType - type AttrLabel EventTypeFieldInfo = "type" - attrGet _ = eventReadType - attrSet _ = eventWriteType - attrConstruct = undefined - attrClear _ = undefined - -eventType :: AttrLabelProxy "type" -eventType = AttrLabelProxy - - -eventReadAny :: MonadIO m => Event -> m (Maybe EventAny) -eventReadAny s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventAny) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventAny) val' - return val'' - return result - -eventWriteAny :: MonadIO m => Event -> Ptr EventAny -> m () -eventWriteAny s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventAny) - -eventClearAny :: MonadIO m => Event -> m () -eventClearAny s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventAny) - -data EventAnyFieldInfo -instance AttrInfo EventAnyFieldInfo where - type AttrAllowedOps EventAnyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventAnyFieldInfo = (~) (Ptr EventAny) - type AttrBaseTypeConstraint EventAnyFieldInfo = (~) Event - type AttrGetType EventAnyFieldInfo = Maybe EventAny - type AttrLabel EventAnyFieldInfo = "any" - attrGet _ = eventReadAny - attrSet _ = eventWriteAny - attrConstruct = undefined - attrClear _ = eventClearAny - -eventAny :: AttrLabelProxy "any" -eventAny = AttrLabelProxy - - -eventReadExpose :: MonadIO m => Event -> m (Maybe EventExpose) -eventReadExpose s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventExpose) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventExpose) val' - return val'' - return result - -eventWriteExpose :: MonadIO m => Event -> Ptr EventExpose -> m () -eventWriteExpose s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventExpose) - -eventClearExpose :: MonadIO m => Event -> m () -eventClearExpose s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventExpose) - -data EventExposeFieldInfo -instance AttrInfo EventExposeFieldInfo where - type AttrAllowedOps EventExposeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventExposeFieldInfo = (~) (Ptr EventExpose) - type AttrBaseTypeConstraint EventExposeFieldInfo = (~) Event - type AttrGetType EventExposeFieldInfo = Maybe EventExpose - type AttrLabel EventExposeFieldInfo = "expose" - attrGet _ = eventReadExpose - attrSet _ = eventWriteExpose - attrConstruct = undefined - attrClear _ = eventClearExpose - -eventExpose :: AttrLabelProxy "expose" -eventExpose = AttrLabelProxy - - -eventReadVisibility :: MonadIO m => Event -> m (Maybe EventVisibility) -eventReadVisibility s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventVisibility) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventVisibility) val' - return val'' - return result - -eventWriteVisibility :: MonadIO m => Event -> Ptr EventVisibility -> m () -eventWriteVisibility s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventVisibility) - -eventClearVisibility :: MonadIO m => Event -> m () -eventClearVisibility s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventVisibility) - -data EventVisibilityFieldInfo -instance AttrInfo EventVisibilityFieldInfo where - type AttrAllowedOps EventVisibilityFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventVisibilityFieldInfo = (~) (Ptr EventVisibility) - type AttrBaseTypeConstraint EventVisibilityFieldInfo = (~) Event - type AttrGetType EventVisibilityFieldInfo = Maybe EventVisibility - type AttrLabel EventVisibilityFieldInfo = "visibility" - attrGet _ = eventReadVisibility - attrSet _ = eventWriteVisibility - attrConstruct = undefined - attrClear _ = eventClearVisibility - -eventVisibility :: AttrLabelProxy "visibility" -eventVisibility = AttrLabelProxy - - -eventReadMotion :: MonadIO m => Event -> m (Maybe EventMotion) -eventReadMotion s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventMotion) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventMotion) val' - return val'' - return result - -eventWriteMotion :: MonadIO m => Event -> Ptr EventMotion -> m () -eventWriteMotion s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventMotion) - -eventClearMotion :: MonadIO m => Event -> m () -eventClearMotion s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventMotion) - -data EventMotionFieldInfo -instance AttrInfo EventMotionFieldInfo where - type AttrAllowedOps EventMotionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventMotionFieldInfo = (~) (Ptr EventMotion) - type AttrBaseTypeConstraint EventMotionFieldInfo = (~) Event - type AttrGetType EventMotionFieldInfo = Maybe EventMotion - type AttrLabel EventMotionFieldInfo = "motion" - attrGet _ = eventReadMotion - attrSet _ = eventWriteMotion - attrConstruct = undefined - attrClear _ = eventClearMotion - -eventMotion :: AttrLabelProxy "motion" -eventMotion = AttrLabelProxy - - -eventReadButton :: MonadIO m => Event -> m (Maybe EventButton) -eventReadButton s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventButton) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventButton) val' - return val'' - return result - -eventWriteButton :: MonadIO m => Event -> Ptr EventButton -> m () -eventWriteButton s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventButton) - -eventClearButton :: MonadIO m => Event -> m () -eventClearButton s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventButton) - -data EventButtonFieldInfo -instance AttrInfo EventButtonFieldInfo where - type AttrAllowedOps EventButtonFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventButtonFieldInfo = (~) (Ptr EventButton) - type AttrBaseTypeConstraint EventButtonFieldInfo = (~) Event - type AttrGetType EventButtonFieldInfo = Maybe EventButton - type AttrLabel EventButtonFieldInfo = "button" - attrGet _ = eventReadButton - attrSet _ = eventWriteButton - attrConstruct = undefined - attrClear _ = eventClearButton - -eventButton :: AttrLabelProxy "button" -eventButton = AttrLabelProxy - - -eventReadTouch :: MonadIO m => Event -> m (Maybe EventTouch) -eventReadTouch s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouch) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventTouch) val' - return val'' - return result - -eventWriteTouch :: MonadIO m => Event -> Ptr EventTouch -> m () -eventWriteTouch s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventTouch) - -eventClearTouch :: MonadIO m => Event -> m () -eventClearTouch s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventTouch) - -data EventTouchFieldInfo -instance AttrInfo EventTouchFieldInfo where - type AttrAllowedOps EventTouchFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventTouchFieldInfo = (~) (Ptr EventTouch) - type AttrBaseTypeConstraint EventTouchFieldInfo = (~) Event - type AttrGetType EventTouchFieldInfo = Maybe EventTouch - type AttrLabel EventTouchFieldInfo = "touch" - attrGet _ = eventReadTouch - attrSet _ = eventWriteTouch - attrConstruct = undefined - attrClear _ = eventClearTouch - -eventTouch :: AttrLabelProxy "touch" -eventTouch = AttrLabelProxy - - -eventReadScroll :: MonadIO m => Event -> m (Maybe EventScroll) -eventReadScroll s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventScroll) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventScroll) val' - return val'' - return result - -eventWriteScroll :: MonadIO m => Event -> Ptr EventScroll -> m () -eventWriteScroll s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventScroll) - -eventClearScroll :: MonadIO m => Event -> m () -eventClearScroll s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventScroll) - -data EventScrollFieldInfo -instance AttrInfo EventScrollFieldInfo where - type AttrAllowedOps EventScrollFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventScrollFieldInfo = (~) (Ptr EventScroll) - type AttrBaseTypeConstraint EventScrollFieldInfo = (~) Event - type AttrGetType EventScrollFieldInfo = Maybe EventScroll - type AttrLabel EventScrollFieldInfo = "scroll" - attrGet _ = eventReadScroll - attrSet _ = eventWriteScroll - attrConstruct = undefined - attrClear _ = eventClearScroll - -eventScroll :: AttrLabelProxy "scroll" -eventScroll = AttrLabelProxy - - -eventReadKey :: MonadIO m => Event -> m (Maybe EventKey) -eventReadKey s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventKey) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventKey) val' - return val'' - return result - -eventWriteKey :: MonadIO m => Event -> Ptr EventKey -> m () -eventWriteKey s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventKey) - -eventClearKey :: MonadIO m => Event -> m () -eventClearKey s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventKey) - -data EventKeyFieldInfo -instance AttrInfo EventKeyFieldInfo where - type AttrAllowedOps EventKeyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventKeyFieldInfo = (~) (Ptr EventKey) - type AttrBaseTypeConstraint EventKeyFieldInfo = (~) Event - type AttrGetType EventKeyFieldInfo = Maybe EventKey - type AttrLabel EventKeyFieldInfo = "key" - attrGet _ = eventReadKey - attrSet _ = eventWriteKey - attrConstruct = undefined - attrClear _ = eventClearKey - -eventKey :: AttrLabelProxy "key" -eventKey = AttrLabelProxy - - -eventReadCrossing :: MonadIO m => Event -> m (Maybe EventCrossing) -eventReadCrossing s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventCrossing) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventCrossing) val' - return val'' - return result - -eventWriteCrossing :: MonadIO m => Event -> Ptr EventCrossing -> m () -eventWriteCrossing s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventCrossing) - -eventClearCrossing :: MonadIO m => Event -> m () -eventClearCrossing s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventCrossing) - -data EventCrossingFieldInfo -instance AttrInfo EventCrossingFieldInfo where - type AttrAllowedOps EventCrossingFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventCrossingFieldInfo = (~) (Ptr EventCrossing) - type AttrBaseTypeConstraint EventCrossingFieldInfo = (~) Event - type AttrGetType EventCrossingFieldInfo = Maybe EventCrossing - type AttrLabel EventCrossingFieldInfo = "crossing" - attrGet _ = eventReadCrossing - attrSet _ = eventWriteCrossing - attrConstruct = undefined - attrClear _ = eventClearCrossing - -eventCrossing :: AttrLabelProxy "crossing" -eventCrossing = AttrLabelProxy - - -eventReadFocusChange :: MonadIO m => Event -> m (Maybe EventFocus) -eventReadFocusChange s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventFocus) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventFocus) val' - return val'' - return result - -eventWriteFocusChange :: MonadIO m => Event -> Ptr EventFocus -> m () -eventWriteFocusChange s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventFocus) - -eventClearFocusChange :: MonadIO m => Event -> m () -eventClearFocusChange s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventFocus) - -data EventFocusChangeFieldInfo -instance AttrInfo EventFocusChangeFieldInfo where - type AttrAllowedOps EventFocusChangeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventFocusChangeFieldInfo = (~) (Ptr EventFocus) - type AttrBaseTypeConstraint EventFocusChangeFieldInfo = (~) Event - type AttrGetType EventFocusChangeFieldInfo = Maybe EventFocus - type AttrLabel EventFocusChangeFieldInfo = "focus_change" - attrGet _ = eventReadFocusChange - attrSet _ = eventWriteFocusChange - attrConstruct = undefined - attrClear _ = eventClearFocusChange - -eventFocusChange :: AttrLabelProxy "focusChange" -eventFocusChange = AttrLabelProxy - - -eventReadConfigure :: MonadIO m => Event -> m (Maybe EventConfigure) -eventReadConfigure s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventConfigure) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventConfigure) val' - return val'' - return result - -eventWriteConfigure :: MonadIO m => Event -> Ptr EventConfigure -> m () -eventWriteConfigure s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventConfigure) - -eventClearConfigure :: MonadIO m => Event -> m () -eventClearConfigure s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventConfigure) - -data EventConfigureFieldInfo -instance AttrInfo EventConfigureFieldInfo where - type AttrAllowedOps EventConfigureFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventConfigureFieldInfo = (~) (Ptr EventConfigure) - type AttrBaseTypeConstraint EventConfigureFieldInfo = (~) Event - type AttrGetType EventConfigureFieldInfo = Maybe EventConfigure - type AttrLabel EventConfigureFieldInfo = "configure" - attrGet _ = eventReadConfigure - attrSet _ = eventWriteConfigure - attrConstruct = undefined - attrClear _ = eventClearConfigure - -eventConfigure :: AttrLabelProxy "configure" -eventConfigure = AttrLabelProxy - - -eventReadProperty :: MonadIO m => Event -> m (Maybe EventProperty) -eventReadProperty s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventProperty) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventProperty) val' - return val'' - return result - -eventWriteProperty :: MonadIO m => Event -> Ptr EventProperty -> m () -eventWriteProperty s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventProperty) - -eventClearProperty :: MonadIO m => Event -> m () -eventClearProperty s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventProperty) - -data EventPropertyFieldInfo -instance AttrInfo EventPropertyFieldInfo where - type AttrAllowedOps EventPropertyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventPropertyFieldInfo = (~) (Ptr EventProperty) - type AttrBaseTypeConstraint EventPropertyFieldInfo = (~) Event - type AttrGetType EventPropertyFieldInfo = Maybe EventProperty - type AttrLabel EventPropertyFieldInfo = "property" - attrGet _ = eventReadProperty - attrSet _ = eventWriteProperty - attrConstruct = undefined - attrClear _ = eventClearProperty - -eventProperty :: AttrLabelProxy "property" -eventProperty = AttrLabelProxy - - -eventReadSelection :: MonadIO m => Event -> m (Maybe EventSelection) -eventReadSelection s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventSelection) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventSelection) val' - return val'' - return result - -eventWriteSelection :: MonadIO m => Event -> Ptr EventSelection -> m () -eventWriteSelection s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventSelection) - -eventClearSelection :: MonadIO m => Event -> m () -eventClearSelection s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventSelection) - -data EventSelectionFieldInfo -instance AttrInfo EventSelectionFieldInfo where - type AttrAllowedOps EventSelectionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventSelectionFieldInfo = (~) (Ptr EventSelection) - type AttrBaseTypeConstraint EventSelectionFieldInfo = (~) Event - type AttrGetType EventSelectionFieldInfo = Maybe EventSelection - type AttrLabel EventSelectionFieldInfo = "selection" - attrGet _ = eventReadSelection - attrSet _ = eventWriteSelection - attrConstruct = undefined - attrClear _ = eventClearSelection - -eventSelection :: AttrLabelProxy "selection" -eventSelection = AttrLabelProxy - - -eventReadOwnerChange :: MonadIO m => Event -> m (Maybe EventOwnerChange) -eventReadOwnerChange s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventOwnerChange) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventOwnerChange) val' - return val'' - return result - -eventWriteOwnerChange :: MonadIO m => Event -> Ptr EventOwnerChange -> m () -eventWriteOwnerChange s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventOwnerChange) - -eventClearOwnerChange :: MonadIO m => Event -> m () -eventClearOwnerChange s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventOwnerChange) - -data EventOwnerChangeFieldInfo -instance AttrInfo EventOwnerChangeFieldInfo where - type AttrAllowedOps EventOwnerChangeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventOwnerChangeFieldInfo = (~) (Ptr EventOwnerChange) - type AttrBaseTypeConstraint EventOwnerChangeFieldInfo = (~) Event - type AttrGetType EventOwnerChangeFieldInfo = Maybe EventOwnerChange - type AttrLabel EventOwnerChangeFieldInfo = "owner_change" - attrGet _ = eventReadOwnerChange - attrSet _ = eventWriteOwnerChange - attrConstruct = undefined - attrClear _ = eventClearOwnerChange - -eventOwnerChange :: AttrLabelProxy "ownerChange" -eventOwnerChange = AttrLabelProxy - - -eventReadProximity :: MonadIO m => Event -> m (Maybe EventProximity) -eventReadProximity s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventProximity) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventProximity) val' - return val'' - return result - -eventWriteProximity :: MonadIO m => Event -> Ptr EventProximity -> m () -eventWriteProximity s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventProximity) - -eventClearProximity :: MonadIO m => Event -> m () -eventClearProximity s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventProximity) - -data EventProximityFieldInfo -instance AttrInfo EventProximityFieldInfo where - type AttrAllowedOps EventProximityFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventProximityFieldInfo = (~) (Ptr EventProximity) - type AttrBaseTypeConstraint EventProximityFieldInfo = (~) Event - type AttrGetType EventProximityFieldInfo = Maybe EventProximity - type AttrLabel EventProximityFieldInfo = "proximity" - attrGet _ = eventReadProximity - attrSet _ = eventWriteProximity - attrConstruct = undefined - attrClear _ = eventClearProximity - -eventProximity :: AttrLabelProxy "proximity" -eventProximity = AttrLabelProxy - - -eventReadDnd :: MonadIO m => Event -> m (Maybe EventDND) -eventReadDnd s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventDND) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventDND) val' - return val'' - return result - -eventWriteDnd :: MonadIO m => Event -> Ptr EventDND -> m () -eventWriteDnd s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventDND) - -eventClearDnd :: MonadIO m => Event -> m () -eventClearDnd s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventDND) - -data EventDndFieldInfo -instance AttrInfo EventDndFieldInfo where - type AttrAllowedOps EventDndFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventDndFieldInfo = (~) (Ptr EventDND) - type AttrBaseTypeConstraint EventDndFieldInfo = (~) Event - type AttrGetType EventDndFieldInfo = Maybe EventDND - type AttrLabel EventDndFieldInfo = "dnd" - attrGet _ = eventReadDnd - attrSet _ = eventWriteDnd - attrConstruct = undefined - attrClear _ = eventClearDnd - -eventDnd :: AttrLabelProxy "dnd" -eventDnd = AttrLabelProxy - - -eventReadWindowState :: MonadIO m => Event -> m (Maybe EventWindowState) -eventReadWindowState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventWindowState) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventWindowState) val' - return val'' - return result - -eventWriteWindowState :: MonadIO m => Event -> Ptr EventWindowState -> m () -eventWriteWindowState s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventWindowState) - -eventClearWindowState :: MonadIO m => Event -> m () -eventClearWindowState s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventWindowState) - -data EventWindowStateFieldInfo -instance AttrInfo EventWindowStateFieldInfo where - type AttrAllowedOps EventWindowStateFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventWindowStateFieldInfo = (~) (Ptr EventWindowState) - type AttrBaseTypeConstraint EventWindowStateFieldInfo = (~) Event - type AttrGetType EventWindowStateFieldInfo = Maybe EventWindowState - type AttrLabel EventWindowStateFieldInfo = "window_state" - attrGet _ = eventReadWindowState - attrSet _ = eventWriteWindowState - attrConstruct = undefined - attrClear _ = eventClearWindowState - -eventWindowState :: AttrLabelProxy "windowState" -eventWindowState = AttrLabelProxy - - -eventReadSetting :: MonadIO m => Event -> m (Maybe EventSetting) -eventReadSetting s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventSetting) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventSetting) val' - return val'' - return result - -eventWriteSetting :: MonadIO m => Event -> Ptr EventSetting -> m () -eventWriteSetting s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventSetting) - -eventClearSetting :: MonadIO m => Event -> m () -eventClearSetting s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventSetting) - -data EventSettingFieldInfo -instance AttrInfo EventSettingFieldInfo where - type AttrAllowedOps EventSettingFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventSettingFieldInfo = (~) (Ptr EventSetting) - type AttrBaseTypeConstraint EventSettingFieldInfo = (~) Event - type AttrGetType EventSettingFieldInfo = Maybe EventSetting - type AttrLabel EventSettingFieldInfo = "setting" - attrGet _ = eventReadSetting - attrSet _ = eventWriteSetting - attrConstruct = undefined - attrClear _ = eventClearSetting - -eventSetting :: AttrLabelProxy "setting" -eventSetting = AttrLabelProxy - - -eventReadGrabBroken :: MonadIO m => Event -> m (Maybe EventGrabBroken) -eventReadGrabBroken s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventGrabBroken) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventGrabBroken) val' - return val'' - return result - -eventWriteGrabBroken :: MonadIO m => Event -> Ptr EventGrabBroken -> m () -eventWriteGrabBroken s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventGrabBroken) - -eventClearGrabBroken :: MonadIO m => Event -> m () -eventClearGrabBroken s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventGrabBroken) - -data EventGrabBrokenFieldInfo -instance AttrInfo EventGrabBrokenFieldInfo where - type AttrAllowedOps EventGrabBrokenFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventGrabBrokenFieldInfo = (~) (Ptr EventGrabBroken) - type AttrBaseTypeConstraint EventGrabBrokenFieldInfo = (~) Event - type AttrGetType EventGrabBrokenFieldInfo = Maybe EventGrabBroken - type AttrLabel EventGrabBrokenFieldInfo = "grab_broken" - attrGet _ = eventReadGrabBroken - attrSet _ = eventWriteGrabBroken - attrConstruct = undefined - attrClear _ = eventClearGrabBroken - -eventGrabBroken :: AttrLabelProxy "grabBroken" -eventGrabBroken = AttrLabelProxy - - -eventReadTouchpadSwipe :: MonadIO m => Event -> m (Maybe EventTouchpadSwipe) -eventReadTouchpadSwipe s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouchpadSwipe) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventTouchpadSwipe) val' - return val'' - return result - -eventWriteTouchpadSwipe :: MonadIO m => Event -> Ptr EventTouchpadSwipe -> m () -eventWriteTouchpadSwipe s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventTouchpadSwipe) - -eventClearTouchpadSwipe :: MonadIO m => Event -> m () -eventClearTouchpadSwipe s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventTouchpadSwipe) - -data EventTouchpadSwipeFieldInfo -instance AttrInfo EventTouchpadSwipeFieldInfo where - type AttrAllowedOps EventTouchpadSwipeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventTouchpadSwipeFieldInfo = (~) (Ptr EventTouchpadSwipe) - type AttrBaseTypeConstraint EventTouchpadSwipeFieldInfo = (~) Event - type AttrGetType EventTouchpadSwipeFieldInfo = Maybe EventTouchpadSwipe - type AttrLabel EventTouchpadSwipeFieldInfo = "touchpad_swipe" - attrGet _ = eventReadTouchpadSwipe - attrSet _ = eventWriteTouchpadSwipe - attrConstruct = undefined - attrClear _ = eventClearTouchpadSwipe - -eventTouchpadSwipe :: AttrLabelProxy "touchpadSwipe" -eventTouchpadSwipe = AttrLabelProxy - - -eventReadTouchpadPinch :: MonadIO m => Event -> m (Maybe EventTouchpadPinch) -eventReadTouchpadPinch s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouchpadPinch) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr EventTouchpadPinch) val' - return val'' - return result - -eventWriteTouchpadPinch :: MonadIO m => Event -> Ptr EventTouchpadPinch -> m () -eventWriteTouchpadPinch s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr EventTouchpadPinch) - -eventClearTouchpadPinch :: MonadIO m => Event -> m () -eventClearTouchpadPinch s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventTouchpadPinch) - -data EventTouchpadPinchFieldInfo -instance AttrInfo EventTouchpadPinchFieldInfo where - type AttrAllowedOps EventTouchpadPinchFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EventTouchpadPinchFieldInfo = (~) (Ptr EventTouchpadPinch) - type AttrBaseTypeConstraint EventTouchpadPinchFieldInfo = (~) Event - type AttrGetType EventTouchpadPinchFieldInfo = Maybe EventTouchpadPinch - type AttrLabel EventTouchpadPinchFieldInfo = "touchpad_pinch" - attrGet _ = eventReadTouchpadPinch - attrSet _ = eventWriteTouchpadPinch - attrConstruct = undefined - attrClear _ = eventClearTouchpadPinch - -eventTouchpadPinch :: AttrLabelProxy "touchpadPinch" -eventTouchpadPinch = AttrLabelProxy - - - -type instance AttributeList Event = EventAttributeList -type EventAttributeList = ('[ '("type", EventTypeFieldInfo), '("any", EventAnyFieldInfo), '("expose", EventExposeFieldInfo), '("visibility", EventVisibilityFieldInfo), '("motion", EventMotionFieldInfo), '("button", EventButtonFieldInfo), '("touch", EventTouchFieldInfo), '("scroll", EventScrollFieldInfo), '("key", EventKeyFieldInfo), '("crossing", EventCrossingFieldInfo), '("focusChange", EventFocusChangeFieldInfo), '("configure", EventConfigureFieldInfo), '("property", EventPropertyFieldInfo), '("selection", EventSelectionFieldInfo), '("ownerChange", EventOwnerChangeFieldInfo), '("proximity", EventProximityFieldInfo), '("dnd", EventDndFieldInfo), '("windowState", EventWindowStateFieldInfo), '("setting", EventSettingFieldInfo), '("grabBroken", EventGrabBrokenFieldInfo), '("touchpadSwipe", EventTouchpadSwipeFieldInfo), '("touchpadPinch", EventTouchpadPinchFieldInfo)] :: [(Symbol, *)]) - --- method Event::new --- method type : Constructor --- Args : [Arg {argCName = "type", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Event") --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_new" gdk_event_new :: - CUInt -> -- type : TInterface "Gdk" "EventType" - IO (Ptr Event) - - -eventNew :: - (MonadIO m) => - EventType -- type_ - -> m Event -- result -eventNew type_ = liftIO $ do - let type_' = (fromIntegral . fromEnum) type_ - result <- gdk_event_new type_' - checkUnexpectedReturnNULL "gdk_event_new" result - result' <- (wrapBoxed Event) result - return result' - --- method Event::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Event") --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_copy" gdk_event_copy :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO (Ptr Event) - - -eventCopy :: - (MonadIO m) => - Event -- _obj - -> m Event -- result -eventCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_event_copy _obj' - checkUnexpectedReturnNULL "gdk_event_copy" result - result' <- (wrapBoxed Event) result - touchManagedPtr _obj - return result' - -data EventCopyMethodInfo -instance (signature ~ (m Event), MonadIO m) => MethodInfo EventCopyMethodInfo Event signature where - overloadedMethod _ = eventCopy - --- method Event::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_free" gdk_event_free :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO () - - -eventFree :: - (MonadIO m) => - Event -- _obj - -> m () -- result -eventFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gdk_event_free _obj' - touchManagedPtr _obj - return () - -data EventFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo EventFreeMethodInfo Event signature where - overloadedMethod _ = eventFree - --- method Event::get_axis --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "axis_use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_axis" gdk_event_get_axis :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - CUInt -> -- axis_use : TInterface "Gdk" "AxisUse" - Ptr CDouble -> -- value : TBasicType TDouble - IO CInt - - -eventGetAxis :: - (MonadIO m) => - Event -- _obj - -> AxisUse -- axisUse - -> m (Bool,Double) -- result -eventGetAxis _obj axisUse = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let axisUse' = (fromIntegral . fromEnum) axisUse - value <- allocMem :: IO (Ptr CDouble) - result <- gdk_event_get_axis _obj' axisUse' value - let result' = (/= 0) result - value' <- peek value - let value'' = realToFrac value' - touchManagedPtr _obj - freeMem value - return (result', value'') - -data EventGetAxisMethodInfo -instance (signature ~ (AxisUse -> m (Bool,Double)), MonadIO m) => MethodInfo EventGetAxisMethodInfo Event signature where - overloadedMethod _ = eventGetAxis - --- method Event::get_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_button" gdk_event_get_button :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr Word32 -> -- button : TBasicType TUInt - IO CInt - - -eventGetButton :: - (MonadIO m) => - Event -- _obj - -> m (Bool,Word32) -- result -eventGetButton _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - button <- allocMem :: IO (Ptr Word32) - result <- gdk_event_get_button _obj' button - let result' = (/= 0) result - button' <- peek button - touchManagedPtr _obj - freeMem button - return (result', button') - -data EventGetButtonMethodInfo -instance (signature ~ (m (Bool,Word32)), MonadIO m) => MethodInfo EventGetButtonMethodInfo Event signature where - overloadedMethod _ = eventGetButton - --- method Event::get_click_count --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "click_count", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_click_count" gdk_event_get_click_count :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr Word32 -> -- click_count : TBasicType TUInt - IO CInt - - -eventGetClickCount :: - (MonadIO m) => - Event -- _obj - -> m (Bool,Word32) -- result -eventGetClickCount _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - clickCount <- allocMem :: IO (Ptr Word32) - result <- gdk_event_get_click_count _obj' clickCount - let result' = (/= 0) result - clickCount' <- peek clickCount - touchManagedPtr _obj - freeMem clickCount - return (result', clickCount') - -data EventGetClickCountMethodInfo -instance (signature ~ (m (Bool,Word32)), MonadIO m) => MethodInfo EventGetClickCountMethodInfo Event signature where - overloadedMethod _ = eventGetClickCount - --- method Event::get_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_win", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_win", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_coords" gdk_event_get_coords :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr CDouble -> -- x_win : TBasicType TDouble - Ptr CDouble -> -- y_win : TBasicType TDouble - IO CInt - - -eventGetCoords :: - (MonadIO m) => - Event -- _obj - -> m (Bool,Double,Double) -- result -eventGetCoords _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - xWin <- allocMem :: IO (Ptr CDouble) - yWin <- allocMem :: IO (Ptr CDouble) - result <- gdk_event_get_coords _obj' xWin yWin - let result' = (/= 0) result - xWin' <- peek xWin - let xWin'' = realToFrac xWin' - yWin' <- peek yWin - let yWin'' = realToFrac yWin' - touchManagedPtr _obj - freeMem xWin - freeMem yWin - return (result', xWin'', yWin'') - -data EventGetCoordsMethodInfo -instance (signature ~ (m (Bool,Double,Double)), MonadIO m) => MethodInfo EventGetCoordsMethodInfo Event signature where - overloadedMethod _ = eventGetCoords - --- method Event::get_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Device") --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_device" gdk_event_get_device :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO (Ptr Device) - - -eventGetDevice :: - (MonadIO m) => - Event -- _obj - -> m (Maybe Device) -- result -eventGetDevice _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_event_get_device _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Device) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EventGetDeviceMethodInfo -instance (signature ~ (m (Maybe Device)), MonadIO m) => MethodInfo EventGetDeviceMethodInfo Event signature where - overloadedMethod _ = eventGetDevice - --- method Event::get_event_sequence --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "EventSequence") --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_event_sequence" gdk_event_get_event_sequence :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO (Ptr EventSequence) - - -eventGetEventSequence :: - (MonadIO m) => - Event -- _obj - -> m EventSequence -- result -eventGetEventSequence _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_event_get_event_sequence _obj' - checkUnexpectedReturnNULL "gdk_event_get_event_sequence" result - result' <- (newBoxed EventSequence) result - touchManagedPtr _obj - return result' - -data EventGetEventSequenceMethodInfo -instance (signature ~ (m EventSequence), MonadIO m) => MethodInfo EventGetEventSequenceMethodInfo Event signature where - overloadedMethod _ = eventGetEventSequence - --- method Event::get_event_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "EventType") --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_event_type" gdk_event_get_event_type :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO CUInt - - -eventGetEventType :: - (MonadIO m) => - Event -- _obj - -> m EventType -- result -eventGetEventType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_event_get_event_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data EventGetEventTypeMethodInfo -instance (signature ~ (m EventType), MonadIO m) => MethodInfo EventGetEventTypeMethodInfo Event signature where - overloadedMethod _ = eventGetEventType - --- method Event::get_keycode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt16, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_keycode" gdk_event_get_keycode :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr Word16 -> -- keycode : TBasicType TUInt16 - IO CInt - - -eventGetKeycode :: - (MonadIO m) => - Event -- _obj - -> m (Bool,Word16) -- result -eventGetKeycode _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - keycode <- allocMem :: IO (Ptr Word16) - result <- gdk_event_get_keycode _obj' keycode - let result' = (/= 0) result - keycode' <- peek keycode - touchManagedPtr _obj - freeMem keycode - return (result', keycode') - -data EventGetKeycodeMethodInfo -instance (signature ~ (m (Bool,Word16)), MonadIO m) => MethodInfo EventGetKeycodeMethodInfo Event signature where - overloadedMethod _ = eventGetKeycode - --- method Event::get_keyval --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_keyval" gdk_event_get_keyval :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr Word32 -> -- keyval : TBasicType TUInt - IO CInt - - -eventGetKeyval :: - (MonadIO m) => - Event -- _obj - -> m (Bool,Word32) -- result -eventGetKeyval _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - keyval <- allocMem :: IO (Ptr Word32) - result <- gdk_event_get_keyval _obj' keyval - let result' = (/= 0) result - keyval' <- peek keyval - touchManagedPtr _obj - freeMem keyval - return (result', keyval') - -data EventGetKeyvalMethodInfo -instance (signature ~ (m (Bool,Word32)), MonadIO m) => MethodInfo EventGetKeyvalMethodInfo Event signature where - overloadedMethod _ = eventGetKeyval - --- method Event::get_root_coords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_root", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_root", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_root_coords" gdk_event_get_root_coords :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr CDouble -> -- x_root : TBasicType TDouble - Ptr CDouble -> -- y_root : TBasicType TDouble - IO CInt - - -eventGetRootCoords :: - (MonadIO m) => - Event -- _obj - -> m (Bool,Double,Double) -- result -eventGetRootCoords _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - xRoot <- allocMem :: IO (Ptr CDouble) - yRoot <- allocMem :: IO (Ptr CDouble) - result <- gdk_event_get_root_coords _obj' xRoot yRoot - let result' = (/= 0) result - xRoot' <- peek xRoot - let xRoot'' = realToFrac xRoot' - yRoot' <- peek yRoot - let yRoot'' = realToFrac yRoot' - touchManagedPtr _obj - freeMem xRoot - freeMem yRoot - return (result', xRoot'', yRoot'') - -data EventGetRootCoordsMethodInfo -instance (signature ~ (m (Bool,Double,Double)), MonadIO m) => MethodInfo EventGetRootCoordsMethodInfo Event signature where - overloadedMethod _ = eventGetRootCoords - --- method Event::get_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Screen") --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_screen" gdk_event_get_screen :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO (Ptr Screen) - - -eventGetScreen :: - (MonadIO m) => - Event -- _obj - -> m Screen -- result -eventGetScreen _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_event_get_screen _obj' - checkUnexpectedReturnNULL "gdk_event_get_screen" result - result' <- (newObject Screen) result - touchManagedPtr _obj - return result' - -data EventGetScreenMethodInfo -instance (signature ~ (m Screen), MonadIO m) => MethodInfo EventGetScreenMethodInfo Event signature where - overloadedMethod _ = eventGetScreen - --- method Event::get_scroll_deltas --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "delta_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "delta_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_scroll_deltas" gdk_event_get_scroll_deltas :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr CDouble -> -- delta_x : TBasicType TDouble - Ptr CDouble -> -- delta_y : TBasicType TDouble - IO CInt - - -eventGetScrollDeltas :: - (MonadIO m) => - Event -- _obj - -> m (Bool,Double,Double) -- result -eventGetScrollDeltas _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - deltaX <- allocMem :: IO (Ptr CDouble) - deltaY <- allocMem :: IO (Ptr CDouble) - result <- gdk_event_get_scroll_deltas _obj' deltaX deltaY - let result' = (/= 0) result - deltaX' <- peek deltaX - let deltaX'' = realToFrac deltaX' - deltaY' <- peek deltaY - let deltaY'' = realToFrac deltaY' - touchManagedPtr _obj - freeMem deltaX - freeMem deltaY - return (result', deltaX'', deltaY'') - -data EventGetScrollDeltasMethodInfo -instance (signature ~ (m (Bool,Double,Double)), MonadIO m) => MethodInfo EventGetScrollDeltasMethodInfo Event signature where - overloadedMethod _ = eventGetScrollDeltas - --- method Event::get_scroll_direction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gdk" "ScrollDirection", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_scroll_direction" gdk_event_get_scroll_direction :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr CUInt -> -- direction : TInterface "Gdk" "ScrollDirection" - IO CInt - - -eventGetScrollDirection :: - (MonadIO m) => - Event -- _obj - -> m (Bool,ScrollDirection) -- result -eventGetScrollDirection _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - direction <- allocMem :: IO (Ptr CUInt) - result <- gdk_event_get_scroll_direction _obj' direction - let result' = (/= 0) result - direction' <- peek direction - let direction'' = (toEnum . fromIntegral) direction' - touchManagedPtr _obj - freeMem direction - return (result', direction'') - -data EventGetScrollDirectionMethodInfo -instance (signature ~ (m (Bool,ScrollDirection)), MonadIO m) => MethodInfo EventGetScrollDirectionMethodInfo Event signature where - overloadedMethod _ = eventGetScrollDirection - --- method Event::get_source_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Device") --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_source_device" gdk_event_get_source_device :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO (Ptr Device) - - -eventGetSourceDevice :: - (MonadIO m) => - Event -- _obj - -> m (Maybe Device) -- result -eventGetSourceDevice _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_event_get_source_device _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Device) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data EventGetSourceDeviceMethodInfo -instance (signature ~ (m (Maybe Device)), MonadIO m) => MethodInfo EventGetSourceDeviceMethodInfo Event signature where - overloadedMethod _ = eventGetSourceDevice - --- method Event::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_state" gdk_event_get_state :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr CUInt -> -- state : TInterface "Gdk" "ModifierType" - IO CInt - - -eventGetState :: - (MonadIO m) => - Event -- _obj - -> m (Bool,[ModifierType]) -- result -eventGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - state <- allocMem :: IO (Ptr CUInt) - result <- gdk_event_get_state _obj' state - let result' = (/= 0) result - state' <- peek state - let state'' = wordToGFlags state' - touchManagedPtr _obj - freeMem state - return (result', state'') - -data EventGetStateMethodInfo -instance (signature ~ (m (Bool,[ModifierType])), MonadIO m) => MethodInfo EventGetStateMethodInfo Event signature where - overloadedMethod _ = eventGetState - --- method Event::get_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_time" gdk_event_get_time :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO Word32 - - -eventGetTime :: - (MonadIO m) => - Event -- _obj - -> m Word32 -- result -eventGetTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_event_get_time _obj' - touchManagedPtr _obj - return result - -data EventGetTimeMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo EventGetTimeMethodInfo Event signature where - overloadedMethod _ = eventGetTime - --- method Event::get_window --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Window") --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get_window" gdk_event_get_window :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO (Ptr Window) - - -eventGetWindow :: - (MonadIO m) => - Event -- _obj - -> m Window -- result -eventGetWindow _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_event_get_window _obj' - checkUnexpectedReturnNULL "gdk_event_get_window" result - result' <- (newObject Window) result - touchManagedPtr _obj - return result' - -data EventGetWindowMethodInfo -instance (signature ~ (m Window), MonadIO m) => MethodInfo EventGetWindowMethodInfo Event signature where - overloadedMethod _ = eventGetWindow - --- method Event::put --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_put" gdk_event_put :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO () - - -eventPut :: - (MonadIO m) => - Event -- _obj - -> m () -- result -eventPut _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - gdk_event_put _obj' - touchManagedPtr _obj - return () - -data EventPutMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo EventPutMethodInfo Event signature where - overloadedMethod _ = eventPut - --- method Event::set_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_set_device" gdk_event_set_device :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr Device -> -- device : TInterface "Gdk" "Device" - IO () - - -eventSetDevice :: - (MonadIO m, DeviceK a) => - Event -- _obj - -> a -- device - -> m () -- result -eventSetDevice _obj device = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let device' = unsafeManagedPtrCastPtr device - gdk_event_set_device _obj' device' - touchManagedPtr _obj - touchManagedPtr device - return () - -data EventSetDeviceMethodInfo -instance (signature ~ (a -> m ()), MonadIO m, DeviceK a) => MethodInfo EventSetDeviceMethodInfo Event signature where - overloadedMethod _ = eventSetDevice - --- method Event::set_screen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_set_screen" gdk_event_set_screen :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr Screen -> -- screen : TInterface "Gdk" "Screen" - IO () - - -eventSetScreen :: - (MonadIO m, ScreenK a) => - Event -- _obj - -> a -- screen - -> m () -- result -eventSetScreen _obj screen = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let screen' = unsafeManagedPtrCastPtr screen - gdk_event_set_screen _obj' screen' - touchManagedPtr _obj - touchManagedPtr screen - return () - -data EventSetScreenMethodInfo -instance (signature ~ (a -> m ()), MonadIO m, ScreenK a) => MethodInfo EventSetScreenMethodInfo Event signature where - overloadedMethod _ = eventSetScreen - --- method Event::set_source_device --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_set_source_device" gdk_event_set_source_device :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - Ptr Device -> -- device : TInterface "Gdk" "Device" - IO () - - -eventSetSourceDevice :: - (MonadIO m, DeviceK a) => - Event -- _obj - -> a -- device - -> m () -- result -eventSetSourceDevice _obj device = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let device' = unsafeManagedPtrCastPtr device - gdk_event_set_source_device _obj' device' - touchManagedPtr _obj - touchManagedPtr device - return () - -data EventSetSourceDeviceMethodInfo -instance (signature ~ (a -> m ()), MonadIO m, DeviceK a) => MethodInfo EventSetSourceDeviceMethodInfo Event signature where - overloadedMethod _ = eventSetSourceDevice - --- method Event::triggers_context_menu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_triggers_context_menu" gdk_event_triggers_context_menu :: - Ptr Event -> -- _obj : TInterface "Gdk" "Event" - IO CInt - - -eventTriggersContextMenu :: - (MonadIO m) => - Event -- _obj - -> m Bool -- result -eventTriggersContextMenu _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- gdk_event_triggers_context_menu _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data EventTriggersContextMenuMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo EventTriggersContextMenuMethodInfo Event signature where - overloadedMethod _ = eventTriggersContextMenu - --- method Event::get --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Event") --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_get" gdk_event_get :: - IO (Ptr Event) - - -eventGet :: - (MonadIO m) => - m (Maybe Event) -- result -eventGet = liftIO $ do - result <- gdk_event_get - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Event) result' - return result'' - return maybeResult - --- method Event::handler_set --- method type : MemberFunction --- Args : [Arg {argCName = "func", argType = TInterface "Gdk" "EventFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_handler_set" gdk_event_handler_set :: - FunPtr EventFuncC -> -- func : TInterface "Gdk" "EventFunc" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - - -eventHandlerSet :: - (MonadIO m) => - EventFunc -- func - -> m () -- result -eventHandlerSet func = liftIO $ do - func' <- mkEventFunc (eventFuncWrapper Nothing func) - let data_ = castFunPtrToPtr func' - let notify = safeFreeFunPtrPtr - gdk_event_handler_set func' data_ notify - return () - --- method Event::peek --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gdk" "Event") --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_peek" gdk_event_peek :: - IO (Ptr Event) - - -eventPeek :: - (MonadIO m) => - m (Maybe Event) -- result -eventPeek = liftIO $ do - result <- gdk_event_peek - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Event) result' - return result'' - return maybeResult - --- method Event::request_motions --- method type : MemberFunction --- Args : [Arg {argCName = "event", argType = TInterface "Gdk" "EventMotion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "gdk_event_request_motions" gdk_event_request_motions :: - Ptr EventMotion -> -- event : TInterface "Gdk" "EventMotion" - IO () - - -eventRequestMotions :: - (MonadIO m) => - EventMotion -- event - -> m () -- result -eventRequestMotions event = liftIO $ do - let event' = unsafeManagedPtrGetPtr event - gdk_event_request_motions event' - touchManagedPtr event - return () - -type family ResolveEventMethod (t :: Symbol) (o :: *) :: * where - ResolveEventMethod "copy" o = EventCopyMethodInfo - ResolveEventMethod "free" o = EventFreeMethodInfo - ResolveEventMethod "put" o = EventPutMethodInfo - ResolveEventMethod "triggersContextMenu" o = EventTriggersContextMenuMethodInfo - ResolveEventMethod "getAxis" o = EventGetAxisMethodInfo - ResolveEventMethod "getButton" o = EventGetButtonMethodInfo - ResolveEventMethod "getClickCount" o = EventGetClickCountMethodInfo - ResolveEventMethod "getCoords" o = EventGetCoordsMethodInfo - ResolveEventMethod "getDevice" o = EventGetDeviceMethodInfo - ResolveEventMethod "getEventSequence" o = EventGetEventSequenceMethodInfo - ResolveEventMethod "getEventType" o = EventGetEventTypeMethodInfo - ResolveEventMethod "getKeycode" o = EventGetKeycodeMethodInfo - ResolveEventMethod "getKeyval" o = EventGetKeyvalMethodInfo - ResolveEventMethod "getRootCoords" o = EventGetRootCoordsMethodInfo - ResolveEventMethod "getScreen" o = EventGetScreenMethodInfo - ResolveEventMethod "getScrollDeltas" o = EventGetScrollDeltasMethodInfo - ResolveEventMethod "getScrollDirection" o = EventGetScrollDirectionMethodInfo - ResolveEventMethod "getSourceDevice" o = EventGetSourceDeviceMethodInfo - ResolveEventMethod "getState" o = EventGetStateMethodInfo - ResolveEventMethod "getTime" o = EventGetTimeMethodInfo - ResolveEventMethod "getWindow" o = EventGetWindowMethodInfo - ResolveEventMethod "setDevice" o = EventSetDeviceMethodInfo - ResolveEventMethod "setScreen" o = EventSetScreenMethodInfo - ResolveEventMethod "setSourceDevice" o = EventSetSourceDeviceMethodInfo - ResolveEventMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEventMethod t Event, MethodInfo info Event p) => IsLabelProxy t (Event -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEventMethod t Event, MethodInfo info Event p) => IsLabel t (Event -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gdk/Unions/Event.hs-boot b/GI/Gdk/Unions/Event.hs-boot deleted file mode 100644 --- a/GI/Gdk/Unions/Event.hs-boot +++ /dev/null @@ -1,35 +0,0 @@ -module GI.Gdk.Unions.Event where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Event = Event (ForeignPtr Event) -instance BoxedObject Event where -data EventCopyMethodInfo -data EventFreeMethodInfo -data EventGetAxisMethodInfo -data EventGetButtonMethodInfo -data EventGetClickCountMethodInfo -data EventGetCoordsMethodInfo -data EventGetDeviceMethodInfo -data EventGetEventSequenceMethodInfo -data EventGetEventTypeMethodInfo -data EventGetKeycodeMethodInfo -data EventGetKeyvalMethodInfo -data EventGetRootCoordsMethodInfo -data EventGetScreenMethodInfo -data EventGetScrollDeltasMethodInfo -data EventGetScrollDirectionMethodInfo -data EventGetSourceDeviceMethodInfo -data EventGetStateMethodInfo -data EventGetTimeMethodInfo -data EventGetWindowMethodInfo -data EventPutMethodInfo -data EventSetDeviceMethodInfo -data EventSetScreenMethodInfo -data EventSetSourceDeviceMethodInfo -data EventTriggersContextMenuMethodInfo diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,3 +1,12 @@ -#!/usr/bin/env runhaskell -import Distribution.Simple -main = defaultMain +{-# LANGUAGE OverloadedStrings #-} + +import Distribution.Simple (defaultMainWithHooks) +import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks) + +main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose + overridesFile outputDir) + where name = "Gdk" + version = "3.0" + verbose = False + overridesFile = Nothing + outputDir = Nothing diff --git a/gi-gdk.cabal b/gi-gdk.cabal --- a/gi-gdk.cabal +++ b/gi-gdk.cabal @@ -1,6 +1,5 @@ --- Autogenerated, do not edit. name: gi-gdk -version: 0.3.18.15 +version: 3.0.1 synopsis: Gdk bindings description: Bindings for Gdk, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -9,81 +8,30 @@ author: Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer: Iñaki García Etxebarria (garetxe@gmail.com) category: Bindings -build-type: Simple -cabal-version: >=1.10 +build-type: Custom +cabal-version: >= 1.24 +custom-setup + setup-depends: base >= 4.7, + Cabal >= 1.24, + haskell-gi >= 0.15 + library default-language: Haskell2010 default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations - exposed-modules: GI.Gdk.Types - GI.Gdk - GI.Gdk.Callbacks - GI.Gdk.Constants - GI.Gdk.Enums - GI.Gdk.Flags - GI.Gdk.Functions - GI.Gdk.Objects - GI.Gdk.Objects.AppLaunchContext - GI.Gdk.Objects.Cursor - GI.Gdk.Objects.Device - GI.Gdk.Objects.DeviceManager - GI.Gdk.Objects.Display - GI.Gdk.Objects.DisplayManager - GI.Gdk.Objects.DragContext - GI.Gdk.Objects.FrameClock - GI.Gdk.Objects.GLContext - GI.Gdk.Objects.Keymap - GI.Gdk.Objects.Screen - GI.Gdk.Objects.Visual - GI.Gdk.Objects.Window - GI.Gdk.Structs - GI.Gdk.Structs.Atom - GI.Gdk.Structs.Color - GI.Gdk.Structs.EventAny - GI.Gdk.Structs.EventButton - GI.Gdk.Structs.EventConfigure - GI.Gdk.Structs.EventCrossing - GI.Gdk.Structs.EventDND - GI.Gdk.Structs.EventExpose - GI.Gdk.Structs.EventFocus - GI.Gdk.Structs.EventGrabBroken - GI.Gdk.Structs.EventKey - GI.Gdk.Structs.EventMotion - GI.Gdk.Structs.EventOwnerChange - GI.Gdk.Structs.EventProperty - GI.Gdk.Structs.EventProximity - GI.Gdk.Structs.EventScroll - GI.Gdk.Structs.EventSelection - GI.Gdk.Structs.EventSequence - GI.Gdk.Structs.EventSetting - GI.Gdk.Structs.EventTouch - GI.Gdk.Structs.EventTouchpadPinch - GI.Gdk.Structs.EventTouchpadSwipe - GI.Gdk.Structs.EventVisibility - GI.Gdk.Structs.EventWindowState - GI.Gdk.Structs.FrameTimings - GI.Gdk.Structs.Geometry - GI.Gdk.Structs.KeymapKey - GI.Gdk.Structs.Point - GI.Gdk.Structs.RGBA - GI.Gdk.Structs.Rectangle - GI.Gdk.Structs.TimeCoord - GI.Gdk.Structs.WindowAttr - GI.Gdk.Structs.WindowRedirect - GI.Gdk.Unions - GI.Gdk.Unions.Event - pkgconfig-depends: gdk-3.0 >= 3.18 + + pkgconfig-depends: gdk-3.0 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1, - gi-glib >= 0.2.46.15 && < 0.2.47, - gi-gobject >= 0.2.46.15 && < 0.2.47, - gi-gdkpixbuf >= 0.2.32.15 && < 0.2.33, - gi-gio >= 0.2.46.15 && < 0.2.47, - gi-pango >= 0.1.38.15 && < 0.1.39, - gi-cairo >= 0.1.14.15 && < 0.1.15, + gi-glib == 2.0.*, + gi-gobject == 2.0.*, + gi-gdkpixbuf == 2.0.*, + gi-gio == 2.0.*, + gi-pango == 1.0.*, + gi-cairo == 1.0.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0, - transformers >= 0.3 + transformers >= 0.5